ProcessID=Plugin.Web.Bind("WQM.exe")
Delay 500
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
Call Plugin.Web.Tips("脚本开始运行")
Call Plugin.Web.SetSize(1600,916)
Call Plugin.Web.Go("
http://www.excelpx.com/home.php?mod=spacecp&ac=profile")
Call Plugin.Web.ScrollTo(0,0)
Delay 500
Call Plugin.Web.HtmlSelect("5","
name:questionid")
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub