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

4-2

wStream.Write "</br>"
wStream.Write "<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & a(3) & """ target=""_blank"">" & a(3) & "</a>"
if 0 < InStr(1, a(3), "Yahoo", 1) Then
pm = Split(a(3), "@")
wStream.Write "　　　　　　　　　<a href=""http://profiles.yahoo.co.jp/" & pm(0) & """>Yahoo profiles </a>"
End If
if 0 < InStr(1, a(3), "Yahoo", 1) Then
pm = Split(a(3), "@")
wStream.Write "　　　　　　　　　<a href=""http://user.auctions.yahoo.co.jp/jp/user/" & pm(0) & """>yahoo auctions </a>"
End If
if 0 < InStr(1, a(3), "Yahoo", 1) Then
pm = Split(a(3), "@")
wStream.Write "　　　　　　　　　<a href=""http://photos.yahoo.co.jp/" & pm(0) & """>yahoo photos </a>"
End If
if 0 < InStr(1, a(3), "lycos", 1) Then
pm = Split(a(3), "@")