ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1440,892)
Call Plugin.Web.Go("http://www.jxjy.sdnu.edu.cn/entity/student/main_frame.jsp")
Call Plugin.Web.ScrollTo(0,349)
Delay 2324
Call Plugin.Web.LeftClick(291,416)
Delay 2122
Call Plugin.Web.LeftClick(834,236)
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub
&一运行就停止
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1440,892)
Call Plugin.Web.Go("http://www.jxjy.sdnu.edu.cn/entity/student/main_frame.jsp")
Call Plugin.Web.ScrollTo(0,349)
Delay 2324
Call Plugin.Web.LeftClick(291,416)
Delay 2122
Call Plugin.Web.LeftClick(834,236)
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub
&一运行就停止