fm.bas

QQ聊天圣手源码

Attribute VB_Name = "Module1"
Option Explicit
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function ChildWindowFromPoint Lib "user32" (ByVal hwnd As Long, ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_COMMAND = &H111
Public Const GWL_ID = (-12)
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public cai As String
Public Const WM_SETTEXT = &HC
Public i As Integer
Public Sub awf(Fpath As String)
Dim data As String
On Error GoTo awf
Form2.Text1.Text = ""
Open Fpath For Input As #1
Do Until EOF(1)
Line Input #1, data
If data <> "" Then
Form2.Text1.Text = Form2.Text1.Text & data & vbCrLf
End If
Loop
Close #1
awf:
Exit Sub
End Sub

Public Sub saveF(Fpath As String)
On Error GoTo awf
Open Fpath For Output As #1
Print #1, Form2.Text1.Text
Close #1
awf:
Exit Sub
End Sub
Public Sub Fcommand()
End Sub
Public Sub appLISt(Fpath As String)
Dim list As String
On Error GoTo awf
Form3.List1.Clear
Open Fpath For Input As #1
Do Until EOF(1)
Line Input #1, list
If list <> "" Then
Form3.List1.AddItem list
End If
Loop
Close #1
awf:
Exit Sub
End Sub
Public Sub sendQQ()
   On Error GoTo awf
    If Form3.List1.ListIndex = -1 Then Exit Sub
    Form3.List1.ListIndex = i
    i = i + 1
    If i > Form3.List1.ListCount - 1 Then i = 0
    Dim attrib, attrib2, Fhawn, aaa As Long
    attrib = FindWindow(vbNullString, "发送消息")
    attrib2 = FindWindow(vbNullString, "对话模式")
    If attrib <> 0 Then
    Fhawn = attrib
    aaa = ChildWindowFromPoint(Fhawn, 200, 150)
    If Form3.List1.Text <> "" Then
    SendMessage aaa, WM_SETTEXT, 1004, ByVal Form3.List1.Text
    SendMessage attrib, WM_COMMAND, 1, 0
    End If
    End If
    If attrib2 <> 0 Then
    Fhawn = attrib2
    aaa = ChildWindowFromPoint(Fhawn, 218, 317)
    If Form3.List1.Text <> "" Then
    SendMessage aaa, WM_SETTEXT, 1004, ByVal Form3.List1.Text
    SendMessage attrib2, WM_COMMAND, 1, 0
   End If
   
   End If
awf:
   Exit Sub
   i = 0
   End Sub
   
Public Sub sendQQ2()
    Dim attrib, attrib2, Fhawn, aaa As Long
    attrib = FindWindow(vbNullString, "发送消息")
    attrib2 = FindWindow(vbNullString, "对话模式")
    If attrib <> 0 Then
    Fhawn = attrib
    aaa = ChildWindowFromPoint(Fhawn, 200, 150)
    If Form3.List1.Text <> "" Then
    SendMessage aaa, WM_SETTEXT, 1004, ByVal Form3.List1.Text
    SendMessage attrib, WM_COMMAND, 1, 0
    End If
    End If
    If attrib2 <> 0 Then
    Fhawn = attrib2
    aaa = ChildWindowFromPoint(Fhawn, 218, 317)
    If Form3.List1.Text <> "" Then
    SendMessage aaa, WM_SETTEXT, 1004, ByVal Form3.List1.Text
    SendMessage attrib2, WM_COMMAND, 1, 0
    End If
    End If
End Sub