Forum | | | | - page 1 - |
| maxpayne2001 | allô.
j'ai une Frage, wahrscheinlich peut sich cet entier léger répondre, mais je komm pas sur elle.
je suis dabei un Programme trop écrivons, welches un zweites Login pour Windows représenter soll.
eh bien serait je volontiers savons, comment je cela Hauptfenster (%HWND) comme Allways on Top erstellen peux.
Pour euere Aider merci je euch maintenant déjà.
LG
ici gebe je la fois den Quellcode: KompilierenMarqueSéparation $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='./../../funktionsreferenzen/XProfan/mainmenu/'>MainMenu
|
| | | | |
| | « cette Beitrag wurde comme Solution gekennzeichnet. » | | - page 1 - |
| | | | | | | |
| | 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)
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? |
| | | | |
| | | 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... |
| | | | |
| | E.T. | seulement so nebenbei entstanden: KompilierenMarqueSéparationSET("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='./../../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 KompilierenMarqueSéparation 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 !!! |
| | | | |
| | 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... | 27.10.2010 ▲ |
| |
| | | 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 |
| | | | |
|
répondreOptions du sujet | 11.895 Views |
Themeninformationencet Thema hat 4 participant: |