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
