- 调用外部VBScript子程序 运行一个外部程序("notepad.exe")
- 延时500毫秒
- //下面这句是得到当前最前面的窗口句柄
- 调用插件命令 h = Window.Foreground()
- //下面这句是改变窗口大小为(500, 500)
- 调用插件命令 Window.Size(h, 410, 500)
- //下面这句是移动窗口到(100, 100)位置
- 调用插件命令 Window.Move(h, 600, 12)
- 输入文本 此脚本是教新手的 各位大虾别笑我
- 按键<Enter>
- 延时1000毫秒
- 输入文本 先在脚本中设置自定仪变量
- 按键<Enter>
- 延时1000毫秒
- 输入文本 比如:UserVar hong = 80 血少于%时加血
- 按键<Enter>
- 延时500毫秒
- 输入文本 运行脚本的时候不要移动鼠标 请按任意键
- 按键<Enter>
- 等待按任意键,保存到变量13,1中
- 输入文本 此脚本只是教下新人如何做%比加血脚本,请按任意键
- 按键<Enter>
- 等待按任意键,保存到变量13,1中
- 输入文本 注意:等下运行的时候这里会后台运行说明
- 按键<Enter>
- 延时500毫秒
- 输入文本 请注意看这里(请按任意键)
- 按键<Enter>
- 等待按任意键,保存到变量13,1中
- 输入文本 现在打开画图(请按任意键)
- 按键<Enter>
- 等待按任意键,保存到变量13,1中
- 调用外部VBScript子程序 运行一个外部程序("notepad.exe")
- 延时1000毫秒
- //下面这句是得到当前最前面的窗口句柄
- 调用插件命令 Hwnd = Window.Foreground()
- //下面这句是改变窗口大小为(500, 500)
- 调用插件命令 Window.Size(Hwnd, 500, 600)
- 延时500毫秒
- //下面这句是移动窗口到(100, 100)位置
- 调用插件命令 Window.Move(Hwnd, 0, 0)
- 延时500毫秒
- 鼠标移到 17 , 214
- 左键单击
- 延时500毫秒
- 鼠标移到 88 , 81
- x=88
- y=81
- 延时300毫秒
- 左键按下
- 循环 60 遍
- 鼠标移到 x+1 , y+1
- x=x+1
- y=y+1
- 循环结束
- 循环 60 遍
- 鼠标移到 x+1 , y
- x=x+1
- y=y
- 循环结束
- 左键弹起
- 延时500毫秒
- 鼠标移到 39 , 88
- 延时300毫秒
- 左键单击
- 延时300毫秒
- 鼠标移到 74 , 556
- 延时300毫秒
- 左键单击
- 延时300毫秒
- 鼠标移到 146 , 110
- 延时300毫秒
- 左键单击
- 延时300毫秒
- 鼠标移到 88 , 81
- 延时500毫秒
- 调用插件命令 h = Window.FindEx(h, 0, "Edit", 0)
- 调用插件命令 Bkgnd.SendString(h,"比如这就是血 等待按键" )
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 等待按任意键,保存到变量Bkgnd.KeyDown(h,13)中
- 调用插件命令 Bkgnd.SendString(h,"学的初始地址是X是88,Y是81")
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 调用插件命令 Bkgnd.SendString(h,"也就是鼠标当前指的坐标 等待按键")
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 等待按任意键,保存到变量Bkgnd.KeyDown(h,13)中
- 鼠标移到 88 , 81
- 调用插件命令 Bkgnd.SendString(h,"他的最后坐标是"&x&","&y)
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 调用插件命令 Bkgnd.SendString(h,"也就是鼠标当前指的坐标 等待按键")
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 鼠标移到 x , y
- 等待按任意键,保存到变量x y中
- 调用插件命令 Bkgnd.SendString(h,"用208[208=血最前X坐标]减去88[88=血的最后X坐标]" )
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 调用插件命令 Bkgnd.SendString(h,"=血总长度 等待按键")
- 调用插件命令 Bkgnd.KeyDown(h,13)
- 等待按任意键,保存到变量Bkgnd.KeyDown(h,13)中
- p=x-88
- 调用插件命令 Bkgnd.SendString(h,"设置变量w")
- 调用插件命令 Bkgnd.KeyDown(h,13)