📄 form1.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "Msinet.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "Iamabird百度批量自动灌水机"
ClientHeight = 7620
ClientLeft = 4155
ClientTop = 735
ClientWidth = 6540
Icon = "form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7620
ScaleWidth = 6540
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
Height = 855
Left = 120
ScaleHeight = 795
ScaleWidth = 315
TabIndex = 4
Top = 0
Visible = 0 'False
Width = 375
Begin VB.TextBox Text6
Height = 615
Left = 2880
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 10
Text = "form1.frx":0442
Top = 840
Width = 1335
End
Begin VB.TextBox Text5
Height = 615
Left = 1440
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 9
Text = "form1.frx":07A3
Top = 840
Width = 1335
End
Begin VB.TextBox Text4
Height = 615
Left = 0
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 8
Text = "form1.frx":083A
Top = 840
Width = 1335
End
Begin VB.TextBox Text3
Height = 735
Left = 2880
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 7
Text = "form1.frx":0A2E
Top = 0
Width = 1335
End
Begin VB.TextBox Text2
Height = 735
Left = 1440
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 6
Text = "form1.frx":0BD9
Top = 0
Width = 1335
End
Begin VB.TextBox Start
Height = 735
Left = 0
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 5
Text = "form1.frx":0CA2
Top = 0
Width = 1335
End
End
Begin VB.PictureBox Picture2
Height = 855
Left = 600
ScaleHeight = 795
ScaleWidth = 315
TabIndex = 20
Top = 0
Visible = 0 'False
Width = 375
Begin VB.TextBox Text13
Height = 735
Left = 2640
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 23
Text = "form1.frx":0E63
Top = 0
Width = 1335
End
Begin VB.TextBox Text12
Height = 735
Left = 1320
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 22
Text = "form1.frx":1299
Top = 0
Width = 1335
End
Begin VB.TextBox Text11
Height = 735
Left = 0
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 21
Text = "form1.frx":1370
Top = 0
Width = 1335
End
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 2415
Left = 120
TabIndex = 28
Top = 1680
Width = 6255
ExtentX = 11033
ExtentY = 4260
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.TextBox Text16
Height = 375
Left = 4560
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 27
Text = "form1.frx":2318
Top = 0
Visible = 0 'False
Width = 1695
End
Begin VB.Timer Timer1
Left = 120
Top = 6720
End
Begin VB.TextBox Text15
Height = 270
IMEMode = 3 'DISABLE
Left = 4440
PasswordChar = "*"
TabIndex = 26
Top = 1200
Width = 1575
End
Begin VB.TextBox Text14
Height = 270
Left = 2160
TabIndex = 25
Top = 1200
Width = 1575
End
Begin VB.Frame Frame2
Caption = "贴吧名"
Height = 615
Left = 240
TabIndex = 18
Top = 4200
Width = 6255
Begin VB.TextBox Text10
Height = 270
Left = 120
TabIndex = 19
Top = 240
Width = 6015
End
End
Begin VB.CommandButton Command2
Caption = "开始灌水"
Enabled = 0 'False
Height = 375
Left = 3840
TabIndex = 17
Top = 6840
Width = 2055
End
Begin VB.TextBox Text9
Height = 270
Left = 720
TabIndex = 16
Top = 6480
Width = 5775
End
Begin VB.TextBox Text8
Height = 1095
Left = 720
TabIndex = 14
Top = 5280
Width = 5775
End
Begin VB.TextBox Text7
Height = 270
Left = 720
TabIndex = 11
Top = 4920
Width = 5775
End
Begin VB.Frame Frame1
Caption = "验证码分析窗口"
Height = 975
Left = 120
TabIndex = 2
Top = 120
Width = 6375
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 615
Left = 120
MultiLine = -1 'True
ScrollBars = 1 'Horizontal
TabIndex = 3
Top = 240
Width = 6135
End
End
Begin VB.CommandButton Command1
Caption = "登陆(首次需要验证码)"
Height = 375
Left = 960
TabIndex = 1
Top = 6840
Width = 2055
End
Begin InetCtlsObjects.Inet Inet1
Left = 6000
Top = 6720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.Label Label5
Caption = "吧主级账号用户名: 密码:"
Height = 255
Left = 600
TabIndex = 24
Top = 1200
Width = 6255
End
Begin VB.Label Label4
Caption = "图片："
Height = 255
Left = 120
TabIndex = 15
Top = 6480
Width = 615
End
Begin VB.Label Label3
Caption = "内容："
Height = 255
Left = 120
TabIndex = 13
Top = 5880
Width = 615
End
Begin VB.Label Label2
Caption = "标题："
Height = 255
Left = 240
TabIndex = 12
Top = 4920
Width = 975
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Height = 255
Left = 0
TabIndex = 0
Top = 7320
Width = 6495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Tihuan()
On Error GoTo B:
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = "http://post.baidu.com/f?kw=" & "哈哈"
Text16 = " "
Label1 = "读取验证码……"
Text16 = Inet1.OpenURL
Open "C:\Web.txt" For Output As #1
Print #1, Text16
Close #1
Open "C:\Web.txt" For Input As #1
A:
Line Input #1, A
If Left(A, 11) = "var img_str" Then
Find A
End If
GoTo A:
B:
Close #1
End Sub
Sub Find(A)
A = Mid(A, 30)
A = StrReverse(A)
A = Mid(A, 3)
A = StrReverse(A)
Text1 = A
Label1 = "分析验证码完毕"
End Sub
Private Sub Command1_Click()
Open "C:\Web.html" For Output As #2
Print #2, Text11 + Text14 + Text12 + Text15 + Text13
Close #2
Me.WebBrowser1.Navigate2 "C:\Web.html"
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
If Text14 = "" Or Text15 = "" Or Text7 = "" Or Text8 = "" Or Text9 = "" Then
MsgBox "您填写的信息不全!", vbCritical, "错误提示"
Exit Sub
End If
Command2.Enabled = False
Open "C:\Lists.txt" For Input As #3
Timer1.Interval = 4000
End Sub
Private Sub Form_Load()
Tihuan
End Sub
Private Sub Timer1_Timer()
On Error GoTo B:
Line Input #3, A
Tihuan
Text10 = A
Text7 = "->" & Text7
Text8 = "->" & Text8
Open "C:\Web.html" For Output As #2
Print #2, Start.Text + Text10 + Text2 + Text1 + Text3 + Text7 + Text4 + Text8 + Text5 + Text9 + Text6
Close #2
Me.WebBrowser1.Navigate2 "C:\Web.html"
GoTo A:
B:
MsgBox "结束", vbInformation, "提示"
End
A:
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -