XProfan

- Seite 1 -

Rolf
Koch

Hallo Horst,

Niemals wird hier oder im Profan.de Forum über irgendeinen Quelltext gelacht oder hergezogen.
Wenn ich meine Quelltexte aus meinen ersten Profanjahren anschaue, bekomme ich jetzt noch das Schaudern

Gemeckert wird wohl bestimmt nicht!
Gemeckert oder Gelacht wird höchstens, wenn einer meint immer wieder dieselbe Frage stellen zu müssen:
Wie programmiere ich in Profan ein Betriebsystem o.ä.
Aber jeder der es ernst meint und noch nicht so fit ist (dies liegt auch im Auge des Betrachters - denn wer ist schon fit in allen Bereichen?), dem wird Garantiert und ohne Vorbehalt (wenn möglich) geholfen.
Wenn ich z.B . was nicht zu einer Anfrage weis (z.B. SQL oder teilweise auch DB Geschichten), dann versuche ich mich für den Fragenden schlau zu machen oder ich halte lieber die Klappe, denn ich muss nicht zu jedem Beitrag meinen Senf geben. Auch ist natürlich nie gewährleistet, dass ich z.B. immer die richtige Lösung poste. Aber dies ist wiederum doch Menschlich, oder?
Es gibt genügend Leute hier oder im Profan.de Forum, welche dann halt für einen Fragenden die Lösung parat haben.
Aber ich würde ja gerne Dein pw_setup.exe testen, nur leider finde ich die Datei nirgends?

Rolf

- Seite 2 -

Hallo roko
Das ist ja mein Problem:
Hab jetzt schon zweimal versucht, die Datei raufzuschiessen - immer steht in der Statuszeile der Text Anfragen aug XProfan.com , der Fortschrittsbalken füllt sich und das wars - anschliessend friert der Browser (FireFox 1.5) ein
Werde Dir die Datei auf Deine eMail-Adresse schicken
Gruss
horst

pw_setup.zip	806 kB

Kurzbeschreibung:	Von mir hier nachträglich angehängt ;)

Hochgeladen:	09.02.2006

Ladeanzahl:
		Herunterladen

Rolf
Koch

Ich hab die Datei jetzt hochgeladen.
Horst, es war zwar ne gepackte aber trotzdem mit der Extension *exe.
Ich hab diese in eine Zip gepackt und schwupp, wurde hochgeladen.

Rolf

Rolf
Koch

Hey Horst,

also im Ernst. Ich wüsste jetzt nicht, wieso überhaupt bei diesem Tool einer Mosern oder Lachen sollte.
Ich finde es kommt ganz gut rüber.
Es gibt wirklich nichts, was ich auf Anhieb sehe, was total verbaut ist.
Natürlich ein paar Anregungen

- Du rufst den Eingabedialog als seperaten Dialog auf.
Wie wäre es, wenn Du anstatt desen alle Edits u.s.w auf einem Static erstellst und dieses dann über dem Beschreibungstext ein und ausblendest? Also kompakter?

- Mit der Zwischenablage auch ne feine Sache.
Eine Idee wäre, solange das Programm läuft Systemweit ein paar Hotkeys bereitzustellen um dann die einzelnen Inhalte in der Zwischenablage per Hotkey in die Zielanwendung zu kopieren.

Ansonsten: Coole Laufschrift, woher haste die *LOOOOOOLLLLL*

Nee im Ernst ist gut gelungen bis jetzt!!!

Rolf

Hallo ROKO
>>>- Mit der Zwischenablage auch ne feine Sache.
Eine Idee wäre, solange das Programm läuft Systemweit ein paar Hotkeys bereitzustellen um dann die einzelnen Inhalte in der Zwischenablage per Hotkey in die Zielanwendung zu kopieren.<<<
Wenn Du mir da mal einen Tipp gibst - stehe nämlich aufm Schlauch, was Du da meinst ?

>>>Ansonsten: Coole Laufschrift, woher haste die *LOOOOOOLLLLL* <<<
Hab ich mir doch gedacht, dass Du Dein Werk erkennst

Gruss
horst

Rolf
Koch

So Horst,

hab mir mal einiges zusammengekramt und eine Vorlage erstellt.
Lass den Code mal laufen, gehe in Fremdanwendungen und klicke in ein Editfeld.
Dort dann eine der Tasten F2, F3 oder F4 drücken.
Und schon hast Du aus der Zwischenablage eine vordefinierte Zeile dort drin.
Hoffe es läuft so, denn bei mir gehts einwandfrei.
Müsstest Du halt ein bisschen studieren und Deiner Anwendung anpassen, aber ist nicht schwer.
Kompilieren Markieren Separieren

* diese Sachen sind von Andreas Miethe
Declare clip$
DEF RegisterHotKey(4)      ! USER32,RegisterHotKey *
DEF UnregisterHotKey(2)    ! USER32,UnregisterHotKey *
Def GetCursorPos(1) !USER32,GetCursorPos
DEF WindowFromPoint(2) !USER32,WindowFromPoint
Def ScreenToClient(2) !USER32,ScreenToClient
DEF &WM_HOTKEY $0312 *

PROC SETZE_TEXT ein paar Teile hier aus Vorlagen von Frank Abbing ;)

    Parameters infield$
    declare x&,y&,be#,erg&,erg2&
    Dim be#,8
    Setactivewindow(getactivewindow())
    sleep 200
    GetCursorPos(be#)
    x&=Long(be#,0)
    y&=Long(be#,4)
    erg&=WindowFromPoint(x&,y&)

    If erg&<>0

        ScreenToClient(erg&,be#)
        x&=Long(be#,0)
        y&=Long(be#,4)
        erg2&=getactivewindow()
        @ChildWindowFromPoint(erg&,x&,y&)
        sendstring(erg2&,infield$)

    EndIf

    dispose be#

ENDPROC

UserMessages &WM_HOTKEY *
CLS
Print Bitte irgendeine Anwendung öffnen um per
Print - Taste F2 Zeile 1 des Clipbords einzufügen
Print - Taste F3 Zeile 2 des Clipbords einzufügen
Print - Taste F4 Zeile 3 des Clipbords einzufügen
Clearclip
Putclip Zeile 1 aus Clipboard+|+Zeile 2 aus Clipboard+|+Zeile 3 aus Clipboard
RegisterHotKey(%HWND,1,0,113)Handle,HotkeyID,Key-Modifier,F2 *
RegisterHotKey(%HWND,2,0,114)Handle,HotkeyID,Key-Modifier,F3 *
RegisterHotKey(%HWND,3,0,115)Handle,HotkeyID,Key-Modifier,F4 *

WHILE 1

    Waitinput
    clip$=getclip$()

    If %Umessage = &WM_HOTKEY *

        messagebox(str$(&wparam),,0)

        If &wparam = 1

            Setze_Text substr$(clip$,1,|)

        Elseif &wparam = 2

            Setze_Text substr$(clip$,2,|)

        Elseif &wparam = 3

            Setze_Text substr$(clip$,3,|)

        Endif

    Endif

WEND

UnRegisterHotKey(%Hwnd,1) *
UnRegisterHotKey(%Hwnd,2) *
UnRegisterHotKey(%Hwnd,3) *

Rolf

Torsten
Rümker

Es ist schon echt praktisch hier überall mitzulesen ;)
Ich habe gerade entdeckt, das der Code von dir ein Problem löst, das ich bisher gar nicht hatte!

Ich wußte ja gar nicht das es so einfach ist Systemweite Hotkeys zu definieren.

Das muß ich gleich mal überprüfen ob ich das vielleicht verbaue

Da fällt mir ein, kann man eigentlich auch Tastenkombinationen als Hotkey nutzen?
Ich meine, wie müßte ich denn
Kompilieren Markieren Separieren

RegisterHotKey(%HWND,1,0,113)Handle,HotkeyID,Key-Modifier,F2 *

verändern damit das geht, weil in der Funktion sind ja so ohne weiteres, wenn ich das richtig verstehe nicht unbedingt Tastenkombinationen geplant.

Oder reicht es wenn ich die Abfrage entsprechend gestaltet?
So nach dem Motto:
WENN: Hotkey X UND Hotkey Y
DANN: welche Funktion auch immer.

MfG
Torsten Rümker

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

Zuerst mal Grossen Dank an Dich ROKO
Die Idee mit den Tastenkombinationen hatte ich auch schon, aber es klappt nicht.

Gruss
horst

10.02.2006 ▲

Rolf
Koch

Hi Horst,

komisch ich hab es sogar gerade unter Win98 getestet da funktioniert es.
@Torsten
Wenn ich Zeit habe kucke ich mal. Aber vielleicht stösst ja Andreas Miethe auf diesen Beitrag und der zaubert sowas schnell aus der Feder.

Nachtrag:
Hab grad unter MSDN geschaut.
Der dritte Parameter ist wichtig für eine Tastenkombination.

fsModifiers
[in] Specifies keys that must be pressed in combination with the key specified by the uVirtKey parameter in order to generate the WM_HOTKEY message. The fsModifiers parameter can be a combination of the following values.
MOD_ALT
Either ALT key must be held down.
MOD_CONTROL
Either CTRL key must be held down.
MOD_SHIFT
Either SHIFT key must be held down.
MOD_WIN
Either WINDOWS key was held down. These keys are labeled with the Microsoft Windows logo.
vk
[in] Specifies the virtual-key code of the hot key.
Return Value

Also bei mir hat folgendes funktioniert grad beim Testen.
Zum Beispiel: F2+Alt

Registerhotkey(%Hwnd,1,1,113)Handle,HotkeyID,Key-Modifier,F2 *

Rolf

10.02.2006 ▲

Torsten
Rümker

Rolf Koch

Nachtrag:
Hab grad unter MSDN geschaut.

Alleine dieser Satz trifft ja schon wieder nen Nerv bei mir

Vielleicht sollte ich mir das in solchen Fällen auch mal angewöhnen.
Ich danke dir auf jeden Fall fürs Arbeit abnehmen.

*Händereib* Jetzt muß ich das nur noch sauber einbauen.
Ich glaub ich nehme dieses Jahr an dem Wettbewerb teil

letztes Jahr war es einfach noch nicht so weit.

MfG
Torsten Rümker

Ich lerne, ob ich will oder nicht!
Betriebssystem:
- Ubuntu 15.x
- Windows (diverse)
XProfan Version: X2

10.02.2006 ▲

Michael
Wodrich

Hallo Horst,

tolles Programm.

Das funktionslose (c) muß aber nicht sein. Hier mal auf die Schnelle ein Ausriß aus einem funktionierenden Copyright-Verbieger.
Kompilieren Markieren Separieren

WindowStyle 1 | 2 | 8 | 16  Copyright-Zeichen entfernen
Window ...
...
AppendMenuBar 254,Chr$($A9) Copyright-Zeichen
PopUp &Datei
AppendMenu 101,&Neu
...
While...
WaitInput

If MenuItem(101)

    ...

ElseIf MenuItem(254)

    PlaySound c:\windows\media\notify.wav,0

EndIf

EndWhile

...

Der Style 16 läßt das Copyright-Zeichen (und Rolands Meldung) verschwinden.

AppendMenuBar zaubert es wieder hervor. Die Zahl 254 für die Reaktion auf das Copyright-Zeichen habe ich so gelassen.

Jetzt läßt sich dort z.B. Dein Info-Dialog einsetzen.

Komplettbeispiel mit einfachem Sound auf Knopfdruck siehe hier:
[...]

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

12.02.2006 ▲

Danke Michael

Das Programm war in der hier vorliegenden Version noch nicht komplett fertig. Im Moment habe ich Frank Abbing gebeten, die fertige Version zu testen. Sollte er auch (ROKO hat schon) grünes Licht geben, wird die aktuelle Version hochgeladen. Da ist auch Copyright mit angezeigt. (die Roland-Meldung erscheint im EXE-Programm nicht) zusätzlich ist ein Hilfetext intregiert.
Guss
horst

13.02.2006 ▲