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

学习按键精灵：制作炫酷脚本运⾏提⽰窗⼝
学习按键精灵制作炫酷脚本运⾏提⽰窗⼝
来源：按键学院【按键精灵】⼩编现在的⼼情⼗分激动，即将要去思密达旅⾏~这头⼀次坐飞机，会不会晕鸡呢？在⽆⽐激动的⼼情下，⼩编⾷指⼀抖⼜打开电脑到处逛逛，突然看见，有款⼗分炫酷的脚本，它的脚本运⾏提⽰信息是那样那样的，哇~好⾼端的样⼦~
炫酷的脚本运⾏提⽰
这款脚本，⼩编是在简单游上看到的，蕃茄⼤⼤的脚本，它的运⾏提⽰信息，不是使⽤⽓泡，⽽是使⽤⼤漠的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
效果演⽰：。