2016-07-04 11 views
0

Lassen Sie mich beginnen mit ich sehr wenig Wissen Scripting/Programmierung haben :)Schließen Chrom auf den Link in der Adresszeile abhängig

Mein Problem ist, ich habe eine Web-Seite für Armaturenbrett in Call-Center, die Projektoren abläuft. Die Webseite befindet sich auf dem internen Webserver.

Die Web-Seite überschreitet das Zeitlimit und erzeugt einen Fehler.

Ich brauche Chrome (oder Firefox) zu schließen, wenn eine Web-Seite Adresse ändert Seite zB zum Fehler: von localsite.local/Seite localsite.local/Fehler

Ich benutzen Auto-IT Au3Record und SciTe zu Zeichnen Sie Mausklicks auf, wenn die Zeitüberschreitung der Seite auftritt.

Dies funktioniert auf einigen PCs, aber nicht alle. Gibt es ein generisches Skript, das ich ausführen könnte, , so muss ich keine Mausklicks auf allen PCs aufzeichnen.

aktuelle Arbeits Skript

#region --- Au3Recorder generated code Start (v3.3.9.5  KeyboardLayout=00000809) --- 
#region --- Internal functions Au3Recorder Start --- 
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() 
#endregion --- Internal functions Au3Recorder End --- 

_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 --- Au3Recorder generated code End --- 
+1

Wie funktioniert es nicht (auf manchen PCs)? Möglicherweise eine andere Bildschirmauflösung? (Hinweis: Verwenden Sie "primär" statt "links", um auch für Linkshänder zu arbeiten) Wenn möglich, entfernen Sie Mausemulationen. Windows kann (fast) vollständig mit Tastenanschlägen bedient werden. – Stephan

+0

Es scheint auf Windows 7 zu funktionieren, aber nicht so gut auf Windows 8.1. Krank geben Sie die Tastenanschläge wieder los. aber ich hatte gehofft universal strikt um auf der ganzen Linie zu arbeiten – Kenster

Antwort

0

Internet Explorer ist das Programmierer-Tool.

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 

Dies ist ein VBScript. Aus historischen Gründen enthält es sowohl Explorer- als auch IE-Fenster.

Eine weitere Eigenschaft ist window.locationURL.

+0

Danke, aber ich brauche Chrom zu verwenden, ist das System Design in Chrom anzuzeigen. – Kenster