键盘解密操作源代码.zip

Private Declare Function findWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const EM_REPLACESEL = &HC2 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub command1_Click() Shell "C:\Users\28261\Desktop\密码登录程序.exe", vbNormalFocus Dim w As Long Dim m As Object Set m = CreateObject("WScript.Shell") m.SendKeys "{tab}" Sleep 1000 m.SendKeys "123" '向WORD发送内容 Sleep 1000 m.SendKeys "abc" '向WORD发送内容 Sleep 1000 Call keybd_event(16, 0, 0, 0) '模拟按下 'vbKeyCapital=20 Call keybd_event(16, 0, &H2, 0) '模拟弹起键 Sleep 1000 m.SendKeys "BQR" '向WORD发送内容 Sleep 1000 Call keybd_event(16, 0, 0, 0) '模拟按下 'vbKeyCapital=20 Call keybd_event(16, 0, &H2, 0) '模拟弹起键 Sleep 1000 m.SendKeys "w ai n " '向WORD发送内容 Sleep 1000 m.SendKeys "{tab}" Sleep 1000 Call keybd_event(13, 0, 0, 0) '模拟按下 'vbKeyCapital=20 Call keybd_event(13, 0, &H2, 0) '模拟弹起键 Sleep 1000 End Sub