リストにされた接続先を一つづ接続する方 - 秀Term スクリプト作者会議室 - スレッド00450, 2007/09/06

リストにされた接続先を一つづ接続する方

たかｘ２ さん　07/09/06 13:11

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

RE:00450 リストにされた接続先を一つづ接

たかｘ２ さん　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 リストにされた接続先を一つづ接

秀まるお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 リストにされた接続先を一つづ接

たかｘ２ さん　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 "共通ホスト"
>
>　みたいにすれば、次のホストに接続しにいくと思います。
>
>　上記スクリプトは実際に動作してみた訳ではないので間違いもあるかと思いま
>すが、なんとなくそういう作戦で出来そうでは無いかということでトライしてみ
>て欲しいです。