74.htm

网络编程原理文摘 [文件] 精华区目录结构 [目录] 网络编程的基本原理 [目录] 网络编程与网络协议 [目录] 网上资源 [目录] winsock技术 [目录

    台北的 USER，请把下面的档案 save 成 Login.cmd，再拷贝到 Winsock 的子目录 <br>

    下即可.... 它会对台大（两线）及中研院循环拨号 <br>

  <br>

=============================================================================== <br>

%d1 = 3676981 <br>

%d2 = 6513920 <br>

%d3 = 3689280 <br>

$modemsetup = "&F1&D0m3l2&W"    # 这里请改为你 Modem 的最佳参数，这是我的 <br>

                                # USR Sportster 28800 的参数 <br>

$userprompt = "sername:" <br>

$passprompt = "assword:" <br>



$slipcmd = "slip" <br>

$pppcmd = "ppp" <br>

output "atz"\13 <br>

if ! [input 10 OK\n] <br>

  display "Modem is not responding"\n <br>

  abort <br>

end <br>

output "at"$modemsetup\13 <br>

input 10 OK\n <br>

%n = 1 <br>

%k = 1 <br>

repeat <br>

  <br>

  display \n <br>

  display 第 %n 次拨号 <br>

  <br>

  if %k = 1 <br>

    %number = %d1 <br>

    $prompt = "login:" <br>

    $addrtarg = "IP address =" <br>

  else <br>

  <br>

  <br>

    if %k = 2 <br>

      %number = %d2 <br>

      $prompt = "login:" <br>

      $addrtarg = "IP address:" <br>

    else <br>

  <br>

      %k = 0 <br>

      %number = %d3 <br>

      $prompt = "login:" <br>

      $addrtarg = "IP address =" <br>

  <br>

    end <br>

  end <br>

  output "atdt "%number\r <br>

  %busy = [input 15 BUSY]      # 如果挂断後没有马上重新拨号，请把 15 改大一 <br>

                               # 点，不过不要调太大，不然会无法正常连线 <br>

  if %busy <br>

    status "The line is busy...pausing for a while" <br>

    sleep 1 <br>

    %ok = 0 <br>

  else <br>

    %ok = [input 60 CONNECT] <br>



  end <br>

  %n = %n + 1 <br>

  %k = %k + 1 <br>

until %ok <br>

EXEC "c:\winsock\wstimer\wstimer.exe ON A"     # 此行会启动 Ws_Timer <br>

input 20 \n <br>

output \13 <br>

input 30 $prompt <br>

output $slipcmd\13 <br>

input 30 $addrtarg <br>

address 20 <br>

display \n <br>

display Connected.  Your IP address is \i.\n   # 当你在萤幕上看到这行 <br>

                                               # 时，代表连线成功了...:> <br>

end <br>

=============================================================================== <br>

  <br>

  <br>

    台中中兴的 USER，请把下面的档案 save 成 Login.cmd，再拷贝到 Winsock 的子 <br>

    目录下即可.... 它会对中兴（三线）循环拨号 <br>

  <br>

=============================================================================== <br>



  <br>

%d1 = 2851611 <br>

%d2 = 2852210 <br>

%d3 = 2851677 <br>

  <br>

%busywait = 1 <br>

$modemsetup = "&F1&D0m3&W" <br>

$prompt = "login:" <br>

$userprompt = "sername:" <br>

$passprompt = "assword:" <br>

$slipcmd = "slip" <br>

$addrtarg = "IP address:" <br>

$pppcmd = "ppp" <br>

$PASSWORD = "my_passwd"              # 请把 my_passwd 改为你自己的 PASSWORD <br>

output "atz"\13 <br>

if ! [input 10 OK\n] <br>

  display "Modem is not responding"\n <br>

  abort <br>

end <br>

output "at"$modemsetup\13 <br>

input 10 OK\n <br>

%n = 1 <br>

%n = 1 <br>

%which = 1 <br>

repeat <br>

  <br>

  display \n <br>

  display 第 %n 次拨号 <br>

  if %which = 1 <br>

     %number = %d1 <br>

  else <br>

     if %which = 2 <br>

        %number = %d2 <br>

     else <br>

        %which = 0 <br>

        %number = %d3 <br>

     end <br>

  end <br>

  output "atdt"%number\13 <br>

  %busy = [input 15 BUSY] <br>

  if %busy <br>

    status "The line is busy...pausing for a while" <br>

    sleep 1 <br>

    %ok = 0 <br>

  else <br>

  else <br>

    %ok = [input 60 CONNECT] <br>

  <br>

  end <br>

  %n = %n + 1 <br>

  %which = %which + 1 <br>

until %ok <br>

input 20 \n <br>

output \13 <br>

input 30 $prompt <br>

output  $PASSWORD\13 <br>

sleep 2 <br>

output "12"\13 <br>

display 连线成功..... <br>

status 连线成功..... <br>

EXEC "d:\winsock\wstimer\wstimer ON A" <br>

end <br>

=============================================================================== <br>

  <br>

  <br>

    如果你在台中，又没有中兴帐号，那只有连 逢甲啦(451-0235)！！ <br>

    我是建议先用 Telix 拨号，拨通後，按几下 Enter，会出现 Local> 字样 <br>

    打 show port slip，就会出现一个 IP Address，抄下来，再打 connect slip， <br>



    跟著跳出 Telix，进入 Windows，启动 Tcpman，选 File --> Setup，把 IP 改 <br>

    了之後，关闭 Tcpman，再启动一遍，如此就成功了！！ <br>

  <br>

  <br>

=============================================================================== <br>

  <br>

    By the way... 逢甲的自动 login.cmd 我写不出来耶.... 有没有那位高手能够 <br>

    帮帮忙，指点指点迷津？？我甚至连进 Local> 都没有办法耶...:< <br>

  <br>

    And... 上面那些 login.cmd 是可以循环拨号，但是有个缺点，如果 modem 侦测 <br>

    到 BUSY 的时间超过 input 15 BUSY 中的数值(就是 15 啦！！)的话，就变成要等 <br>

    30 秒後才会再开始拨号，可是如果把那个数字调太高的话，又会抓不到 CONNECT <br>

    这个字串，无法继续执行.... 有没有人有解决方案?? 我也试过 <br>

    pos (string1, string2) 可是只能跑一个回圈，再跑下一次就会出问题了..... <br>

    唉！似乎无解耶....:< <br>

  <br>

  <br>

六、结语 <br>

    呼！终於写完了，这是小弟第一次在 BBS 上把自己的经验发表出来，希望不至於太过 <br>

    肤浅...:> 不过这篇文章有些地方是参考薛宏升先生的『有关 Trumpet winsock 2.0B <br>

    自动 login 各大 Server』这篇文章，如果你是新手，一定要去他的 Home Page 看看 <br>

          http://www.seed.net.tw/~seedw001/hongseng.htm <br>



    可以学到不少东西哟！ <br>

  <br>

    本篇文章欢迎转录、收藏，不过不能做任何修改哟！！ <br>

  <br>

    此外，如果你对这篇文章有任何问题或是发现那里写错了，欢迎 E-Mail 至小弟的 <br>

    帐号： [e-mail]  或是 post 出来，大家一起研究研究...:> <br>

  <br>

======================================= <br>

  廖致宏   William Liao <br>

  E-mail: [e-mail] <br>

  逢甲大学电机系 <br>

======================================= <br>

  <br>

  <br>

-- <br>

┌————┐          ┌——┐  ┌—————┐    Always faster than others <br>

│    ┌—┘          │    │  └—┐  ┌—┘              ┌┐  ┌——┐ <br>

│    │              │    │      │  │                ┌┘└┐└—┐│ <br>

│    │  ┌——┬——┤    │      │  ├——┬┐┌┬——┼┐┌┘┌—┘│ <br>

│    └—┤┌┐│┌┐│    └┐    │  │┌┐││││┌┐│││   Ι癌穿  <br>

│        │└┘│└┘│      │    │  │└┘│└┘│└┘││└┐│└┘└┐ <br>

└————┴——┴——┴———┘    └—┴——┴┐  ├——┘└—┘└———┘ <br>



    ┌—————————————————————┘  │  □ □□□□□□□□ <br>

    └———————————————————————┘         □□ ....... <br>

  <br>

</small><hr>
<p align="center">[<a href="清华bbs网络资源.htm">回到开始</a>][<a href="9.htm">上一层</a>][<a href="75.htm">下一篇</a>]<p align="center" ><font face="黑体" size=5><big>网络资源大全</big></font></p> 
</table> 
</body> 
</html>