Link mit verschiedenen Browsern öffnen Topic is solved

[Helmut2]

@Noitalommi_2

ja, das hat funktioniert.
Nochmal vielen Dank

Gruß
Helmut

[Helmut2]

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.

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