按键精灵

shenhao7752376

。。。。。。。Event Form1.Button1.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*0
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
KeyPress "R", 1
End If
End Event
Event Form1.Button2.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*1
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button3.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*2
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button4.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*3
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button5.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*4
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button6.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*5
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button7.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*6
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button8.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*7
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button9.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*8
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button10.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*9
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button11.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*10
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button12.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*11
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button13.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*12
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button14.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*13
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button15.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*14
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button16.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*15
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button17.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*16
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button18.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*17
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button19.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*18
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event
Event Form1.Button20.Click
Dim Hwnd
RunApp "C:\Program Files\RealVNC\VNC4\vncaddrbook.exe"
Delay 200
Hwnd = Plugin.Window.Find(0, "VNC Address Book")
Delay 200
Call Plugin.Window.Max(Hwnd)
Delay 200
FindPic 0,0,1024,768,"Attachment:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    MoveR 0, 96+16*19
    Delay 200
    LeftDoubleClick 1
    SayString "psadmin"
    Delay 200
    KeyPress "Enter", 1
    Delay 1000
    KeyPress "Win", 1
        Delay 200
    KeyPress "Right", 1
        Delay 200
 KeyPress "Right", 1
        Delay 200
 KeyPress "R", 1
End If
End Event

正点原子

楼主该放点详细点的介绍

谷子木

天书。。。

南柯一觉

这是什么东西啊，完全看不懂。