【院刊】-【201410期】炫酷型脚本运行提示窗口 _ 学院院刊

查看: 19355\|回复: 22	[技术交流] 【院刊】-【201410期】炫酷型脚本运行提示窗口 [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2014-10-29 17:44 | |只看楼主

炫酷型脚本运行提示窗口

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

炫酷的脚本运行提示

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

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

复制代码

思密达美食副本.Q 下载：

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

效果演示：

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

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

按键学院技术交流1群（QQ1群）：327610461（开放中）

按键学院技术交流2群（QQ2群）：465560580（开放中）

按键学院技术交流3群（QQ3群）：714719015（开放中）

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

本主题由超级版主 n15976906190 于 2017/9/2 8:41:39 执行审核主题操作

按键学院免费交流群：376122403

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

回顶部

发送短消息 UID 1258515 帖子 4 精华 0 鲜花 0 朵铜币 23 个银币 0 个性别在线时间 80 注册时间 2012-08-06 最后登录 2016-10-30 649665587 查看公共资料搜索主题搜索帖子 mylsmt mylsmt 组别幼儿园 UID1258515 帖子4 精华0 鲜花0 朵铜币23 个银币0 个在线时间80 注册时间2012-08-06	2^# 字体大小: t T 发表于 2016-10-30 00:05 \| \|只看该用户我看看能看懂借鉴不。。。


	回顶部

发送短消息 UID 3955208 帖子 119 精华 0 鲜花 0 朵铜币 259 个银币 0 个性别在线时间 3400 注册时间 2016-06-05 最后登录 2017-04-07 查看公共资料搜索主题搜索帖子 wwf0653 组别小学六年级 UID3955208 帖子119 精华0 鲜花0 朵铜币259 个银币0 个在线时间3400 注册时间2016-06-05	3^# 字体大小: t T 发表于 2016-11-17 14:52 \| \|只看该用户都好好的呵呵


	回顶部

发送短消息 UID 4189030 帖子 84 精华 0 鲜花 0 朵铜币 281 个银币 0 个性别在线时间 2740 注册时间 2016-10-31 最后登录 2017-01-30 2838590875 查看公共资料搜索主题搜索帖子 2838590875 2838590875 组别小学四年级 UID4189030 帖子84 精华0 鲜花0 朵铜币281 个银币0 个在线时间2740 注册时间2016-10-31	4^# 字体大小: t T 发表于 2016-12-22 15:41 \| \|只看该用户很实用华丽的功能


	回顶部

发送短消息 UID 4244859 帖子 25 精华 0 鲜花 0 朵铜币 97 个银币 160 个性别在线时间 3320 注册时间 2016-12-10 最后登录 2018-03-13 查看公共资料搜索主题搜索帖子 motiangwang 组别幼儿园 UID4244859 帖子25 精华0 鲜花0 朵铜币97 个银币160 个在线时间3320 注册时间2016-12-10 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	5^# 字体大小: t T 发表于 2016-12-24 23:52 \| \|只看该用户 66666666


	回顶部

发送短消息 UID 4138854 帖子 399 精华 0 鲜花 25 朵铜币 2304 个银币 -3 个性别在线时间 12820 注册时间 2016-09-28 最后登录 2021-04-04 305297353 查看公共资料搜索主题搜索帖子 yevying yevying 组别初中三年级 UID4138854 帖子399 精华0 鲜花25 朵铜币2304 个银币-3 个在线时间12820 注册时间2016-09-28 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	6^# 字体大小: t T 发表于 2016-12-29 19:33 \| \|只看该用户 666666666


	回顶部

发送短消息 UID 3438470 帖子 495 精华 0 鲜花 1 朵铜币 1063 个银币 -2 个性别在线时间 18300 注册时间 2015-09-06 最后登录 2018-06-08 查看公共资料搜索主题搜索帖子 shirnilin 组别高中一年级 UID3438470 帖子495 精华0 鲜花1 朵铜币1063 个银币-2 个在线时间18300 注册时间2015-09-06	7^# 字体大小: t T 发表于 2017-01-19 19:44 \| \|只看该用户 ``````````````````


	回顶部

发送短消息 UID 3239277 帖子 708 精华 0 鲜花 68 朵铜币 5850 个银币 5 个性别在线时间 22600 注册时间 2015-05-08 最后登录 2022-06-07 查看公共资料搜索主题搜索帖子 bnphupai bnphupai 组别高中三年级 UID3239277 帖子708 精华0 鲜花68 朵铜币5850 个银币5 个在线时间22600 注册时间2015-05-08 脚本作者商业小精灵作者绑定账号后自动赠送	8^# 字体大小: t T 发表于 2017-01-23 12:13 \| \|只看该用户可可以改变放大倍数的放大镜源码可以改变放大倍数的放大镜源码以改变放大倍数的放大镜源码


	回顶部

发送短消息 UID 2015948 帖子 311 精华 0 鲜花 2 朵铜币 663 个银币 187 个性别在线时间 4520 注册时间 2013-07-18 最后登录 2018-04-29 123456 查看公共资料搜索主题搜索帖子我是波波我是波波组别初中二年级 UID2015948 帖子311 精华0 鲜花2 朵铜币663 个银币187 个在线时间4520 注册时间2013-07-18 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	9^# 字体大小: t T 发表于 2017-01-25 11:37 \| \|只看该用户


	回顶部

发送短消息 UID 1248647 帖子 1099 精华 0 鲜花 31 朵铜币 3419 个银币 185 个性别在线时间 47460 注册时间 2012-07-30 最后登录 2022-04-05 729434377 查看公共资料搜索主题搜索帖子 puyue puyue 组别大学二年级 UID1248647 帖子1099 精华0 鲜花31 朵铜币3419 个银币185 个在线时间47460 注册时间2012-07-30 黄瓜勋章体验商业小精灵活动的奖励骨灰级按键用户 3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	10^# 字体大小: t T 发表于 2017-02-07 16:36 \| \|只看该用户我来看看哈


	回顶部

发送短消息 UID 1013295 帖子 1284 精华 0 鲜花 19 朵铜币 4018 个银币 278 个性别在线时间 17120 注册时间 2012-02-16 最后登录 2022-04-21 326285440 查看公共资料搜索主题搜索帖子 ghc00259 ghc00259 组别大学二年级 UID1013295 帖子1284 精华0 鲜花19 朵铜币4018 个银币278 个在线时间17120 注册时间2012-02-16 黄瓜勋章体验商业小精灵活动的奖励认证考霸对按键认证题目有深入研究，并且孜孜不倦学到老考到老按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	11^# 字体大小: t T 发表于 2017-02-07 16:47 \| \|只看该用户不一样的方法。学不一样的思路
	有时候书看多头痛疼，会让你焦虑不安,心生烦躁。不要告诉我你是同志 ---楼主戒色！

	回顶部

发送短消息 UID 4281290 帖子 35 精华 0 鲜花 4 朵铜币 145 个银币 164 个性别在线时间 2740 注册时间 2017-01-06 最后登录 2024-11-02 查看公共资料搜索主题搜索帖子 louling 组别小学二年级 UID4281290 帖子35 精华0 鲜花4 朵铜币145 个银币164 个在线时间2740 注册时间2017-01-06 按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com	12^# 字体大小: t T 发表于 2017-02-07 19:22 \| \|只看该用户 32323


	回顶部

发送短消息 UID 4278819 帖子 51 精华 0 鲜花 0 朵铜币 124 个银币 0 个性别在线时间 2220 注册时间 2017-01-04 最后登录 2017-04-04 12345 查看公共资料搜索主题搜索帖子 dudingwang dudingwang 组别小学三年级 UID4278819 帖子51 精华0 鲜花0 朵铜币124 个银币0 个在线时间2220 注册时间2017-01-04	13^# 字体大小: t T 发表于 2017-02-14 21:28 \| \|只看该用户 13254645


	回顶部

发送短消息 UID 4240135 帖子 95 精华 0 鲜花 0 朵铜币 427 个银币 160 个性别在线时间 2820 注册时间 2016-12-06 最后登录 2018-09-27 466202307 查看公共资料搜索主题搜索帖子 luogaogong2006 luogaogong2006 组别小学五年级 UID4240135 帖子95 精华0 鲜花0 朵铜币427 个银币160 个在线时间2820 注册时间2016-12-06 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	14^# 字体大小: t T 发表于 2017-02-14 21:39 \| \|只看该用户好贴一定要顶


	回顶部

发送短消息 UID 4454354 帖子 366 精华 0 鲜花 35 朵铜币 3633 个银币 161 个性别在线时间 15740 注册时间 2017-05-06 最后登录 2022-03-24 查看公共资料搜索主题搜索帖子 adamtree 组别高中一年级 UID4454354 帖子366 精华0 鲜花35 朵铜币3633 个银币161 个在线时间15740 注册时间2017-05-06 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	15^# 字体大小: t T 发表于 2017-09-10 19:05 \| \|只看该用户该内容需您回复才可浏览


	回顶部

发送短消息 UID 4613449 帖子 182 精华 0 鲜花 -1 朵铜币 404 个银币 -1 个性别在线时间 3020 注册时间 2017-08-31 最后登录 2020-01-05 12345 查看公共资料搜索主题搜索帖子 n3ohuang n3ohuang 组别初中一年级 UID4613449 帖子182 精华0 鲜花-1 朵铜币404 个银币-1 个在线时间3020 注册时间2017-08-31	16^# 字体大小: t T 发表于 2017-09-22 13:23 \| \|只看该用户學習一下


	回顶部

发送短消息 UID 4232659 帖子 277 精华 0 鲜花 22 朵铜币 329 个银币 206 个性别在线时间 10460 注册时间 2016-12-01 最后登录 2024-09-26 查看公共资料搜索主题搜索帖子 chenxru 最熟悉的陌生人组别初中二年级 UID4232659 帖子277 精华0 鲜花22 朵铜币329 个银币206 个在线时间10460 注册时间2016-12-01 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	17^# 字体大小: t T 发表于 2017-10-22 13:07 \| \|只看该用户试试


	回顶部

发送短消息 UID 4730800 帖子 37 精华 0 鲜花 0 朵铜币 89 个银币 0 个性别在线时间 340 注册时间 2017-11-17 最后登录 2017-12-17 查看公共资料搜索主题搜索帖子 lsp_pisces 组别小学二年级 UID4730800 帖子37 精华0 鲜花0 朵铜币89 个银币0 个在线时间340 注册时间2017-11-17	18^# 字体大小: t T 发表于 2017-11-29 13:41 \| \|只看该用户炫酷型脚本运行提示窗口


	回顶部

发送短消息 UID 3604661 帖子 288 精华 0 鲜花 0 朵铜币 1376 个银币 5 个性别在线时间 20020 注册时间 2015-11-22 最后登录 2024-10-08 875403147 查看公共资料搜索主题搜索帖子 1140484293 风云天下组别初中二年级 UID3604661 帖子288 精华0 鲜花0 朵铜币1376 个银币5 个在线时间20020 注册时间2015-11-22	19^# 字体大小: t T 发表于 2017-12-03 16:26 \| \|只看该用户少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所所


	回顶部

发送短消息 UID 1682776 帖子 410 精华 0 鲜花 72 朵铜币 2485 个银币 222 个性别在线时间 7660 注册时间 2013-03-17 最后登录 2024-11-20 727041545 查看公共资料搜索主题搜索帖子 shanmeig 懒鬼组别初中三年级 UID1682776 帖子410 精华0 鲜花72 朵铜币2485 个银币222 个在线时间7660 注册时间2013-03-17 过大年勋章俩小福娃给大家拜年啦！按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com	20^# 字体大小: t T 发表于 2017-12-19 18:30 \| \|只看该用户运行提示窗口


	回顶部

上一主题| 下一主题

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