WIFINATOR BY ARZOBISPO - LIBERA TU WIFI

[arzo]

ARZOBISPO

AVATARARZOBISPO.jpg (45.09 KiB) Visto 4647 veces

Que tal amigos de AUTOIT.ES soy ARZOBISPO
La verdad soy muy nuevo en esto de autoit pero me gusta mucho la programación y tengo un poco de experiencia en autohotkey y específicamente buscando info relacionada a autohotkey encontré info interesante de autoit y la verdad me gusto mucho mas el alcance de autoit, entonces empece a hacer mi tarea de buscar y re leerme la info que algunos de ustedes han posteado en cuanto al manejo de AUTOIT y asi es como me fui involucrando con este maravilloso universo del autoit, bueno como no quiero aburrirlos iré al grano, como meta me propuse hacer un proyecto, que aunque pequeño, espero ayude a muchas personas como me ayudo a mi, no solo por la funcionalidad del programa sino por hacerme sentir capas de realizarlo, aunque el programa no es muy complejo, creo que les ayudara a simplificar un poco la vida, mi proyecto es WIFINATOR

¿QUE ES WIFINATOR?
Es una pequeña aplicación que convierte la tarjeta de red inalambrica WLAN en emisora y receptora ya que por default las tarjetas WLAN son solo receptoras, wifinator pretende simplificar la manera de compartir Internet con otros dispositivos, laptops, pc, smartphone´s, smartTV´s, consolas de videojuegos, etc. en fin con cualquier dispositivo que enlace inalambricamente.

¿COMO FUNCIONA?

ICONO DE WIFINATOR

1.PNG (3.92 KiB) Visto 4647 veces

ICONO DE WIFINATOR
RECUERDEN EJECUTARLO SIEMPRE COMO ADMINISTRADOR PARA QUE FUNCIONE AL 100%

AYUDA

ayuda.PNG (17.47 KiB) Visto 4647 veces

SOLAPA DE AYUDA, AQUI ENCONTRARAS TODA LA INFO PARA PODERLO UTILIZAR

CONFIGURACION

configuracion.PNG (10.36 KiB) Visto 4647 veces

SECCION DE CONFIGURACION, ACA ESTABLECES EL NOMBRE DE LA RED Y EL PASSWORD DE LA MISMA

CREDITOS

creditos.PNG (31.6 KiB) Visto 4647 veces

CREDITOS CORRESPONDIENTES

PRINCIPAL

principal.PNG (73.1 KiB) Visto 4647 veces

EN ESTA SOLAPA, PODRAS ENCONTRAR TRES BOTONES

ESTATUS DE RED EMISORA (AMARILLO)
Muestra el estado de la red emisora, nombre, cantidad de conexiones permitidas, tipo de autentificación, tipo de cifrado, y si esta iniciada la red (visible para los demás dispositivos)

ACTIVAR WLAN (VERDE)
Pone visible la red inalambrica emisora que tu creaste.

DESACTIVAR WLAN (ROJO)
Pone NO-visible la red inalámbrica emisora que tu creaste, NOTA: la red sigue estando activa con el mismo nombre de red y usuario pero ya no aparece visible a los demás dispositivos

¿COMPATIBILIDAD?
Por el momento solo ha sido probada con
WIN7 (x32/x64)
WIN8 (x32/x64)
Si tu la utilizas en algún otro sistema windows y te funciona por favor comentarlo para poder agregarlo, también si te da algún error publicarlo para poder solucionarlo.


¿REQUISITOS?
Windows OS (x32/x64)
Tarjeta de red inalambrica WLAN
Espacio en disco: 1 mega
No necesita instalación, es PORTABLE


LINK DE DESCARGA
http://adf.ly/2931568/wifinator (SORRY POR EL PATROCINIO)

SE VALE AGRADECER JEJEJE!!!

EDITADO==========================================================================================

Muchas gracias arkcrew por tu comentario de incluir el código fuente, disculpas por no haberlo puesto antes, la verdad se me paso por alto, pero aca tienen el código fuente, como dije al inicio del post soy nuevo en esto y quiza me complique un poco la vida con las funciones y todo esto, quiza hasta este siendo redundante en algunos puntos, asi que les agradecere si lo pueden mejorar, agregar cosas, o que por lo menos me digan que les parece, se los agradecere mucho.

Código: Seleccionar todo

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\PROGRAMA INTERNET JULIO 2013\ICONOS\Icon_244.ico
#AutoIt3Wrapper_Res_Comment=Arzobispo - Guatemala
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Local $sFldr1 = "C:\wifinator"
If DirGetSize($sFldr1) = -1 Then
    DirCreate($sFldr1)
EndIf
FileInstall("..\WIFINATOR\images.jpg","C:\wifinator\images.jpg")
FileInstall("..\WIFINATOR\imagen-wifi-publica-990.jpg","C:\wifinator\imagen-wifi-publica-990.jpg")
FileInstall("..\WIFINATOR\wpid-anon-logo-2011-02-16-15-271.jpg","C:\wifinator\wpid-anon-logo-2011-02-16-15-271.jpg")

#Region ### START Koda GUI section ### Form=wifinator.kxf
$Form1_1 = GUICreate("WIFINATOR - by Arzobispo - Guatemala", 411, 282, 298, 165)
$PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
$TabSheet1 = GUICtrlCreateTabItem("PRINCIPAL")
$Button6 = GUICtrlCreateButton("ESTATUS DE RED EMISORA", 28, 41, 201, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFF00)
$Button4 = GUICtrlCreateButton("ACTIVAR WLAN", 28, 81, 203, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0x00FF00)
$Button5 = GUICtrlCreateButton("DESACTIVAR WLAN", 28, 121, 203, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFF0000)
$Pic2 = GUICtrlCreatePic("C:\wifinator\images.jpg", 44, 153, 332, 100)
$Pic1 = GUICtrlCreatePic("C:\wifinator\imagen-wifi-publica-990.jpg", 260, 33, 124, 124)
$TabSheet2 = GUICtrlCreateTabItem("CONFIGURACION")
$Label2 = GUICtrlCreateLabel("NOMBRE / SSID", 20, 57, 79, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$NOMBRE = GUICtrlCreateInput("", 20, 81, 113, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$CONTRA = GUICtrlCreateInput("", 156, 81, 121, 22, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("CONTRASEÑA", 156, 57, 76, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("De 8 a 63 Caracteres", 156, 105, 107, 18, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetResizing(-1, $GUI_DOCKVCENTER)
$Label5 = GUICtrlCreateLabel("La contraseña es obligatoria para manter tu seguridad", 12, 129, 265, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFBF0)
$Button7 = GUICtrlCreateButton("GUARDAR", 300, 81, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label7 = GUICtrlCreateLabel("Estatus:", 12, 145, 43, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Respuestas = GUICtrlCreateEdit("", 12, 169, 385, 89)
GUICtrlSetData(-1, "Respuestas")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet3 = GUICtrlCreateTabItem("CREDITOS")
$GroupBox1 = GUICtrlCreateGroup("", 20, 41, 369, 209)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Image1 = GUICtrlCreatePic("C:\wifinator\wpid-anon-logo-2011-02-16-15-271.jpg", 28, 65, 169, 161)
$Label8 = GUICtrlCreateLabel("WIFINATOR", 204, 89, 163, 36)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Version 1.0", 204, 145, 60, 18)
$Label11 = GUICtrlCreateLabel("Internet Libre Guatemala 2013", 204, 209, 148, 18)
$Label10 = GUICtrlCreateLabel("Copyright: Arzobispo - Guatemala", 204, 177, 167, 18)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("AYUDA")
GUICtrlSetState(-1,$GUI_SHOW)
$ayuda = GUICtrlCreateEdit("", 16, 64, 377, 193)
GUICtrlSetData(-1, "ayuda")
GUICtrlSetBkColor(-1, 0xF4F7FC)
GUICtrlSetCursor (-1, 4)
$Label12 = GUICtrlCreateLabel("Aprende a configurar tu WLAN", 16, 48, 150, 17)
GUICtrlCreateTabItem("")
$Label1 = GUICtrlCreateLabel("WIFINATOR 1.0", 296, 8, 112, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("By Arzobispo - Guatemala", 0, 264, 125, 17, $SS_CENTER)
GUISetState(@SW_SHOW)
ayuda()
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button7
			ventanaconfigurarwlan()
		Case $Button6
			estatusdered()
		Case $Button4
			activarwlan()
		Case $Button5
			desactivarwlan()
    EndSwitch
WEnd

#funciones
Func ventanaconfigurarwlan()
			Global $DOS, $Message = '' ;; added "= ''" for show only.
$NOMBRERED = GUICtrlRead($NOMBRE) ; leemos el input
$CONTRARED = GUICtrlRead($CONTRA) ; leemos el input
$DOS = Run("netsh wlan set hostednetwork mode=allow ssid="&$NOMBRERED&" key="&$CONTRARED,"",@SW_HIDE,2)
ProcessWaitClose($DOS)
$Message = StdoutRead($DOS)
;MsgBox(0, "ESTATUS", $Message)
GUICtrlSetData ($Respuestas, $Message & "Ahora ve a la solapa PRINCIPAL" & @CRLF & "y da click en el boton ACTIVAR RED" & @CRLF & "Finalizando petición by Arzobispo")

EndFunc

Func estatusdered()
Global $DOS, $Message = '' ;; added "= ''" for show only.
$DOS = Run("netsh wlan show hostednetwork","",@SW_HIDE,2)
ProcessWaitClose($DOS)
$Message = StdoutRead($DOS)
MsgBox(0, "ESTATUS", $Message)
;GUICtrlSetData ($Respuestas, $Message & "Ahora regresa al menu principal y da click en el boton activar red - Finalizando peticion by Arzobispo")
EndFunc

Func activarwlan()
Global $DOS, $Message = '' ;; added "= ''" for show only.
$DOS = Run("netsh wlan start hostednetwork","",@SW_HIDE,2)
ProcessWaitClose($DOS)
$Message = StdoutRead($DOS)
MsgBox(0, "ESTATUS", $Message)
;GUICtrlSetData ($Respuestas, $Message & "Ahora regresa al menu principal y da click en el boton activar Wlan - Finalizando peticion by Arzobispo")
EndFunc

Func desactivarwlan()
Global $DOS, $Message = '' ;; added "= ''" for show only.
$DOS = Run("netsh wlan stop hostednetwork","",@SW_HIDE,2)
ProcessWaitClose($DOS)
$Message = StdoutRead($DOS)
MsgBox(0, "ESTATUS", $Message)
;GUICtrlSetData ($Respuestas, $Message & "Ahora regresa al menu principal y da click en el boton activar red - Finalizando peticion by Arzobispo")
EndFunc

Func ayuda()
	$Info1 = "1.- Selecciona la solapa -CONFIGURACION-"& @CRLF _
			&"2.- Rellena los campos -NOMBRE/SSID- y -CONTRASEÑA-"& @CRLF _
            &"3.- Presiona el botón -GUARDAR-"& @CRLF _
			&"4.- Verifica la casilla de -ESTATUS- para ver si logro hacer los cambios"& @CRLF _
            &"7.- Si no logra hacer los cambios ejecuta el programa en modo administrador"& @CRLF _
            &"8.- Dirígete a la solapa -PRINCIPAL- y presiona -ACTIVAR WLAN-"& @CRLF _
            &"9.- Si has hecho todo bien ya puedes disfrutar de la red WLAN emisora"& @CRLF _
            &"10.- Para desactivar la red WLAN presiona el botón -DESACTIVAR WLAN-"& @CRLF

	GUICtrlSetData ($ayuda, $Info1)
EndFunc

EXITOS; Tengo algunos proyectos que me gustaría desarrollar, claro con la ayuda de ustedes, haber quien se apunta.

EDITADO==========================================================================================

Bueno amigos creo que pase por alto algunos detallitos es por eso que edito de nuevo este post, solo para darles un plus+

se que para muchos de nosotros quizá esto sea muy simple de realizar, pero para algunos usuarios esto es algo totalmente nuevo.

COMO COMPARTIR UNA CONEXIÓN DE RED CON OTRAS REDES Y PERMITIR QUE SE CONECTEN A INTERNET
Se que suena algo estrambotico y complicado, pero es bien sencillo.

1.- Nos vamos a "Panel de control\Redes e Internet\Conexiones de red" (Perdón no me deja adjuntar mas imágenes, 6 es el máximo)

2.- En esta seccion encontraremos todas nuestras conexiones de red, incluyendo la nueva conexion que creamos con el WIFINATOR a la que llamaremos "CONEX-WIFINATOR".

3.- Por default el nombre de red sera algo por el estilo (Conexión de área local X numero) y abajo en la descripción (letras grises) estará nuestra red, "CONEX-WIFINATOR"

4.- La re-nombramos y le colocamos un nombre fácil de identificar en este caso sera "WIFILIBRE"

5.- Ahora buscamos la conexion de red que esta conectada a internet, en este caso la llamaremos "INTERNET VIVO", esta es la conexion que compartiremos con WIFILIBRE.

6.- Ahora damos click derecho sobre el icono de INTERNET VIVO y seleccionamos PROPIEDADES.

7.- Seleccionamos la solapa de "USO COMPARTIDO" y nos aparecerán nuevas opciones, seleccionamos "PERMITIR QUE OTRAS REDES SE CONECTEN ATRAVES DE LA CONEXION A INTERNET DE ESTE EQUIPO" y en el menu desplegable buscamos el nombre de nuestra red inalambrica emisora "WIFILIBRE"

8.- Quitamos la marca de la casilla "PERMITIR QUE LOS USUARIOS DE OTRAS REDES CONTROLEN O DESHABILITEN LA CONEXION COMPARTIDA DE INTERNET"

9.- Le damos aceptar

10.- Esto deshabilitara la red emisora de wifi "WIFILIBRE" temporalmente, entonces utilizamos WIFINATOR para activarla nuevamente y en cuestion de 10 segundos aproximadamente la red emisora que hicieron con WIFINATOR, de nombre "CONEX-WIFINATOR" ya tendra internet.

Espero haber explicado bien este tema y cualquier duda, aca estamos para servirles.

EXITOS

[arkcrew]

Buenas,

Tiene muy buena pinta así por lo que se supone que hace y las imágenes, pero lo que pensará y probablemente te dirá algún otro miembro del foro es: ¿Dónde está el código fuente?. Por lo que puedes ver por aqui, en esta "Galeria de Programas Originales Concurso" cada aplicación que posteamos va con su código para que nosotros los moderadores, administradores y otros usuarios podamos calificarte de especialista en autoit.

A parte de eso, la propia curiosidad que genera el hecho de tener una aplicación y no poder husmear en su código,

Dicho esto, si te animas postealo! lo más probable es que a algún usuario se le ocurra alguna cosa que mejore u optimice tu código, te lo digo por experiencia.

Saludos!

[BasicOs]

Hola Arzobispo

No necesita instalación, es PORTABLE

Me gustó que lo remarcaras. Los programas de Autoit son Portables por defecto y no necesitan instalación. (Por defecto, en general no cambian el sistema), para el pendrive :) o dropbox
No aburren nada los comentarios que haces.
Gracias por el aporte. Seguro que habrá mejoras.
Salu22:)

[arkcrew]

Buenas,

Gracias por incluir el código, ahora se ve claro y te puedo comentar algo, no es un error funcional pero si un error de concepto:

Estás usando dentro de la función la definición de variables tipo Global : Global $DOS, $Message.

Si esa variable SOLO se va a utilizar en esa funcion y no en ninguna otra parte fuera de la misma, deberías definir la variable como Local, ahora bien, si lo que quieres es tener acceso al valor de esa variable, la defines como Global, pero OJO: no tienes que definir una variable global cada vez que la vayas a usar, es decir, al comienzo del código defines las variablesy luego, siempre que quieras cambiar el valor de esta, no necesitas definirla, simplemente indicar el nuevo valor.

Para que lo entiendas mejor te pongo un par de ejemplos sencillos.

Definicion variables locales

Código: Seleccionar todo

msgbox(0,"Suma","operación: 4+6=" & _sumar(4,6) )

func _sumar($op1,$op2)
Local $resultado = $op1+$op2
return $resultado
EndFunc

En este sencillo ejemplo, como vemos usamos una variable local que solo se encarga de almacenar el resultado de la operación y devolverlo, lo cual, como se ve, sería absurdo declarar como global si solo lo vamos a usar para esto.

Ahora bien, supongamos que el resultado de esa operación lo vamos a usar varias veces más, ya sea porque queramos operar de nuevo con ese resultado en una función diferente (por poner un caso que cuelgue del ejemplo anterior)

En este caso si definiríamos como global la variable.

Código: Seleccionar todo

Global $resultado = 0;
_sumar(4,6);Llamo a la función para que esta opere y almacene el resultado
msgbox(0,"Suma","operación: 4+6=" &$resultado )

;En cualquier momento podemos acceder al valor de la variable, por ejemplo, multipliquemos el resultado por dos

$resultado = $resultado *2
msgbox(0,"Multiplicación","Resultado obtenido x 2:" &$resultado )

func _sumar($op1,$op2)
$resultado = $op1+$op2
EndFunc

Espero que el ejemplo te aclare el concepto de definición de variables, quieras que no, definir bien las cosas y ordenarlas hace mucho a la hora de programar cosas complejas.

Saludos!