中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-10 14:59
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 能否用批处理建立一个MODEM的拨号连接呢? 查看 899 回复 6
楼 主 能否用批处理建立一个MODEM的拨号连接呢? 发表于 2008-11-22 19:32 ·  中国 福建 福州 中移铁通
新手上路
积分 4
发帖 4
注册 2008-11-22 19:04
17年会员
UID 131779
性别 男
状态 离线
因平时工作的时候.非常经常的创建调制解调器的拨号连接

请教大家,批处理有没有办法实现这个要求?要怎么写??


假设:
用批处理建立一个电话拨号连接,并在桌面上创建快捷方式,使用时,点击就可以了,不需要输入电话号码和密码。
电话号码:12345678,用户名:abcd,密码:abcd


一般情况下.是在XP平台下..如果有知道的,能不能帮帮我?谢谢.
2 发表于 2008-11-22 21:24 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
本版搜索"ADSL"
本版搜索“拨号”

Q: 如何使用论坛的搜索功能来解决自己的问题?
A: 参考:http://www.cn-dos.net/forum/viewthread.php?tid=44122#pid308085
3 发表于 2008-11-22 23:21 ·  中国 福建 福州 中移铁通
新手上路
积分 4
发帖 4
注册 2008-11-22 19:04
17年会员
UID 131779
性别 男
状态 离线
谢谢版主
不过我问的不是建ADSL的拨号连接.
而是调制解调器MODEM的拨号连接啊.就是类似于16300电话拨号的那个连接,
4 发表于 2008-11-24 08:40 ·  中国 福建 福州 中移铁通
新手上路
积分 4
发帖 4
注册 2008-11-22 19:04
17年会员
UID 131779
性别 男
状态 离线
都没有人帮忙下吗>?,,郁闷..
5 发表于 2008-11-24 09:34 ·  中国 北京 鹏博士长城宽带
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
没用过.

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
6 发表于 2008-11-28 15:42 ·  中国 广东 广州 白云区 电信
初级用户
★★
积分 131
发帖 119
注册 2007-06-12 22:50
19年会员
UID 91125
性别 男
来自 gz
状态 离线
Originally posted by avtion at 2008-11-22 07:32 PM:
因平时工作的时候.非常经常的创建调制解调器的拨号连接

请教大家,批处理有没有办法实现这个要求?要怎么写??


假设:
用批处理建立一个电话拨 ...



以下是VBS的,保存为modem.vbs运行吧

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "Rasphone -a"
WScript.Sleep 500
WshShell.SendKeys "+N"
WScript.Sleep 100
WshShell.SendKeys "{BACKSPACE 10}"
WshShell.SendKeys "12345678"
WshShell.SendKeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "+N"
WScript.Sleep 200
WshShell.SendKeys "{BACKSPACE 10}"
WshShell.SendKeys "MODEM"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.Run "Rasphone -d modem"
WScript.Sleep 500
WshShell.AppActivate "连接 modem"
WScript.Sleep 500
WshShell.SendKeys "{BACKSPACE 10}"
WScript.Sleep 500
WshShell.SendKeys "abcd"
WScript.Sleep 500
WshShell.SendKeys "{TAB}"
WScript.Sleep 500
WshShell.SendKeys "{BACKSPACE 10}"
WScript.Sleep 500
WshShell.SendKeys "abcd"
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "+s"
WScript.Sleep 1000
WshShell.SendKeys "+d"

[ Last edited by sea1112 on 2008-11-28 at 15:43 ]
7 发表于 2008-11-28 15:45 ·  中国 广东 广州 白云区 电信
初级用户
★★
积分 131
发帖 119
注册 2007-06-12 22:50
19年会员
UID 91125
性别 男
来自 gz
状态 离线
补一下。没装硬件是会出错的。
论坛跳转: