XProfan

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Einfach:
Kompilieren Markieren Separieren

SetWindowPos %hWnd=x,y - xx,yy;-1'<-- letzter Parameter -1 !

24.10.2010 ▲

E.T.

WindowStyle beachten !!
Dein Fenster kann mit Alt+Tab verlassen werden !!

(siehe Hilfe: WindowStyle:
...
128 - Das Programm kann weder mit <Strg-Esc>, <Alt-Tab> noch <Alt-F4> verlassen werden
...)

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

24.10.2010 ▲

maxpayne2001

iF (24.10.10)

Einfach:
Kompilieren Markieren Separieren

SetWindowPos %hWnd=x,y - xx,yy;-1'<-- letzter Parameter -1 !

Wenn ich den Befehl WindowStyle 128 verwende, wird die Titelleiste angezeigt. das Programm soll keine Titelleiste haben. Weiterhin taucht beim drücken von <ALT+TAB> die Taskleiste auf. Gibt es die Möglichkeit dies zu verhindern?

25.10.2010 ▲

Unbenannt (25.10.10)

Wenn ich den Befehl WindowStyle 128 verwende, wird die Titelleiste angezeigt. das Programm soll keine Titelleiste haben.

Einfach gewünschte Stile (der Hilfedatei zu entnehmen) addieren.

Unbenannt (25.10.10)

Weiterhin taucht beim drücken von <ALT+TAB> die Taskleiste auf. Gibt es die Möglichkeit dies zu verhindern?

Grundsätzlich nein aber im Detail hängts von ab was das genau werden soll...

25.10.2010 ▲

E.T.

Nur so nebenbei entstanden:
Kompilieren Markieren Separieren

SET("ERRORLEVEL",0)
SET("TRUECOLOR",0)
 $I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE ENDE%,FirmenLogo&,Bild&,chbText%
DECLARE DLG&,edbUser&,edbPW&,chbUser&
DECLARE btnLogin&,btnLogout&

PROC Fenster

    WINDOWSTYLE 16+64+128
    WINDOWTITLE "Windows SecondLogin"
    WINDOW %MaxX,%MaxY
    CLS @RGB(0,0,255)
    USEFONT "MS Sans Serif",13,0,0,0,0
    DLG& = @Control("Dialog","",$54000000,(%maxX/2 - 200),(%maxY/2 - 50),400,110,%HWnd,1,%HInstance)
    @CREATE("GroupBox",DLG&,"Second Login",5,5,390,100)
    SETDIALOGFONT 1
    @Create("Text",DLG&,"Benutzername :",10,30,80,15)
    @CREATE("TEXT",DLG&,"Passwort :",10,60,100,20)
    edbPW& = @CREATE("EDIT",DLG&,"",90,55,150,-20)
    btnLogin& = @CREATE("BUTTON",DLG&,"&Login",10,80,230,20)
    btnLogout& = @CREATE("BUTTON",DLG&,"L&ogout",245,25,145,20)

    If chbText% = 0

        edbUser& = @CREATE("EDIT",DLG&,"",90,25,150,20)

    ElseIf chbText% = 1

        chbUser& = @CREATE("CHOICEBOX",DLG&,"",90,25,150,75)

    EndIf

    'FirmenLogo& = @CREATE("HPic", -1, "FLogo.jpg")
    'DrawSizedPic FirmenLogo&, 0, 0 - %MaxX, %MaxY; 0
    'StartPaint DLG&
    'Bild& = @CREATE("HPic", -1, "FLogo2.jpg")
    'DrawSizedPic Bild&, 245,30 - 145, 45; 0
    'EndPaint

ENDPROC

PROC MainMenu

    'EnableWindow %Hwnd,0'???

    WHILENOT ENDE%

        WAITINPUT

        If %KEY=2

            ENDE%= 1

        ELSEIF @CLICKED(btnLogin&)

        ELSEIF @CLICKED(btnLogout&)

            ENDE%=1

        ENDIF

    ENDWHILE

ENDPROC

chbText%=0
Fenster
MainMenu
end

Nebenbei bemerkt: Irgendwie greift der WindowStyle 128 nicht. (XP 12ß-R1) Mal schauen, warum...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

26.10.2010 ▲

E.T.

Aahhh,
mit
Kompilieren Markieren Separieren

...
WINDOW %MaxX,%MaxY
SetWindowPos %HWnd = 0,0 - %MaxX,%MaxY;-1
...

wirds TOP-MOST, reagiert aber immer noch auf Alt+Tab...

... aber ist schon erstmal wenigstens so penetrant, nicht wech zu gehen

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

26.10.2010 ▲

maxpayne2001

Hallo.

Ihr habt mich gefragt, wofür dieses Programm gut sein sollte.

Ersteinmal Danke ich euch für euere Hilfe.

Problem wo durch dieses Programm entstehen muss:
Im Internet hat ein Freund von mir einen Root-Server, der von einem Provider gestellt wird. In den letzten zwei Monaten hatten wir auf den Server mehrere Eindringlinge gehabt. Der Root-Server steht mit dem BBS Microsoft Windows Server 2008 RC2 x64 zur Verfügung.

Wir haben den Server jetzt mittlerweile 5mal neu installieren müssen.
Irgendwie haben wir aber keine Lust mehr darauf immer jedes mal der Server neu zu installeren. Achja eine Firewall war auch installiert. Jedoch hat der Hacker die Remotkennwörter jedesmal überschrieben.

Wir loggen uns immer auf dem Server mit dem Remotedesktop von Microsoft Windows ein. Ich habe zwar schon etwas anderes vorgeschlagen, aber mein Freund meinte, dass er nur den Remotedesktop verwenden will, da die anderen Möglichkeiten nicht funktioniert haben.

Ich dachte mir dann, naja, Remotedesktop alles wunderbar, die Kennwörter können überschreiben werden, aber ich will das so einrichten, wenn sich jemand einloggt, dass automatisch dieses Programm gestartet wird und nach dem Benutzer und nach dem Kennwort fragt, dass nicht das gleiche sein wird, wie es der Benutzer bei der Remoteanmeldung ist.

Gibt der Nutzer das Passwort dreimal falsch ein oder die Zeit zum eingeben verstreicht, wird der Remotedesktop beendet, da der Nutzer sofort ausgeloggt wird.

So jetzt wisst dir, warum ich dieses Programm hier schreibe.

Hier noch ein paar Fragen:

1. Ist es möglich den aktuellen eingeloggten Benutzer ausfindig zu machen?
2. Kann ich die IP-Adresse des aktuellen eingeloggten Benutzers ermitteln?
3. Wäre es möglich, die Passwort-Dateien von Windows wieder zurück zu schreiben zu lassen, wenn der Nutzer das Passwort mehrmals falsch eingegeben hat und wenn ich vorher eine Kopie durch dieses Programm erstellt habe?

Ich bin schon sehr gespannt auf euere Antworten.

LG

Hi,

das klingt eher danach ein Atomkraftwerk mit einer Schnur reparieren zu wollen.

(nicht das das nicht möglich wäre, aber...)

Schau mal vlt.: [...]

ByteAttack

iF (27.10.10)

Hi,

das klingt eher danach ein Atomkraftwerk mit einer Schnur reparieren zu wollen.

(nicht das das nicht möglich wäre, aber...)

Du hast wohl nie MacGyver gesehen? Der kann das !!!

Website: [...]

Facebook: [...]

E.T.

iF (27.10.10)
Hi,

das klingt eher danach ein Atomkraftwerk mit einer Schnur reparieren zu wollen.

(nicht das das nicht möglich wäre, aber...)

Du hast wohl nie MacGyver gesehen? Der kann das !!!

Aber nur mit 'ner Schnur auch nicht !!
Ein Kaugummi muss immer mit dabei sein...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...