zhita
2022-01-24
Private Sub Form_Load()Form1。Visible = FalseFor i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + "。
txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + "。 txt" For Random As 2 Open "e:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + "。
txt" For Random As 3 Close #1 Close #2 Close #3NextEnd Sub执行后c,d,e会每个盘符下都有20个已经建立的文件,如果还有其他盘符你自己在加个上去清空硬盘很简单~直接del。
zeng4
2022-01-24
用C#写吗？ 你先弄个程序 放几个按钮 点击事件里写上： System。Diagnostics。Process。Start("shutdown", " -s -t 10"); 10秒关机System。
Diagnostics。Process。Start("shutdown", "-a"); 取消关机System。Diagnostics。Process。Start("logoff");直接注销！！答案补充给你段复杂的？ 直接清空人家硬盘并系统崩溃要不？不干这事！。
qchdi
2022-01-24
+我我发给你！Q：vteipdx@
lxj60
2022-01-24
Private Sub Command1_Click()Shell "shutdown -l" ’-l 是shutdown 的一个参数 意思是注销用户End SubPrivate Sub Command2_Click()Shell "shutdown -R -t 0" ’-r 是重启 等待时间为0秒End SubPrivate Sub Command3_Click()Shell "shutdown -S -t 0" ’-s 是关闭系统 End Sub。
