?? fm.bas
字號(hào):
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, "發(fā)送訊息")
attrib2 = FindWindow(vbNullString, "對(duì)話模式")
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, "發(fā)送消息")
attrib2 = FindWindow(vbNullString, "對(duì)話模式")
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -