Login 每90分钟登录一次WIFI的任何脚本

我不是在找黑客。我家里有wifi，但我每90分钟就会断开一次连接，必须按enter键才能返回。我一直在努力尝试写一些东西，它会悄悄地打开一个窗口，等待它加载，按{enter}，然后关闭窗口。 理想情况下，我会让它在一个循环中每90分钟运行一次，但只使用windows调度器就可以了

这是我迄今为止失败的尝试。VBS

    Dim oIE

Set oIE = CreateObject("InternetExplorer.Application")
set objShell = WScript.CreateObject("WScript.Shell")

oIE.Visible = 1 ' Usually Hidden

oIE.Navigate "http://www.autohotkey.com"' anysite will work as if I'm logged out I will be automatically redirected to login

Do While (oIE.Busy)
Wscript.Sleep (10)
Loop

ObjShell.SendKeys "{enter}"

Do While (oIE.Busy)
Wscript.Sleep (10)
Loop

ObjShell.sendkeys "^W"

Wscript.Sleep (5400000)

所有这一切所做的就是打开新的页面而不延迟。 我看过一些更复杂的版本，我试过了，但没有任何效果。

---

我非常感谢您的帮助，任何格式都可以，只要它能完成任务。

这里有一个代码，您可以尝试

set WshShell = WScript.CreateObject("WScript.Shell")
call WshShell.Run("http://www.gmail.com", 1, false) 'This will open your default browser

WScript.Sleep 3000
WshShell.SendKeys "username"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "password"
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "%{F4}"
WScript.Quit()

试试这个。它起作用了

---

你只需要等它运行。它打开的浏览器应处于活动状态，然后发送键将键入用户名、密码，输入，然后关闭窗口。

此脚本的逻辑依赖于一些恒定条件：1您的浏览器记住此站点的用户名/密码，并且此输入字段已填入正确的数据，2“提交”按钮处于焦点位置。如果不满足这些条件中的任何一个，您将需要添加额外的代码，而不仅仅是输入。发送密钥的问题是，您应该让要发送密钥的窗口处于活动状态，否则在我键入此项时，它会将密钥发送到当前活动窗口，例如浏览器。