Some problems that I encountered

Generator · June 6, 2007

Hi everyone, i am making a password thing so i can use it in my project. This is what I've done to test if it actually works.

Unfortunatly it doesn't for me, TrayIconDebug didn't help out(Not sure how to use it). The code is below. Self explained.

Can anyone please point out the problem or give me a hint?

Thanks in advance.

Edit: Check Post #5 for current code.

#Include<GUIConstants.au3>
Opt("GUIOnEventMode",1)
Opt("TrayIconDebug",1)
Global $Inuse=False, $passwordfrm,$string1, $string2, $password=""
$mainfrm=GUICreate("Main Form",200,35,-1,-1,-1)
$button0=GUICtrlCreateButton("Password",1,1,98,30)
$button1=GUICtrlCreateButton("Check",99,1,98,30)
GUICtrlSetFont($button0,9,400,0,"Tahoma")
GUICtrlSetFont($button1,9,400,0,"Tahoma")
GUISetFont(9,400,0,"Tahoma")
GUICtrlSetOnEvent($button0,"_PasswordGUI")
GUICtrlSetOnEvent($button1,"_ShowPassword")
GUISetOnEvent($GUI_EVENT_CLOSE,"Quit")
GUISetState()
While 1
    Sleep(1000)
WEnd
Func _PasswordGUI()
    If $Inuse=True Then Return
    $Inuse=Not $Inuse
    $passwordfrm=GUICreate("Password Protection",400,60,-1,-1,-1,-1,$mainfrm)
    $string1=GUICtrlCreateLabel("Type Password: ",1,1,120,20,$SS_CENTER)
    $string2=GUICtrlCreateLabel("Confirm Password: ",1,32,120,20,$SS_CENTER)
    $firstpw=GUICtrlCreateInput("",121,3,210,20)
    $confirmpw=GUICtrlCreateInput("",121,32,210,20)
    $setbutton=GUICtrlCreateButton("SET",336,3,60,51,$BS_VCENTER)
    GUICtrlSetFont($string1,11,400,0,"Tahoma")
    GUICtrlSetFont($string2,11,400,0,"Tahoma")
    GUICtrlSetFont($setbutton,11,400,0,"Tahoma")
    GUISetOnEvent($GUI_EVENT_CLOSE,"Subdel")
    GUISetOnEvent($setbutton,"_SetPassword")
    GUISetState()
EndFunc
Func _ShowPassword()
    Msgbox(64,"Password",$password)
EndFunc
Func Subdel()
    $Inuse=Not $Inuse
    GUIDelete($passwordfrm)
EndFunc
Func _PasswordChk()
    If StringLen(GUICtrlRead($string1)) <> StringLen(GUICtrlRead($string2))Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf GUICtrlRead($string1) <> GUICtrlRead($string2) Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf IsNumber(GUICtrlRead($string1))=1 Or IsNumber(GUICtrlRead($string1))=1 Then
        MsgBox(64,"Password Check","Numeric Type password may not be safe, please re-consider")
        Return
    EndIf
    Return $string2
EndFunc
Func _SetPassword()
    Local $ButtonPos=WinGetPos($passwordfrm,"")
    If IsNumber(_PasswordChk())=1 Then
        $string2=$password
        ToolTip("Password was set, please remember",$ButtonPos[0]+350,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
        Return $password
    Else
        ToolTip("Password was not set",$ButtonPos[0]+350,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
    EndIf
EndFunc
Func Quit()
    Exit
EndFunc

Edited June 6, 2007 by Generator

smashly · June 6, 2007

Hi,

Offending entry is .. drum roll...

GUISetOnEvent($setbutton,"_SetPassword")oÝ÷ Ù(hºW[y«¢+ÙU%
ÑÉ±MÑ=¹Ù¹Ð ÀÌØíÍÑÕÑÑ½¸°ÅÕ½Ðí}MÑAÍÍÝ½ÉÅÕ½Ðì¤oÝ÷ Ù(hºW[y«¢+Ù%MÑÉ¥¹1¸¡U%
ÑÉ±I ÀÌØí¥ÉÍÑÁÜ¤¤±ÐìÐìMÑÉ¥¹1¸¡U%
ÑÉ±I ÀÌØí½¹¥ÉµÁÜ¤¥Q¡

You need to change the other instances of this as well.

More to come ...

Edited June 6, 2007 by smashly

Generator · June 6, 2007

Hi,

Offending entry is .. drum roll...

GUISetOnEvent($setbutton,"_SetPassword")oÝ÷ Ù(hºW[y«¢+ÙU%
ÑÉ±MÑ=¹Ù¹Ð ÀÌØíÍÑÕÑÑ½¸°ÅÕ½Ðí}MÑAÍÍÝ½ÉÅÕ½Ðì¤

Cheers

Oh my god!

Thanks a lot.

But something i am wondering, i tried. I entered haha and haha as password, but it shows they are not equal. Any idea why?

StringLen suppose to return len and <> is not equal. But then it doesn't work. :\

Anyone would like to help out?

Thanks.

smashly · June 6, 2007

Keep checking my first post .. as I'll keep updating it as I find the errors..

Generator · June 6, 2007

Keep checking my first post .. as I'll keep updating it as I find the errors..

Thanks a lot.

Edit: Still doesn't work as what I want it to be. Updated code.

#Include<GUIConstants.au3>
Opt("GUIOnEventMode",1)
Opt("TrayIconDebug",1)
Global $Inuse=False, $passwordfrm,$string1, $string2, $password=""
$mainfrm=GUICreate("Main Form",200,35,-1,-1,-1)
$button0=GUICtrlCreateButton("Password",1,1,98,30)
$button1=GUICtrlCreateButton("Check",99,1,98,30)
GUICtrlSetFont($button0,9,400,0,"Tahoma")
GUICtrlSetFont($button1,9,400,0,"Tahoma")
GUISetFont(9,400,0,"Tahoma")
GUICtrlSetOnEvent($button0,"_PasswordGUI")
GUICtrlSetOnEvent($button1,"_ShowPassword")
GUISetOnEvent($GUI_EVENT_CLOSE,"Quit")
GUISetState()
While 1
    Sleep(1000)
WEnd
Func _PasswordGUI()
    If $Inuse=True Then Return
    $Inuse=Not $Inuse
    $passwordfrm=GUICreate("Password Protection",400,60,-1,-1,-1,-1,$mainfrm)
    $label1=GUICtrlCreateLabel("Type Password: ",1,1,120,20,$SS_CENTER)
    $label2=GUICtrlCreateLabel("Confirm Password: ",1,32,120,20,$SS_CENTER)
    $string1=GUICtrlCreateInput("",121,3,210,20)
    $string2=GUICtrlCreateInput("",121,32,210,20)
    $setbutton=GUICtrlCreateButton("SET",336,3,60,51,$BS_VCENTER)
    GUICtrlSetFont($label1,11,400,0,"Tahoma")
    GUICtrlSetFont($label2,11,400,0,"Tahoma")
    GUICtrlSetFont($string1,11,400,0,"Tahoma")
    GUICtrlSetFont($string2,11,400,0,"Tahoma")
    GUICtrlSetFont($setbutton,11,400,0,"Tahoma")
    GUICtrlSetOnEvent($setbutton,"_SetPassword")
    GUISetOnEvent($GUI_EVENT_CLOSE,"Subdel")
    GUISetState()
EndFunc
Func _ShowPassword()
    Msgbox(64,"Password",$password)
EndFunc
Func Subdel()
    $Inuse=Not $Inuse
    GUIDelete($passwordfrm)
EndFunc
Func _PasswordChk()
    If StringLen(GUICtrlRead($string1)) <> StringLen(GUICtrlRead($string2))Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf GUICtrlRead($string1) <> GUICtrlRead($string2) Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf IsNumber(GUICtrlRead($string1))=1 Or IsNumber(GUICtrlRead($string2))=1 Then
        MsgBox(64,"Password Check","Numeric Type password may not be safe, please re-consider")
        Return
    EndIf
    Return $string2
EndFunc
Func _SetPassword()
    Local $ButtonPos=WinGetPos($passwordfrm,"")
    If IsNumber(_PasswordChk())=0 Then
        $string2=$password
        ToolTip("Password was set, please remember",$ButtonPos[0]+370,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
        Return $password
    Else
        ToolTip("Password was not set",$ButtonPos[0]+370,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
    EndIf
EndFunc
Func Quit()
    Exit
EndFunc

Edited June 6, 2007 by Generator

smashly · June 6, 2007

Here you go.. it works, but your code still needs tidying up

#Include<GUIConstants.au3>
Opt("GUIOnEventMode",1)
Opt("TrayIconDebug",1)
Global $Inuse=False, $passwordfrm, $firstpw, $confirmpw, $password=""
$mainfrm=GUICreate("Main Form",200,35,-1,-1,-1)
$button0=GUICtrlCreateButton("Password",1,1,98,30)
$button1=GUICtrlCreateButton("Check",99,1,98,30)
GUICtrlSetFont($button0,9,400,0,"Tahoma")
GUICtrlSetFont($button1,9,400,0,"Tahoma")
GUISetFont(9,400,0,"Tahoma")
GUICtrlSetOnEvent($button0,"_PasswordGUI")
GUICtrlSetOnEvent($button1,"_ShowPassword")
GUISetOnEvent($GUI_EVENT_CLOSE,"Quit")
GUISetState()
While 1
    Sleep(1000)
WEnd
Func _PasswordGUI()
    If $Inuse=True Then Return
    $Inuse=Not $Inuse
    $passwordfrm=GUICreate("Password Protection",400,60,-1,-1,-1,-1,$mainfrm)
    $string1 = GUICtrlCreateLabel("Type Password: ",1,1,120,20,$SS_CENTER)
    $string2 =  GUICtrlCreateLabel("Confirm Password: ",1,32,120,20,$SS_CENTER)
    $firstpw=GUICtrlCreateInput("",121,3,210,20)
    $confirmpw=GUICtrlCreateInput("",121,32,210,20)
    $setbutton=GUICtrlCreateButton("SET",336,3,60,51,$BS_VCENTER)
    GUICtrlSetFont($string1,11,400,0,"Tahoma")
    GUICtrlSetFont($string2,11,400,0,"Tahoma")
    GUICtrlSetFont($setbutton,11,400,0,"Tahoma")
    GUISetOnEvent($GUI_EVENT_CLOSE,"Subdel")
    GUICtrlSetOnEvent($setbutton,"_SetPassword")
    GUISetState()
EndFunc
Func _ShowPassword()
    Msgbox(64,"Password",$password)
EndFunc
Func Subdel()
    $Inuse=Not $Inuse
    GUIDelete($passwordfrm)
EndFunc
Func _PasswordChk()
    If GUICtrlRead($firstpw) <> GUICtrlRead($confirmpw) Or GUICtrlRead($firstpw) = "" Or  GUICtrlRead($confirmpw) = "" Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf IsNumber(GUICtrlRead($firstpw)) = 1 Or IsNumber(GUICtrlRead($confirmpw)) = 1 Then
        MsgBox(64,"Password Check","Numeric Type password may not be safe, please re-consider")
        Return
    EndIf
    Return 
EndFunc

Func _SetPassword()
    Local $ButtonPos=WinGetPos($passwordfrm,"")
    If IsNumber(_PasswordChk())=1 Then
        $password = GUICtrlRead($confirmpw) 
        ToolTip("Password was set, please remember",$ButtonPos[0]+350,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
        Return $password
    Else
        ToolTip("Password was not set",$ButtonPos[0]+350,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(800)
        ToolTip("")
    EndIf
EndFunc

Func Quit()
    Exit
EndFunc

Cheers

Edited June 6, 2007 by smashly

Valuater · June 6, 2007

maybe...

#Include<GUIConstants.au3>
Opt("GUIOnEventMode",1)
Opt("TrayIconDebug",1)
Global $Inuse=False, $passwordfrm,$string1, $string2, $password=""

$mainfrm=GUICreate("Main Form",200,35,-1,-1,-1)
$button0=GUICtrlCreateButton("Password",1,1,98,30)
$button1=GUICtrlCreateButton("Check",99,1,98,30)
GUICtrlSetFont($button0,9,400,0,"Tahoma")
GUICtrlSetFont($button1,9,400,0,"Tahoma")
GUISetFont(9,400,0,"Tahoma")
GUICtrlSetOnEvent($button0,"_PasswordGUI")
GUICtrlSetOnEvent($button1,"_ShowPassword")
GUISetOnEvent($GUI_EVENT_CLOSE,"Quit")
GUISetState()

While 1
    Sleep(10)
WEnd

Func _PasswordGUI()
    If $Inuse=True Then Return
    $Inuse=Not $Inuse
    $passwordfrm=GUICreate("Password Protection",400,60,-1,-1,-1,-1,$mainfrm)
    $label1=GUICtrlCreateLabel("Type Password: ",1,1,120,20,$SS_CENTER)
    $label2=GUICtrlCreateLabel("Confirm Password: ",1,32,120,20,$SS_CENTER)
    $string1=GUICtrlCreateInput("",121,3,210,20)
    $string2=GUICtrlCreateInput("",121,32,210,20)
    $setbutton=GUICtrlCreateButton("SET",336,3,60,51,$BS_VCENTER)
    GUICtrlSetFont($label1,11,400,0,"Tahoma")
    GUICtrlSetFont($label2,11,400,0,"Tahoma")
    GUICtrlSetFont($string1,11,400,0,"Tahoma")
    GUICtrlSetFont($string2,11,400,0,"Tahoma")
    GUICtrlSetFont($setbutton,11,400,0,"Tahoma")
    GUICtrlSetOnEvent($setbutton,"_SetPassword")
    GUISetOnEvent($GUI_EVENT_CLOSE,"Subdel")
    GUISetState()
EndFunc
Func _ShowPassword()
    Msgbox(64,"Password",$password)
EndFunc
Func Subdel()
    $Inuse=Not $Inuse
    GUIDelete($passwordfrm)
EndFunc
Func _PasswordChk()
    If StringLen(GUICtrlRead($string1)) <> StringLen(GUICtrlRead($string2))Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf GUICtrlRead($string1) <> GUICtrlRead($string2) Then
        MsgBox(64,"Password Check","Please confirm both of your password")
        Return
    ElseIf IsNumber(GUICtrlRead($string1))=1 Or IsNumber(GUICtrlRead($string2))=1 Then
        MsgBox(64,"Password Check","Numeric Type password may not be safe, please re-consider")
        Return
    EndIf
    Return GUICtrlRead($string2)
EndFunc
Func _SetPassword()
    Local $ButtonPos=WinGetPos($passwordfrm,"")
    If IsNumber(_PasswordChk())=0 Then
        $password=GUICtrlRead($string2)
        ToolTip("Password was set, please remember",$ButtonPos[0]+370,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(3000)
        ToolTip("")
        Return $password
    Else
        ToolTip("Password was not set",$ButtonPos[0]+370,$ButtonPos[1]+55,"Result",-1,-1)
        Sleep(3000)
        ToolTip("")
    EndIf
EndFunc
Func Quit()
    Exit
EndFunc

8)

Generator · June 6, 2007

Thanks a lot guys. Espeically smashly and Valuater, and yet it worked.

Valuater · June 6, 2007

Thanks a lot guys. Espeically smashly and Valuater, and yet it worked.

Welcome...

just didn't know that smashly got there first

8)

Generator · June 6, 2007

Any idea why won't the input box have Password attribute?

Sokko · June 6, 2007

You're putting $ES_PASSWORD in the extended style parameter, instead of the style parameter.

Sign In

Some problems that I encountered

Recommended Posts

Generator

smashly

Generator

smashly

Generator

smashly

Valuater

Generator

Valuater

Generator

Sokko

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta