谁能帮我解释这代码
Option ExplicitDim MD As Boolean
Dim x_Way As Single
Dim y_Way As Single
Private Sub Image1_Click()
If Text0.Text = "" Or Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Then
MsgBox "您填写的内容不完整,请重新输入!", vbOKOnly, "飞信好友攻击器"
Else
Image1.Visible = False: Image2.Visible = True
Label8.Caption = Text4.Text
Timer1.Enabled = True
WebBrowser1.Navigate "http://sms.api.bz/fetion.php?username=" & Text1.Text & "&password=" & Text2.Text & "&sendto=" & Text3.Text & "&message=" & Text0.Text & ""
Text0.Enabled = False: Text1.Enabled = False: Text2.Enabled = False: Text3.Enabled = False: Text4.Enabled = False
End If
End Sub
Private Sub Image2_Click()
Image1.Visible = True: Image2.Visible = False
Timer1.Enabled = False
Text0.Enabled = True: Text1.Enabled = True: Text2.Enabled = True: Text3.Enabled = True: Text4.Enabled = True
End Sub
Private Sub Image7_Click()
Unload Me
End Sub
Private Sub Timer1_Timer()
If Label8.Caption > 1 Then
WebBrowser1.Refresh
Label8.Caption = Label8.Caption - 1
Else
MsgBox "您设定的攻击次数:" & Text4.Text & "次,已经完成!", vbOKOnly, "飞信好友攻击器"
Call Image2_Click
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = Image3.Picture
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = Image4.Picture
End Sub
Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.Picture = Image9.Picture
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = Image5.Picture: Image2.Picture = Image6.Picture: Image7.Picture = Image8.Picture
If MD = True Then
Me.Left = Me.Left + X - x_Way
Me.Top = Me.Top + Y - y_Way
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MD = True
x_Way = X
y_Way = Y
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MD = False --------------------编程问答-------------------- 飘过。。。 --------------------编程问答-------------------- 您哪句不懂？ --------------------编程问答-------------------- --------------------编程问答-------------------- 看懂了，是飞信好友攻击器。 --------------------编程问答-------------------- 变量全部是text0,text1,picture1,picture2，神才去给你读懂再解释
补充：VB , 基础类
