• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表 12
发新话题 回复该主题
查看: 8375|回复: 20

[老狼] [老狼][源码分享]----断开、启用、判断网络收录贴----被峨眉山猴... [复制链接]

瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26984
  • 25
  • 8059 朵
  • 36138 个
  • 4755 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
1#
t T
发表于 2022-03-08 22:03 | |只看楼主
说明:测试环境W7
方案1：
  1. Call 改Ip地址("192.168.1.123","255.255.255.0","192.168.1.1")
  2. Sub 改Ip地址(新IP地址,新子网掩码,新网关)
  3. Call Plugin.File.WriteFileEx(".\ChgIP.bat", "netsh interface ip set address name=""本地连接"" source = static addr = " & 新IP地址 &" mask=" & 新子网掩码 &" "&vbcrlf&"netsh interface ip set address name=""本地连接"" gateway = "& 新网关 &" gwmetric =0")
  4. Delay 2000
  5. RunApp ".\ChgIP.bat"
  6. Delay 200
  7. Call Plugin.File.DeleteFile(".\ChgIP.bat")
  8. End Sub
复制代码
方案2：
  1. 断开: RunApp "Rasdial " &宽带连接名称 & "/disconnect"
  2. 连接:RunApp "Rasdial " &宽带连接名称 & adsl帐号 &adsl密码
复制代码
方案3：
  1. RunApp "rasphone -h " & 宽带名称 //断开宽带连接
  2. RunApp "rasdial " & 宽带名称 & " " & 宽带帐号 & " " & 宽带密码 //重新连接宽带
复制代码
方案4：
  1. Sub 断网()
  2. 路径 = Plugin.Sys.GetDir(0)
  3. Call Plugin.File.DeleteFolder(路径 & "\断网.cmd")
  4. Call Plugin.File.DeleteFolder(路径 & "\断网.txt")
  5. Call Plugin.File.WriteFileEx(路径 & "\断网.txt", "@echo off")
  6. Call Plugin.File.WriteFileEx(路径 & "\断网.txt", ":start")
  7. Call Plugin.File.WriteFileEx(路径 & "\断网.txt", "rasdial 宽带连接 /disconnect && exit")
  8. Call Plugin.File.WriteFileEx(路径 & "\断网.txt", "goto start")
  9. Call Plugin.File.ReNameFile(路径 & "\断网.txt", 路径 & "\断网.cmd")
  10. RunApp 路径 & "\断网.cmd"
  11. Delay 50
  12. End Sub
  13. Sub 拨号(宽带账号, 宽带密码)
  14. 路径 = Plugin.Sys.GetDir(0)
  15. Call Plugin.File.DeleteFolder(路径 & "\连网.cmd")
  16. Call Plugin.File.DeleteFolder(路径 & "\连网.txt")
  17. Call Plugin.File.WriteFileEx(路径 & "\连网.txt", "@echo off")
  18. Call Plugin.File.WriteFileEx(路径 & "\连网.txt", ":start")
  19. Call Plugin.File.WriteFileEx(路径 & "\连网.txt", "rasdial 宽带连接 " & 宽带账号 & " " & 宽带密码 & " && exit")
  20. Call Plugin.File.WriteFileEx(路径 & "\连网.txt", "goto start")
  21. Call Plugin.File.ReNameFile(路径 & "\连网.txt", 路径 & "\连网.cmd")
  22. RunApp 路径 & "\连网.cmd"
  23. Delay 50
  24. End Sub
  25. Call 断网()
  26. Call 拨号("123456", "888888")
复制代码
方案5：
  1. 结果 = Plugin.HuanHai.EditIpDns("192.168.1.8 255.255.255.255", 1)'改成没有网关 导致断网
  2. TracePrint 结果
  3. Delay 10000
  4. 判断


  7. 结果 = Plugin.HuanHai.EditIpDns("0", 4)
  8. TracePrint 结果
  9. 结果 = Plugin.HuanHai.EditIpDns("0", 5)
  10. TracePrint 结果
  11. Delay 5000
  12. 判断

  14. Sub 判断
  15. Set objPing=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = 'www.baidu.com'")
  16. For Each objStatus in objPing
  17. If objStatus.ResponseTime>0 Then
  18. Exit For
  19. Else
  20. MsgBox "请检查是否连接网络!",48,"提示"
  21. End If
  22. Next
  23. End Sub
复制代码
对应插件下载[修改ip、dns、网关]：
huanhai.rar (, 下载次数:219)

判断网络是否连接方案1:
  1. set objh = Createobject("MSXML2.XMLHTTP")
  2. objh.open "GET", "http://www.baidu.com", false
  3. execute("objh.send()")
  4. If objh.statustext = "OK" Then
  5. msgbox "通"
  6. Else
  7. msgbox "断"
  8. End If
  9. set objh = nothing
复制代码
方案2:
  1. Set objPing=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = 'www.baidu.com'")
  2. For Each objStatus in objPing
  3. If objStatus.ResponseTime>0 Then
  4. Exit For
  5. Else
  6. MsgBox "请检查是否连接网络!",48,"提示"
  7. End If
  8. Next
复制代码
最后编辑瑞祥幽冥狼 最后编辑于 2022-03-08 22:04:21
本主题由 超级版主 瑞祥幽冥狼 于 2023/4/9 21:11:52 执行 审核帖子 操作
点赞
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
回顶部
xhmm
头像

  • 小学五年级
  • 4676648
  • 93
  • 0
  • 32 朵
  • 410 个
  • 47 个
  • 1760
  • 2017-10-18
按键精灵开发者1级
2#
t T
发表于 2022-04-12 21:06 | |只看该用户


回顶部
151777848
头像

你噶个e

  • 小学一年级
  • 6643834
  • 28
  • 0
  • 20 朵
  • 27 个
  • 27 个
  • 0
  • 2019-06-21
3#
t T
发表于 2022-05-24 16:15 | |只看该用户


回顶部
bymark
头像

bymark

  • 初中一年级
  • 3217465
  • 163
  • 0
  • 77 朵
  • 179 个
  • 106 个
  • 240
  • 2015-04-26
4#
t T
发表于 2022-06-08 11:54 | |只看该用户

学习了

回顶部
qiudi
头像

风闲

  • 官方脚本作者
  • 3892596
  • 2310
  • 0
  • 2121 朵
  • 2379 个
  • 2267 个
  • 92820
  • 2016-04-29
按键精灵开发者6级
5#
t T
发表于 2022-08-13 10:42 | |只看该用户

lookl

官方脚本作者风闲 联系QQ:15177407

验证码识别,数据监测,网页操作,游戏,办公,抢购,post等
回顶部
zsspu
头像

zsspu

  • 小学一年级
  • 4815532
  • 10
  • 0
  • 5 朵
  • 20 个
  • 10 个
  • 0
  • 2017-12-27
6#
t T
发表于 2022-11-03 08:05 | |只看该用户

谢谢，

回顶部
1356661912
头像

  • 幼儿园
  • 8905724
  • 4
  • 0
  • 4 朵
  • 5 个
  • 5 个
  • 0
  • 2022-11-22
7#
t T
发表于 2022-11-22 19:08 | |只看该用户

第三方士大夫

回顶部
wnt24
头像

wnt24

  • 大学一年级
  • 832925
  • 834
  • 0
  • 127 朵
  • 3874 个
  • 383 个
  • 12480
  • 2011-10-20
8#
t T
发表于 2022-11-24 13:04 | |只看该用户

顶一个学习一下看看！

回顶部
17606660360
头像

17606660360

  • 小学一年级
  • 5385186
  • 21
  • 0
  • 7 朵
  • 28 个
  • 19 个
  • 0
  • 2018-07-13
9#
t T
发表于 2023-01-24 01:18 | |只看该用户

看看瞅瞅

回顶部
ye_nanan
头像

  • 小学一年级
  • 8972609
  • 12
  • 0
  • 10 朵
  • 13 个
  • 13 个
  • 0
  • 2023-02-19
10#
t T
发表于 2023-03-13 11:54 | |只看该用户

学习一下

回顶部
aka19801030
头像

aka19801030

  • 小学一年级
  • 91962
  • 29
  • 0
  • 3 朵
  • 26 个
  • 3 个
  • 720
  • 2006-08-15
11#
t T
发表于 2023-04-03 10:52 | |只看该用户

set objh = Createobject("MSXML2.XMLHTTP")
objh.open "GET", "http://www.baidu.com", false
execute("objh.send()")
If objh.statustext = "OK" Then
msgbox "通"
Else
msgbox "断"
End If
set objh = nothing

用了这段代码，网络是通的，可是测试还是弹出“断”的提示框

回顶部
1530473602
头像

1530473602

  • 初中一年级
  • 3026875
  • 220
  • 0
  • 365 朵
  • 344 个
  • 267 个
  • 0
  • 2015-01-23
12#
t T
发表于 2023-04-06 17:29 | |只看该用户

这是模拟断网重连的插件???

回顶部
jkl865
头像

jkl865

  • 小学五年级
  • 8988515
  • 104
  • 0
  • 87 朵
  • 105 个
  • 105 个
  • 0
  • 2023-03-10
13#
t T
发表于 2023-04-07 16:15 | |只看该用户

学习33333

回顶部
1530473602
头像

1530473602

  • 初中一年级
  • 3026875
  • 220
  • 0
  • 365 朵
  • 344 个
  • 267 个
  • 0
  • 2015-01-23
14#
t T
发表于 2023-04-11 21:42 | |只看该用户

断开的方案1,使用过后造成断网,请问怎么再换成动态IP(自动获取IP地址/自动获取DNS服务器地址)以实现重连?

回顶部
1530473602
头像

1530473602

  • 初中一年级
  • 3026875
  • 220
  • 0
  • 365 朵
  • 344 个
  • 267 个
  • 0
  • 2015-01-23
15#
t T
发表于 2023-04-11 22:41 | |只看该用户

改IP亲测可行,加了后面恢复IP自动,并运行后,改IP失效了...

Call 改Ip地址("192.168.1.123","255.255.255.0","192.168.1.1")
Sub 改Ip地址(新IP地址,新子网掩码,新网关)
Call Plugin.File.WriteFileEx(".\ChgIP.bat", "netsh interface ip set address name=""本地连接"" source = static addr = " & 新IP地址 &"mask=" & 新子网掩码 &" "&vbcrlf&"netsh interface ip set address name=""本地连接"" gateway = "& 新网关 &" gwmetric =0")
Delay 2000
RunApp ".\ChgIP.bat"
Delay 200
Call Plugin.File.DeleteFile(".\ChgIP.bat")
End Sub

Call 恢复Ip地址自动()
Sub 恢复Ip地址自动()
Call Plugin.File.WriteFileEx(".\ChgIP.bat", "netsh interface ip set address name=""本地连接"" source = DHCP" &"netsh interface ip set dns name=""本地连接"" source = DHCP")
Delay 2000
RunApp ".\ChgIP.bat"
Delay 200
Call Plugin.File.DeleteFile(".\ChgIP.bat")
End Sub

回顶部
1530473602
头像

1530473602

  • 初中一年级
  • 3026875
  • 220
  • 0
  • 365 朵
  • 344 个
  • 267 个
  • 0
  • 2015-01-23
16#
t T
发表于 2023-04-13 08:57 | |只看该用户

百度搜的:win7一键快速切换ip地址脚本
@echo off
rem //设置变量
set NAME=”本地连接”
rem //以下属性值可以根据需要更改
set ADDR=192.168.0.101
set MASK=255.255.255.0
set GATEWAY=192.168.0.1
set DNS1=202.96.209.133
set DNS2=8.8.8.8
rem //以上属性依次为IP地址、子网掩码、网关、首选DNS、备用DNS

echo 当前可用操作有：
echo 1 设置为静态IP
echo 2 设置为动态IP
echo 3 退出
echo 请选择后回车：
set /p operate=
if %operate%==1 goto 1
if %operate%==2 goto 2
if %operate%==3 goto 3

:1
echo 正在设置静态IP，请稍等…
rem //可以根据你的需要更改
echo IP地址 = %ADDR%
echo 掩码 = %MASK%
echo 网关 = %GATEWAY%
netsh interface ipv4 set address name=%NAME% source=static addr=%ADDR% mask=%MASK% gateway=%GATEWAY% gwmetric=0 >nul
echo 首选DNS = %DNS1%
netsh interface ipv4 set dns name=%NAME% source=static addr=%DNS1% register=PRIMARY >nul
echo 备用DNS = %DNS2%
netsh interface ipv4 add dns name=%NAME% addr=%DNS2% index=2 >nul
echo 静态IP已设置！
pause
goto 3

:2
echo 正在设置动态IP，请稍等…
echo 正在从DHCP自动获取IP地址…
netsh interface ip set address “本地连接” dhcp
echo 正在从DHCP自动获取DNS地址…
netsh interface ip set dns “本地连接” dhcp
echo 动态IP已设置！
pause
goto 3

:3
exit

回顶部
1530473602
头像

1530473602

  • 初中一年级
  • 3026875
  • 220
  • 0
  • 365 朵
  • 344 个
  • 267 个
  • 0
  • 2015-01-23
17#
t T
发表于 2023-04-13 09:00 | |只看该用户

修改et_interface=“WLAN”，需调整为实际网卡名称
保存为.bat文件即可。
@echo off

rem 强制获取管理员权限

%1mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

rem //设置变量

set NAME="WLAN"

rem //以下属性值可以根据需要更改

set ADDR=192.168.1.180

set MASK=255.255.255.0

set GATEWAY=

set DNS1=

set DNS2=

rem //以上属性依次为IP地址、子网掩码、网关、首选DNS、备用DNS





echo 当前可用操作有：

echo 1 设置为静态IP

echo 2 设置为动态IP

echo 3 退出

echo 请选择后回车：

set /p operate=

if %operate%==1 goto 1

if %operate%==2 goto 2

if %operate%==3 goto 3





:1

echo 正在设置静态IP，请稍等...

rem //可以根据你的需要更改

echo IP地址 = %ADDR%

echo 掩码 = %MASK%

echo 网关 = %GATEWAY%

netsh interface ipv4 set address %NAME% static %ADDR% %MASK% %GATEWAY%

echo 首选DNS = %DNS1%

if "%DNS1%"=="" (echo DNS1为空) else netsh interface ipv4 set dns %NAME% static %DNS1%

echo 备用DNS = %DNS2%

if "%DNS2%"=="" (echo DNS2为空) else (netsh interface ipv4 add dns %NAME% %DNS2%)

echo **********已设置为静态IP：%ADDR%***********

pause

goto 3





:2

echo 正在设置动态IP，请稍等...

echo 正在从DHCP自动获取IP地址...

netsh interface ip set address %NAME% dhcp

echo 正在从DHCP自动获取DNS地址...

netsh interface ip set dns %NAME% dhcp

echo **********已设置为动态IP地址***********

pause

goto 3





:3

exit



请注意：net_interface=“WLAN”，需调整为实际网卡名称

回顶部
aiyoumai
头像

  • 小学四年级
  • 9003357
  • 80
  • 0
  • 70 朵
  • 95 个
  • 90 个
  • 0
  • 2023-03-29
18#
t T
发表于 2023-04-27 12:33 | |只看该用户

学习一下

回顶部
18710068996
头像

  • 小学一年级
  • 3966780
  • 18
  • 0
  • 5 朵
  • 7 个
  • 6 个
  • 20
  • 2016-06-12
19#
t T
发表于 2023-05-10 14:31 | |只看该用户

谢谢分享

回顶部
Wenil
头像

Wenil

  • 初中二年级
  • 233129
  • 328
  • 0
  • 107 朵
  • 474 个
  • 140 个
  • 5340
  • 2009-03-23
20#
t T
发表于 2023-05-25 10:38 | |只看该用户

好东东！

回顶部
上一主题| 下一主题
返回列表 12
发新话题 回复该主题
高级编辑器高级编辑器