脚本切换ip

❶ 按键小精灵怎样编写换IP刷新网页脚本

//使用adsl获取不同ip地址
'自定义变量NowToday，存放当前的年月日
Dim NowToday
'获取当前年月日
NowToday = date
'获取当前昨天的年月日
NowYesterday = dateadd("d", -1 , date)
'如果昨天建立的IP文件存在，就删除
IsFile = Plugin.File.IsFileExit("c:\ip" & NowYesterday & ".txt")
If IsFile = True Then
Call Plugin.File.DeleteFile("c:\ip\" & NowYesterday & ".txt")
End If
'获取当前的Ip地址
Call Plugin.Web.ClearTemp
FirstIp = Lib.网络.获得外网IP地址()
'判断今天的IP地址文件是否已经创建，如果已创建，判断现在的IP地址是否与已保存的有重复，不重复追加写入
IsFile = Plugin.File.IsFileExit("c:\ip\" & NowToday & ".txt")
'如果今天的IP地址文件已经创建
If IsFile = True Then
lines = 1
IpIsSaved = false
SavedIp = lib.文件.读取指定行文本内容("c:\ip\" & NowToday & ".txt",lines)
'从第一行开始读取每行IP地址，判断是否当前IP地址是否使用过；
While SavedIp <> "溢出！" and IpIsSaved = false
'如果找到与当前IP相同的IP，则该IP已使用过，不再继续查找
If FirstIp = SavedIp Then
IpIsSaved = true
Else
lines = lines + 1
SavedIp = lib.文件.读取指定行文本内容("c:\ip\" & NowToday & ".txt",lines)
End If
Wend
'如果当前IP地址未使用过，则保存该IP地址
If IpIsSaved = false Then
Call Plugin.File.WriteFileEx("c:\ip\" & NowToday & ".txt", FirstIp)
End If
Else '如果今天的IP地址文件尚未创建
'创建今天的IP地址文件并保存当前的IP地址
Call Plugin.File.WriteFileEx("c:\ip\" & NowToday & ".txt", FirstIp)
End If
Call ReLink
EndScript
//重新连接网络过程
Sub ReLink
'断开连接
Rem 断开
call Plugin.Net.HangUp
Delay 200
Rem 拨号
OnLine = Plugin.Net.DialUp("宽带连接")
If OnLine = False Then
Delay 1000
Goto 拨号
End If
Call Plugin.Web.ClearTemp
'获取重新拨号后的IP地址
NowIp = Lib.网络.获得外网IP地址()
'从当前日的IP文件中逐行读取已保存的IP地址，并检查重新拨号后的IP地址是否使用过
lines = 1
IpIsSaved = false
SavedIp = lib.文件.读取指定行文本内容("c:\ip\" & NowToday & ".txt",lines)
'从第一行开始读取每行IP地址，判断是否当前IP地址是否使用过；
While SavedIp <> "溢出！" and IpIsSaved = false
'如果找到与当前IP相同的IP，则该IP已使用过，不再继续查找
If NowIp = SavedIp Then
IpIsSaved = true
Else
lines = lines + 1
SavedIp = lib.文件.读取指定行文本内容("c:\ip\" & NowToday & ".txt",lines)
End If
Wend
'如果拨号后的IP地址未使用过，则保存该IP地址
If IpIsSaved = false Then
Call Plugin.File.WriteFileEx("c:\ip\" & NowToday & ".txt", NowIp)
Else
'如果拨号后的IP地址已经使用过，重新断开拨号
Goto 断开
End If
End Sub

❷ 借助脚本来修改IP地址

在Windows下可以通过编写脚本快速修改IP地址，具体操作方法和内容如下：

1. 脚本基本框架：

   • 使用批处理文件作为脚本格式。
   • 脚本开头通常包含@echo off来关闭命令回显。

2. 脚本功能选项：

   • Wlan：
     • 设置为WiFi DHCP。
     • 设置WiFi静态公网IP。
   • Ethernet：
     • 设置Ethernet为DHCP方式。
     • 设置Ethernet静态公网IP。
   • IP地址自定义：
     • 用户可以自定义IP地址、子网掩码、默认网关以及DNS服务器。
   • 清理DNS缓存：
     • 使用ipconfig /flushdns命令清理DNS缓存。
   • 开启或关闭WIFI热点：
     • 通过netsh wlan start hostednetwork和netsh wlan stop hostednetwork命令开启或关闭WIFI热点。
   • IP地址信息：
     • 显示当前IP地址信息，使用ipconfig /all命令。
   • Exit：
     • 退出脚本。

3. 脚本执行流程：

   • 脚本首先显示功能菜单，用户根据需求输入选项序号。
   • 根据用户输入，脚本跳转到相应的功能块执行。
   • 执行完成后，脚本通常会返回到主菜单或退出。

4. 注意事项：

   • 在设置静态IP时，需要确保输入的IP地址、子网掩码、默认网关和DNS服务器是有效的，且不会与网络中其他设备冲突。
   • 清理DNS缓存和开启/关闭WIFI热点等操作可能需要管理员权限，因此脚本可能需要以管理员身份运行。
   • 脚本中的netsh命令是Windows内置的网络配置命令，用于修改网络适配器设置、管理WIFI网络等。

通过编写这样的脚本，用户可以快速方便地切换IP地址设置，满足不同的网络需求。