算密程序代码

​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 "密码登录程序.exe", vbNormalFocus

End Sub

Private Sub Command2_Click()

Shell "密码登录程序.exe", vbNormalFocus

Dim i As Integer

Dim w As Long

    Dim m As Object

    Set m = CreateObject("WScript.Shell")

For i = 0 To 5

Select Case i

Case 0

Sleep 1000

m.SendKeys "{tab}"

Sleep 1000

m.SendKeys "00" '向WORD发送内容

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

Case 1

Sleep 1000

m.SendKeys "{tab 2}"

Sleep 1000

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000

m.SendKeys "01" '向WORD发送内容

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

Case 2

Sleep 1000

m.SendKeys "{tab 2}"

Sleep 1000

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000

m.SendKeys "02" '向WORD发送内容

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

Case 3

Sleep 1000

m.SendKeys "{tab 2}"

Sleep 1000

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000

m.SendKeys "03" '向WORD发送内容

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

Case 4

Sleep 1000

m.SendKeys "{tab 2}"

Sleep 1000

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000

m.SendKeys "04" '向WORD发送内容

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

Case 5

Sleep 1000

m.SendKeys "{tab 2}"

Sleep 1000

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Call keybd_event(8, 0, 0, 0) '模拟按下 'backspace

Call keybd_event(8, 0, &H2, 0) '模拟弹起键

Sleep 1000

m.SendKeys "05" '向WORD发送内容

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

End Select

Next

End Sub