求简单的整人Bat代码

百科达人 2小时前 阅读:4 评论:0

求简单的整人Bat代码

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

版权声明

本文仅代表作者观点,不代表看看头条立场。
本文系作者授权看看头条发表,未经许可,不得转载。

网友评论