funciones

2

Funciones: GetMac

Posted on by bunker

Buenas les traigo una función vbscript (pedida por JorgeSpain) para obtener la dirección MAC de los adaptadores conectados en nuestra pc.

Llamada a la función:

Call "GetMac" "true" "[TextEntry1]"

La función recibe 2 parámetros:

1:  Si es true traerá solo la mac de la placa ethernet. Si es false traerá la lista mac de todos los adaptadores

2: Variable donde guardar el resultado

El resultado es devuelto de la forma nombreadaptador;MAC (el nombre se encuentra separado de la mac con “;”)

Espero que sea útil

Saludos

Screenshot

screen

Descarga

  ejmac.rar (1,0 MiB, 2.316 hits)

NOTA: Las función debe ser copiada a la  carpeta Functions de NeoBook.

0

Ejemplo reiniciar publicacion

Posted on by bunker

Hola este ejemplo es para responder a Jorgesp que tenia la siguiente consulta:

Hola!! ¿alguien sabe qué función puedo crear para reiniciar la aplicación? Cerrar y abrir de nuevo el ejecutable sin necesidad de plug-ins, ¿hay alguna función? Gracias!!!

Para resolver esto hice la función ReiniciarPub:

.Separamos la variable commandline
StrParse "[CommandLine]" "[#13]" "[Parametro]" ""
.El primer parametro es el la ruta a nuestro ejecutable
setvar "[DirNombreExe]" "[Parametro1]"
DeleteArray "[Parametro]" "All"
.Separamos para obtener solo el nombre
StrParse "[DirNombreExe]" "\" "[NombreExePartes]" "[NombreExePartes.C]"
setvar "[NombreExe]" "[NombreExePartes[NombreExePartes.C]]"
DeleteArray "[NombreExePartes]" "All"
clearvariables "[NombreExePartes.C]"
.Aca escribimos en temp un simple .bat que nos ayudara
.Escribimos el comando taskkill que cerrara nuestra app
FileWrite "[TempDir]reinip.bat" "All" "start /B /WAIT taskkill /f /im [NombreExe]"
.Si le pasamos un numero como parametro escribira el comando timeout que esperara los segundos que le pasemos
if "[%1]" ">" "0"
FileWrite "[TempDir]reinip.bat" "Append" "start /B /WAIT timeout [%1]"
endif
.Escribimos el comando start que se encargara de ejecutar nuevamente nuestra app
FileWrite "[TempDir]reinip.bat" "Append" "start [DirNombreExe]"
.Por ultimo ejecutamos el .bat que escribimos
Run "[TempDir]reinip.bat" "" "RunOnce+Hidden" "" ""

Entonces para llamarla hacemos :

Call "ReiniciarPub" "10"

La función recibe 1 parámetro que es la cantidad de segundos que queremos que espere antes de reabrir la aplicación.

Por lo que si queremos que el reinicio sea instantáneo seria:

Call "ReiniciarPub" "0"

Screenshots

sshot

Descarga:

  ejReiniciarPub.rar (1.019,1 KiB, 2.213 hits)

NOTA: La función ReiniciarPub (incluida en el .rar) debe estar en la carpeta functions donde esta instalado neobook.

Espero que sirva.

BuNKeR

 

3

Funciones: TextoEntre

Posted on by bunker

Hoy voy a compartir con ustedes una función creada por mi que me ha sido de mucha ayuda en mis proyectos. Su nombre es TextoEntre y funciona de la siguiente manera:

Dado un texto ej.: <a href=”www.google.com.ar”>Ir a google</a> guardado en [texej] y necesitamos obtener solo el link (www.google.com.ar) llamaríamos a la función del siguiente modo

Call "TextoEntre" "[texej]" "href=[#34]" "[#34]>" "[link]"

obtendríamos lo deseado en la variable [link].

La función recibe 4 parámetros:

Call "TextoEntre" "[fuente]" " [inicio]" "[fin]" "[resultado]"

[fuente] -> La cadena fuente

[inicio] -> La cadena que está antes del texto

[fin] -> La cadena que está después del texto

[resultado] -> Donde se desea guardar el texto

–

[resultado] guardara el texto encontrado entre [inicio] y [fin]. Si no encuentra [inicio] o [fin] en la cadena fuente TextoEntre devolvera 0(cero).

Espero que les sea útil.

Captura:

Descarga:

  ejTextoEntre.rar (1,1 MiB, 1.881 hits)

 

NOTA: Las función debe ser copiada a la  carpeta Functions de NeoBook.

2

Comparando números en neobook

Posted on by bunker

Hace unos días recibí un mail donde me decían que si tenían 2 números (grandes) y éstos diferían en alguna parte, el comando IF daba como resultado que eran IGUALES aunque no lo fueran.

Para ver a partir de que cifra es que neobook los considera iguales hice este ejemplo en el cual genero un numero y cambio el ultimo dígito por uno diferente, luego hago las comparaciones con IF, rlStrCmp (rlfunctions) y dec_CompararDosCadenas (dec_plus).

Al parecer el comando IF tiene algún tipo de limite para comparaciones, al menos en las numéricas cuando supera la cifra 17 (a veces incluyéndola).

Entonces cual seria la solución?

La solución es utilizar alguna de las funciones de los siguientes plugins:

rlStrCmp (rlfunctions)

dec_CompararDosCadenas (dec_plus)

Con esas funciones se aseguran de obtener el resultado correcto.

Captura

Descarga

  ejcomparacion.rar (1,3 MiB, 1.770 hits)

 

6

Acceso directo a Compilar (Botón Compilar)

Posted on by bunker

Buenas, hoy voy a compartir (luego de ver un tema en el foro oficial) con ustedes un truco que hacia antes para no tener que ir tantas veces a Book>Compile/Publish y era una aplicación realizada con autohotkey que al presionar la tecla F3 me abre el cuadro compilar.

Pero ahora fui un poco mas allá (luego de leer en el tema que estaría bien un icono en la barra de herramientas) y decidí , ademas de la tecla F3, insertar un botón a neobook que facilite el acceso directo a compilar.

Como lo instalo?

Botón Compilar tiene un instalador que te facilitará las cosas. Tienes que seleccionar el directorio donde tengas instalado el neobook y listo.

Una vez instalado abre el neobook como lo haces siempre y ya podrás usar tu botón compilar o la tecla F3 para acceder  rápidamente a compilar publicación.

Espero que les sirva y me avisan si encuentran bugs.

Descarga

  botoncompilar.rar (1,3 MiB, 2.254 hits)

 

NOTA: El Programa NeoBook esta desarrollado por NeoSoft y es marca registrada de NeoSoft Corporation. Neobookeros.com.ar no tiene relación con Neosoftware.

0

Win 7 Volume Control

Posted on by bunker

Buenas hoy voy a compartir con ustedes una solución a un tema que lei en el foro oficial. Chromebandit informa que las funciones para manipular el volumen no funcionan correctamente windows 7.

Se me ocurrió probar con AutoIt y funcionó. Entonces gracias a RACAutoIt3X podemos hacerlo en neobook. Para esto utilizamos la función RAC_SendKeys con {VOLUME_MUTE}, {VOLUME_UP} o {VOLUME_DOWN} según necesitemos.

Para facilitar las cosas he creado 4 funciones de neobook:

RacAutoItVol0 > Pone el volumen en 0

RacAutoItVol100 > Pone el volumen en 100

RacAutoItVolUp > Aumenta el volumen según el parámetro pasado

RacAutoItVolDown > Baja el volumen según el parámetro pasado

NOTA: Las funciones deben ser copiadas a la carpeta Functions de NeoBook.

Captura

Descarga

  ejwin7vol.rar (1,3 MiB, 1.966 hits)

4

Subrutinas

Posted on by bunker

El empleo de subrutinas aporta muchas ventajas entre las que se destacan las siguientes:

-Se pueden escribir como subrutinas secciones de código y ser empleadas varias veces en el mismo programa.

-Dan a los programas un carácter modular, es decir, se pueden codificar diferentes módulos para utilizarlos en cualquier programa.

-Se reduce notablemente el tiempo de programación y la detección de errores, utilizando repetidamente una subrutina.

-El código es más fácil de interpretar, dado que las instrucciones de las subrutinas no aparecen en el programa principal, sólo figuran las llamadas (GoSub).

La función GoSub (llamada a subrutina) consigue que la ejecución del programa “salte” al código de la subrutina a la que hace referencia, luego (cuando ésta finaliza) vuelve a la siguiente línea de donde se realizo el llamado.

Para crear una subrutina en neobook:

Nos dirigimos al menu BOOK >> Subrutines >> NEW

Creando una subrutina

Ingresamos el nombre:

Creando una subrutina

Escribimos el código entre las líneas :leer_archivo y Return.

Escribiendo la subrutina

Para modificarlas vamos al menu BOOK >> BOOK PROPERTIES >> ACTIONS…
y click en la pestaña subrutines.

Para llamarlas:

.Para llamar a una subrutina la sintaxis es
GoSub "nombre_de_subrutina"

.Ejemplo
GoSub "leer_archivo"