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
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim k As String
Dim n As Integer
Dim s As String
n = 2 '要获取的字符串的数量
s = “00010203040506070809” '原始字符串
Dim w As Long
Dim m As Object
Set m = CreateObject(“WScript.Shell”)
Sleep 1000
Call keybd_event(18, 0, 0, 0) '模拟按下 'alt
Call keybd_event(9, 0, 0, 0) '模拟按下 'tab
Call keybd_event(18, 0, &H2, 0) '模拟弹起键
Call keybd_event(9, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
k = Mid(s, 1, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 3, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 5, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 7, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 9, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 11, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 13, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “{tab 2}”
Sleep 1000
k = Mid(s, 15, n) '使用Mid()函数获取n个字符串
Clipboard.SetText k '将获取的字符串复制到剪贴板
Sleep 1000
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Call keybd_event(8, 0, &H2, 0) '模拟弹起键
Sleep 1000
m.SendKeys “^V”
Sleep 1000
m.SendKeys “{tab}”
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
Sleep 1000
Call keybd_event(13, 0, 0, 0) '模拟按下 'enter
Call keybd_event(13, 0, &H2, 0) '模拟弹起键
End Sub