12/05/25 01:36:14.24 XTMHmCt10
>>835をなぜ作ったかというと、こういうのは自動化してパソコンに勝手に
やらせるのがベストだと思うし、大手のゲームメーカーはたぶんやってると思う。
少し改良したバージョンがこれ。
「kensakuWord=」に自分の作品のRJの番号や作品名、「appIE.Navigate "http～」に
自分の検索したいページのURLを入れればOK。
「appIE.Visible = True」の行を削除する場合はIEは画面表示されない。
kensakuWord = "RJ"
Set appIE = CreateObject("InternetExplorer.Application")
appIE.Visible = True
appIE.Navigate "URLﾘﾝｸ(www.google.co.jp)"
Do Until appIE.Busy = False
WScript.sleep(300)
Loop
strText = appIE.Document.Body.InnerText
strText = InStr(1,strText,kensakuWord,1)
If strText >0 Then WScript.echo "あなたの作品が見つかりました"
Set appIE = Nothing