> 'ぁゃιぃPrxChk
> On ERROR Resume Next
> prx = InputBox("チェックしたいプロクシを入力" & vbCR &_
> "192.0.0.1:80のような形式で入力してください","(*'-')/ぁゃιぃPrxChk","mucc.nlnet.melfort.sk.ca:80")
> Set ObjFS = CreateObject("Scripting.FileSystemObject")
> Set ObjPrxText = ObjFS.OpenTextFile("prx.txt") 'prx.txtをOPEN
> PrxText = ObjPrxText.ReadAll     'prx.txtの内容をすべて読みとって変数"PrxText"にまわす
> If InStrRev(PrxText,prx)<>0 Then     '入力された串がかぶってないかprx.txtの内容を検索
>  MsgBox("すでにprx.txtに書き込まれている(ﾟДﾟ)ｸﾜｯ")
> Else
>  Set WSHShell = WScript.CreateObject("WScript.Shell")
>  WSHShell.Run "browser.exe http://www.yahoo.co.jp/-_-prx"     'browser.exeでYahoo!を開く もちろん串経由で
>  GetLog = MsgBox("生きてた？","4","はいを選ぶとLOGに出力")
>   If GetLog = 6 Then 'はいを選んだ場合の処理
>    If ObjFS.FileExists("prx.txt") Then     'prx.txtが存在する場合
>    Set ObjText = ObjFS.GetFile("prx.txt")
>    Set ObjPrxText = ObjText.OpenAsTextStream(8,0)
>    ObjPrxText.WriteLine(prx)     'ファイルの末尾に変数prxの内容を書き込む
>    ObjPrxText.Close
>   Else     'prx.txtが存在しない場合
>    Set ObjFS = CreateObject("Scripting.FileSystemObject")
>    Set ObjPrx = ObjFS.CreateTextFile("prx.txt")     'prx.txtを新規作成
>    ObjPrx.WriteLine(prx)     'prx.txtにprxの内容を書き込む
>    ObjPrx.Close
>   End If
>  Else GetLog = 7 'いいえを選んだ場合の処理
>  MsgBox("残念・・・・・・")
>  End If
> End If
> 紛失したと思ったらぁゃιぃのログにあったぁヽ(´ー｀)ﾉ
> 幸せ

VBうぜ

参考：2000/11/19(日)03時06分36秒