10/04/07 19:11:38 2iyQ5CZ+P
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("order_user.csv")
Set wFile = FSO.CreateTextFile("messe.html")
Set wFile = FSO.GetFile("messe.html")
Set TextStream = File.OpenAsTextStream()
Set wStream = wFile.OpenAsTextStream(2, -2)
wStream.Write "<html><body>"
Do While Not TextStream.AtEndOfStream
S = TextStream.ReadLine
a = Split(S, ",")
'on error resume next
wStream.Write "<font size=3 color=#ff0080>""" & a(1) & """</font><p>"
wStream.Write "<a href=""URLﾘﾝｸ(maps.google.co.jp)" & a(4) & """ target=""_blank"">" & a(4) & "</a>"
ArrayCt = UBound(a)
For i = 12 to ArrayCt
if i Mod 4 = 0 Then
wStream.Write " " & a(i)
End if
Next
wStream.Write "</br>"
wStream.Write "<a href=""URLﾘﾝｸ(www.google.co.jp)" & a(2) & """ target=""_blank"">" & a(2) & "</a>"
if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
wStream.Write " <a href=""URLﾘﾝｸ(profiles.yahoo.co.jp)" & pm(0) & """>Yahoo profiles </a>"
End If
if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
wStream.Write " <a href=""URLﾘﾝｸ(user.auctions.yahoo.co.jp)" & pm(0) & """>yahoo auctions </a>"
End If
if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
41:[名無し]さん(bin+cue).rar
10/04/07 19:13:23 2iyQ5CZ+P
wStream.Write " <a href=""URLﾘﾝｸ(photos.yahoo.co.jp)" & pm(0) & """>yahoo photos </a>"
End If
if 0 < InStr(1, a(2), "lycos", 1) Then
pm = Split(a(2), "@")
wStream.Write " <a href=""URLﾘﾝｸ(profile.lycos.co.jp)" & pm(0) & """>lycos profile </a>"
End If
if 0 < InStr(1, a(2), "hotmail", 1) Then
pm = Split(a(2), "")
wStream.Write " <a href=""URLﾘﾝｸ(members.msn.com)" & pm(0) & """>msn members </a>"
End If
if 0 < InStr(1, a(2), "goo", 1) Then
pm = Split(a(2), "@")
wStream.Write " <a href=""URLﾘﾝｸ(members.goo.ne.jp)" & pm(0) & """>goo members </a>"
End If
if 0 < InStr(1, a(2), "ac.jp", 1) Then
pm = Split(a(2), "")
wStream.Write " <a href=""URLﾘﾝｸ(www.google.co.jp)" & pm(0) & """>大学系教育機関 </a>"
End If
if 0 < InStr(1, a(2), "ed.jp", 1) Then
pm = Split(a(2), "")
wStream.Write " <a href=""URLﾘﾝｸ(www.google.co.jp)" & pm(0) & """>小・中・高 </a>"
End If
if 0 < InStr(1, a(2), "go.jp", 1) Then
pm = Split(a(2), "")
wStream.Write " <a href=""URLﾘﾝｸ(www.google.co.jp)" & pm(0) & """>政府機関 </a>"
End If
42:[名無し]さん(bin+cue).rar
10/04/07 19:14:13 2iyQ5CZ+P
if 0 < InStr(1, a(2), "gr.jp", 1) Then
pm = Split(a(2), "")
wStream.Write " <a href=""URLﾘﾝｸ(www.google.co.jp)" & pm(0) & """>任意団体 </a>"
End If
wStream.Write "<br>"
wStream.Write "<hr>"
Loop
TextStream.Close
wStream.Write "</html></body>"
wStream.close
43:[名無し]さん(bin+cue).rar
10/04/07 19:18:09 2iyQ5CZ+P
>40->42をひとまとめにしてﾉｰﾄﾊﾟｯﾄﾞかなんかでmesse.vbsと名付けて保存する。
messe.vbsと同じ場所にorder_user.csvを置く。
messe.vbsをﾀﾞﾌﾞﾙｸﾘｯｸ。
messe.htmlが作成されるのでﾌﾞﾗｳｻﾞで開く。
44:[名無し]さん(bin+cue).rar
10/04/07 22:05:53 WxxpHJvm0
＿＿＿_
／ヽ,,)ii(,,ノ＼
／（○）))((（○）＼ エロゲでも割れは違法だお！！
／:::::⌒（__人__）⌒:::::＼ 悪いことだお！！人として間違ってるお！！
| ヽ iｌ´ |r┬-|｀ｌi ｒ | いつか逮捕されて世間に名前が晒されるお！！！！
＼ !ｌ ヾｪｪｲ ｌ! ／ ちゃんとお店で買えばそんな心配はないお！！
／: : : : ＼
／: : : : : : ＼
: : : : : : : :.._ _ ＼
: : : : : : : ´⌒＼,, ;、､､／⌒｀ |
: : : : ::;;（（ ・ ）::::ﾉヽ::::::（ ・ ））;;::: | メッセサンオーめえええええええええええぇぇ！！！
: : : : : : ´"''", "''"´ |
: : : : : : . . （ ＼j ／ ）/ ／
＼: : : : : : :.｀∨トエエイ∨ ／
／ヽ: : : : : : : :∧エエ∧ : : : : : イ＼
: : : : : : : : : :.｀`ｰ- -‐'"´ ＼
: : : : . : : . : : . ＼
45:[名無し]さん(bin+cue).rar
10/04/07 22:09:01 qCLslr5+0
>>44
ﾜﾛｽｗｗｗｗｗ
46:[名無し]さん(bin+cue).rar
10/04/07 23:02:03 YK/zwb5lP
え？
メッセサンオーで買った人は、割れに手を出してたわけではないだろう？
通販で買ってたっていうだけじゃないの？
47:[名無し]さん(bin+cue).rar
10/04/07 23:15:31 gC2i329c0
>>44
AAで久々に吹いたわｗｗｗ
48:[名無し]さん(bin+cue).rar
10/04/07 23:33:34 Em24QYBf0
割れ厨は自業自得だから諦めも付く
購入厨は憤懣遣る方ないだろうな
ダメージの大きさからすれば購入厨のが大きい
49:[名無し]さん(bin+cue).rar
10/04/08 01:32:58 K4+y8P0k0
>>44
おまえはうんざりするくらいの馬鹿だな
50:[名無し]さん(bin+cue).rar
10/04/08 01:33:15 K4+y8P0k0
間違った>>46だった；；
51:[名無し]さん(bin+cue).rar
10/04/08 11:39:52 SL2OsAse0
>>50
土下座しろカス
52:[名無し]さん(bin+cue).rar
10/04/09 04:39:06 bjrFQMhY0
>>49
お前には失望した
53:[名無し]さん(bin+cue).rar
10/04/09 16:43:06 DYj2fvJS0
>>52
お前が言うな
54:[名無し]さん(bin+cue).rar
10/04/09 23:34:28 w5bWYMD80
>>53
金ちゃんの仮装大賞に家族で参加したお前が言うな
55:[名無し]さん(bin+cue).rar
10/04/09 23:48:09 FzzdARQ60
そこに気づくとは・・・
56:[名無し]さん(bin+cue).rar
10/04/10 21:12:14 fQg9ElfJ0
ν速のスレは何で落ちたんだ？
晒された連中に運営の中の人も含まれていたから？ｗ
57:[名無し]さん(bin+cue).rar
10/04/11 00:51:58 QewWeZJ80
カオス館昔使ってたけど
あそこはセーフらしいな
58:[名無し]さん(bin+cue).rar
10/04/11 18:55:55 mX+SSdPD0
中国厦門女子中学生集団いじめ
URLﾘﾝｸ(www.nicovideo.jp)
59:[名無し]さん(bin+cue).rar
10/04/26 23:36:02 9Gr34pQc0
age
60:[名無し]さん(bin+cue).rar
10/05/04 12:26:03 QE/mE3QF0
結局何人晒されたのよ