Tab Menu passwort sichern

Darki

Hab mal eine Frage ist das vlt möglich wenn man ein Tab menu baut das man ein bestimmten tab mit einem passwort versehen kann! So das wenn man drauf klickt ein fehler meldung kommt und dich bittet ein vorbestimmtest pw einzugeben

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Info zum Text", 633, 447, 193, 115)
GUISetBkColor(0x00E0FFFF)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab1
$PageControl1 = GUICtrlCreateTab(0, 0, 750, 600)
$TabSheet1 = GUICtrlCreateTabItem("Option";)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab2

[/autoit] [autoit][/autoit] [autoit]

$TabSheet2 = GUICtrlCreateTabItem("Info ";)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

.::Mignon::.

man könnte ja den tab anzeigen lassen nur den ganzen inhalt davon auf hide setzen und nur eine input box anzeigen und einen button anzeigen. wenn da dann das richtige pw eingegeben wird verschwindet die input box und der richtige inhalt wird angezeigt.

Darki

genau das wäre auch gut weiß du wie das funktioniert ?

.::Mignon::.

also du erstellst ganz normal deinen tab. dann erstellst du nur noch ein input und einen butten mehr und alles was geschützt werden soll einfach immer guictrlsetstate(-1,@sw_hide) in die zeile darunter schreiben. dann machst du für den butten ne func:

[autoit]

func button()
$read = guictrlread($input1)
if $read = "hier ein pw" then
guisetstate($deine objekte,@sw_show)
endfunc ;==>Button

[/autoit]

Darki

habs versucht aber da kommen haufen von fehlern !

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Info zum Text", 633, 447, 193, 115)
GUISetBkColor(0x00E0FFFF)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab1
$PageControl1 = GUICtrlCreateTab (0, 0, 750, 600)
$TabSheet1 = GUICtrlCreateTabItem ("Option";)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab2
$TabSheet2 = GUICtrlCreateTabItem ("info";)
$Button = GUICtrlCreateButton("test", 188, 82, 89, 25, 0)
guictrlsetstate(-1,@sw_hide)

[/autoit] [autoit][/autoit] [autoit]

func button()
$read = guictrlread($input1)
if $read = "hier ein pw" then
guisetstate($deine objekte,@sw_show)
endfunc ;==>Button

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

.::Mignon::.

ein bisschen nachdenken is schon angebracht.

das mein beispiel nich zu deinen script passt is wohl klar. um meinen post hast du glaub ich auch nicht richtig gelesen da du keinen input erstellt hast wie ich es empfohlen hatte aba naja jeder fängt mal an

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1 = GUICreate("Info zum Text", 633, 447, 193, 115)
GUISetBkColor(0x00E0FFFF)
GUISetState(@SW_SHOW)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab1
$PageControl1 = GUICtrlCreateTab (0, 0, 750, 600)
$TabSheet1 = GUICtrlCreateTabItem ("Option")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab2
$TabSheet2 = GUICtrlCreateTabItem ("info")
$Button = GUICtrlCreateButton("test", 188, 82, 89, 25, 0)
$Input1 = GUICtrlCreateInput("",100,100,100,100)
$r1 = GUICtrlCreateEdit("",200,200,200,200)
GUICtrlSetState($r1,$gui_hide)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$read = guictrlread($Input1)
if $read = "test" then guictrlsetstate($r1,$gui_show)
EndSwitch
WEnd

[/autoit]

**Alina**

Hallo Mignon.

Mignon, ist das ein Akkumulator oder eine Einwegbatterien? Oder habe ich doch gerade einen falschen Gedankensweg bei der Nickerkundung?

Spaß bei Seite. Habe mir mal erlaubt, statt ein Edit-Gui nachd er Passworteingabe ein Label-Gui zu nutzen. Da kann man dann ja fein Sachen hinter verstecken, die nicht jede/r sehen soll.

Habe dabei aber ein Problem. Wie erstellt man da das Label mit Absätzen. Ich glaube das geht nicht, oder? Naja sonst muß man ganz viele Labels machen oder wie?

So ist es umgeschrieben:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1 = GUICreate("Info zum Text", 633, 447, 193, 115)
GUISetBkColor(0x00E0FFFF)
GUISetState(@SW_SHOW)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab1
$PageControl1 = GUICtrlCreateTab (0, 0, 750, 600)
$TabSheet1 = GUICtrlCreateTabItem ("Option")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab2
$TabSheet2 = GUICtrlCreateTabItem ("info")
$Button = GUICtrlCreateButton("Seitenfreigabe", 120, 30, 100, 25, 0)
$Input1 = GUICtrlCreateInput("",10,30,100,25)
$r1 = GUICtrlCreateLabel("hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo",10,70,618,427)
GUICtrlSetState($r1,$gui_hide)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$read = guictrlread($Input1)
if $read = "test" then guictrlsetstate($r1,$gui_show)
EndSwitch
WEnd

[/autoit]

LG, Lina.

.::Mignon::.

Alina: mit der batterie hast du recht^^ find ich irgendwie toll den namen. was dein label angeht nehm ich mal an das du es mit @CRLF versucht hast da du ja nicht neu bist . am sonsten hab ich dazu eigentlich auch keine idee mehr.

**Alina**

Danke, hatte einen anderen Fehler. Funktioniert sehr gut udn auch Absätze. Blöde, wenn man das zweite &-Zeichen vergißt

LG und Merci.

So, mein Besuch ist da.

LG, Lina.

.::Mignon::.

Alina: jetz komm ich nich so ganz mit. wo hast du das zweite & zeichen vergessen?

**Alina**

Bei der Zeile:

[autoit]

$r1 = GUICtrlCreateLabel("hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo",10,70,618,427)

[/autoit]

habe ich das nun so zum Zeilenumbruch nach dem 4. Hallo, gemacht:

[autoit]

$r1 = GUICtrlCreateLabel("hallo hallo hallo hallo" & @CRLF & "hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo hallo",10,70,618,427)

[/autoit][autoit][/autoit][autoit][/autoit]

Oder war da doch kein @-Zeichen, Weiß ich jetzt gerade nicht. Bin total müde und will nur noch Daten aufs Laptop übertragen, PN's lesen/beantworten und dann ...

LG, Lina.

.::Mignon::.

ok danke ich wa da etwas verwirrt weil du gesagt hattest: "das zweite & zeichen" also dachte ich das ja schon eins da sein müsse, da aber keins in dem script vorhanden war...

zio82draw

Mal ein Vorschlag:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GuiTab.au3>
#include <Array.au3>

$Form1 = GUICreate("Info zum Text", 633, 447, 193, 115)
GUISetBkColor(0x00E0FFFF)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

Global $passw = "test"
Dim $tabItems[2][10]

[/autoit] [autoit][/autoit] [autoit]

$PageControl1 = GUICtrlCreateTab (0, 0, 750, 600)

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab1
$TabSheet1 = GUICtrlCreateTabItem ("Option")
$tabItems[0][0] = GUICtrlCreateLabel("Nix", 25,25,50,20)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tab2
$TabSheet2 = GUICtrlCreateTabItem ("info")
$tabItems[1][0] = GUICtrlCreateButton("Seitenfreigabe", 120, 30, 100, 25, 0)
$tabItems[1][1] = GUICtrlCreateInput("",10,30,100,25)
$tabItems[1][2] = GUICtrlCreateLabel("hallo",10,70,618,427)

;//Lock tab second tab
$locked = 1
_lockTab($Form1, $locked, $tabItems)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $PageControl1
If _GUICtrlTabGetCurSel($PageControl1) = $locked Then
_lockTab($Form1, $locked, $tabItems, 1)
Else
_lockTab($Form1, $locked, $tabItems)
EndIf
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _lockTab($gui, $tab_id, $tab_items, $state=0)
if $state = 0 then
For $i=0 to UBound($tab_items, 2)-1 Step 1
GUICtrlSetState($tab_items[$tab_id][$i], $GUI_HIDE)
Next
Return 0
Else
If InputBox("Passwort","Please insert","","*",120,40) = $passw then
For $i=0 to UBound($tab_items, 2)-1 Step 1
GUICtrlSetState($tab_items[$tab_id][$i], $GUI_SHOW)
Next
Return 1
Else
Return 0
EndIf
EndIf
EndFunc

[/autoit]

Ausbaufähig, da stimme ich zu.

Darki

Danke zio82draw genau das hab ich gesucht auch ein dank an die anderen

Schönen Tgag noch ! =)