正确算密操作源代码 - 副本2023-10-18.zip

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 Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Shell "C:\Users\28261\Desktop\密码登录.exe", vbNormalFocus End Sub Private Sub Command2_Click() Static currentIndex As Integer ' 用于记录当前选定的行索引 Dim lines() As String ' 存储文本框中的所有行内容 Dim selectedLine As String ' 存储选定的行内容 ' 将文本框中的内容按行分割，并存储到数组中 lines = Split(Text1.Text, vbCrLf) ' 检查当前索引是否超出数组范围，如果是，则重置为0 If currentIndex >= UBound(lines) Then currentIndex = 0 End If ' 获取当前索引对应的行内容 selectedLine = lines(currentIndex) ' 将选定的行内容复制到剪贴板 Clipboard.SetText selectedLine ' 增加索引，以便下次选定下一行内容 currentIndex = currentIndex + 1 End Sub Private Sub Command3_Click() Dim m As Object Set m = CreateObject("WScript.Shell") Dim a Shell "C:\Users\28261\Desktop\密码登录.exe", vbNormalFocus For a = 0 To 99 Call Command2_Click m.SendKeys "{Tab 2}" ' 按下Tab切换控件焦点 m.SendKeys "{BackSpace 5}" ' 按下BackSpace删除 Sleep 500 m.SendKeys "^V" ' 按下Ctrl+V粘贴 m.SendKeys "{Tab 2}" ' 按下Tab切换控件焦点 m.SendKeys "{ }" ' 按下空格键确定 m.SendKeys "{Tab 2}" ' 按下Tab切换控件焦点 Next End Sub