学习按键精灵：制作炫酷脚本运行提示窗口

学习按键精灵制作炫酷脚本运行提示窗口
来源：按键学院【按键精灵】小编现在的心情十分激动，即将要去思密达旅行~这头一次坐飞机，会不会晕鸡呢？在无比激动的心情下，小编食指一抖又打开电脑到处逛逛，突然看见，有款十分炫酷的脚本，它的脚本运行提示信息是那样那样的，哇~好高端的样子~
炫酷的脚本运行提示
这款脚本，小编是在简单游上看到的，蕃茄大大的脚本，它的运行提示信息，不是使用气泡，而是使用大漠的Foobar制作的提示窗口，看起来不仅赏心悦目，而且脚本运行的状态信息，一目了然。

哈哈，咱们也照葫芦画瓢，也学习着做一个炫酷提示，做什么好呢？有了，就做——思密达美食副本运行提示信息
步骤
★使用大漠的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 （创建一个矩形窗口）
函数FoobarFillRect (在指定的Foobar窗口内部填充矩形)
语法dm.FoobarFillRect(hwnd,x1,y1,x2,y2,color)
参数定义hwnd :指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x1 :左上角X坐标(客户区坐标)
y1 : 左上角Y坐标(相对于hwnd客户区坐标)
x2 :右下角X坐标(相对于hwnd客户区坐标)
y2 : 右下角Y坐标(相对于hwnd客户区坐标)
color:填充的颜色值
返回值0 : 失败 1 : 成功
函数FoobarDrawPic（在指定的Foobar窗口绘制图像）图片不能是加密的图片语法dm.FoobarDrawPic(hwnd,x,y,pic_name,trans_color)
参数定义hwnd: 指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x:左上角X坐标(相对户区坐标)
y:左上角Y坐标(相对于hwnd客户区坐标)
pic_name:图像文件名
trans_color: 图像透明色（不需要透明色则设置空字符串""）
返回值0 : 失败1 : 成功
函数FoobarDrawText(在指定的Foobar窗口绘制文字)语法dm.FoobarDrawText(hwnd,x,y,w,h,text,color,align)
参数定义hwnd:指定的Foobar窗口,此句柄必须是通过CreateFoobarxxxx系列函数创建出来的x:左上角X坐标(相户区坐标)
y:左上角Y坐标(相对于hwnd客户区坐标)
w:矩形区域的宽度
h:矩形区域的高度
text:字符串
color: 文字颜色值
align : 取值定义 1 : 左对齐 2 : 中间对齐 4 : 右对齐
返回值0 : 失败1 : 成功代码
Call register()//调用大漠注册Global js
Global bk
js = 0
bk = 0
//创建大漠对象/////
set dm = 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")'设置矩形条颜色
Do
Call 变色文字()
i=i+1
dm_ret = dm.FoobarDrawPic(foobar, 10, 60, "G:\test\" & i & ".bmp", "")
If i = 8 Then
i=0
End If
Delay 1000
Call 框()
dm_ret = dm.FoobarUpdate(foobar)'刷新
Loop
Sub 框() //动态显示框
If j = 8 Then
Exit Sub
End If
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) End Sub
Sub 变色文字() //根据判断数的奇偶来变化文字颜色
If js/2=0 Then
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
End If
End Sub
Sub OnScriptExit() //关闭Foobar
dm_ret = dm.FoobarClearText(foobar)
dm_ret = dm.FoobarClose(foobar)
End Sub
Sub register() //注册大漠
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing
PutAttachment "G:\test", "dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
call Plugin.RegDll.Reg ( "G:\test\dm.dll")
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
If len(ver) = 0 Then
MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
End Sub
效果演示：。