XProfan

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 1 -

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

et une zerbrochene lunettes!

- page 2 -

maxpayne2001

allô!

je peux comprendre, dass es pour euch merkwüdig klingen muss.

oui, je connais McGyver et je trouve ihn total cool. il ist très creativ ca habe je mir soweit und dir trop propre gemacht.

je erkläre euch cela Prinzip

alors chez einem Normalen PC avec Windows 2000/XP/Vue/7, peux un Anmeldescript hinzugefügt volonté. cela est, dass pour qui réel Anmeldung cela Script fonctionnement wird.

So eh bien ist cela Problem, dass mon Programme très léger finissez volonté peux. mais ici pour écoutes qui Zeit une grand rôle.

si cela Programme finissez wird, wird qui PC entweder tout de suite heruntergefahren ou bien qui Nutzer ausgeloggt. Wird chez qui Eingabe également trop longtemps gewartet, passiert cela gleiche.
alors, wird cela Programme seulement chez qui richtigen Eingabe sich finissons et den angemeldeten Nutzer durchlassen.

Achja j'ai une kleines Hilfsmittel geschrieben, wohin qui aktuelle angemeldete Nutzer ermittelt volonté peux. Ici, je la fois den Quellcode rein:

$P+
$I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"User32","GetSysColor"
'Ermittelt den 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$ = @Milieu$($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$ = @À gauche$(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$

WhileNot Ende%
WaitInput

Si @IsKey(113)
Ende%=1
EndIf
Endwhile

Code ende:

qui hauptschwierigkeit liegt maintenant mais im dem Bereich qui Remoteanmeldung, car là sais je pas comment je un Anmeldescript nachträglich effectuer laisser peux seitens des Servers. je sais mais dass und dir, mais pas comment.
Es handelt sich um une RootServer avec dem BBS: Microsoft Windows 2008 RC2 x64.

peut-être wisst son oui comment cela marcher peux avec dem Anmeldtescript chez qui Remotedesktopanmeldung.

je suis gespannt sur euere Antwort.

LG

29.10.2010 ▲