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
相关文档：
Option Explicit
Dim potflag As Integer '标识是否用小数点
Dim numcol As Integer ' 点击运算符的个数
Dim LastInput ' 指示上一次操作的内容
Dim colflag ......
Private Sub Form_load()
'判断程序是否已经运行
If App.PrevInstance
Then
MsgBox "本程序已经运行！", vbInformation Or vbOKOnly, "提示信息"
Unload
Me
Exit Sub
&n ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
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 ......
