根据在地址栏链接关闭铬

Question

让我先从我很少有脚本/编程知识:)

我的问题是，我有一个网页在运行过投影机的呼叫中心的仪表板。该网页是内部Web服务器上。

该网页超时随机产生错误。

我需要关闭浏览器（或Firefox）当一个网页地址更改错误页面如：从localsite.local /页面localsite.local /错误

我用自动IT- Au3Record和赛特记录的网页时超时鼠标点击。

这适用于某些电脑而不是全部罚款。有没有一个通用的脚本，我可以运行，这样我就不必在所有电脑上记录鼠标点击。

当前工作的脚本

#Region v3.3.9.5 KeyboardLayout=00000809
Func _Au3RecordSetup() 
    Opt('WinWaitDelay',100)
    Opt('WinDetectHiddenText',1)
    Opt('MouseCoordMode',0)

    Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')

    If $aResult[1] <> '00000809' Then
        MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000809->' & $aResult[1] & ')')
    EndIf
EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

_AU3RecordSetup()

_WinWaitActivate("Website.com/site/Main_Dash_Reporting.aspx - Google Chrome","")
MouseClick("left",1342,14,1)

_WinWaitActivate("Program Manager","")
MouseClick("left",282,746,1)

_WinWaitActivate("Website.com/site/Dash_Viewer.aspx?DashID=5200&RevNum=null - Google Chrome","")
MouseMove(702,311)
MouseDown("left")
MouseMove(707,310)
MouseUp("left")
#EndRegion

Answer 1

互联网浏览器是程序员的工具。

Set objShell = CreateObject("Shell.Application")
Set AllWindows = objShell.Windows
For Each window in AllWindows
    msgbox window.locationname
    If window.locationname="Scripts" then window.quit
Next

这是一个VBScript。由于历史的原因，包括浏览器和IE浏览器窗口。

另一个特性是window.locationURL。