XProfan

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

- Página 1 -

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

Und una zerbrochene Brille!

- Página 2 -

maxpayne2001

¡Hola!

Puedo verstehen, dass lo para euch merkwüdig klingen muss.

Sí, Yo saber McGyver y yo finde ihn total fresco. Er es muy creativ dies Yo me soweit lo va a eigen gemacht.

Yo erkläre euch el Principio

Also en una Normalen PC con Windows 2000/XP/Vista/7, kann una Anmeldescript hinzugefügt voluntad. Das heißt, dass después de el real Anmeldung el Script ausgeführt se.

So nun el problema es, dass mein Programa muy ligeramente darse por concluido kann. Aber hier para juega el Tiempo una große Papel.

Si el Programa termina, se el PC entweder inmediatamente heruntergefahren oder el Nutzer ausgeloggt. Wird en Eingabe ebenfalls demasiado tiempo gewartet, passiert el gleiche.
Also, se el Programa sólo en richtigen Eingabe se final y el angemeldeten Nutzer durchlassen.

Achja Yo una kleines Hilfsmittel geschrieben, wo el aktuelle angemeldete Nutzer ermittelt voluntad kann. Aquí estoy veces el Quellcode rein:

$P+
$I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
'Ermittelt el aktuellen angemeldeten Benutzer
DECLARE ZeichenPosition%,ZeichenLaenge%,Benutzer$,BenutzerLangform$,BenutzerLaenge%,Ende%
WINDOWSTYLE 16
WINDOWTITLE "AKTUELLER BENUTZER ERMITTELN"
WINDOW (%maxx/2 - 900/2),(%maxy/2 - 200/2) - 900,200
CLS GETSYSCOLOR(15)

ZeichenPosition% = @InStr("\",$AppDataDir,4)
ZeichenPosition% = ZeichenPosition% + 1
ZeichenLaenge% = @LEN($AppDataDir)
ZeichenLaenge% = ZeichenLaenge% - ZeichenPosition%
BenutzerLangform$ = @Mid$($AppDataDir,ZeichenPosition%,ZeichenLaenge%)

PRINT "BENUTZERDATENVERZEICHNIS ZEICHENLÄNGE : "
PRINT "BENUTZERDATENVERZEICHNIS : "
PRINT "TRENNZEICHENPOSITION : "
PRINT "VERKÜRZTES BENUTZERDATENVERZEICHNIS : "

LOCATE 1,51
PRINT @STR$(@LEN($AppDataDir))
LOCATE 2,51
PRINT $AppDataDir
LOCATE 3,51
PRINT @STR$(ZeichenPosition%)
LOCATE 4,51
PRINT BenutzerLangform$
PRINT ""

ZeichenPosition% = @InStr("\",BenutzerLangform$)
ZeichenPosition% = ZeichenPosition% - 1
BenutzerLaenge% = @LEN(Benutzer$)
BenutzerLaenge% = BenutzerLaenge% - ZeichenPosition%
Benutzer$ = @Left$(BenutzerLangform$,ZeichenPosition%,BenutzerLaenge%)

PRINT ""
PRINT "VERKÜRZTES BENUTZERDATENVERZEICHNIS ZEICHENLÄNGE: "
PRINT "VERKÜRZTES BENUTZERDATENVERZEICHNIS : "
PRINT "TRENNZEICHENPOSITION : "
PRINT "DER ANGEMELDETE BENUTZER : "

LOCATE 7,51
PRINT @STR$(@LEN(BenutzerLangform$))
LOCATE 8,51
PRINT BenutzerLangform$
LOCATE 9,51
PRINT @STR$(ZeichenPosition%)
LOCATE 10,51
PRINT Benutzer$

Sinestar encargado Ende%
WaitInput

If @IsKey(113)
Ende%=1
EndIf
EndWhile

Code ende:

El hauptschwierigkeit liegt ahora aber en el el Zona el Remoteanmeldung, porque hay weiß Yo no Yo una Anmeldescript nachträglich ausführen dejar kann seitens des Servers. Yo weiß aber dass lo va, pero no como.
Lo es son una RootServer con el BBS: Microsoft Windows 2008 RC2 x64.

Tal vez wisst ihr sí como el trabajo kann con el Anmeldtescript en Remotedesktopanmeldung.

Yo bin gespannt en euere Antwort.

LG

29.10.2010 ▲