XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

simple:
Kompilieren Marque Séparation

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

24.10.2010 ▲

E.T.

Fenêtre Style tenir compte de !!
Dein la fenêtre peux avec vieux+Tab sortir de volonté !!

(siehe Aider: Fenêtre Style:
...
128 - cela Programme peux weder avec <Strg-Esc>, <Alt-Tab> encore <Alt-F4> sortir de volonté
...)

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)

simple:
Kompilieren Marque Séparation

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

si Je l' Befehl Fenêtre Style 128 verwende, wird qui Titelleiste angezeigt. cela Programme soll aucun Titelleiste avons. Weiterhin taucht beim drücken de <ALT+TAB> qui Taskleiste sur. Gibt es qui Possibilité ca trop verhindern?

25.10.2010 ▲

Unbenannt (25.10.10)

si Je l' Befehl Fenêtre Style 128 verwende, wird qui Titelleiste angezeigt. cela Programme soll aucun Titelleiste avons.

simple gewünschte Stile (qui Hilfedatei trop entnehmen) addieren.

Unbenannt (25.10.10)

Weiterhin taucht beim drücken de <ALT+TAB> qui Taskleiste sur. Gibt es qui Possibilité ca trop verhindern?

Grundsätzlich non mais im Detail hängts de ab quoi cela oui c'est ca volonté soll...

25.10.2010 ▲

E.T.

seulement so nebenbei entstanden:
Kompilieren Marque Séparation

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
MainMenuclass=s4 href='./../../funktionsreferenzen/XProfan/end/'>end

Nebenbei bemerkt: Irgendwie greift qui Fenêtre Style 128 pas. (XP 12ß-R1) la fois regarder, pourquoi...

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,
avec
Kompilieren Marque Séparation

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

pre>

wirds TOP-MOST, reagiert mais toujours sur vieux+Tab...

... mais ist déjà erstmal wenigstens so pénétrant, pas wech pour aller

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

allô.

vous avez mich gefragt, wofür cet Programme bien son sollte.

Ersteinmal merci je euch pour euere Aider.

Problem wohin par cet Programme entstehen muss:
Im Internet hat un ami de mir une Racine-Server, qui de einem Provider gestellt wird. dans den letzten deux Monaten hatten wir sur den Server plusieurs Eindringlinge gehabt. qui Racine-Server steht avec dem BBS Microsoft Windows Server 2008 RC2 x64 zur Disposition.

c'est le Server maintenant mittlerweile 5la fois récente installer doit.
Irgendwie avons wir mais aucun Lust plus puis toujours chaque la fois qui Server récente trop installeren. Achja une Firewall était aussi installiert. cependant hat qui Hacker qui Remotkennwörter chaque fois überschrieben.

Wir loggen uns toujours sur dem Server avec dem Remotedesktop de Microsoft Windows un. j'ai zwar déjà autre chose vorgeschlagen, mais mon ami meinte, dass il seulement den Remotedesktop verwenden veux, là qui anderen Opportunités pas funktioniert avons.

J'ai pensé mir ensuite, bof, Remotedesktop alles wunderbar, qui Kennwörter peut überschreiben volonté, mais je veux cela so einrichten, si sich quelqu'un einloggt, dass automatisch cet Programme gestartet wird et pour dem Benutzer et pour dem Kennwort fragt, dass pas cela gleiche son wird, comme qui Benutzer chez qui Remoteanmeldung ist.

Gibt qui Nutzer cela Mot de passe dreimal faux un ou bien qui Zeit zum eingeben verstreicht, wird qui Remotedesktop finissez, là qui Nutzer tout de suite ausgeloggt wird.

So maintenant wisst dir, pourquoi je cet Programme ici schreibe.

ici encore un paire Fragen:

1. Ist es possible den aktuellen eingeloggten Benutzer ausfindig trop faire?
2. peux je qui IP-Adresse des aktuellen eingeloggten Benutzers ermitteln?
3. Wäre es possible, qui Mot de passe-Fichiers de Windows wieder zurück trop écrivons trop laisser, si qui Nutzer cela Mot de passe plusieurs fois faux eingegeben hat et si je auparavant une Kopie par cet Programme erstellt habe?

je suis déjà très gespannt sur euere répondre.

LG

Hi,

cela klingt plutôt après un Atomkraftwerk avec einer Schnur reparieren trop voulons.

(pas cela cela pas possible wäre, mais...)

exposition la fois vlt.: [...]

ByteAttack

iF (27.10.10)

Hi,

cela klingt plutôt après un Atomkraftwerk avec einer Schnur reparieren trop voulons.

(pas cela cela pas possible wäre, mais...)

tu as wohl nie MacGyver gesehen? qui peux cela !!!

Website: [...]

Facebook: [...]

E.T.

iF (27.10.10)
Hi,

cela klingt plutôt après un Atomkraftwerk avec einer Schnur reparieren trop voulons.

(pas cela cela pas possible wäre, mais...)

tu as wohl nie MacGyver gesehen? qui peux cela !!!

mais seulement avec 'ner Schnur aussi pas !!
un Kaugummi muss toujours avec dabei son...

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...