Private Sub Command1_Click()
Text1.Text = " "
Shell "cmd.exe /c md " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf", vbHide
Shell "cmd.exe /c md " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf\xc..\", vbHide
End Sub
“xc..\”
怎样编出免疫按钮
Private Sub Command1_Click()
Text1.Text = " "
Shell "cmd.exe /c md " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf", vbHide
Shell "cmd.exe /c md " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf\xc..\", vbHide
End Sub
“xc..\”
怎样编出免疫按钮
以前看到过,就百这样的 代码如下
Private Sub Command2_Click()
Text1.Text = " "
Shell "cmd.exe /c rd " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf\xc..\", vbHide
Shell "cmd.exe /c rd " & Mid(Drive1.Drive, 1, 2) & "\Autorun.inf", vbHide
End Sub