PutAttachment .\plugin *.dll
Delay 500
UserVar tx=a12736a8sfgwsadf 通行证(须在4-16位,第1位为英文字母)
UserVar mm=a123456789 密码(长度为4-10个字符)
Plugin Web.Bind("wqm.exe")
//打开申请地址
Plugin Web.Tips("打开申请网页...")
Plugin Web.Go("http://register.sdo.com/sdo/reg/mir2_tg/inputinfo.asp")
Plugin Web.SetSize(900,850)
Delay 500
Plugin Web.Tips("正在输入...")
Plugin Web.HtmlInput(tx,"id:username")
Plugin Web.HtmlInput(mm,"id:password")
Plugin Web.HtmlInput(mm,"id:repassword")
Plugin Web.Tips("验证码识别...")
//<>=============识别验证码(必须保证能看见验证码在最前面,否则无法识别!)
//下面这句是得到当前最前面的窗口句柄
Plugin Hwnd = Window.Foreground()
//下面这句是移动窗口到(0, 0)位置
Plugin Window.Move(Hwnd, 0, 0)
Delay 500
//下面这句是得到窗口句柄的客户区大小
Plugin Rect = Window.GetClientRect(Hwnd)
MyArray = Split(Rect, "|")
L = Clng(MyArray(0))+258: T = Clng(MyArray(1))+504
Plugin yzm=SDTXZ.GetSDNO(Hwnd,L,T)
Plugin Web.HtmlInput(yzm,"id:attcode2")
Delay 500
Plugin Web.Tips("提交申请...")
//提交注册
//Plugin Web.Click("tag:INPUT&value:我已经阅读并同意接受用户服务协议,创建我的盛大通行证")
EndScript 
Sub OnScriptExit
    Plugin Web.Tips("脚本停止运行...")
    MessageBox "演示填表完成,最好的脚本都是自己做的!"
Return