Forum | | | | - Page 1 - |
| maxpayne2001 | Hello.
I have a question, probably can itself these integrally slight answer, but I komm not on it.
i'm thereby one Program To write, which one second Login for windows present should.
now would I gladly know, How I the Mainwindow (%HWND) as Allways on Top create can.
for your Help thanks I you now already.
LG
here give I time whom Source: CompileMarkSeparation $P+
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 112
WINDOWTITLE "Windows SecondLogin"
WINDOW 0000,0000-%MaxX,%MaxY
'CLS GETSYSCOLOR(15)
CLS @RGB(0,0,21)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
DLG&=CREATE("DIALOG",%HWND,"Second Login",(%maxx/2 - 400/2),(%maxy/2 - 105/2),400,105)
SETSTYLE DLG&,GETSTYLE(DLG&)- $80000
SETFOCUS(%HWND)
SETFOCUS(DLG&)
@CREATE("TEXT",DLG&,"&Benutzername:",5,5,100,20)
If chbText% = 0
edbUser& = @CREATE("EDIT",DLG&,"",90,5,150,20)
ElseIf chbText% = 1
chbUser& = @CREATE("CHOICEBOX",DLG&,"",90,5,150,75)
EndIf
@CREATE("TEXT",DLG&,"&Passwort:",5,30,100,20)
edbPW& = @CREATE("EDIT",DLG&,"",90,30,150,-20)
btnLogin& = @CREATE("BUTTON",DLG&,"&Login",5,55,235,20)
btnLogout& = @CREATE("BUTTON",DLG&,"L&ogout",245,5,145,20)
'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
4 href='./../../Function-References/XProfan/mainmenu/'>MainMenu
|
| | | | |
| | « this Posting watts as Solution marked. » | | | | | | | | |
| | 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)
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? |
| | | | |
| | | 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... |
| | | | |
| | E.T. | only so on the side emerged: CompileMarkSeparationSET("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
MainMenu class=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 CompileMarkSeparation 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 !!! |
| | | | |
| | 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... | 10/27/10 ▲ |
| |
| | | and a zerbrochene goggles! |
| | | | |
|
AnswerTopic-Options | 11.974 Views |
Themeninformationenthis Topic has 4 subscriber: |