12/05/25 01:01:34.51 XTMHmCt10
本スレで話した奴。
違法コピー品の自動検索ツール
使い方はコピペしてテキストファイルでファイル名「適当.vbs」で保存して
ダブルクリック実行。ただし動作はwinXPのみ。XP以降だったら動くとは思うけど。
Option Explicit
Dim appIE
Dim strText
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,"RJ",1)
If strText >0 Then WScript.echo "あなたの同人作品のRJ番号が見つかりました"
Set appIE = Nothing