Question

让我先说一下，我的脚本/编程知识非常少：）

我的问题是，我有一个呼叫中心仪表板的网页，用于投影仪。该网页位于内部网络服务器上。

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

当网页地址更改为错误页面时，我需要关闭Chrome（或Firefox），例如：从localsite.local / page到localsite.local / error

我使用Auto-IT-Au3Record和SciTe记录页面超时时的鼠标点击次数。

这在某些PC上运行良好，但不是全部。有没有我可以运行的通用脚本，因此，我不必在所有PC上记录鼠标点击次数。

当前工作脚本

#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

Internet Explorer是程序员工具。

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。由于历史原因，它包括Explorer和IE窗口。

另一个属性是window.locationURL。

根据地址栏中的链接关闭chrome

1 个答案: