IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] 通过GUI自动化创建宽带拨号,电话拨号,VPN三种链接分享源码自己定制

[复制链接]
逆流天下 发表于 2019-3-31 23:03:56 | 显示全部楼层 |阅读模式

本帖最后由 逆流天下 于 2019-3-31 23:06 编辑

温馨提示目前只在 Win10 x64 测试通过哦


通过启动rasphone最小化模式自动创建宽带拨号,电话拨号,VPN三种链接分享源码自己定制各种界面

  1. Internet_VPNClinet_Create()
  2. Exit

  3. Func Internet_PPPoE_Create()
  4.         RunWait(@ComSpec & " /c " & 'rasphone -r Internet.pppoe', "", @SW_HIDE)
  5.         Run(@ComSpec & " /c " & 'start ""  /min rasphone -a Internet.pppoe', "", @SW_HIDE)
  6.         ProcessExists ( "rasphone.exe" )
  7.         Sleep(500)
  8.         ControlClick("Set up a new connection", "", "Button4", "left", 1)
  9.         Sleep(500)
  10.         ControlClick("Set up a new connection", "", "Button9", "left", 1)
  11.         Sleep(500)
  12.         ControlClick("Set up a new connection", "", "Button1", "left", 1)
  13. EndFunc

  14. Func Internet_ISDN_Create()
  15.         RunWait(@ComSpec & " /c " & 'rasphone -r Internet.Isdn', "", @SW_HIDE)
  16.         Run(@ComSpec & " /c " & 'start ""  /min rasphone -a Internet.Isdn', "", @SW_HIDE)
  17.         ProcessExists ( "rasphone.exe" )
  18.         Sleep(500)
  19.         ControlClick("Set up a new connection", "", "Button5", "left", 1)
  20.         Sleep(500)
  21.         ControlSend("Set up a new connection", "", "Edit1", "+8613800006666", 1)
  22.         Sleep(500)
  23.         ControlClick("Set up a new connection", "", "Button8", "left", 1)
  24.         Sleep(500)
  25.         ControlClick("Set up a new connection", "", "Button1", "left", 1)
  26.         Sleep(500)
  27.         ControlClick("Set up a new connection", "", "Button1", "left", 1)
  28. EndFunc

  29. Func Internet_VPNClinet_Create()
  30.         RunWait(@ComSpec & " /c " & 'rasphone -r Internet.vpnclinet', "", @SW_HIDE)
  31.         Run(@ComSpec & " /c " & 'start ""  /min rasphone -a Internet.vpnclinet', "", @SW_HIDE)
  32.         ProcessExists ( "rasphone.exe" )
  33.         Sleep(500)
  34.         ControlClick("Set up a new connection", "", "Button6", "left", 1)
  35.         Sleep(500)
  36.         ControlSend("Set up a new connection", "", "Edit1", "10.0.0.1", 1)
  37.         Sleep(500)
  38.         ControlClick("Set up a new connection", "", "Button9", "left", 1)
  39.         Sleep(500)
  40.         ControlClick("Set up a new connection", "", "Button1", "left", 1)
  41. EndFunc
复制代码

Internet.Create.zip (485 Bytes, 下载次数: 1, 售价: 3 点活跃)
最近访问 头像模式 列表模式
 楼主| 逆流天下 发表于 2019-4-1 11:57:17 来自手机 | 显示全部楼层

活跃 8294| 技术 3| 互助 6| 钻石 100

自己顶下
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

逆流天下

8294

活跃

3

技术

6

互助
签到任务
最火的业界新闻
  • 来自XFX的官方吐槽 手工定制RX 570显卡上市
  • 7nm移动处理器要来?AMD年底还有大招
  • 7nm Zen 2的锐龙APU终于定了:最快11月见
  • 华为EMUI 10内测截图批量曝光:基于安卓10.
  • Brydge键盘让你的iPad Pro用起来就像一台Ma
  • 群联发布PS5017 SD Express主控:支持SD 7.
  • iPhone PD快充响两声到底是不是玄学?
  • 全球第一家!台积电官宣2nm工艺:2024年投
  • 摆脱萌新段位 买不到的攒机秘籍免费送
  • 折叠屏手机明年年初规模化上市 明年年底有
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 再见! 高三再见! 高考再见!
  • 你见过世上所有的钱吗?
  • 又被骗
  • 霸气侧漏
  • 蚊子:这日子太苦了
  • 长大后才发现,小时候课文里的全是人生!
  • 都靠一双巧手
  • 对付那些喊你们投票的人
  • 不能什么都发朋友圈
  • 有趣的冷知识
关注官方微信
快速回复 返回顶部 返回列表