@Noitalommi_2
ja, das hat funktioniert.
Nochmal vielen Dank
Gruß
Helmut
Link mit verschiedenen Browsern öffnen Topic is solved
Moderator: jNizM
Re: Link mit verschiedenen Browsern öffnen
Hallo zusammen,
viele Wege führen nach Rom.
Um noch ein wenig zu lernen habe ich in den letzten Tagen aus den vielen guten Hilfestellungen hier,
alle Beiträge zu meiner Anfrage noch einmal durchgeschaut und daraus eine eigene Version gebastelt,
die auch funktioniert. Ich habe allerdings nur die Firefoxversionen getestet.
Ohne die tolle Hilfe hier wäre ich nicht zu einer Lösung gekommen und möchte mich noch einmal für alle Beiträge bedanken.
Ob "mein Programm" jetzt absolut korrekt ist weiß ich nicht, aber es funktioniert bisher ohne Fehlermeldung.
Gruß
Helmut
viele Wege führen nach Rom.
Um noch ein wenig zu lernen habe ich in den letzten Tagen aus den vielen guten Hilfestellungen hier,
alle Beiträge zu meiner Anfrage noch einmal durchgeschaut und daraus eine eigene Version gebastelt,
die auch funktioniert. Ich habe allerdings nur die Firefoxversionen getestet.
Ohne die tolle Hilfe hier wäre ich nicht zu einer Lösung gekommen und möchte mich noch einmal für alle Beiträge bedanken.
Ob "mein Programm" jetzt absolut korrekt ist weiß ich nicht, aber es funktioniert bisher ohne Fehlermeldung.
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
Gruß
Helmut
Who is online
Users browsing this forum: No registered users and 8 guests