• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[技术交流] 【院刊】-【201410期】炫酷型脚本运行提示窗口 [复制链接]

1#

炫酷型脚本运行提示窗口


小编现在的心情十分激动,即将要去思密达旅行~这头一次坐飞机,会不会晕鸡呢?
在无比激动的心情下,小编食指一抖又打开电脑到处逛逛,突然看见,有款十分炫酷的脚本,它的脚本运行提示信息是那样那样的,哇~好高端的样子~




炫酷的脚本运行提示

这款脚本,小编是在简单游上看到的,蕃茄大大的脚本,它的运行提示信息,不是使用气泡,而是使用大漠的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 : 成功


代码
[hide]
  1. Call register()//调用大漠注册
  2. Global js
  3. Global bk
  4. js = 0
  5. bk = 0
  6. //创建大漠对象/////
  7. set dm = createobject("dm.dmsoft")
  8. dm_ret = dm.SetPath("G:\test")
  9. // 释放 图片/////
  10. PutAttachment "G:\test", "*.bmp"
  11. //画提示窗口///////
  12. foobar = dm.CreateFoobarRoundRect(hwnd, 10, 10, 700, 400, 30, 30)'画圆角窗口
  13. dm_ret = dm.FoobarSetFont(foobar,"宋体",14,1)'设置文本字体大小,加粗
  14. dm_ret = dm.FoobarFillRect(foobar,0,0,800,400,"000000")'设置矩形条颜色
  15. dm_ret = dm.FoobarFillRect(foobar, 0, 0, 800, 50, "353535")'设置矩形条颜色
  16. dm_ret = dm.FoobarFillRect(foobar, 10, 10, 790, 40, "262626")'设置矩形条颜色
  17. dm_ret = dm.FoobarFillRect(foobar, 490, 60, 690, 90, "353535")'设置矩形条颜色
  18. Do
  19. Call 变色文字()
  20. i=i+1
  21. dm_ret = dm.FoobarDrawPic(foobar, 10, 60, "G:\test\" & i & ".bmp", "")
  22. If i = 8 Then
  23. i=0
  24. End If
  25. Delay 1000
  26. Call 框()
  27. dm_ret = dm.FoobarUpdate(foobar)'刷新
  28. Loop
  29. Sub 框() //动态显示框
  30. If j = 8 Then
  31. Exit Sub
  32. End If
  33. dm_ret = dm.FoobarFillRect(foobar, 490, 60 + bk, 690, 90 + bk, "353535")'设置颜色
  34. dm_ret = dm.FoobarDrawText(foobar, 520, 60 + bk, 690, 100 + bk, "★", "FFFFFF", 1)
  35. bk = bk + 40
  36. j = j + 1
  37. dm_ret = dm.FoobarDrawText(foobar, 520, 60 + bk, 690, 100 + bk, "第"&j&"关,美食败", "FFFFFF", 1)
  38. End Sub
  39. Sub 变色文字() //根据判断数的奇偶 来变化文字颜色
  40. If js/2=0 Then
  41. dm_ret = dm.FoobarDrawText(foobar, 200, 18,800, 30, "━═★思密达美食副本═┳一", "FFFFFF", 1)
  42. js=js+1
  43. Else
  44. dm_ret = dm.FoobarDrawText(foobar, 200, 18, 800, 30, "━═★思密达美食副本═┳一", "00ff00", 1)
  45. js = 0
  46. End If
  47. End Sub
  48. Sub OnScriptExit() //关闭Foobar
  49. dm_ret = dm.FoobarClearText(foobar)
  50. dm_ret = dm.FoobarClose(foobar)
  51. End Sub
  52. Sub register() //注册大漠
  53. Set ws = createobject("Wscript.Shell")
  54. ws.run "regsvr32 atl.dll /s"
  55. Set ws = nothing
  56. PutAttachment "G:\test", "dm.dll"
  57. PutAttachment ".\Plugin" ,"RegDll.dll"
  58. call Plugin.RegDll.Reg ( "G:\test\dm.dll")
  59. Set dm = createobject("dm.dmsoft")
  60. ver = dm.ver()
  61. If len(ver) = 0 Then
  62. MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
  63. EndScript
  64. End If
  65. End Sub
复制代码
思密达美食副本.Q 下载:
您所在的用户组无法下载或查看附件


效果演示:

您所在的用户组无法下载或查看附件




如果童鞋们对于本帖里的内容有疑问或者建议,欢迎跟帖讨论~~





按键学院技术交流1群(QQ1群):327610461开放中)

按键学院技术交流2群(QQ2群):465560580开放中)

按键学院技术交流3群(QQ3群):714719015(开放中)


附件:您需要登录才可以下载或查看附件。没有帐号? 注册

    已有3评分我要评分查看所有评分

    本主题由 超级版主 n15976906190 于 2017/9/2 8:41:39 执行 审核主题 操作
    按键学院免费交流群:376122403

    按键学院招生计划
    按键学院系统教程
    2#

    我看看能看懂借鉴不。。。

    3#

    都好好的呵呵

    4#

    很实用华丽的功能

    5#

    66666666

    6#

    666666666

    7#

    ``````````````````

    8#

    可可以改变放大倍数的 放大镜源码可以改变放大倍数的 放大镜源码以改变放大倍数的 放大镜源码

    9#


    10#

    我来看看哈

    11#

    不一样的方法。学不一样的思路

    有时候书看多头痛疼,会让你焦虑不安,心生烦躁。不要告诉我你是同志 ---楼主戒色!
    12#

    32323

    13#

    13254645

    14#

    好贴一定要顶

    15#

    该内容需您回复才可浏览

    16#

    學習一下

    17#

    试试

    18#

    炫酷型脚本运行提示窗口

    19#

    少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所

    20#

    运行提示窗口

    发新话题 回复该主题