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, 下载次数: 2, 售价: 3 点活跃)
最近访问 头像模式 列表模式
 楼主| 逆流天下 发表于 2019-4-1 11:57:17 来自手机 | 显示全部楼层

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

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

本版积分规则

逆流天下

8483

活跃

3

技术

6

互助
签到任务
最火的业界新闻
  • [图]65吋/55吋华为智慧屏已上架 85英寸等已
  • 台积电拟扩大5纳米芯片产能
  • 走访华为智慧屏研发基地 解锁智慧大屏幕背
  • 小米9 Pro 5G用上专业原色屏:中国计量科学
  • 雷军:5G成本上千元 小米9 Pro会比小米9贵
  • 西部数据发布首款嵌入式eMMC SSD:TLC也很
  • 中国移动下月发布5G套餐:“三不一快”策略
  • 威刚发布XPG SX8100 SSD:少见瑞昱RTS5762
  • 和4G说再见 雷军宣布小米9 Pro全系标配5G
  • 华为Mate 30供应商全揭秘 国产撑起半边天
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 我不建议我一米六的身高帮你家改善基因
  • 这个世界还有什么是真的?
  • 适合什么码
  • 生活中有哪些残忍的真相 !!!
  • 因为一个屁,我和男朋友分手了!
  • 事实证明人可以闲到什么地步!
  • 四十年老师傅曝光家装真相:41个地方该这样
  • “酸碱体质理论”创始人被判罚1.05亿美元,
  • 收藏收藏,慢慢成为理想的自己,加油
  • 想不想要一个这样的狼男票
关注官方微信
快速回复 返回顶部 返回列表