作者Changsunche (长孙辙)
看板Visual_Basic
标题[VBA ] 某个程式码(好像是恶意程式码= =?
时间Mon May 3 17:49:01 2010
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
-----------------------------
以上程式码是在某学校留言板...
查了一些资料好像是恶意的，
但又不知道是什麽...
请求高手
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.228.238.229
1F：推 auk109:在你所选的磁碟下, 建立 n 个资料夹, 如果输入 10则会有 05/11 23:25
2F：→ auk109:C:\N1 C:\N2 C:\N3........C:\N10 (假设选到C:\) 05/11 23:25