怎樣寫virus

[复制链接]

wei_en

2008-7-8 04:19 PM

原帖由 goodday 于 2008-7-7 02:36 AM 发表

你的那个 xp 还可以 vista 完全抛跑不到的
什么鬼功课哦？？？

老大，能帮我完成它吗？？

goodhermit95

2008-7-8 09:56 PM

给你们一些暗示
用timer
哎呀，直接放出来
form_load
timer1.enabled = true
timer1.tick
system.diagnotise.process.start ("http://")
msgbox ("I am virus" & vbcrlf & _
"hahahahaha,fun?")
shell ("ping 192.168.0.1")
嘿嘿嘿，电脑hang不要骂我

goodhermit95

2008-7-8 10:07 PM

um
请问
msgbox ("are you sure?",msgboxstyle.vbyesno,"system speed up")
if ans = yes then
regwrite (aaaaaaaa)
elseif ans = no then

end if

这个vb 2005 跑不到，要怎样？

wei_en

2008-7-9 12:13 AM

原帖由 goodhermit95 于 2008-7-8 09:56 PM 发表

给你们一些暗示
用timer
哎呀，直接放出来
form_load
timer1.enabled = true
timer1.tick
system.diagnotise.process.start ("http://")
msgbox ("I am virus" & vbcrlf & _
"hahahah ...

我不明白叻~
如果是java语言，应该就没问题。

回复 #184 wei_en 的帖子

goodhermit95

2008-7-9 03:23 PM

java 我就不会了

大概是这样的结构
open form code
enable timer

timer code
start process "http://"
ping 192.168.0.1

大概是这样，包你电脑HANG机
rootname放explorer.exe

goodday

2008-7-10 04:34 PM

dim returnresult as string = msgbox ("are you sure?",msgboxstyle.vbyesno,"system speed up")
if returnresult = MsgBoxResult.yes then
console.write("aaaaaaaa")
else
console.write("bbbbbbbb")
end if

复制代码

goodday

2008-7-10 04:36 PM

简单的　

ｆｏｒｍａｔ　ｃ：

按　ｙ　

最快