📄 frmcreateqq.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form FrmCreateQQ
BorderStyle = 1 'Fixed Single
Caption = "生成QQ"
ClientHeight = 3975
ClientLeft = 45
ClientTop = 435
ClientWidth = 3630
Icon = "FrmCreateQQ.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 3630
Begin VB.CommandButton Command1
Caption = "??"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 17
Top = 3480
Width = 495
End
Begin VB.TextBox TxtSeedNo
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 1680
MaxLength = 9
TabIndex = 12
Text = "10001"
Top = 1560
Width = 1815
End
Begin VB.TextBox TxtSeedPWD
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 1680
MaxLength = 16
TabIndex = 11
Text = "123456"
Top = 2040
Width = 1815
End
Begin VB.ComboBox CboTimes
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 10
Top = 3000
Width = 615
End
Begin VB.TextBox TxtMode
Alignment = 2 'Center
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF80FF&
Height = 345
Left = 1680
MaxLength = 10
TabIndex = 9
Text = "----"
Top = 2520
Width = 1815
End
Begin MSComDlg.CommonDialog Comlog
Left = 240
Top = 4080
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton CmdCancel
Caption = "退出"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 8
Top = 3480
Width = 735
End
Begin VB.CommandButton CmdOK
Caption = "生成"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 7
Top = 3480
Width = 735
End
Begin VB.TextBox TxtPWD
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 1680
MaxLength = 16
TabIndex = 6
Text = "123456"
Top = 1080
Width = 1815
End
Begin VB.TextBox TxtEnd
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 375
Left = 1680
MaxLength = 9
TabIndex = 5
Text = "99999"
Top = 600
Width = 1815
End
Begin VB.TextBox TxtBegain
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 375
Left = 1680
MaxLength = 9
TabIndex = 4
Text = "10000"
Top = 120
Width = 1815
End
Begin VB.CommandButton CmdFile
Caption = "目标"
BeginProperty Font
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 3
Top = 3480
Width = 735
End
Begin VB.Label Label4
Caption = "种子号码："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 16
Top = 1560
Width = 1695
End
Begin VB.Label Label5
Caption = "种子密码："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 15
Top = 2040
Width = 1695
End
Begin VB.Label Label6
Caption = "次出现一次种子号码"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 14
Top = 3000
Width = 2895
End
Begin VB.Label Label7
Caption = "连接样式："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 13
Top = 2520
Width = 1695
End
Begin VB.Line Line1
X1 = 0
X2 = 3600
Y1 = 3360
Y2 = 3360
End
Begin VB.Label Label1
Caption = "密 码："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 120
TabIndex = 2
Top = 1080
Width = 1335
End
Begin VB.Label Label1
Caption = "结束QQ："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 120
TabIndex = 1
Top = 600
Width = 1335
End
Begin VB.Label Label1
Caption = "起始ＱＱ："
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 1335
End
End
Attribute VB_Name = "FrmCreateQQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim IntI As Integer
For IntI = 8 To 30
CboTimes.AddItem IntI
Next
CboTimes.ListIndex = 12
Seed = 1
End Sub
Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub CmdFile_Click()
Comlog.Filter = "所有文件 (*.*)|*.*|文本文档 (*.txt)|*.txt|"
Comlog.FilterIndex = 2
Comlog.ShowOpen
End Sub
Private Sub CmdOK_Click()
On Error GoTo wrong
Mode = TxtMode.Text
FrmCreateQQ.Caption = "正在生成，请稍候…"
Dim I As Long
Dim B As Long
Dim E As Long
B = TxtBegain.Text
E = TxtEnd.Text
Open Comlog.FileName For Output As #1
For I = B To E
If Seed = CboTimes.Text Then
Print #1, TxtSeedNo.Text & Mode & TxtSeedPWD.Text & _
vbCrLf & I & Mode & TxtPWD.Text
Seed = 1
Else
Print #1, I & Mode & TxtPWD.Text
Seed = Seed + 1
End If
Next I
Reset
FrmCreateQQ.Caption = "生成QQ"
MsgBox "任务完成！", vbInformation, "恭喜！"
Exit Sub
wrong:
If Err.Number = 75 Then
MsgBox "请先确定目标文件！", vbCritical, "错误"
CmdFile.SetFocus
End If
End Sub
Private Sub Command1_Click()
On Error GoTo wrong2
Dim ReadText As String
Open "Bhzp.hp" For Input As #2
While Not EOF(2)
Line Input #2, ReadText
FrmHelp.TxtHelp.Text = FrmHelp.TxtHelp.Text & ReadText & vbCrLf
Wend
Close #2
FrmHelp.Show
Exit Sub
wrong2:
If Err.Number = 53 Then
MsgBox "未找到帮助文件！" & vbCrLf & "可能已经被删除！", vbCritical, "错误"
End If
End Sub
Private Sub TextBegian_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = vbBack Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "QQ号码只能为数字！", vbInformation + vbOKOnly, "提示"
End If
End Sub
Private Sub TxtEnd_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = vbBack Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "QQ号码只能为数字！", vbInformation + vbOKOnly, "提示"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -