Rem 开始
Hwnd = Plugin.Window.MousePoint()
for 22
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 1000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 13000
Call Plugin.Bkgnd.KeyPress(Hwnd, 27)
next
Delay 1000
VBSBegin 
   Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set List = obj.ExecQuery ("Select * from Win32_Process Where Name = 'HeyyoClient.exe'")
    For Each objProcess in List
   objProcess.Terminate()
   Next
VBSEnd
Delay 2000
FindPic 0,0,1024,768,"Attachment:\宽带.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 1000
    RightClick 1
    Delay 1000
    KeyPress "O", 1
    Delay 2000
        RightClick 1
        Delay 1000
        KeyPress "O", 1
    Delay 1000
    KeyPress "Enter", 1
End If
Delay 3000
FindPic 0,0,1024,768,"Attachment:\和悦.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 1000
    RightClick 1
    Delay 1000
    KeyPress "O", 1
End If

Delay 8000
FindPic 0,0,1024,768,"Attachment:\电话.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 1000
    LeftClick 1
End If
Delay 2000
Goto 开始