【宮崎公務員児ﾎﾟ】ﾔﾌｵｸ詐欺21ﾊｹﾞ目　【マルチ流出300件】

4-4

wStream.Write "　　　　　　　　　<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & pm(0) & """>小・中・高 </a>"
End If
if 0 < InStr(1, a(3), "go.jp", 1) Then
pm = Split(a(3), "")
wStream.Write "　　　　　　　　　<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & pm(0) & """>政府機関 </a>"
End If
if 0 < InStr(1, a(3), "gr.jp", 1) Then
pm = Split(a(3), "")
wStream.Write "　　　　　　　　　<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & pm(0) & """>任意団体 </a>"
End If
wStream.Write "<br>"
wStream.Write "<hr>"
Loop
TextStream.Close
wStream.Write "</html></body>"
wStream.close
set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "data.html"