XProfan

« this Posting watts as Solution marked. »

- Page 1 -

simply:
Compile Mark Separation

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

10/24/10 ▲

E.T.

Window Style mind !!
your Window can with old+tab leave go !!

(see Help: Window Style:
...
128 - the Program can weder with <Strg-Esc>, <Alt-Tab> yet <Alt-F4> leave go
...)

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

10/24/10 ▲

maxpayne2001

iF (24.10.10)

simply:
Compile Mark Separation

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

If I the commands Window Style 128 use, becomes The Titelleiste displayed. the program should no Titelleiste having. furthermore diving at pressing of <ALT+TAB> The Taskbar on. gives it The Possibility this To prevent?

10/25/10 ▲

Untitled (25.10.10)

If I the commands Window Style 128 use, becomes The Titelleiste displayed. the program should no Titelleiste having.

simply desired Stile (the Helpfile To entnehmen) add.

Untitled (25.10.10)

furthermore diving at pressing of <ALT+TAB> The Taskbar on. gives it The Possibility this To prevent?

fundamentally No but in the detail hängts of ex what the very go should...

10/25/10 ▲

E.T.

only so on the side emerged:
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>end

on the side notice: somehow clutching the Window Style 128 not. (XP 12ß-R1) time look, Why...

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

10/26/10 ▲

E.T.

Aahhh,
with
Compile Mark Separation

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

pre>

Better get going TOP-MOST, reacted but still on old+tab...

... but is already first at least so pushy, not wech to go

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

10/26/10 ▲

maxpayne2001

Hello.

you have me demand, for what this program well his ought to.

Ersteinmal thanks I you for your Help.

trouble where through this program come into being must:
in the internet has one Friends me a Root-Server, the of a Provider set becomes. into last two Monaten had we on the Server several Eindringlinge had. The Root-Server standing with the BBS Microsoft windows Server 2008 RC2 x64 available.

we've whom Server now in the meantime 5time new install must.
somehow having we but no pleasure More hereon always each time the Server new To installeren. Achja a Firewall was too installs. however has the Hacker The Remotkennwörter jedesmal überschrieben.

we log us always on the Server with the Remotedesktop of Microsoft windows one. I have of course already something other suggested, but my friend meant, that it only whom Remotedesktop use wants, since the others Opportunities not functions having.

I thought me then, naja, Remotedesktop everything wonderful, The Kennwörter can überschreiben go, but I wants to so arrange, if itself someone einloggt, that automatically this program launched and is to the user and to the Kennwort asks, that not the same his becomes, as the user with the Remoteanmeldung is.

gives the User the Password thrice wrong one or The Time to that prompt verstreicht, becomes the Remotedesktop exits, there the User immediate ausgeloggt becomes.

so now know you, why I this program here write.

here another couple ask:

1. is it possible whom actually eingeloggten user traceable To make?
2. can I The IP-address the current eingeloggten User detect?
3. would be it possible, The Password-Files Windows again back To write To let, if the User the Password number of times wrong association has and if I before a copy through this program prepares have?

i'm already very tensely on your Answer.

LG

Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)

look time vlt.: [...]

ByteAttack

iF (27.10.10)

Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)

you have well never MacGyver seen? The can the !!!

Website: [...]

Facebook: [...]

E.T.

iF (27.10.10)
Hi,

the sound sooner thereafter one nuclear power plant with of/ one string repair To want.

(not the not possible would, but...)

you have well never MacGyver seen? The can the !!!

but only with 'ner string neither !!
One Kaugummi must always with thereby his...

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

and a zerbrochene goggles!

- Page 2 -

maxpayne2001

Hello!

I can understand, that it for you merkwüdig sound must.

Yes, I know McGyver what about me find it utterly calm. he's very creativ this have I me so far It's all right To own made.

I comment you the principle

means with one Normalen PC with windows 2000/XP/Vista/7, can one Anmeldescript added. that is, that to the actual Login the Script carryed out becomes.

so now is the trouble, that my Program very slight exits go can. but here for game The Time a large strain.

If the program terminates, becomes PC either immediate heruntergefahren or the User ausgeloggt. becomes with the input ditto too long waited, happens the same.
means, becomes the program only the right input itself terminate and the announced User durchlassen.

Achja I have a small expedient written, where the actually announced User determined go can. Here I time whom Source mere:

$P+
$I C:\XPROFAN11\LIB\PROFALT.INC
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
'Ermittelt whom actually announced user
DECLARE ZeichenPosition%,ZeichenLaenge%,user$,BenutzerLangform$,BenutzerLaenge%,end%
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(user$)
BenutzerLaenge% = BenutzerLaenge% - ZeichenPosition%
user$ = @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 user$

WhileNot end%
WaitInput

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

code end:

The hauptschwierigkeit lying now but in the the area the Remoteanmeldung, because there white I do not How I one Anmeldescript as an afterthought perform let can by the Servers. i know but that It's all right, but not How.
it deals itself circa a RootServer with the BBS: Microsoft windows 2008 RC2 x64.

Perhaps know your Yes How the functions can with the Anmeldtescript with the Remotedesktopanmeldung.

i'm tensely on your response.

LG

10/29/10 ▲