[ 新規に投稿する ]
リストにされた接続先を一つづ接続する方法No.00450
たかｘ２ さん　07/09/06 13:11　[ コメントを投稿する ]
　 テキストにlpアドレスが何百行あるものを
一つづつ接続させたいのですがどのようにすれば
よろしいでしょうか
[ △ ]
RE:00450 リストにされた接続先を一つづ接続する方法No.00451
たかｘ２ さん　07/09/06 13:22　[ コメントを投稿する ]
　 追加でコメントなのです。
テキストには、
www.xxx.yyy.zz1
www.xxx.yyy.zz2
www.xxx.yyy.zz3
　　　　：
　　　　：
www.xxx.yyy.zzz

と何百行となっているテキストがあります。

それを以前、NO141あたりのscriptを使用して
挑戦しているのですが、connect処理後に同じ、
scriptを読み込むと常に最初の１行目を読み込んでしまい
2行目以降には進みません。

どのようにしていけば、テキストに記載されているIPアドレスに
ログインしていくことが可能なのか教えて下さい。
お願いします。




>テキストにlpアドレスが何百行あるものを
>一つづつ接続させたいのですがどのようにすれば
>よろしいでしょうか
[ △ ]
RE:00451 リストにされた接続先を一つづ接続する方法No.00452
秀まるお2 さん　07/09/06 15:53　[ コメントを投稿する ]
　 　１つの作戦として僕が考えた方法があるので参考にさせていただきたいと思い
ますが…

　まず、接続する用のホストを１つだけ用意しておきます。仮にそれのホスト名
を「共通ホスト」という名前にしておいたとします。

　それの接続先ホスト名（インターネット上でのホスト名）は適当にしておきま
す。

　そして、接続を開始するスクリプトを１つ用意します。それのやることは、

    #file = "...ホスト一覧のファイル名...";
    openfile #file
    readfile #file, #line
    closefile #file
    openreg "CURRENTUSER"
        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
    writeregstr "DialNo", #line
    closereg
    connect "共通ホスト"

　とします。それでとりあえず１つ目のホストに接続します。

　そして、そのホストの自動起動スクリプトを用意しておいて、その中で、
AfterHangupの実行をして、切断後に特定ラベルに飛ぶようにしておきます。そ
してそこの処理で、

    openreg "CURRENTUSER"
        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
    #host = getregstr( "DialNo" );
    closereg

    openfile #file
    while(1)
        readfile #file, #line
        if( no ) exit
        if( #line == #host ) breakloop;
    endwhile
    closefile #file
    readfile #file, #line
    openreg "CURRENTUSER"
        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
    writeregstr "DialNo", #line
    closereg
    connect "共通ホスト"

　みたいにすれば、次のホストに接続しにいくと思います。

　上記スクリプトは実際に動作してみた訳ではないので間違いもあるかと思いま
すが、なんとなくそういう作戦で出来そうでは無いかということでトライしてみ
て欲しいです。
[ △ ]
RE:00452 リストにされた接続先を一つづ接続する方法No.00453
たかｘ２ さん　07/09/11 15:46　[ コメントを投稿する ]
　 ご返信有難うございます。

確認をしてみます。

また、疑問が出てきましたら、よろしくお願いします。

>　１つの作戦として僕が考えた方法があるので参考にさせていただきたいと思い
>ますが…
>
>　まず、接続する用のホストを１つだけ用意しておきます。仮にそれのホスト名
>を「共通ホスト」という名前にしておいたとします。
>
>　それの接続先ホスト名（インターネット上でのホスト名）は適当にしておきま
>す。
>
>　そして、接続を開始するスクリプトを１つ用意します。それのやることは、
>
>    #file = "...ホスト一覧のファイル名...";
>    openfile #file
>    readfile #file, #line
>    closefile #file
>    openreg "CURRENTUSER"
>        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
>    writeregstr "DialNo", #line
>    closereg
>    connect "共通ホスト"
>
>　とします。それでとりあえず１つ目のホストに接続します。
>
>　そして、そのホストの自動起動スクリプトを用意しておいて、その中で、
>AfterHangupの実行をして、切断後に特定ラベルに飛ぶようにしておきます。そ
>してそこの処理で、
>
>    openreg "CURRENTUSER"
>        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
>    #host = getregstr( "DialNo" );
>    closereg
>
>    openfile #file
>    while(1)
>        readfile #file, #line
>        if( no ) exit
>        if( #line == #host ) breakloop;
>    endwhile
>    closefile #file
>    readfile #file, #line
>    openreg "CURRENTUSER"
>        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
>    writeregstr "DialNo", #line
>    closereg
>    connect "共通ホスト"
>
>　みたいにすれば、次のホストに接続しにいくと思います。
>
>　上記スクリプトは実際に動作してみた訳ではないので間違いもあるかと思いま
>すが、なんとなくそういう作戦で出来そうでは無いかということでトライしてみ
>て欲しいです。
[ △ ]
[ 新規に投稿する ]