リストにされた接続先を一つづ接続する方No.00450
たかx2 さん 07/09/06 13:11
 
テキストにlpアドレスが何百行あるものを
一つづつ接続させたいのですがどのようにすれば
よろしいでしょうか

[ ]
RE:00450 リストにされた接続先を一つづ接No.00451
たかx2 さん 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を読み込むと常に最初の1行目を読み込んでしまい
2行目以降には進みません。

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




>テキストにlpアドレスが何百行あるものを
>一つづつ接続させたいのですがどのようにすれば
>よろしいでしょうか

[ ]
RE:00451 リストにされた接続先を一つづ接No.00452
秀まるお2 さん 07/09/06 15:53
 
 1つの作戦として僕が考えた方法があるので参考にさせていただきたいと思い
ますが…

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

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

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

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

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

 そして、そのホストの自動起動スクリプトを用意しておいて、その中で、
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
たかx2 さん 07/09/11 15:46
 
ご返信有難うございます。

確認をしてみます。

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

> 1つの作戦として僕が考えた方法があるので参考にさせていただきたいと思い
>ますが…
>
> まず、接続する用のホストを1つだけ用意しておきます。仮にそれのホスト名
>を「共通ホスト」という名前にしておいたとします。
>
> それの接続先ホスト名(インターネット上でのホスト名)は適当にしておきま
>す。
>
> そして、接続を開始するスクリプトを1つ用意します。それのやることは、
>
>    #file = "...ホスト一覧のファイル名...";
>    openfile #file
>    readfile #file, #line
>    closefile #file
>    openreg "CURRENTUSER"
>        , "Software\Hidemaruo\HideTerm95\Host\共通ホスト"
>    writeregstr "DialNo", #line
>    closereg
>    connect "共通ホスト"
>
> とします。それでとりあえず1つ目のホストに接続します。
>
> そして、そのホストの自動起動スクリプトを用意しておいて、その中で、
>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 "共通ホスト"
>
> みたいにすれば、次のホストに接続しにいくと思います。
>
> 上記スクリプトは実際に動作してみた訳ではないので間違いもあるかと思いま
>すが、なんとなくそういう作戦で出来そうでは無いかということでトライしてみ
>て欲しいです。

[ ]