打开目录选定复制粘贴程序源代码ZQ2023-11-10.zip

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long Private Const WM_SETTEXT = &HC Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) ' 声明Sleep函数 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Command1_Click() Dim z As Object Set z = CreateObject("WScript.Shell") Call Command3_Click ' 暂停一段时间，以确保目标目录已打开 Sleep 3000 z.SendKeys ("{DOWN 15}") Sleep 500 ' 按下Ctrl+C复制 Call keybd_event(17, 0, 0, 0) '模拟按下 'ctrl Call keybd_event(67, 0, 0, 0) '模拟按下 'ctrl Call keybd_event(67, 0, &H2, 0) '模拟弹起键 Call keybd_event(17, 0, &H2, 0) '模拟弹起键 Sleep 500 Call Command2_Click End Sub Private Sub Command2_Click() Dim z As Object Set z = CreateObject("WScript.Shell") ' 打开目标目录 shell "explorer.exe C:\Users\28261\Documents", vbNormalFocus ' 暂停一段时间，以确保目标目录已打开 Sleep 3000 ' 按下Ctrl+V粘贴文件 z.SendKeys ("{DOWN 2}") Sleep 500 ' 按下Ctrl+V粘贴 Call keybd_event(17, 0, 0, 0) '模拟按下 'ctrl Call keybd_event(86, 0, 0, 0) '模拟按下 'ctrl Call keybd_event(86, 0, &H2, 0) '模拟弹起键 Call keybd_event(17, 0, &H2, 0) '模拟弹起键 Sleep 500 End Sub Private Sub Command3_Click() ' 打开目标目录 shell "explorer.exe C:\Users\28261\Desktop", vbNormalFocus End Sub