CopyPastehas never been so tasty!

123

by anonymous

  • 0
  • 0
  • 0
198 views

ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
  MessageBox "網頁按鍵精靈沒有運行"
  EndScript
End If
Call Plugin.Web.Tips("腳本開始運行")
Call Plugin.Web.SetSize(1024,780)
While true
             
        Call Plugin.Web.KeyPress(192)
        Call Plugin.Web.KeyPress(49)
        Call Plugin.Web.KeyPress(32)
        Call Plugin.Web.KeyPress(32)
         
    Call Plugin.Web.KeyPress(192)
    Call Plugin.Web.KeyPress(50)
    Call Plugin.Web.KeyPress(32)
    Call Plugin.Web.KeyPress(32)
MoveTo 770,170
    LeftClick 1
    MoveTo 518,370
LeftClick 1
RightClick 1
        Delay 1000
Call Plugin.Web.KeyPress(192)
Call Plugin.Web.KeyPress(51)
Call Plugin.Web.KeyPress(32)
    Call Plugin.Web.KeyPress(32)
    MoveTo 770,170
        LeftClick 1
        MoveTo 518,370
    LeftClick 1
    RightClick 1
Delay 2000
Call Plugin.Web.KeyPress(192)
Call Plugin.Web.KeyPress(53)
Call Plugin.Web.KeyPress(32)
    Call Plugin.Web.KeyPress(32)
     Call Plugin.Web.KeyPress(56)
            Delay 5000
wend
Sub OnScriptExit()
  Call Plugin.Web.Tips("腳本停止運行")
End Sub

Add A Comment: