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

看板Visual_Basic作者 (長孫轍)時間15年前 (2010/05/03 17:49), 編輯推噓1(1推 0噓 1→)
留言2則, 1人參與, 最新討論串1/1
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
推
05/11 23:25, , 1F
在你所選的磁碟下, 建立 n 個資料夾, 如果輸入 10則會有
05/11 23:25, 1F
→
05/11 23:25, , 2F
C:\N1 C:\N2 C:\N3........C:\N10 (假設選到C:\)
05/11 23:25, 2F
‣ 更多 Changsunche 的文章
文章代碼(AID): #1BtfmIhY (Visual_Basic)