Code: Alles auswählen
; MSBefehl_ Hilfe suchen
; Ruft die Google-Suche zu Microsoft-Hilfe(MSDN) in deutsch und englisch
; mit dem Inhalt der Zwischenablage(Strg-C) auf.
; Aufruf in meiner PureBasic-IDE mit Str+Alt+H,
; eingestellt mit Werkzeuge "Werkzeuge konfiguieren..."
; offen
; MACOS Browser und Browserverzeichnis, vieleicht ist noch ein weiterer Parameter nötig.
; LINUX Browser und Browserverzeichnis, vieleicht ist noch ein weiterer Parameter nötig.
; Edge
; weitere Browser
; Anpassungen, wenn der Browser in anderen Verzeichnissen gespeichert ist.
EnableExplicit
Define SucheFunktion$=GetClipboardText()
Define Browser$
Define BrowserVerzeichnis$
If ""=SucheFunktion$ Or SucheFunktion$=Space(Len(SucheFunktion$))
SucheFunktion$="VirtualAlloc"
EndIf
If Right(SucheFunktion$,1)="_"
SucheFunktion$=Left(SucheFunktion$,Len(SucheFunktion$)-1 )
EndIf
SucheFunktion$=InputRequester("MSBefehl_ Hilfe suchen",
"Zu suchender Befehl:",
SucheFunktion$)
Define Seite$="https://www.google.de/search?q="+
SucheFunktion$+
"+site%3Ahttps%3A%2F%2Fmsdn.microsoft.com%2Fen-us&btnG=Suche&lr="
Define SeiteDeutsch$="https://www.google.de/search?q="+
SucheFunktion$+
"+site%3Ahttps%3A%2F%2Fmsdn.microsoft.com%2Fde-de&btnG=Suche&lr="
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
Browser$="iexplore.exe"
BrowserVerzeichnis$="C:\Program Files\Internet Explorer\"
If FileSize(BrowserVerzeichnis$+Browser$)<=0 ; Wenn es die Browser-Datei nicht gibt?
Browser$="firefox.exe"
BrowserVerzeichnis$="C:\Program Files\Mozilla Firefox\"
EndIf
CompilerCase #PB_OS_MacOS
Browser$$=""
BrowserVerzeichnis$=""
CompilerCase #PB_OS_Linux
Browser$$=""
BrowserVerzeichnis$=""
CompilerEndSelect
If FileSize(BrowserVerzeichnis$+Browser$)<=0
MessageRequester("Fataler Fehler","Browser Datei nicht gefunden.")
End
EndIf
If 0=RunProgram(Browser$,Seite$,BrowserVerzeichnis$)
MessageRequester("Fataler Fehler","Browser konnte nicht gestarted werden.")
EndIf
If 0=RunProgram(Browser$,SeiteDeutsch$,BrowserVerzeichnis$)
MessageRequester("Fataler Fehler",
"Browser mit deutscher Seite konnte nicht gestarted werden.")
EndIf
End