PureBoard

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         

Code: Alles auswählen

RunProgram(Seite$)