VB初级木马
一 木马的由来
木马，即“特洛伊木马”（trojan horse）。
二 所需要的技术
一个成功的木马，除了制作出相关的程序以外，还需要实现以下几方面的功能。1，木马的隐藏 2，木马的运行 3，木马的复制 4，木马的传播等，进一步还有加外壳和反杀毒等，争取做到“道高一尺，魔高一丈”。
三 程序的制作
1，winsock控件
在程序中将使用Winsock控件。Winsock控件是一个ActiveX控件，利用TCP协议或UDP协议连接到远程计算机上并与之交换数据。我们的目标就是建立两个程序，一个是服务器端程序myserver，另一个是客户端程序myclient。
2，winsock的添加
补丁地址：http://msdn.microsoft.com/download/vstudio60ent/SP5/Wideband-VB/WIN98Me/CN/VS6sp5VB.exe
3，服务器端程序
（1）编码
Private Sub Form_Load()
myserver.LocalPort = 5211
myserver.bind
myserver.Listen
End Sub
Private Sub myServer_ConnectionRequest(ByVal requestID As Long)
If myserver.State <> sckClosed Then
myserver.Close
End If
myserver.Accept requestID
End Sub
Private Sub myServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
myserver.GetData strData
If strData = " hello " Then
MsgBox ("收到数据！")
End If
End S
相关文档：
MYSQL 应用十分广范，很多网站几乎都在用他，因为他的小巧和灵活性等方面让我决定要对他进行研究，到现在已经成功的不用经过ODBC，ADO等方式就可以读取和更新数据。
好了不多罗嗦，以下我来介绍总个程序的细节:
（一）API声明
1. '分配或初始化适合mysql_real_connect()的一个MYSQL对像� ......
Option Explicit
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte ......
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Dim lang As String
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByV ......
vb开发软件是在一定的环境下进行的，如visual basic 6.0 mssql或access等，但是最终软件要给广大群众使用，别人不可能都安装这些东西，所以需要打包，生成安装文件，就想我们下载的很多安装程序，都是打包后的结果！
但是值得注意的是，打包的过程中，有添加，删除组件供你选择，如果用到相对路径，附件，外联� ......
