分享一个自己用的小工具，重启TP-Link路由器的，好像还是大学时候写的，献丑了。
其他路由器可能有些不同，但是思路都是差不多的。
user = "admin" '路由器帐号
pass = "admin" '路由器密码
With CreateObject("Msxml2.ServerXMLHTTP")
.open "GET", "http://192.168.1.1/userRpm/SysRebootRpm.htm?Reboot=重启路由器", False, user, pass
.send
End With
MsgBox "命令已发出，60秒内重启完毕。", 64, "重启路由器"