Français
Forum

Hauptfenster allways on top

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



« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 1 -


simple:
KompilierenMarqueSé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:
KompilierenMarqueSé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:
KompilierenMarqueSé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
KompilierenMarqueSé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
 
27.10.2010  
 



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.: [...] 
 
27.10.2010  
 




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:  [...] 
27.10.2010  
 




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!
 
27.10.2010  
 



 
- 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  
 




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

11.895 Views

Untitledvor 0 min.
Paul Glatz11.01.2015
E.T.06.11.2014
trusel01.09.2013
GDL11.02.2011
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie