按键精灵2014
哈哈，咱们也照葫芦画瓢，也学习着做一个炫酷提示，做什么好呢？有了，就做——思密达美食副本运行提示信息 步骤★ 使用大漠的 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 bkjs = 0bk = 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)'刷新LoopSub 框() //动态显示框 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 IfEnd SubSub OnScriptExit() //关闭Foobar dm_ret = dm.FoobarClearText(foobar) dm_ret = dm.FoobarClose(foobar)End SubSub 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 IfEnd Sub效果演示：