我写的第一个vb6.0解密算密程序代码例题

本文链接：https://blog.csdn.net/qq_32257509/article/details/129965860

这段代码使用VBA创建了一个自动化脚本，通过模拟键盘事件Alt+Tab切换窗口，向Word中输入特定内容，如00、01、02等，进行自动填表操作。它利用了WScript.Shell对象的SendKeys方法和kernel32库的Sleep函数来控制执行流程。

摘要由CSDN通过智能技术生成

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 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
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

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

Sleep 1000
m.SendKeys “{tab 2}”

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

Sleep 1000
m.SendKeys “{tab 2}”

Sleep 1000
m.SendKeys “03” '向WORD发送内容

Sleep 1000
m.SendKeys “{tab}”