?。?)打開VB5新建一個"ActiveX.dll"文件,吧下面的代碼輸入進去: PRivate Declare Function ExitWindowsEx Lib "user32"_(ByVal uFlags As Long,ByVal dwReserved As Long)_As LongSub Xuankong ( ) "請不要加上"private"a$ = InputBox ("請輸入你的姓名,如果你輸入的是"xuankong""+Chr(13)+Chr(10)+"則會在你的系統中生成一個"xuankong"文件"+Chr(10)+Chr(13)+"否則你的機器可能會重起","請輸入","xuankong")If a$ = "xuankong" ThenOpen "c:/xuankong.dat" For Append As #Write#1,"我的朋友,這是一個asp主件測試程序"#Write#1,"hello world!this is a test"#Write#1,"如果你看到這個文件測試就成功!"elseExitWindowsEx&H43,0使用API函數重新啟動機器End ifClose #1End sub