XProfan

« Dieser Contribución wurde como Solución gekennzeichnet. »

Einfach:
Kompilieren Marca Separación

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

24.10.2010 ▲

E.T.

Ventana de Estilo beachten !!
Su Ventana kann con Alt+Tab verlassen voluntad !!

(siehe Ayuda: Ventana de Estilo:
...
128 - Das Programa kann weder con <Strg-Esc>, <Alt-Tab> todavía <Alt-F4> verlassen voluntad
...)

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 Marca Separación

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

Wenn Yo, el Befehl Ventana de Estilo 128 verwende, se el Titelleiste adecuado. el Programa se no Titelleiste haben. Weiterhin taucht beim drücken de <ALT+TAB> el Taskleiste en. Gibt lo el Möglichkeit dies a verhindern?

25.10.2010 ▲

Unbenannt (25.10.10)

Wenn Yo, el Befehl Ventana de Estilo 128 verwende, se el Titelleiste adecuado. el Programa se no Titelleiste haben.

Einfach gewünschte Stile (el Hilfedatei a entnehmen) addieren.

Unbenannt (25.10.10)

Weiterhin taucht beim drücken de <ALT+TAB> el Taskleiste en. Gibt lo el Möglichkeit dies a verhindern?

Grundsätzlich nein aber en el Detalle hängts de de qué el genau voluntad se...

25.10.2010 ▲

E.T.

Nur así nebenbei entstanden:
Kompilieren Marca Separación

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 el Ventana de Estilo 128 no. (XP 12ß-R1) Tiempo schauen, por qué...

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,
con
Kompilieren Marca Separación

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

pre>

Será mejor que te va TOP-MOST, reagiert aber siempre todavía en Alt+Tab...

... aber es ya primero wenigstens así penetrant, no wech a ir

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

¡Hola.

Ihr habt mich gefragt, wofür dieses Programa bien ser debería.

Ersteinmal Gracias Yo euch para euere Ayuda.

Problema wo por dieses Programa entstehen muss:
Im Internet ha una Freund de me una Root-Server, el de una Provider gestellt se. In el letzten zwei Monaten hatten wir en el Server mehrere Eindringlinge gehabt. Der Root-Server es con el BBS Microsoft Windows Server 2008 RC2 x64 disponible.

Wir haben el Server ahora mittlerweile 5veces neu installieren necesario.
Irgendwie haben wir pero no Lust mehr darauf siempre cada veces el Server neu a installeren. Achja una Firewall fue installiert. Jedoch ha el Hacker el Remotkennwörter jedesmal überschrieben.

Wir loggen uns siempre en el Server con el Remotedesktop de Microsoft Windows una. Yo habe zwar ya de otra manera vorgeschlagen, aber mein Freund meinte, dass él sólo el Remotedesktop uso voluntad, como el otro Möglichkeiten no funktioniert haben.

Pensé me entonces, naja, Remotedesktop alles wunderbar, el Kennwörter puede überschreiben voluntad, pero yo voluntad el así einrichten, si se alguien einloggt, dass automáticamente dieses Programa comenzó se y después de el Benutzer y después de el Kennwort fragt, dass no el gleiche ser se, como el Benutzer en Remoteanmeldung es.

Gibt el Nutzer el Contraseña dreimal falso una o Tiempo para eingeben verstreicht, se el Remotedesktop final, como el Nutzer inmediatamente ausgeloggt se.

So ahora wisst dir, por qué Yo dieses Programa hier escribir.

Hier todavía unos pocos Fragen:

1. ¿Es posible el aktuellen eingeloggten Benutzer ausfindig a hacer?
2. Kann Yo el IP-Adresse des aktuellen eingeloggten Benutzers ermitteln?
3. Wäre lo posible, el Contraseña-Archivos de Windows otra vez zurück a escribir que se, si la Nutzer el Contraseña mehrmals falso eingegeben ha y si yo vorher una Kopie por dieses Programa erstellt habe?

Yo bin ya muy gespannt en euere Respuesta.

LG

Hi,

el klingt más danach una Atomkraftwerk con uno Schnur reparieren a querer.

(no el el no posible wäre, aber...)

Schau veces vlt.: [...]

ByteAttack

IF (27.10.10)

Hi,

el klingt más danach una Atomkraftwerk con uno Schnur reparieren a querer.

(no el el no posible wäre, aber...)

Usted hast wohl nie MacGyver gesehen? Der puede !!!

Website: [...]

Facebook: [...]

E.T.

IF (27.10.10)
Hi,

el klingt más danach una Atomkraftwerk con uno Schnur reparieren a querer.

(no el el no posible wäre, aber...)

Usted hast wohl nie MacGyver gesehen? Der puede !!!

Aber sólo 'ner Schnur auch no !!
Ein Kaugummi muss siempre con esta ser...

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