小编现在的心情十分激动，即将要去思密达旅行~这头一次坐飞机，会不会晕鸡呢？在无比激动的心情下，小编食指一抖又打开电脑到处逛逛，突然看见，有款十分炫酷的脚本，它的脚本运行提示信息是那样那样的，哇~好高端的样子~工具/原料more按键精灵2014方法/步骤1/6分步阅读

炫酷的脚本运行提示

这款脚本，小编是在简单游上看到的，蕃茄大大的脚本，它的运行提示信息，不是使用气泡，而是使用大漠的Foobar制作的提示窗口，看起来不仅赏心悦目，而且脚本运行的状态信息，一目了然。

2/6

哈哈，咱们也照葫芦画瓢，也学习着做一个炫酷提示，做什么好呢？有了，就做——思密达美食副本运行提示信息

步骤

★使用大漠的CreateFoobarRoundRect函数创建一个圆角形窗口★使用大漠的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/6

函数

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/6

函数

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/6

函数

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/6

代码

Callregister()//调用大漠注册

Globaljs

Globalbk

js=0

bk=0

//创建大漠对象/////

setdm=createobject(dm.dmsoft)

dm_ret=dm.SetPath(G:\test)

//释放图片/////

PutAttachmentG:\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)设置矩形条颜色

Do

Call变色文字()

i=i+1

dm_ret=dm.FoobarDrawPic(foobar,10,60,G:\test\i.bmp,)

Ifi=8Then

i=0

EndIf

Delay1000

Call框()

dm_ret=dm.FoobarUpdate(foobar)刷新

Loop

Sub框()//动态显示框

Ifj=8Then

ExitSub

EndIf

dm_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+40

j=j+1

dm_ret=dm.FoobarDrawText(foobar,520,60+bk,690,100+bk,第j关，美食败,FFFFFF,1)

EndSub

Sub变色文字()//根据判断数的奇偶来变化文字颜色

Ifjs/2=0Then

dm_ret=dm.FoobarDrawText(foobar,200,18,800,30,━═★思密达美食副本═┳一,FFFFFF,1)

js=js+1

Else

dm_ret=dm.FoobarDrawText(foobar,200,18,800,30,━═★思密达美食副本═┳一,00ff00,1)

js=0

EndIf

EndSub

SubOnScriptExit()//关闭Foobar

dm_ret=dm.FoobarClearText(foobar)

dm_ret=dm.FoobarClose(foobar)

EndSub

Subregister()//注册大漠

Setws=createobject(Wscript.Shell)

ws.runregsvr32atl.dll/s

Setws=nothing

PutAttachmentG:\test,dm.dll

PutAttachment.\Plugin,RegDll.dll

callPlugin.RegDll.Reg(G:\test\dm.dll)

Setdm=createobject(dm.dmsoft)

ver=dm.ver()

Iflen(ver)=0Then

MessageBox插件注册失败,检查系统是否禁用了vbs脚本权限

EndScript

EndIf

EndSub

效果演示：

操作系统