（1）打开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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
