Hemrry Posted April 25, 2020 Posted April 25, 2020 Good evening I am new to programming with AutoIt however I have proposed many projects in this case I already have my code completed and it works correctly but I cannot find a way to assign a password and I try various options but it does not work could you help me please expandcollapse popup#include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <GUIConstants.au3> #include <WindowsConstants.au3> ; Botones Dim $Cban, $Cei, $Fav, $Sent, $Cabe, $Dirtv, $Bonu, $TM, $Pass, $OK, $Exit ;Ventanas Dim $VPinc, $VCban, $VCei, $VFav, $VSent, $VCaribe, $VDirectv, $Vbonus, $VTM, $Vcont ;Boton Atras Dim $Atras, $Atras1, $Atras2, $Atras3, $Atras4, $Atras5,$Atras6,$Atras7 ;Botones Copiar Dim $copi, $copi1, $copi2, $copi3, $copi4, $copi5, $copi6, $copi7, $copi8, $copi9, $copi10, $copi11, $copi12 Dim $copi12, $copi13, $copi14, $copi15, $copi16, $copi17, $copi18, $copi19, $copi20,$copi21,$copi22,$copi23 Dim $Imf = "00000000000" Dim $Imf1 = "00000000000" Dim $Imf2 = "00000000000" Dim $Imf3 = "00000000000" Dim $Imf4 = "00000000000" Dim $imf11= "00000000000" Dim $imf12= "00000000000" Dim $Imf17= "00000000000" Dim $Imf18= "00000000000" Dim $Imf19= "00000000000" Dim $Imf20= "00000000000 " Dim $Imf21= "00000000000" Dim $Imf22= "00000000000" ;Imformacion Dim $Imf5 = "00000000000" Dim $Imf6 = "00000000000" ;Imformacion Dim $Imf7 = "00000000000" Dim $Imf8 = "00000000000" ;Imformacion Dim $Imf9 = "00000000000" Dim $Imf10 = "00000000000" ;Imformacion Dim $imf13 = "00000000000" Dim $imf14 = "00000000000" Dim $imf15 = "00000000000" Dim $imf16 = "00000000000" Dim $imf23 = "00000000000" ;Funciones Principales Prin () Cuentas () Correo () Seniat () Faov () Bancaribe () Bonus () AirTm () Directv () GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_HIDE,$VDirectv) Selec () Func Selec () while 1 $msg=GUIGetMsg() Select Case $msg=$GUI_EVENT_CLOSE $x = 1 if WinActive($VPinc) and $x = 1 then ExitLoop endif if WinActive($VCban) then GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VCei) then GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VFav) then GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VSent) then GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VBonus) then GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VTM) then GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VCaribe) then GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VDirectv) then GUISetState(@SW_HIDE,$VDirectv) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif Case $msg = $Cban IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "1") GUISetState(@SW_HIDE,$VPinc) Cuentas() Case $msg = $Cei IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "2") GUISetState(@SW_HIDE,$VPinc) Correo() Case $msg = $Fav IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "3") GUISetState(@SW_HIDE,$VPinc) Faov() Case $msg = $Sent IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "4") GUISetState(@SW_HIDE,$VPinc) Seniat() Case $msg = $Cabe IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "5") GUISetState(@SW_HIDE,$VCban) Bancaribe() Case $msg = $Bonu IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "6") GUISetState(@SW_HIDE,$VCban) Bonus() Case $msg = $TM IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "7") GUISetState(@SW_HIDE,$VCban) AirTm() Case $msg = $Dirtv IniWrite("Data\OPT.INI", "GENERAL", "BUTTON", "8") GUISetState(@SW_HIDE,$VPinc) Directv() Case $msg=$Atras GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras1 GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_SHOW,$VCban) Case $msg=$Atras2 GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras3 GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras4 GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras5 GUISetState(@SW_HIDE,$VDirectv) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras6 GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_SHOW,$VCban) Case $msg=$Atras7 GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_SHOW,$VCban) Case $msg=$Copi ClipPut ($Imf) Case $msg=$Copi1 ClipPut ($Imf1) Case $msg=$Copi2 ClipPut ($Imf2) Case $msg=$Copi3 ClipPut ($Imf3) Case $msg=$Copi4 ClipPut ($Imf4) Case $msg=$Copi5 ClipPut ($Imf5) Case $msg=$Copi6 ClipPut ($Imf6) Case $msg=$Copi7 ClipPut ($Imf7) Case $msg=$Copi8 ClipPut ($Imf8) Case $msg=$Copi9 ClipPut ($Imf9) Case $msg=$Copi10 ClipPut ($Imf10) Case $msg=$Copi11 ClipPut ($Imf11) Case $msg=$Copi12 ClipPut ($Imf12) Case $msg=$Copi13 ClipPut ($Imf13) Case $msg=$Copi14 ClipPut ($Imf14) Case $msg=$Copi15 ClipPut ($Imf15) Case $msg=$Copi16 ClipPut ($Imf16) Case $msg=$Copi17 ClipPut ($Imf17) Case $msg=$Copi18 ClipPut ($Imf18) Case $msg=$Copi19 ClipPut ($Imf19) Case $msg=$Copi20 ClipPut ($Imf20) Case $msg=$Copi21 ClipPut ($Imf21) Case $msg=$Copi22 ClipPut ($Imf22) Case $msg=$Copi23 ClipPut ($Imf23) EndSelect WEnd EndFunc Func Prin () ;ventana Principal $VPinc = GUICreate("Imformacion de Cuentas", 490, 122, -1, -1, $WS_POPUP) ;Selecciones del menu $Cban = GUICtrlCreateButton("Cuentas Bancarias", 16, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Cei = GUICtrlCreateButton("Correo elctronico", 112, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Fav = GUICtrlCreateButton("Faov", 208, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Sent = GUICtrlCreateButton("Seniat ", 304, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Dirtv = GUICtrlCreateButton("Directv ", 400, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VPinc) EndFunc Func Cuentas() $VCban = GUICreate("Cuentas Bancarias", 150, 500, -1, -1, $WS_POPUP) $Cabe = GUICtrlCreateButton("Bancaribe", 37, 30, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $Bonu = GUICtrlCreateButton("Bonus", 37, 100, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $TM = GUICtrlCreateButton("AirTm", 37, 170, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $Atras= GUICtrlCreateButton("Atras", 35, 450, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCban) EndFunc Func Bancaribe() $VCaribe = GUICreate("Bancaribe", 500, 700, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Numero de Cuenta:", 10, 20, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 22, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi = GUICtrlCreateButton("Copiar", 390, 21, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 52, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi1 = GUICtrlCreateButton("Copiar", 390, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Pin de tres digitos:", 10, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 82, 100, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi2 = GUICtrlCreateButton("Copiar", 390, 81, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Valid from:0000", 70, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Valid Thru:000", 300, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Conexion Bancaribe", 180, 180, 200, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 240, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 240, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi3 = GUICtrlCreateButton("Copiar", 390, 241, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 270, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 270, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi4 = GUICtrlCreateButton("Copiar", 390, 271, 80, 20) GUICtrlSetCursor (-1, 0) $Atras1 = GUICtrlCreateButton("Atras", 215, 620, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCaribe) EndFunc Func Bonus() $VBonus = GUICreate("Bonus", 500, 300, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 52, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi17 = GUICtrlCreateButton("Copiar", 390, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Pin de siete digitos:", 10, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 82, 100, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi18 = GUICtrlCreateButton("Copiar", 390, 81, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Conexion Bonus", 175, 110, 200, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 140, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 142, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi19 = GUICtrlCreateButton("Copiar", 390, 141, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 170, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 172, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi20 = GUICtrlCreateButton("Copiar", 390, 171, 80, 20) GUICtrlSetCursor (-1, 0) $Atras6 = GUICtrlCreateButton("Atras", 215, 230, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VBonus) EndFunc Func AirTm() $VTM = GUICreate("AirTm", 400, 190, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Usuario AirTm", 130, 15, 300, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi21 = GUICtrlCreateButton("Copiar", 310, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi22 = GUICtrlCreateButton("Copiar", 310, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras7 = GUICtrlCreateButton("Atras", 150, 120, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VTM) EndFunc Func Correo() $VCei = GUICreate("Correo Electronico", 400, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Correo Electronico", 130, 15, 300, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi5 = GUICtrlCreateButton("Copiar", 310, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi6 = GUICtrlCreateButton("Copiar", 310, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras2 = GUICtrlCreateButton("Atras", 130, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCei) EndFunc Func Faov() $VFav = GUICreate("Faov", 300, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario FAOV", 108, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi7 = GUICtrlCreateButton("Copiar", 210, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi8 = GUICtrlCreateButton("Copiar", 210, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras3 = GUICtrlCreateButton("Atras", 109, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VFav) EndFunc Func Seniat() $VSent = GUICreate("Seniat", 300, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario Seniat", 108, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi9 = GUICtrlCreateButton("Copiar", 210, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi10 = GUICtrlCreateButton("Copiar", 210, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras4 = GUICtrlCreateButton("Atras", 109, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VSent) EndFunc Func Directv() $VDirectv = GUICreate("Directv", 500, 280, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario Directv", 190, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi13 = GUICtrlCreateButton("Copiar", 400, 44, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi14 = GUICtrlCreateButton("Copiar", 400, 74, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 120, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi15 = GUICtrlCreateButton("Copiar", 400, 115, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Cedula:", 10, 150, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 150, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi16 = GUICtrlCreateButton("Copiar", 400, 145, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Cliente:", 10, 180, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 180, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi23 = GUICtrlCreateButton("Copiar", 400, 180, 80, 20) GUICtrlSetCursor (-1, 0) $Atras5 = GUICtrlCreateButton("Atras", 200, 230, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VDirectv) EndFunc
Developers Jos Posted April 25, 2020 Developers Posted April 25, 2020 Moved to the appropriate forum. Moderation Team SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past.
Musashi Posted April 25, 2020 Posted April 25, 2020 1 hour ago, Hemrry said: I cannot find a way to assign a password Do you mean something like this (I still suffer from a hangover ) : #include <GUIConstantsEx.au3> #include <EditConstants.au3> GUICreate("Password GUI", 500, 150) Local $idInput = GUICtrlCreateInput("Password", 20, 30, 200, 30, BitOR($ES_PASSWORD, $GUI_SS_DEFAULT_INPUT)) Local $idOK = GUICtrlCreateButton("OK", 240, 30, 60, 30) GUISetState(@SW_SHOW, "Password GUI") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, "Password GUI") ExitLoop Case $idOK MsgBox(4160, "Info : ", "Password = " & GUICtrlRead($idInput) & @CRLF) EndSwitch WEnd "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
Aelc Posted April 25, 2020 Posted April 25, 2020 @Musashi well i was thinking about what he means, too actually i didn't found any input in his script... so i was wondered why do i get garbage when i buy garbage bags?
Musashi Posted April 25, 2020 Posted April 25, 2020 9 minutes ago, Aelc said: @Musashi well i was thinking about what he means, too Actually i didn't found any input in his script... so i was wondered I was just guessing, too . Let's wait and see if this is the solution that @Hemrry is looking for. "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
Hemrry Posted April 25, 2020 Author Posted April 25, 2020 7 hours ago, Musashi said: Do you mean something like this (I still suffer from a hangover ) : #include <GUIConstantsEx.au3> #include <EditConstants.au3> GUICreate("Password GUI", 500, 150) Local $idInput = GUICtrlCreateInput("Password", 20, 30, 200, 30, BitOR($ES_PASSWORD, $GUI_SS_DEFAULT_INPUT)) Local $idOK = GUICtrlCreateButton("OK", 240, 30, 60, 30) GUISetState(@SW_SHOW, "Password GUI") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, "Password GUI") ExitLoop Case $idOK MsgBox(4160, "Info : ", "Password = " & GUICtrlRead($idInput) & @CRLF) EndSwitch WEnd Sorry I speak Spanish and I don't write English very well, I'm looking for something like that but I can't figure out how to integrate it since it gives me an error when compiling I came up with this one but I present the same problem expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Dim $Pass Contra() Func Contra() $Vcont = GUICreate("Login", 220, 100, -1, -1,$WS_POPUP) $Pass = GUICtrlCreateInput("",10,40,-1,-1,$ES_PASSWORD) GUICtrlCreateLabel("Ingrese su contraseña", 55, 20, 150, 20) $OKbutton = GUICtrlCreateButton("Login",110,70,100) $Exit = GUICtrlCreateButton("Exit",10,70,100) GUISetState(@SW_SHOW,$Vcont) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit Exit Case $msg = $OKbutton _login() EndSelect WEnd EndFunc func _login() $PasswordInput = GUICtrlRead($Pass) if $PasswordInput = "lock" Then MsgBox(0,"ERROR","Bienvenido") Else MsgBox(0,"ERROR","Por favor Ingrese su Contraseña") EndIf EndFunc
Musashi Posted April 25, 2020 Posted April 25, 2020 (edited) 2 hours ago, Hemrry said: since it gives me an error when compiling Can you please post the error message (console output of SciTE Editor) For me, this works : expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Local $idPass Contra() Func Contra() $Vcont = GUICreate("Login", 220, 100, -1, -1, $WS_POPUP) $idPass = GUICtrlCreateInput("", 10, 40, -1, -1, BitOR($ES_PASSWORD, $GUI_SS_DEFAULT_INPUT)) GUICtrlCreateLabel("Ingrese su contraseña", 55, 20, 150, 20) $OKbutton = GUICtrlCreateButton("Login", 110, 70, 100) $Exit = GUICtrlCreateButton("Exit", 10, 70, 100) GUISetState(@SW_SHOW, $Vcont) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Exit Exit Case $msg = $OKbutton _login() EndSelect WEnd EndFunc ;==>Contra Func _login() ConsoleWrite("_login " & GUICtrlRead($idPass) & @CRLF) ; *** just for test $PasswordInput = GUICtrlRead($idPass) If $PasswordInput = "lock" Then MsgBox(0, "ERROR", "Bienvenido") Else MsgBox(0, "ERROR", "Por favor Ingrese su Contraseña") EndIf EndFunc ;==>_login Example : Output of errors in the SciTE Editor console : Edited April 25, 2020 by Musashi "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
Hemrry Posted April 29, 2020 Author Posted April 29, 2020 Good night thanks for the help Musashi, it is not an error like so in the console but when entering the password the program starts me but it does not allow me to list any selections expandcollapse popup#include <GUIConstantsEx.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <GUIConstants.au3> #include <WindowsConstants.au3> ; Botones Dim $Cban, $Cei, $Fav, $Sent, $Cabe, $Dirtv, $Bonu, $TM, $Pass, $OK, $Exit ;Ventanas Dim $VPinc, $VCban, $VCei, $VFav, $VSent, $VCaribe, $VDirectv, $Vbonus, $VTM, $Vcont ;Boton Atras Dim $Atras, $Atras1, $Atras2, $Atras3, $Atras4, $Atras5,$Atras6,$Atras7 ;Botones Copiar Dim $copi, $copi1, $copi2, $copi3, $copi4, $copi5, $copi6, $copi7, $copi8, $copi9, $copi10, $copi11, $copi12 Dim $copi12, $copi13, $copi14, $copi15, $copi16, $copi17, $copi18, $copi19, $copi20,$copi21,$copi22,$copi23 Dim $Imf = "00000000000" Dim $Imf1 = "00000000000" Dim $Imf2 = "00000000000" Dim $Imf3 = "00000000000" Dim $Imf4 = "00000000000" Dim $imf11= "00000000000" Dim $imf12= "00000000000" Dim $Imf17= "00000000000" Dim $Imf18= "00000000000" Dim $Imf19= "00000000000" Dim $Imf20= "00000000000 " Dim $Imf21= "00000000000" Dim $Imf22= "00000000000" ;Imformacion Dim $Imf5 = "00000000000" Dim $Imf6 = "00000000000" ;Imformacion Dim $Imf7 = "00000000000" Dim $Imf8 = "00000000000" ;Imformacion Dim $Imf9 = "00000000000" Dim $Imf10 = "00000000000" ;Imformacion Dim $imf13 = "00000000000" Dim $imf14 = "00000000000" Dim $imf15 = "00000000000" Dim $imf16 = "00000000000" Dim $imf23 = "00000000000" ;Funciones Principales Prin () Cuentas () Correo () Seniat () Faov () Bancaribe () Bonus () AirTm () Directv () GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_HIDE,$VDirectv) Contra() Func Contra() GUISetState(@SW_HIDE,$VPinc) $Vcont = GUICreate("Login", 220, 100, -1, -1,$WS_POPUP) $Pass = GUICtrlCreateInput("",10,40,-1,-1,$ES_PASSWORD) GUICtrlCreateLabel("Ingrese su contraseña", 55, 20, 150, 20) $OK = GUICtrlCreateButton("Login",110,70,100) $Exit = GUICtrlCreateButton("Exit",10,70,100) GUISetState(@SW_SHOW,$Vcont) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE or $msg = $Exit Exit Case $msg = $OK Valide() EndSelect WEnd EndFunc Selec () Func Selec () while 1 $msg=GUIGetMsg() Select Case $msg=$GUI_EVENT_CLOSE $x = 1 if WinActive($VPinc) and $x = 1 then ExitLoop endif if WinActive($VCban) then GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VCei) then GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VFav) then GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VSent) then GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif if WinActive($VBonus) then GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VTM) then GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VCaribe) then GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_SHOW,$VCban) $x = 0 endif if WinActive($VDirectv) then GUISetState(@SW_HIDE,$VDirectv) GUISetState(@SW_SHOW,$VPinc) $x = 0 endif Case $msg = $Cban GUISetState(@SW_HIDE,$VPinc) Cuentas() Case $msg = $Cei GUISetState(@SW_HIDE,$VPinc) Correo() Case $msg = $Fav GUISetState(@SW_HIDE,$VPinc) Faov() Case $msg = $Sent GUISetState(@SW_HIDE,$VPinc) Seniat() Case $msg = $Cabe GUISetState(@SW_HIDE,$VCban) Bancaribe() Case $msg = $Bonu GUISetState(@SW_HIDE,$VCban) Bonus() Case $msg = $TM GUISetState(@SW_HIDE,$VCban) AirTm() Case $msg = $Dirtv GUISetState(@SW_HIDE,$VPinc) Directv() Case $msg=$Atras GUISetState(@SW_HIDE,$VCban) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras1 GUISetState(@SW_HIDE,$VCaribe) GUISetState(@SW_SHOW,$VCban) Case $msg=$Atras2 GUISetState(@SW_HIDE,$VCei) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras3 GUISetState(@SW_HIDE,$VFav) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras4 GUISetState(@SW_HIDE,$VSent) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras5 GUISetState(@SW_HIDE,$VDirectv) GUISetState(@SW_SHOW,$VPinc) Case $msg=$Atras6 GUISetState(@SW_HIDE,$VBonus) GUISetState(@SW_SHOW,$VCban) Case $msg=$Atras7 GUISetState(@SW_HIDE,$VTM) GUISetState(@SW_SHOW,$VCban) Case $msg=$Copi ClipPut ($Imf) Case $msg=$Copi1 ClipPut ($Imf1) Case $msg=$Copi2 ClipPut ($Imf2) Case $msg=$Copi3 ClipPut ($Imf3) Case $msg=$Copi4 ClipPut ($Imf4) Case $msg=$Copi5 ClipPut ($Imf5) Case $msg=$Copi6 ClipPut ($Imf6) Case $msg=$Copi7 ClipPut ($Imf7) Case $msg=$Copi8 ClipPut ($Imf8) Case $msg=$Copi9 ClipPut ($Imf9) Case $msg=$Copi10 ClipPut ($Imf10) Case $msg=$Copi11 ClipPut ($Imf11) Case $msg=$Copi12 ClipPut ($Imf12) Case $msg=$Copi13 ClipPut ($Imf13) Case $msg=$Copi14 ClipPut ($Imf14) Case $msg=$Copi15 ClipPut ($Imf15) Case $msg=$Copi16 ClipPut ($Imf16) Case $msg=$Copi17 ClipPut ($Imf17) Case $msg=$Copi18 ClipPut ($Imf18) Case $msg=$Copi19 ClipPut ($Imf19) Case $msg=$Copi20 ClipPut ($Imf20) Case $msg=$Copi21 ClipPut ($Imf21) Case $msg=$Copi22 ClipPut ($Imf22) Case $msg=$Copi23 ClipPut ($Imf23) EndSelect WEnd EndFunc Valide () Func Valide () $msg=GUIGetMsg() $msg =$GUI_EVENT_CLOSE $PasswordInput = GUICtrlRead($Pass) if $PasswordInput = "lock" Then Prin () Else MsgBox(0,"ERROR","Por favor Ingrese su Contraseña") EndIf EndFunc Func Prin () ;ventana Principal $VPinc = GUICreate("Imformacion de Cuentas", 490, 122, -1, -1, $WS_POPUP) ;Selecciones del menu $Cban = GUICtrlCreateButton("Cuentas Bancarias", 16, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Cei = GUICtrlCreateButton("Correo elctronico", 112, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Fav = GUICtrlCreateButton("Faov", 208, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Sent = GUICtrlCreateButton("Seniat ", 304, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) $Dirtv = GUICtrlCreateButton("Directv ", 400, 30, 73, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 10, 500, 2, "Times New Roman") GUICtrlSetCursor (-1, 0) GUISetState(@SW_HIDE,$Vcont) GUISetState(@SW_SHOW,$VPinc) EndFunc Func Cuentas() $VCban = GUICreate("Cuentas Bancarias", 150, 500, -1, -1, $WS_POPUP) $Cabe = GUICtrlCreateButton("Bancaribe", 37, 30, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $Bonu = GUICtrlCreateButton("Bonus", 37, 100, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $TM = GUICtrlCreateButton("AirTm", 37, 170, 80, 60, $BS_MULTILINE) GUICtrlSetFont(-1, 12, 500, 2, "Times New Roman") $Atras= GUICtrlCreateButton("Atras", 35, 450, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCban) EndFunc Func Bancaribe() $VCaribe = GUICreate("Bancaribe", 500, 700, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Numero de Cuenta:", 10, 20, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 22, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi = GUICtrlCreateButton("Copiar", 390, 21, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 52, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi1 = GUICtrlCreateButton("Copiar", 390, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Pin de tres digitos:", 10, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 82, 100, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi2 = GUICtrlCreateButton("Copiar", 390, 81, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Valid from:0000", 70, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Valid Thru:000", 300, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Conexion Bancaribe", 180, 180, 200, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 240, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 240, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi3 = GUICtrlCreateButton("Copiar", 390, 241, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 270, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 270, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi4 = GUICtrlCreateButton("Copiar", 390, 271, 80, 20) GUICtrlSetCursor (-1, 0) $Atras1 = GUICtrlCreateButton("Atras", 215, 620, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCaribe) EndFunc Func Bonus() $VBonus = GUICreate("Bonus", 500, 300, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 52, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi17 = GUICtrlCreateButton("Copiar", 390, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Pin de siete digitos:", 10, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 82, 100, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi18 = GUICtrlCreateButton("Copiar", 390, 81, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Conexion Bonus", 175, 110, 200, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 140, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 142, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi19 = GUICtrlCreateButton("Copiar", 390, 141, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 170, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 170, 172, 200, 30) GUICtrlSetFont(-1, 10, 700, 0, "MS Sans Serif") $copi20 = GUICtrlCreateButton("Copiar", 390, 171, 80, 20) GUICtrlSetCursor (-1, 0) $Atras6 = GUICtrlCreateButton("Atras", 215, 230, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VBonus) EndFunc Func AirTm() $VTM = GUICreate("AirTm", 400, 190, -1, -1, $WS_SYSMENU) GUICtrlCreateLabel("Usuario AirTm", 130, 15, 300, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi21 = GUICtrlCreateButton("Copiar", 310, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi22 = GUICtrlCreateButton("Copiar", 310, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras7 = GUICtrlCreateButton("Atras", 150, 120, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VTM) EndFunc Func Correo() $VCei = GUICreate("Correo Electronico", 400, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Correo Electronico", 130, 15, 300, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi5 = GUICtrlCreateButton("Copiar", 310, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi6 = GUICtrlCreateButton("Copiar", 310, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras2 = GUICtrlCreateButton("Atras", 130, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VCei) EndFunc Func Faov() $VFav = GUICreate("Faov", 300, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario FAOV", 108, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi7 = GUICtrlCreateButton("Copiar", 210, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi8 = GUICtrlCreateButton("Copiar", 210, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras3 = GUICtrlCreateButton("Atras", 109, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VFav) EndFunc Func Seniat() $VSent = GUICreate("Seniat", 300, 150, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario Seniat", 108, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 50, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi9 = GUICtrlCreateButton("Copiar", 210, 51, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 100, 80, 100, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi10 = GUICtrlCreateButton("Copiar", 210, 81, 80, 20) GUICtrlSetCursor (-1, 0) $Atras4 = GUICtrlCreateButton("Atras", 109, 110, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VSent) EndFunc Func Directv() $VDirectv = GUICreate("Directv", 500, 280, -1, -1, $WS_POPUP) GUICtrlCreateLabel("Usuario Directv", 190, 15, 150, 30) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("Usuario:", 10, 50, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 50, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi13 = GUICtrlCreateButton("Copiar", 400, 44, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Contraseña:", 10, 80, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 80, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi14 = GUICtrlCreateButton("Copiar", 400, 74, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Tarjeta:", 10, 120, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 120, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi15 = GUICtrlCreateButton("Copiar", 400, 115, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Cedula:", 10, 150, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 150, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi16 = GUICtrlCreateButton("Copiar", 400, 145, 80, 20) GUICtrlSetCursor (-1, 0) GUICtrlCreateLabel("Numero de Cliente:", 10, 180, 150, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateLabel("00000000000", 150, 180, 200, 30) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $copi23 = GUICtrlCreateButton("Copiar", 400, 180, 80, 20) GUICtrlSetCursor (-1, 0) $Atras5 = GUICtrlCreateButton("Atras", 200, 230, 90, 30) GUICtrlSetCursor (-1, 0) GUISetState(@SW_SHOW,$VDirectv) EndFunc
Musashi Posted April 30, 2020 Posted April 30, 2020 On 4/29/2020 at 4:29 AM, Hemrry said: it is not an error like so in the console but when entering the password the program starts me but it does not allow me to list any selections 33 minutes ago, Hemrry said: help Please do not get me wrong, but your script needs, in my opinion, a complete rebuild. At the moment, it looks as if it was processed with an obfuscator. The entire GUI control, the variable naming, the structure of the script etc. makes a quick correction virtually impossible. I don't want to discourage you in any way, since you have delivered a script after all (which is more than many others do). The only solution I see would be to rewrite it, but unfortunately I don't have the time to do that. You should better start from scratch again and post the single steps here in the forum. Then the helpers can immediately point out potential problems and offer alternatives. This is surely not the answer you were hoping for, but I didn't want to leave you without any feedback . Maybe other users have a better suggestion to offer. "In the beginning the Universe was created. This has made a lot of people very angry and been widely regarded as a bad move."
BrewManNH Posted May 1, 2020 Posted May 1, 2020 Selec () ; <<<<<<<<<<<<<<<<<<<<<<<<< Func Selec () while 1 Your Selec function never gets called due to it being called after the endless loop before it. If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays. - ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. - Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. - _FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. - Latin Square password generator
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now