Re: Link mit verschiedenen Browsern öffnen
Posted: 03 Apr 2024, 12:42
@Noitalommi_2
ja, das hat funktioniert.
Nochmal vielen Dank
Gruß
Helmut
ja, das hat funktioniert.
Nochmal vielen Dank
Gruß
Helmut
Let's help each other out
https://www.autohotkey.com/boards/
https://www.autohotkey.com/boards/viewtopic.php?f=9&t=127756
Code: Select all
#Requires Autohotkey v2.0
#SingleInstance Force
Control := "TRxRichEdit1" ;RichEdit-Fenster
Loader := {
Prem:"D:\Programme\Firefox_Premiumize\Firefox_Premiumize.exe",
Fire_T:"D:\Programme\Firefox_T\Firefox_T.exe",
Fire_E:"D:\Programme\Firefox_Ebay\Firefox\firefox.exe",
}
#HotIf WinActive("Scribble Papers")
~LButton::
{
MouseGetPos ,,, &OutputVarControl ; Mausposition
If OutputVarControl = Control &&A_Cursor = "Unknown" ; wenn Cursor über RichEdit-Fenster, Cursor-Art nicht Standard (z.B. Hand,Greifer)
{
Send("{Esc}")
static WinTitle := "ahk_exe ScPapers.exe" ; Programm Scribble Paper
AktZeilenNr := EditGetCurrentLine("TRxRichEdit1", "Scribble Papers") ; Zeilennummer
AktZeilenText := EditGetLine(AktZeilenNr, "TRxRichEdit1", "Scribble Papers") ; komplette Zeile
TeileZeile := StrSplit(AktZeilenText, "||", ) ; Zeile enthält 2 Senkrechtstriche als Separatoren z.B. ||Prem||
If (TeileZeile.Length <2) ; wenn der Link weniger als 2 Teile hat
{
Sleep 200
Click
Sleep 200
WinActivate(WinTitle) ; Gibt den Fokus zurück zu Scribble Papers
Exit
}
Name := Trim(TeileZeile[2], "`r`n") ; Name vom Browser
Adresse := Trim(TeileZeile[1], "`r`n") ; Internetadresse entweder als http oder www, wenn am Zeilenbeginn
if !Loader.HasOwnProp(Name) ;wenn der Name nicht bekannt ist
{
MsgBox "Name unbekannt"
Exit
}
ClipSaved := ClipboardAll() ; Sichert Inhalt des Clipboards
A_Clipboard := "", A_Clipboard := Adresse
Run(Loader.%Name%) ;ruft den Browser auf
if WinWait("ahk_class MozillaWindowClass ",, 1)
WinActivate
Sendinput "^v" ; Strg+V einfügen
sleep 500
send "{Enter}"
sleep 500
A_Clipboard := "", A_Clipboard := ClipSaved, ClipSaved := "" ; Clipboard wiederherstellen
WinActivate(WinTitle) ; Gibt den Fokus zurück zu Scribble Papers.
}
}
#HotIf
^esc::ExitApp ; Strg + esc