form1.frm

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

      BackColor       =   &H00000000&
      Caption         =   "restore buttons"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   2430
      TabIndex        =   3
      Top             =   510
      Width           =   1365
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FF8080&
      Height          =   300
      Left            =   2400
      Top             =   480
      Width           =   1425
   End
   Begin VB.Label lblreverse 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "reverse buttons"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   510
      TabIndex        =   2
      Top             =   510
      Width           =   1365
   End
   Begin VB.Shape Shape11 
      BorderColor     =   &H00FF8080&
      Height          =   300
      Left            =   480
      Top             =   480
      Width           =   1425
   End
   Begin VB.Label cmdX 
      Alignment       =   2  'Center
      BackColor       =   &H00FF8080&
      Caption         =   "X"
      BeginProperty Font 
         Name            =   "OCR A Extended"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   195
      Left            =   4080
      TabIndex        =   0
      ToolTipText     =   "Close"
      Top             =   15
      Width           =   240
   End
   Begin VB.Label title 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00FF8080&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "mouse manager"
      BeginProperty Font 
         Name            =   "OCR A Extended"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   225
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   4335
   End
End
Attribute VB_Name = "frmMouse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FirstX, FirstY As Integer
Public SlideFlag
Public IX, IY, TX, TY, FX, FY

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblreverse.BackColor = &H8
lblrestore.BackColor = &H8
lblhide.BackColor = &H8
lblshow.BackColor = &H8
lblcontrol.BackColor = &H8
lblsettrail.BackColor = &H8
lblhidetrail.BackColor = &H8
lblstop.BackColor = &H8
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If SlideFlag = False Then
        IX = X: FX = image1.Left
        TX = Screen.TwipsPerPixelX
        SlideFlag = True
    End If
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 If SlideFlag = True Then
        pos = FX + (X - IX) / TX
        If pos < 2820 Then pos = 2820
        If pos > 3920 Then pos = 3920
        FX = pos: image1.Left = pos
    End If
    If image1.Left >= 2820 Then
    lbltrail.Caption = "2"
    End If
    If image1.Left >= 2960 Then
    lbltrail.Caption = "3"
    End If
     If image1.Left >= 3090 Then
    lbltrail.Caption = "4"
    End If
    If image1.Left >= 3230 Then
    lbltrail.Caption = "5"
    End If
    If image1.Left >= 3360 Then
    lbltrail.Caption = "6"
    End If
    If image1.Left >= 3500 Then
    lbltrail.Caption = "7"
    End If
    If image1.Left >= 3630 Then
    lbltrail.Caption = "8"
    End If
    If image1.Left >= 3780 Then
    lbltrail.Caption = "9"
    End If
    If image1.Left >= 3920 Then
    lbltrail.Caption = "10"
    End If
   End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  SlideFlag = False
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)
piccombodown.Visible = True
piccomboup.Visible = False
piclist.Height = 15
piclist.Visible = False
cmdX.ForeColor = &HC00000
End Sub

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

Private Sub lblreverse_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblreverse.BackColor = &H800000
End Sub

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

Private Sub lblrestore_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblrestore.BackColor = &H800000
End Sub

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

Private Sub lblhide_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhide.BackColor = &H800000
End Sub

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

Private Sub lblshow_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblshow.BackColor = &H800000
End Sub

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

Private Sub lblcontrol_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblcontrol.BackColor = &H800000
End Sub

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

Private Sub lblsettrail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblsettrail.BackColor = &H800000
End Sub

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

Private Sub lblhidetrail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblhidetrail.BackColor = &H800000
End Sub

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

Private Sub lblstop_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblstop.BackColor = &H800000
End Sub