UC知道谁能接着我做的做出这段程序100分送上不够在给！！
来源：百度知道 编辑：UC知道 时间：2024/06/01 01:08:21
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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Const EM_REPLACESEL = &HC2
Private Const BM_CLICK = &HF5
Dim s As String
Dim j, i As String
Dim k As String
Dim ii As Integer
Dim e, f As String
Dim k1, k2, k3, k4, k5
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Const EM_REPLACESEL = &HC2
Private Const BM_CLICK = &HF5
Dim s As String
Dim j, i As String
Dim k As String
Dim ii As Integer
Dim e, f As String
Dim k1, k2, k3, k4, k5
看看我这个：
无影无中：
在
Label1.Caption = k1 & vbCrLf & k2
的后面加：
SendKeys ("要发送的内容")
SendKeys ("%s%c")
SendKeys ("%s%c")表示发送并关闭窗口
就改了两个地方，测试成功。不明白给我发消息。
加一个给timer赋值
Private Sub Command1_Click()
SendMessage k2, &HF5, 0, ByVal 0
Timer1.Interval = 100
End Sub
下面加了一句发送
Private Sub Timer1_Timer()
ii = ii + 1
If ii = 1111 Then ii = 1
Dim h As Long
Dim i As String
h = GetForegroundWindow()
i = Space(256)
GetWindowText h, i, 255
If Left(i, 1) = "与" And ii Mod 20 = 8 Then
j = Space(256)
j = i
k1 = FindWindow(vbNullString, i)
k2 = FindWindowEx(k1, 0, "Button", vbNullString)
Label1.Caption = k1 & vbCrLf & k2
SendKeys Label1.Caption '这里加了一句发送
End If
End Sub