1、炫酷的脚本运行提示这款脚本，小编是在简单游上看到的，蕃茄大大的脚本，它的运行提示信息，不是使用气泡，而是使用大漠的Foobar制作的提示窗口，看起来不仅赏心悦目，而且脚本运行的状态信息，一目了然。
2、哈哈，咱们也照葫芦额鹿赤柝画瓢，也学习着做一个炫酷提示，做什么好呢？有了，就做——思密达美食副本运行提示信息步骤★使用大漠的Cr髫潋啜缅eateFoobarRoundRect函数创建一个圆角形窗口★使用大漠的FoobarFillRect函数填充矩形颜色（绘制颜色不一的矩形框，美化窗口）★使用大漠的FoobarDrawPic函数绘制图像（用于显示图片）★使用大漠的FoobarDrawText函数绘制文字★★比较麻烦的地方，是计算矩形条在圆角窗口里的显示位置，以及整个窗口的配色方案函数CreateFoobarRoundRect（创建一个圆角矩形窗口）语法dm.CreateFoobarRoundRect(hwnd,x,y,w,h,rw,rh)参数定义hwnd:指定的窗口句柄,如果此值为0,那么就在桌面创建此窗口x:左上角X坐标(相对于hwnd客户区坐标)y:左上角Y坐标(相对于hwnd客户区坐标)w:矩形区域的宽度h:矩形区域的高度rw:圆角的宽度rh:圆角的高度返回值创建成功的窗口句柄注：创建窗口还有其它的形状，例如：CreateFoobarEllipse（创建一个椭圆窗口）、CreateFoobarRect（创建一个矩形窗口）
3、函数FoobarFillRect(在指定的Foobar窗口内部填充矩形)语法dm.FoobarFillRect(hwnd,x1,y1,x2,y2,color)参数定义hwnd:指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x1:左上角X坐标(相对于hwnd客户区坐标)y1:左上角Y坐标(相对于hwnd客户区坐标)x2:右下角X坐标(相对于hwnd客户区坐标)y2:右下角Y坐标(相对于hwnd客户区坐标)color:填充的颜色值返回值0:失败1:成功
4、函数FoobarDrawPic（在指定的Foobar窗口绘制图像）图片不能是加密的图片语法dm.FoobarDrawPic(hwnd,x,y,pic_name,trans_color)参数定义hwnd:指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x:左上角X坐标(相对于hwnd客户区坐标)y:左上角Y坐标(相对于hwnd客户区坐标)pic_name:图像文件名trans_color:图像透明色（不需要透明色则设置空字符串""）返回值0:失败1:成功
5、函数FoobarDrawText(在指定的Foobar窗口绘制文字)语法dm.FoobarDrawText(hwnd,x,y,w,h,text,color,align)参数定义hwnd:指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x:左上角X坐标(相对于hwnd客户区坐标)y:左上角Y坐标(相对于hwnd客户区坐标)w:矩形区域的宽度h:矩形区域的高度text:字符串color:文字颜色值align:取值定义1:左对齐2:中间对齐4:右对齐返回值0:失败1:成功
6、代码Callregister()//调用大漠注册GlobaljsGlobalbkjs=0bk=0//埒摆缥膂创建大漠对象/////setdm=createobject("dm.dmsoft")dm_ret=dm.SetPath("G:\test")//释放图片/////PutAttachment"G:\test","*.bmp"//画提示窗口///////foobar=dm.CreateFoobarRoundRect(hwnd,10,10,700,400,30,30)'画圆角窗口dm_ret=dm.FoobarSetFont(foobar,"宋体",14,1)'设置文本字体大小，加粗dm_ret=dm.FoobarFillRect(foobar,0,0,800,400,"000000")'设置矩形条颜色dm_ret=dm.FoobarFillRect(foobar,0,0,800,50,"353535")'设置矩形条颜色dm_ret=dm.FoobarFillRect(foobar,10,10,790,40,"262626")'设置矩形条颜色dm_ret=dm.FoobarFillRect(foobar,490,60,690,90,"353535")'设置矩形条颜色DoCall变色文字()i=i+1dm_ret=dm.FoobarDrawPic(foobar,10,60,"G:\test\"&i&".bmp","")Ifi=8Theni=0EndIfDelay1000Call框()dm_ret=dm.FoobarUpdate(foobar)'刷新LoopSub框()//动态显示框Ifj=8ThenExitSubEndIfdm_ret=dm.FoobarFillRect(foobar,490,60+bk,690,90+bk,"353535")'设置颜色dm_ret=dm.FoobarDrawText(foobar,520,60+bk,690,100+bk,"★","FFFFFF",1)bk=bk+40j=j+1dm_ret=dm.FoobarDrawText(foobar,520,60+bk,690,100+bk,"第"&j&"关，美食败","FFFFFF",1)EndSubSub变色文字()//根据判断数的奇偶来变化文字颜色Ifjs/2=0Thendm_ret=dm.FoobarDrawText(foobar,200,18,800,30,"━═★思密达美食副本═┳一","FFFFFF",1)js=js+1Elsedm_ret=dm.FoobarDrawText(foobar,200,18,800,30,"━═★思密达美食副本═┳一","00ff00",1)js=0EndIfEndSubSubOnScriptExit()//关闭Foobardm_ret=dm.FoobarClearText(foobar)dm_ret=dm.FoobarClose(foobar)EndSubSubregister()//注册大漠Setws=createobject("Wscript.Shell")ws.run"regsvr32atl.dll/s"Setws=nothingPutAttachment"G:\test","dm.dll"PutAttachment".\Plugin","RegDll.dll"callPlugin.RegDll.Reg("G:\test\dm.dll")Setdm=createobject("dm.dmsoft")ver=dm.ver()Iflen(ver)=0ThenMessageBox"插件注册失败,检查系统是否禁用了vbs脚本权限"EndScriptEndIfEndSub效果演示：
