[原创]自动建立宽带连接的另一种写法
自动创建宽带连接，相信大家都不陌生，最早大多是用模拟键盘来操作的，，如果在运行过程中，有人动了鼠标或键盘，可能有所影响，方法并不理想。
然后，便打rasphone.exe的主意。静默实现。但总是把rasphone.exe放到桌面。实在难看。
如何才能做到，既能检测有无，再决定建立宽带连接，又能用rasphone.exe实现静默安装，还能在桌面上弄一个默认的 宽带连接图标呢
下面的代码也许对你有帮助。
复制代码
这个不是我原创的，忘了原作者了。向他致敬！！
至于两个快捷方式，相信你们都知道在哪里，自己获取吧。
下载：http://bbs.wglm.net/thread-119479-1-1.html
然后，便打rasphone.exe的主意。静默实现。但总是把rasphone.exe放到桌面。实在难看。
如何才能做到，既能检测有无，再决定建立宽带连接，又能用rasphone.exe实现静默安装，还能在桌面上弄一个默认的 宽带连接图标呢
下面的代码也许对你有帮助。
- Func _createAdsl() ;创建宽带连接
- $pbkpath=@AppDataCommonDir & "\Microsoft\Network\Connections\Pbk\rasphone.pbk"
- If FileGetSize($pbkpath) / 1024 > 1.5 Then ;==>当rasphone大于1.5kb时，被认为连接已存在
- MsgBox(64,"提示...","宽带连接已存在,无需再建立! ", 10)
- Else
- FileInstall("rasphone.pbk", $pbkpath , 1) ;==>要装入到编译程序中的文件
- FileInstall("adsl.lnk", @DesktopCommonDir & "\宽带连接.lnk" , 1) ;==>同上
- Run(@ComSpec & " /c " & 'rasphone -d ADSL', "", @SW_HIDE) ;==>运行建立好的宽带连接
- EndIf
- EndFunc
至于两个快捷方式，相信你们都知道在哪里，自己获取吧。
下载：http://bbs.wglm.net/thread-119479-1-1.html
本文来源：bbs.wglm.net 作者：bbs.wglm.net
天下网吧·网吧天下
闽公网安备35010202000238号