> > 'ぁゃιぃ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うぜ

VBじゃねヽ(´ー｀)ﾉ

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