VBSCall RunApp("notepad.exe")
Delay 500
//下面这句是得到当前最前面的窗口句柄
Plugin h = Window.Foreground()
//下面这句是改变窗口大小为(500, 500)
Plugin Window.Size(h, 410, 500)
//下面这句是移动窗口到(100, 100)位置
Plugin Window.Move(h, 600, 12)
SayString 此脚本是教新手的 各位大虾别笑我
KeyPress 13,1
Delay 1000
SayString 先在脚本中设置自定仪变量
KeyPress 13,1
Delay 1000
SayString 比如:UserVar hong = 80 血少于%时加血
KeyPress 13,1
Delay 500
SayString 运行脚本的时候不要移动鼠标  请按任意键
KeyPress 13,1
WaitKey 
SayString 此脚本只是教下新人如何做%比加血脚本,请按任意键
KeyPress 13,1
WaitKey 
SayString 注意:等下运行的时候这里会后台运行说明
KeyPress 13,1
Delay 500
SayString 请注意看这里（请按任意键）
KeyPress 13,1
WaitKey 
SayString 现在打开画图（请按任意键）
KeyPress 13,1
WaitKey 
VBSCall RunApp("mspaint.exe")
Delay 1000
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是改变窗口大小为(500, 500)
Plugin Window.Size(Hwnd, 500, 600)
Delay 500
//下面这句是移动窗口到(100, 100)位置
Plugin Window.Move(Hwnd, 0, 0)
Delay 500
MoveTo 17,214
LeftClick 1
Delay 500
MoveTo 88,81
x=88
y=81
Delay 300
LeftDown 1
For 60
    MoveTo x+1 y+1
    x=x+1
    y=y+1
EndFor 
For 60
    MoveTo x+1,y
    x=x+1
    y=y
EndFor 
LeftUp 1
Delay 500
MoveTo 39,88
Delay 300
LeftClick 1
Delay 300
MoveTo 74,556
Delay 300
LeftClick 1
Delay 300
MoveTo 146,110
Delay 300
LeftClick 1
Delay 300
MoveTo 88,81
Delay 500
Plugin h = Window.FindEx(h, 0, "Edit", 0)
Plugin Bkgnd.SendString(h,"比如这就是血   等待按键" )
Plugin Bkgnd.KeyDown(h,13)
WaitKey 
Plugin Bkgnd.SendString(h,"学的初始地址是X是88，Y是81")
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"也就是鼠标当前指的坐标 等待按键")
Plugin Bkgnd.KeyDown(h,13)
WaitKey 
MoveTo 88,81
Plugin Bkgnd.SendString(h,"他的最后坐标是"&x&","&y)
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"也就是鼠标当前指的坐标 等待按键")
Plugin Bkgnd.KeyDown(h,13)
MoveTo x y
WaitKey 
Plugin Bkgnd.SendString(h,"用208[208=血最前X坐标]减去88[88=血的最后X坐标]" )
Plugin Bkgnd.KeyDown(h,13)
Plugin Bkgnd.SendString(h,"=血总长度 等待按键")
Plugin Bkgnd.KeyDown(h,13)
WaitKey 
p=x-88
Plugin Bkgnd.SendString(h,"设置变量w")
Plugin Bkgnd.KeyDown(h,13)