鲁达 金猪脚本（原飞猪脚本）以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.
小编现在的心情十分激动，即将要去思密达旅行~这头一次坐飞机，会不会晕鸡呢？
在无比激动的心情下，小编食指一抖又打开电脑到处逛逛，突然看见，有款十分炫酷的脚本，它的脚本运行提示信息是那样那样的，哇~好高端的样子~
炫酷的脚本运行提示
[backcolor=rgb(249, 249, 249)] 这款脚本，小编是在简单游上看到的，蕃茄大大的脚本，它的运行提示信息，不是使用气泡，而是使用大漠的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坐标(相对于hwnd客户区坐标)
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坐标(相对于hwnd客户区坐标)
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坐标(相对于hwnd客户区坐标)
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("W;)
- ws.run "regsvr32 a /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
复制代码
思密达美食副本.Q 下载：
思密达美食副本.Q.rar M, 下载次数:106)
效果演示：
如果童鞋们对于本帖里的内容有疑问或者建议，欢迎跟帖讨论~~