crear encriptado de codigo de barras y ie cierra ventana

[vladhampir]

hola que tal pues ya cada vez mas cerca del objetivo muchas gracias por toda su ayuda

bueno comento

al codigo le agregue un encriptado y uso el que proporciona autoit

mi pregunta es como puedo crear uno para codigo de barras suponiendo que a=1 b=2 etc por poner un ejemplo ya que el otro es muy largo para una etiqueta

segunda duda
como puedo crear un boton para imprimir el codigo encriptado

tercera y ultima duda
en la pagina de movistar al cerrar cesion me dice que va a cerrar la ventana una vez cerrada ya me genera error por que no reconoce una direccion
con firefox no me pide cerrar ventana como puedo integrar firefox asi como integre la shell explorer o como puedo quitar ese mensaje emergente de explorer

de antemano muchas gracias aqui dejo el codigo

Código: Seleccionar todo

#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <Misc.au3>
#include <String.au3>
#include <Excel.au3>
#include <Word.au3>

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("TETO", 1089, 722, 84, 129)

$Button1 = GUICtrlCreateButton("TELCEL", 0, 0, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("MOVISTAR", 80, 0, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("CURP", 160, 0, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("EXCEL", 240, 0, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("WORD", 320, 0, 75, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("DOCUMENTOS", 400, 0, 91, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("APAGAR", 936, 608, 139, 73, $WS_GROUP)

    $MSISDN = IniRead("RECARGAS.ini", "TELCEL", "MSISDN", "")
	$NIP = IniRead("RECARGAS.ini", "TELCEL", "NIP", "")
	$UserName = IniRead("RECARGAS.ini", "TELCEL", "UserName", "")

	$USUARIO = IniRead("RECARGAS.ini", "MOVISTAR", "USUARIO", "")
	$PASSWORD = IniRead("RECARGAS.ini", "MOVISTAR", "PASSWORD", "")

$user1 = StringReplace($MSISDN,  " ", "-")
$pass1 = StringReplace($NIP,  " ", "-")
$usern1 = StringReplace($UserName,  " ", "-")

$user2 = StringReplace($USUARIO,  " ", "-")
$pass2 = StringReplace($PASSWORD,  " ", "-")

$object = ObjCreate("Shell.Explorer.2")
$object_ctrl = GUICtrlCreateObj($object, 10, 50, 900, 660)

$DecryptButton = GUICtrlCreateButton("Usuario", 968, 24, 75, 25, $WS_GROUP)
$EncryptButton = GUICtrlCreateButton("Codigo", 968, 96, 75, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 944, 64, 121, 21)
$Input2 = GUICtrlCreateInput("", 944, 144, 121, 21)
$Group1 = GUICtrlCreateGroup("Codigo Encriptado", 936, 8, 137, 177)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg


	Case $Button1

		 _IENavigate($object, "https://recargamigoweb.telcel.com/distributor/user/Login.action")
		 $oID = _IEGetObjByName($object, "user")
		 _IEFormElementSetValue($oID, $user1)
		 $oPW = _IEGetObjByName($object, "password")
		 _IEFormElementSetValue($oPW, $pass1)
		 $oWelt = _IEGetObjByName($object, "username")
		 _IEFormElementSetValue($oWelt, $usern1)
		 $oBoton= _IEGetObjByName ($object , "bsave")
		 _IEAction($oBoton,"click")
		 _IEAction($oBoton,"click")

	Case $Button2

		 _IENavigate($object, "http://sre.movistar.com.mx/sre/")
		 $oID2 = _IEGetObjByName($object, "user")
		 _IEFormElementSetValue($oID2,$user2 )
		 $oPW2 = _IEGetObjByName($object, "password")
		 _IEFormElementSetValue($oPW2, $pass2)
		 $oBoton= _IEGetObjByName ($object , "submit")
		 _IEAction($oBoton,"click")






	Case $Button3
         _IENavigate($object, "http://consultas.curp.gob.mx/CurpSP/")


	Case $Button4
		 $oExcel = _ExcelBookNew()

    Case $Button5
		 $oWordApp = _WordCreate()

	Case $Button6
		 $object.navigate(@MyDocumentsDir)


    Case $Button7

		Run("C:\WINDOWS\SYSTEM32\shutdown -s")


	Case $EncryptButton

		 $string = GUICtrlRead($Input1)
		 GUICtrlSetData($Input2, _StringEncrypt(1, $string, 10))

	Case $DecryptButton

	      $string = GUICtrlRead($Input2)
	     GUICtrlSetData($Input1, _StringEncrypt(0, $string, 10))

Case $GUI_EVENT_CLOSE
Exit

	EndSwitch
WEnd

[BasicOs]

como puedo crear un boton para imprimir el codigo encriptado

Con el Koda puedes crear el código y luego imprimir usando las funciones http://www.emesn.com/autoitforum/search ... s=imprimir

http://www.autoitscript.com/forum/topic ... msearch__1

Para quitar el mensaje, o bien winclose() o send("{Enter}"

Para firefox, aquí puedes encontrar alguna librería igual que la de IE: http://www.autoitscript.com/forum/index ... omsearch=1
Salu22:)

[vladhampir]

perdona a lo mejor no m explique bien
el detalle que tengo con la paqina web es que al finalizar sesion dice "la pagina web esta intentado cerrar la ventana da dos opciones si y no
al pulsar si, cierra el explorador y me manda error
Line 301 (file "C:\program files\autoit3include\ie.au")
$o_object.navigate($_url)
$o_object.navigate($_url)error

error.The requested action with this object has failed

segundoquiero un copdigo encriptado un poco mas chico y depues ese poderlo pasar con un codigo de barras
parahacer la impresion con codigo de barras el codigo encriptado bueno espero ahora poder darme a entender
gracias

[BasicOs]

Puede que el error no sea nada, si estas saliendo y cierras la ventana, con lo que acabas mal la ejecución del _IE, deberías cerrar el _IECLOSE() antes de que de el error. PUedes cambiar los comandos IE a ver que te den otro resultado.
O en caso de que acabe mal, pero en que te afecta?

Puedes simplemente coger los primeros caracteres del código o crear un código numérico paralelo (en una tabla) donde se corresponden, con lo que serían correlativos.
SAlu22:)

[vladhampir]

hola ya pude eliminar el problema
solo le di a cada boton que volviera a crear el explorador y con eso se soluciono
para lo de l codigo encriptado
hice uno en visual basic lee del block de notas lo que este escrito y lo devuelve encriptado
el detalle esta que tengo que pulsar dos veces el boton para que lo cargue bien primero me carga el anterior
estaba viendo que con inidelete pero tendria que crear otro boton para limpiar
y por ultimo solo lo de poder crear codigo de barras estuve buscando por barcode pero solo encontre un dato y no lo entendi
no se si sepan como meter el sistema code128ab que creo es el mas utilizado
de antemano muchas gracias

te dejo el cod

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 48, 48, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button1", 48, 88, 75, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 144, 48, 121, 21)
$Input2 = GUICtrlCreateInput("", 144, 88, 121, 21)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg

		 case $Button1
	        IniWrite("datos.ini", "desencriptar", "1", GUICtrlRead($Input1))
	        run("gen.exe")

	       $leer=IniRead("datos.ini", "encriptar", "1","")
		   GUICtrlSetData($Input2, $leer)

		case $Button2

	        IniWrite("datos2.ini", "encriptar", "1", GUICtrlRead($Input2))
	        run("gen1.exe")

	       $leer=IniRead("datos2.ini", "desencriptar", "1","")
		   GUICtrlSetData($Input1, $leer)


		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

[Chefito]

Para el código encriptado, si lo que quieres encriptar es texto, te recomiendo que mires en la ayuda la función _StringEncrypt.
También tienes otras funciones. Estas empiezan por _Crypt_...... . Buscalas en la ayuda.
Por supuesto, como dice BasicOs, puedes hacer tu propio código de encriptación. Supongo que en vb hayas hecho la típica encriptación simple Xor. Aquí tambien tienes la función bitXor. Pero esta encriptación es simplísima. Te recomiendo que utilices las funciones anteriores.

Para el tema de los códigos de barras, tienes varias opciones. Yo te recomiendo que utilizes una fuente de letra de código de barras. Mira esta por ejemplo: http://www.dafont.com/bitmap.php
También hay controles y librerías que las hacen en imágenes. Es cuestión de buscar en google.

Otra opción sería que te la currases tú con alguna función utilizando gráficos. Aunque puede darte algo de trabajo, no necesitarías incluir ningún archivo externo.

Saludos.

[vladhampir]

hola que tal pues muchas gracias por su ayuda ya cada vez mas cerca estuve investigando y vi que con func y sting replace podia crear un codigo encriptado sencillo tuve problemas al tratar de mandar de un numero a otro asi que lo que hice fue enviarlo a un archivo .ini y que me lo mandara nuevamente codificado para no usar un input extra bueno el problema que tengo es el siguiente para una pagina de telcel necesito hacer un refresh cada al menos 15 min y siga asi indefinidamente actualizando cada 15 min
vi que estaban las funciones _ieaction con la opcion refresh y que puedo agregar sleep el detalle esta que al agregarselo los demas botones dejan de funcionar hay alguna manera de meter esta funcion.

de antemano muchas gracias dejo el codigo

Código: Seleccionar todo

#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <Misc.au3>
#include <String.au3>
#include <Excel.au3>
#include <Word.au3>



#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("RECARGAS", 1002, 674, 6, 6)
$Button1 = GUICtrlCreateButton("TELCEL", 8, 640, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("MOVISTAR", 88, 640, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("CURP", 168, 640, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("EXCEL", 248, 640, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("WORD", 328, 640, 75, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("DOCUMENTOS", 416, 640, 91, 25, $WS_GROUP)
$Button7 = GUICtrlCreateButton("APAGAR", 856, 592, 139, 73, $BS_FLAT)

$Group = GUICtrlCreateGroup("Escribir Codigo/ Numero", 856, 8, 137, 313,$ES_CENTER)
$DecryptButton = GUICtrlCreateButton("LEER CODIGO", 864, 28, 121, 21, $WS_GROUP)
$label = GUICtrlCreateLabel("CODIGO BARRAS", 864, 58, 121, 21,$ES_CENTER)
$Input = GUICtrlCreateInput("", 864, 78, 121, 21)
$EncryptButton = GUICtrlCreateButton("CREAR CODIGO", 864, 108, 121, 21, $WS_GROUP)
$label1 = GUICtrlCreateLabel("NUMERO", 864, 138, 121, 21,$ES_CENTER)
$Input1 = GUICtrlCreateInput("", 864, 158, 121, 21)
$Button8 = GUICtrlCreateButton("Guardar", 888,198, 75, 25, $WS_GROUP)

$label2 = GUICtrlCreateLabel(" GUARDAR NUMERO", 864, 228, 121, 21,$ES_CENTER)
$Input2 = GUICtrlCreateInput("", 864, 248, 121, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
GUICtrlCreateGroup("", -99, -99, 1, 1)



	   $MSISDN = IniRead(@MyDocumentsDir & "\RECARGAS.ini", "TELCEL", "MSISDN", "")
	$NIP = IniRead(@MyDocumentsDir & "\RECARGAS.ini", "TELCEL", "NIP", "")
	$UserName = IniRead(@MyDocumentsDir & "\RECARGAS.ini", "TELCEL", "UserName", "")

	$USUARIO = IniRead(@MyDocumentsDir & "\RECARGAS.ini", "MOVISTAR", "USUARIO", "")
	$PASSWORD = IniRead(@MyDocumentsDir & "\RECARGAS.ini", "MOVISTAR", "PASSWORD", "")

$user1 = StringReplace($MSISDN,  " ", "-")
$pass1 = StringReplace($NIP,  " ", "-")
$usern1 = StringReplace($UserName,  " ", "-")

$user2 = StringReplace($USUARIO,  " ", "-")
$pass2 = StringReplace($PASSWORD,  " ", "-")

$object = ObjCreate("Shell.Explorer.2")


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func BARCODE($STRING) ; Mando a la funcion lo que quiero decodificar

For $a = 1 To 2 step 1; desde el 2 asta el numero de caracteres de la linea



    ;Secuencias numérricas

$STRING = StringReplace($STRING, "0", "A")

$STRING = StringReplace($STRING, "1", "B")

$STRING = StringReplace($STRING, "2", "C")

$STRING = StringReplace($STRING, "3", "D")

$STRING = StringReplace($STRING, "4", "E")

$STRING = StringReplace($STRING, "5", "F")

$STRING = StringReplace($STRING, "6", "G")

$STRING = StringReplace($STRING, "7", "H")

$STRING = StringReplace($STRING, "8", "I")

$STRING = StringReplace($STRING, "9", "J")



next

return $STRING

EndFunc   ;==>_codificar
Func DEBARCODE($STRING) ; Mando a la funcion lo que quiero decodificar

For $a = 1 To 2 step 1; desde el 2 asta el numero de caracteres de la linea



    ;Secuencias numérricas

$STRING = StringReplace($STRING, "A", "0")

$STRING = StringReplace($STRING, "B", "1")

$STRING = StringReplace($STRING, "C", "2")

$STRING = StringReplace($STRING, "D", "3")

$STRING = StringReplace($STRING, "E", "4")

$STRING = StringReplace($STRING, "F", "5")

$STRING = StringReplace($STRING, "G", "6")

$STRING = StringReplace($STRING, "H", "7")

$STRING = StringReplace($STRING, "I", "8")

$STRING = StringReplace($STRING, "J", "9")



next

return $STRING

EndFunc   ;==>_codificar


Func CODIFICAR($STRING) ; Mando a la funcion lo que quiero decodificar

For $a = 1 To 2 step 1; desde el 2 asta el numero de caracteres de la linea



    ;Secuencias numérricas

$STRING = StringReplace($STRING, "B", "0")

$STRING = StringReplace($STRING, "G", "1")

$STRING = StringReplace($STRING, "A", "2")

$STRING = StringReplace($STRING, "H", "3")

$STRING = StringReplace($STRING, "D", "4")

$STRING = StringReplace($STRING, "I", "5")

$STRING = StringReplace($STRING, "E", "6")

$STRING = StringReplace($STRING, "J", "7")

$STRING = StringReplace($STRING, "F", "8")

$STRING = StringReplace($STRING, "C", "9")

next

return $STRING

EndFunc   ;==>_codificar

Func Decodificar($STRING) ; Mando a la funcion lo que quiero decodificar

For $a = 1 To 2 step 1; desde el 2 asta el numero de caracteres de la linea



    ;Secuencias numérricas

$STRING = StringReplace($STRING, "0", "B")

$STRING = StringReplace($STRING, "1", "G")

$STRING = StringReplace($STRING, "2", "A")

$STRING = StringReplace($STRING, "3", "H")

$STRING = StringReplace($STRING, "4", "D")

$STRING = StringReplace($STRING, "5", "I")

$STRING = StringReplace($STRING, "6", "E")

$STRING = StringReplace($STRING, "7", "J")

$STRING = StringReplace($STRING, "8", "F")

$STRING = StringReplace($STRING, "9", "C")

next

return $STRING

EndFunc   ;==>_codificar


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg


	Case $Button1
			$object_ctrl = GUICtrlCreateObj($object, 1, 1, 850, 610)

		 _IENavigate($object, "https://recargamigoweb.telcel.com/distributor/user/Login.action")
		 $oID = _IEGetObjByName($object, "user")
		 _IEFormElementSetValue($oID, $user1)
		 $oPW = _IEGetObjByName($object, "password")
		 _IEFormElementSetValue($oPW, $pass1)
		 $oWelt = _IEGetObjByName($object, "username")
		 _IEFormElementSetValue($oWelt, $usern1)
		 $oBoton= _IEGetObjByName ($object , "bsave")
		 _IEAction($oBoton,"click")
		 _IEAction($oBoton,"click")

	Case $Button2
	    $object_ctrl = GUICtrlCreateObj($object, 1, 1, 850, 610)
		 _IENavigate($object, "http://sre.movistar.com.mx/sre/")
		 $oID2 = _IEGetObjByName($object, "user")
		 _IEFormElementSetValue($oID2,$user2 )
		 $oPW2 = _IEGetObjByName($object, "password")
		 _IEFormElementSetValue($oPW2, $pass2)
		 $oBoton= _IEGetObjByName ($object , "submit")
		 _IEAction($oBoton,"click")






	Case $Button3
			$object_ctrl = GUICtrlCreateObj($object, 1, 1, 850, 610)
         _IENavigate($object, "http://consultas.curp.gob.mx/CurpSP/")


	Case $Button4
		 $oExcel = _ExcelBookNew()

    Case $Button5
		 $oWordApp = _WordCreate()

	Case $Button6
		 $object_ctrl = GUICtrlCreateObj($object, 1, 1, 850, 610)
		 $object.navigate(@MyDocumentsDir)


    Case $Button7

		Run("C:\WINDOWS\SYSTEM32\shutdown -s")


	Case $DecryptButton

		 $string2 = GUICtrlRead($Input)
		 IniWrite("ENCRIPTADO.ini", "desencriptar", "1", BARCODE($string2))
		 $S1 = IniRead("ENCRIPTADO.ini", "desencriptar", "1", "")
         GUICtrlSetData($Input1,CODIFICAR($S1))
         $string3 = GUICtrlRead($Input1)
		 ClipPut($string3)




	Case $EncryptButton

		 $string2 = GUICtrlRead($Input1)
		  IniWrite("ENCRIPTADO.ini", "desencriptar", "1", Decodificar($string2))
		   $S1 = IniRead("ENCRIPTADO.ini", "desencriptar", "1", "")
		   GUICtrlSetData($Input,DEBARCODE($S1))


	case $Button8
		  $string2 = GUICtrlRead($Input1)
		GUICtrlSetData($Input2,$string2)

		 IniWrite(@MyDocumentsDir & "\impresiones.INI", "usuarios", GUICtrlRead($Input1), GUICtrlRead($Input))


Case $GUI_EVENT_CLOSE  
exit
	EndSwitch
WEnd

[Chefito]

Llama a una función cada cierto tiempo que contenga el refresco con AdlibRegister. No te detiene el script. Mirala en la ayuda.
Recuerda que si quieres deshabilitarla tienes que utilizar AdlibUnRegister.

Saludos.

[KarlaSn]

alguien sabe sacar el rfc con homoclave ?

[Dany]

alguien sabe sacar el rfc con homoclave ?

Hola. Bienvenid@ al foro. Quizás podrías crear un tema propio y dar mas información.


Saludos