MSBefehl_ Hilfe suchen

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
juergenkulow
Beiträge: 188
Registriert: 22.12.2016 12:49
Wohnort: :D_üsseldorf-Wersten

MSBefehl_ Hilfe suchen

Beitrag von juergenkulow »

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         
Bitte stelle Deine Fragen, denn den Erkenntnisapparat einschalten entscheidet über das einzig bekannte Leben im Universum.

Jürgen Kulow Wersten :D_üsseldorf NRW D Europa Erde Sonnensystem Lokale_Flocke Lokale_Blase Orion-Arm
Milchstraße Lokale_Gruppe Virgo-Superhaufen Laniakea Sichtbares_Universum
Benutzeravatar
RSBasic
Admin
Beiträge: 8022
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: MSBefehl_ Hilfe suchen

Beitrag von RSBasic »

Ich hatte zwar noch nie Probleme beim Googlen (einfach "<api> msdn"), dann findet man immer die richtige Seite, aber als PB-Werkzeug kann das schon für einige User hilfreich sein.
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Benutzeravatar
Bisonte
Beiträge: 2427
Registriert: 01.04.2007 20:18

Re: MSBefehl_ Hilfe suchen

Beitrag von Bisonte »

Ich nutze seit Jahren das Tool "ALT F1" von chi. Es durchsucht ebenfalls die PB Foren nach dem "Wort unter dem Cursor" wenn es gewünscht ist.

Allerdings ist es interessant den Quellcode zu sehen ;)

Als Verbesserungsvorschlag :

Wenn du die "Suchseite" direkt im RunProgram() als ersten Parameter nimmst, wird eigentlich (zumindest bei Windows) der Default Browser
geöffnet. Dann hast du keine Probleme mit irgendwelchen Pfaden die evt. nicht stimmen....

Code: Alles auswählen

RunProgram(Seite$)
PureBasic 6.04 LTS (Windows x86/x64) | Windows10 Pro x64 | Asus TUF X570 Gaming Plus | R9 5900X | 64GB RAM | GeForce RTX 3080 TI iChill X4 | HAF XF Evo | build by vannicom​​
Antworten