[VBA ] 某個程式碼(好像是惡意程式碼= =?

[Changsunche (長孫轍)]

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
推 auk109:在你所選的磁碟下, 建立 n 個資料夾, 如果輸入 10則會有
→ auk109:C:\N1 C:\N2 C:\N3........C:\N10 (假設選到C:\)