HanDs
管理员

[Visual Studio文章] VB编写硬盘破坏工具 



看名字  说的很吓人的 其实这个代码 很简单   但是

威力 很大 不是吹了  360 瑞星等等 杀毒软件都不会拦截

而且可以搞垮你的电脑  !

可以在指定的盘符里快速创建多个空白数字文件夹,比较简单,代码如下:  
'一个command控件。一个textbox,一个combobox控件
 Private Sub Command1_Click()
 On Error GoTo over
    Dim i As Integer
      For i = 1 To Val(Text1.Text)
        MkDir (Combo1.Text & i)
          Next i
          MsgBox "已经在 " & Combo1.Text & " 盘创建了" & Val(Text1.Text) & _
"个空白数字文件夹,请打开检查!", vbInformation, "结果报告"
 over:
         Exit Sub
 End Sub
  Private Sub Form_Load()
 Combo1.AddItem "C:\"
    Combo1.AddItem "D:\"
      Combo1.AddItem "E:\"
       Combo1.AddItem "F:\"
         Combo1.AddItem "G:\"
         Combo1.ListIndex = 0
  End Sub
  呵呵  硬盘都晒 原理 强大啊


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
VB 编写硬盘破坏工具
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复