📄 fm.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
ClientHeight = 3390
ClientLeft = 15
ClientTop = 15
ClientWidth = 2175
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3390
ScaleWidth = 2175
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 706
Left = 840
Top = 2640
End
Begin VB.OptionButton Op2
BackColor = &H00E0E0E0&
Caption = "单句"
Height = 255
Left = 1200
TabIndex = 8
Top = 2360
Width = 735
End
Begin VB.OptionButton Op1
BackColor = &H00E0E0E0&
Caption = "循环"
Height = 255
Left = 310
TabIndex = 7
Top = 2360
Value = -1 'True
Width = 735
End
Begin VB.CommandButton Command1
Height = 180
Left = 1040
TabIndex = 6
Top = 880
Width = 90
End
Begin VB.ComboBox Combo1
BackColor = &H00E0E0E0&
Height = 300
ItemData = "FM.frx":0000
Left = 915
List = "FM.frx":0019
Style = 2 'Dropdown List
TabIndex = 2
Top = 1125
Width = 1095
End
Begin VB.Shape Shape7
Height = 1599
Left = 120
Top = 1080
Width = 1935
End
Begin VB.Shape Shape5
Height = 405
Left = 120
Top = 2280
Width = 1935
End
Begin VB.Image Image2
Height = 135
Index = 3
Left = 2040
Picture = "FM.frx":0063
Stretch = -1 'True
Top = 0
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 2
Left = 0
Picture = "FM.frx":04A5
Stretch = -1 'True
Top = 3240
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 1
Left = 2040
Picture = "FM.frx":08E7
Stretch = -1 'True
Top = 3240
Width = 135
End
Begin VB.Image Image2
Height = 135
Index = 0
Left = 0
Picture = "FM.frx":0D29
Stretch = -1 'True
Top = 0
Width = 135
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "等待发送信息!"
ForeColor = &H8000000E&
Height = 180
Index = 1
Left = 500
TabIndex = 10
Top = 3120
Width = 1170
End
Begin VB.Image Image3
Height = 255
Left = 960
Picture = "FM.frx":116B
Stretch = -1 'True
ToolTipText = "最小化"
Top = 420
Width = 255
End
Begin VB.Image Image7
BorderStyle = 1 'Fixed Single
Height = 255
Left = 600
Picture = "FM.frx":15AD
Stretch = -1 'True
ToolTipText = "设置窗体是否在最上面"
Top = 420
Width = 255
End
Begin VB.Image Image6
Height = 255
Left = 1320
Picture = "FM.frx":19EF
Stretch = -1 'True
ToolTipText = "退出"
Top = 420
Width = 255
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "等待发送信息!"
Height = 180
Index = 0
Left = 505
TabIndex = 9
Top = 3120
Width = 1170
End
Begin VB.Image Image5
Height = 255
Left = 240
Picture = "FM.frx":1E31
Stretch = -1 'True
ToolTipText = "打开语句框"
Top = 420
Width = 255
End
Begin VB.Image Image4
BorderStyle = 1 'Fixed Single
Height = 45
Left = 240
Top = 960
Width = 1650
End
Begin VB.Label Label8
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "停 止"
Height = 180
Left = 1320
TabIndex = 5
ToolTipText = "停止发送"
Top = 2780
Width = 450
End
Begin VB.Label Label7
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发 送"
Height = 180
Left = 415
TabIndex = 4
ToolTipText = "开始发送"
Top = 2780
Width = 450
End
Begin VB.Shape Shape6
Height = 860
Left = 120
Top = 1440
Width = 1935
End
Begin VB.Shape Shape4
Height = 375
Left = 120
Top = 1080
Width = 1935
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "语句项:"
Height = 180
Index = 0
Left = 195
TabIndex = 3
Top = 1200
Width = 630
End
Begin VB.Shape Shape3
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
Height = 2270
Left = 120
Shape = 4 'Rounded Rectangle
Top = 840
Width = 1935
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Q Q 聊 天 圣 手"
ForeColor = &H8000000E&
Height = 255
Left = 130
TabIndex = 1
Top = 120
Width = 1935
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Q Q 聊 天 圣 手"
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 1935
End
Begin VB.Image Image1
Height = 255
Left = 1680
Picture = "FM.frx":2273
Stretch = -1 'True
ToolTipText = "打开编辑框"
Top = 420
Width = 255
End
Begin VB.Shape Shape2
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
Height = 375
Left = 120
Top = 360
Width = 1935
End
Begin VB.Shape Shape1
BackColor = &H00C0C0C0&
BackStyle = 1 'Opaque
Height = 3375
Left = 0
Shape = 4 'Rounded Rectangle
Top = 0
Width = 2175
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a, b, bb As Integer
Dim QQname As String
Private Sub Check1_Click()
If Check1.Value = 1 Then
Combo2.Enabled = False
Image3.Enabled = True
Else
Combo2.Enabled = True
Image3.Enabled = False
End If
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "字符图片" Then
End If
appLISt Form1.Combo1.Text & ".txt"
If Form3.List1.ListCount <> 0 Then
Form3.List1.ListIndex = 0
i = 0
End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Command1.Left + X
If Command1.Left > Image4.Width + 219 Then Command1.Left = 1855
If Command1.Left < 220 Then Command1.Left = 220
If Timer1.Enabled = True Then
Timer1.Interval = Command1.Left - 219
Label3(0).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
Label3(1).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
Else
Label3(0).Caption = "时间已设为" & Command1.Left - 219 & "毫秒"
Label3(1).Caption = "时间已设为" & Command1.Left - 219 & "毫秒"
End If
End Sub
Private Sub Form_Load()
Combo1.Text = "常用语句"
cai = Form2.Label2(0).Caption & ".txt"
QQname = "发送消息"
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form2.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form3.hwnd, -1, 0, 0, 0, 0, 3
If Form3.List1.ListCount <> 0 Then
Form3.List1.ListIndex = 0
End If
End Sub
Private Sub Form_Resize()
If Image1.BorderStyle = 1 Then Form2.Show
If Image5.BorderStyle = 1 Then Form3.Show
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static ii As Integer
a = a + 1
If a > 2 Then a = 1
Select Case a
Case 1
Form2.Show
Form2.Left = Form1.Left + Form1.Width
Form2.Top = Form1.Top
Form2.Width = 0
For ii = 1 To 518
Form2.Width = Form2.Width + 10
Image1.ToolTipText = "关闭编辑框"
Next ii
awf "常用语句.txt"
Form2.Label1(0).Caption = "编 辑 框-常 用 语 句"
Form2.Label1(1).Caption = "编 辑 框-常 用 语 句"
Case 2
Image1.BorderStyle = 0
Image1.ToolTipText = "打开编辑框"
For ii = 1 To 518
Form2.Width = Form2.Width - 10
Next ii
Form2.Hide
End Select
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image3.BorderStyle = 1
End Sub
Private Sub Image3_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image1.BorderStyle = 1 Then Form2.Hide
If Image5.BorderStyle = 1 Then Form3.Hide
Image3.BorderStyle = 0
Form1.WindowState = 1
Form2.Hide
Form3.Hide
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = X + 220
If Timer1.Enabled = True Then
Timer1.Interval = Command1.Left - 219
Label3(0).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
Label3(1).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
Else
Label3(0).Caption = "时间已设为" & Command1.Left - 219 & "毫秒"
Label3(1).Caption = "时间已设为" & Command1.Left - 219 & "毫秒"
End If
End Sub
Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
b = b + 1
If b > 2 Then b = 1
Select Case b
Case 1
Image5.BorderStyle = 1
Form3.Show
Form3.Top = Form1.Top
Form3.Left = Form1.Left - Form3.Width
Image5.ToolTipText = "关闭语句框"
Case 2
Form3.Hide
Image5.BorderStyle = 0
Image5.ToolTipText = "打开语句框"
End Select
End Sub
Private Sub Image6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image6.BorderStyle = 1
End Sub
Private Sub Image6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image6.BorderStyle = 0
Unload Form2
Unload Form3
Unload Me
End Sub
Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bb = bb + 1
If bb > 2 Then bb = 1
Select Case bb
Case 1
Image7.BorderStyle = 0
SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3
SetWindowPos Form2.hwnd, -2, 0, 0, 0, 0, 3
SetWindowPos Form3.hwnd, -2, 0, 0, 0, 0, 3
Label3(0).Caption = "已取消窗体总在最上面!"
Label3(1).Caption = "已取消窗体总在最上面!"
Case 2
Image7.BorderStyle = 1
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form2.hwnd, -1, 0, 0, 0, 0, 3
SetWindowPos Form3.hwnd, -1, 0, 0, 0, 0, 3
Label3(0).Caption = "已设定窗体总在最上面!"
Label3(1).Caption = "已设定窗体总在最上面!"
End Select
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Long
Dim i
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
Form2.Left = Form1.Left + Form1.Width
Form2.Top = Form1.Top
Form3.Top = Form1.Top
Form3.Left = Form1.Left - Form3.Width
End Sub
Private Sub Label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BorderStyle = 1
End Sub
Private Sub Label7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BorderStyle = 0
Timer1.Enabled = True
Timer1.Interval = Command1.Left - 219
Label3(0).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
Label3(1).Caption = "正以" & Command1.Left - 219 & "毫秒" & "发送!"
End Sub
Private Sub Label8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.BorderStyle = 1
End Sub
Private Sub Label8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.BorderStyle = 0
Timer1.Enabled = False
Label3(0).Caption = "等待发送信息!"
Label3(1).Caption = "等待发送信息!"
End Sub
Private Sub Timer1_Timer()
If Op1.Value = True Then sendQQ
If Op2.Value = True Then sendQQ2
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -