誰有按鍵精靈的源碼 發給我個 謝謝 要有延時功能的

Question

誰有按鍵精靈的源碼 發給我個 謝謝 要有延時功能的
我EMALL:[email protected]

Answer 1

你自己瞧着办吧．
'控制鼠标的代码
Option Explicit
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)Private Const MOUSEEVENTF_ABSOLUTE = &H8000Private Const MOUSEEVENTF_MOVE = &H1Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button upPrivate Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 '  right button upPrivate Sub Command1_Click()
   mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, 100, 100, 0, 0 '移动鼠标至 100,100
   mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 '单击动鼠标左键
   mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '松开鼠标左键
End Sub'向当前取得焦点的控件或窗口发送按键
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2Private Sub Command1_Click()
   Call keybd_event(vbKey8, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下数字 8
   Call keybd_event(vbKey8, 0, KEYEVENTF_KEYUP, 0)       '松开数字 8
End Sub
Option Explicit
'向指定控件或窗口发送按键
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101Private Sub Command1_Click()
    PostMessage Text1.hwnd, WM_KEYDOWN, vbKey8, 0  '向 Text1 文本控件发送按键8
End SubOption Explicit
'延迟
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()
    Sleep 3000  '延迟3000毫秒，即3秒
    MsgBox "OK"
End Sub

Answer 2

我要的是像按鍵精靈哪樣的 我不看別的 我看了  SLEEP  就知 這代碼不行  我的要求是  能記錄坐標               在記錄的坐標處能 有選擇的按下 左鍵或右鍵
              
               按下鍵後有選擇的延時多久                  在延時時能別的時 也就是能停下來