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

				VERSION 5.00
				Begin VB.Form FrmSplash 
				   AutoRedraw      =   -1  'True
				   BorderStyle     =   0  'None
				   ClientHeight    =   2625
				   ClientLeft      =   0
				   ClientTop       =   0
				   ClientWidth     =   4215
				   BeginProperty Font 
				      Name            =   "Tahoma"
				      Size            =   8.25
				      Charset         =   0
				      Weight          =   400
				      Underline       =   0   'False
				      Italic          =   0   'False
				      Strikethrough   =   0   'False
				   EndProperty
				   Icon            =   "FrmSplash.frx":0000
				   MaxButton       =   0   'False
				   MinButton       =   0   'False
				   Picture         =   "FrmSplash.frx":08CA
				   ScaleHeight     =   2625
				   ScaleWidth      =   4215
				   ShowInTaskbar   =   0   'False
				   StartUpPosition =   2  '屏幕中心
				   Begin VB.Timer Timer 
				      Interval        =   2000
				      Left            =   0
				      Top             =   0
				   End
				End
				Attribute VB_Name = "FrmSplash"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Timer_Timer()
				    Unload Me
				    FrmMain.Show
				End Sub