mainmod.bas

一个较为完整的VB木马程序。只是文件上传功能还不太完善。

Attribute VB_Name = "MainMod"
Public Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String

'shlwapi.dll用来得到变换字节的格式
'如字节 , KB, MB和GB
Public Function FormatKB(ByVal Amount As Long) As String
    Dim Buffer As String
    Dim result As String
    Buffer = Space$(255)
    result = StrFormatByteSize(Amount, Buffer, Len(Buffer))
    If InStr(result, vbNullChar) > 1 Then FormatKB = Left$(result, InStr(result, vbNullChar) - 1)
End Function

Public Sub UnloadFormsOpen()
    
    On Error Resume Next
    Unload FrmPrintText
    Unload FrmRemoveDir
    Unload FrmDownload
    Unload FrmCreateDir
    Unload FrmFileBrowse
    Unload FrmBusy
    Unload FrmConnectionInfo
    Unload FrmKeyCtrls
    Unload FrmUpload
    
'   如果 FrmPrintText.Visible = True 那么卸掉 FrmPrintText
'   如果 FrmRemoveDir.Visible = True 那么卸掉 FrmRemoveDir
'   如果 FrmDownload.Visible = True 那么卸掉 FrmDownload
'   如果 FrmCreateDir.Visible = True 那么卸掉 FrmCreateDir
'   如果 FrmFileBrowse.Visible = True 那么卸掉 FrmFileBrowse
'   如果 FrmBusy.Visible = True T那么卸掉 FrmBusy
'   如果 FrmConnectionInfo.Visible = True 那么卸掉 FrmConnectionInfo
'   如果 FrmKeyCtrls.Visible = True 那么卸掉 FrmKeyCtrls
'   如果 FrmUpload.Visible = True 那么卸掉 FrmUpload
    
End Sub