elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Almacenar ip despues de un ping
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Almacenar ip despues de un ping  (Leído 6,606 veces)
Ismaw34

Desconectado Desconectado

Mensajes: 14



Ver Perfil WWW
Problemas al hacer funciones
« Respuesta #10 en: 30 Julio 2008, 18:12 pm »

Ya lo solucione gracias a los usuarios que hacen batch, saque la solucion de el programa de utiles (De no se que autor) pero se lo agradezco igual
Código
  1. @echo off
  2. title http://ismaw34host.no-ip.info/ - Modificador del archivo de hosts
  3. cls
  4. %a% Bienvenido, se va a modificar el archivo de hosts de WinXP (32 bits)
  5. %a% Asegurese que al modificar, no exista otra linea de host: l2auth.lineage2.com o l2testauthd.lineage2.com
  6. goto Opciones
  7.  
  8. :Opciones
  9. cls
  10. %a% Opciones:
  11. %a% 1 - No estoy seguro de no tener l2auth.lineage2.com o l2testauthd.lineage2.com
  12. %a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
  13. %a% 2 - Escribir el host
  14. %a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
  15. %a%     el escribir host)
  16. %a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
  17. %a%     escribir el host, anteriormente, para usar esta opcion)
  18. %a% 5 - Salir
  19. set /p Opc=Elige una opcion:
  20. IF %Opc%==1 goto Comprueba
  21. IF %Opc%==2 goto Escribir
  22. IF %Opc%==3 goto Restaurar
  23. IF %Opc%==4 goto Reescribir
  24. IF %Opc%==5 goto Salir
  25. IF %Opc%=="" goto error
  26.  
  27. :error
  28. %a% No ha escrito ninguna opcion, escriba un numero
  29. goto Opciones
  30.  
  31. :Comprueba
  32. %a% Abriendo hosts
  33. attrib -r %windir%\system32\drivers\etc\hosts
  34. cmd /c notepad %windir%\system32\drivers\etc\hosts
  35. %a% Archivo cerrado, pulsa una tecla para volver al menu
  36. attrib +r %windir%\system32\drivers\etc\hosts
  37. goto Opciones
  38.  
  39. :Escribir
  40. %a% Haciendo un backup del archivo original
  41. cd %windir%\system32\drivers\etc
  42. del hosts_Ismaw34.bak
  43. copy hosts c:\
  44. cd c:\
  45. ren hosts hosts_ismaw34.bak
  46. copy hosts_Ismaw34.bak %windir%\system32\drivers\etc
  47. del hosts_ismaw34.bak
  48. cd %windir%\system32\drivers\etc
  49. attrib hosts_Ismaw34.bak +r
  50. %a% Escribiendo el host
  51. attrib hosts -r
  52. echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
  53. ping ismaw34host.no-ip.info > IP_ping.txt
  54. FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a
  55.  
  56. :func
  57. set var=%1
  58. set var=%var::=%
  59. echo %var% L2auth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
  60. echo %var% L2testauth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
  61. del /q IP_ping.txt
  62. attrib hosts +r
  63. %a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
  64. %a% Fin de la modificacion, y gracias por elegir nuestro servidor.
  65. %a% Recuerde que si tiene mas de 1 servidor a elegir, borre o añada # delante de la linea.
  66. goto Salir
  67.  
  68. :Restaurar
  69. %a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
  70. cd %windir%\system32\drivers\etc
  71. attrib hosts_Ismaw34.bak -r
  72. attrib hosts -r
  73. del hosts
  74. ren hosts_ismaw34.bak hosts
  75. attrib hosts +r
  76. %a% Archivo restaurado
  77. goto Salir
  78.  
  79. :Reescribir
  80. %a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
  81. cd %windir%\system32\drivers\etc
  82. attrib hosts_Ismaw34.bak -r
  83. attrib hosts -r
  84. del hosts
  85. ren hosts_ismaw34.bak hosts
  86. attrib hosts +r
  87. %a% Archivo restaurado
  88. %a% Haciendo un backup del archivo original
  89. cd %windir%\system32\drivers\etc
  90. copy hosts c:\
  91. cd c:\
  92. ren hosts hosts_ismaw34.bak
  93. copy hosts_ismaw34.bak %windir%\system32\drivers\etc
  94. del hosts_ismaw34.bak
  95. cd %windir%\system32\drivers\etc
  96. attrib hosts_ismaw34.bak +r
  97. %a% Escribiendo el host
  98. attrib hosts -r
  99. echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info">> %windir%\system32\drivers\etc\hosts
  100. ping ismaw34host.no-ip.info > IP_ping.txt
  101. FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func2 %%a
  102.  
  103. :func2
  104. set var=%1
  105. set var=%var::=%
  106. echo %var% L2auth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
  107. echo %var% L2testauth.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %windir%\system32\drivers\etc\hosts
  108. del /q IP_ping.txt
  109. attrib hosts +r
  110. %a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
  111. %a% Fin de la modificacion, y gracias por elegir nuestro servidor.
  112. %a% Recuerde que si tiene mas de 1 servidor a elegir, borre o añada # delante de la linea.
  113. goto Salir
  114.  
  115. :Salir
  116. %a% Para resolver sus dudas y leer lar reglas internas del servidor vaya a http://ismaw34host.no-ip.info/ y registrese
  117. %a% Created by: Ismaw

He aqui mi resultado, gracias a la comunidad entera.  :D ;D ;)
Saludos


« Última modificación: 31 Julio 2008, 01:18 am por Ismaw34 » En línea

Ismaw34

Desconectado Desconectado

Mensajes: 14



Ver Perfil WWW
Nuevo problema
« Respuesta #11 en: 11 Septiembre 2008, 18:47 pm »

Tengo un problema al intentar acer variables en el archivo, a mi me funciona bien, pero a otros usuarios le da error, o la ip le sale "destino"

Aqui el bat:
Código
  1. @echo off
  2. title http://ismaw34host.dyndns.info/ - Modificador del archivo de hosts v3b
  3. cls
  4. set win=%windir%\system32\drivers\etc
  5. set menu=Opciones
  6. %a% Bienvenido, se va a modificar el archivo de hosts
  7. %a% Asegurese que al modificar, no exista otra linea de host: l2authd.lineage2.com o l2testauthd.lineage2.com
  8. goto %menu%
  9.  
  10. :Opciones
  11. cls
  12. %a% Modificador de hosts para WinXP, WinVista, Win2003, WinNT o Win2000
  13. %a% Opciones:
  14. %a% 1 - No estoy seguro de no tener l2authd.lineage2.com o l2testauthd.lineage2.com
  15. %a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
  16. %a% 2 - Escribir el host
  17. %a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
  18. %a%     el escribir host)
  19. %a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
  20. %a%     escribir el host, anteriormente, para usar esta opcion)
  21. %a% 5 - Salir
  22. %a% 6 - Tengo Win98, Win95 o WinME, que he de hacer?
  23. set /p Opc=Elige una opcion:
  24. IF %Opc%==1 goto Comprueba
  25. IF %Opc%==2 goto Escribir
  26. IF %Opc%==3 goto Restaurar
  27. IF %Opc%==4 goto Reescribir
  28. IF %Opc%==5 goto Salir
  29. IF %opc%==6 goto WinB
  30. IF %Opc%=="" goto error
  31.  
  32. :Opciones2
  33. cls
  34. %a% Modificador de hosts para Win98, Win95 o WinME
  35. %a% Opciones:
  36. %a% 1 - No estoy seguro de no tener l2authd.lineage2.com o l2testauthd.lineage2.com
  37. %a%     en mi host quiero abrirlo manualmente con el Bloc de Notas
  38. %a% 2 - Escribir el host
  39. %a% 3 - Restaurar el host anterior (antes del cambio, como si no se hubiese usado
  40. %a%     el escribir host)
  41. %a% 4 - Rescribir el host por cambio de IP (Se debe haber usado la opcion de
  42. %a%     escribir el host, anteriormente, para usar esta opcion)
  43. %a% 5 - Salir
  44. %a% 6 - Tengo WinXP, WinVista, Win2003, WinNT o Win2000, que he de hacer?
  45. set /p Opc=Elige una opcion:
  46. IF %Opc%==1 goto Comprueba
  47. IF %Opc%==2 goto Escribir
  48. IF %Opc%==3 goto Restaurar
  49. IF %Opc%==4 goto Reescribir
  50. IF %Opc%==5 goto Salir
  51. IF %opc%==6 goto Wina
  52. IF %Opc%=="" goto error
  53.  
  54. :Wina
  55. set win=%windir%\system32\drivers\etc
  56. set menu=Opciones
  57. goto %menu%
  58.  
  59. :Winb
  60. set Win=%windir%
  61. set menu=Opciones2
  62. goto %menu%
  63.  
  64. :error
  65. %a% No ha escrito ninguna opcion, escriba un numero
  66. goto %menu%
  67.  
  68. :Comprueba
  69. %a% Abriendo hosts
  70. attrib -r %win%\hosts.
  71. cmd /c notepad %win%\hosts.
  72. %a% Archivo cerrado, pulsa una tecla para volver al menu
  73. attrib +r %win%\hosts.
  74. goto %menu%
  75.  
  76. :Escribir
  77. %a% Haciendo un backup del archivo original
  78. cd %win%
  79. del hosts_Ismaw34.bak
  80. copy hosts c:\
  81. cd c:\
  82. ren hosts hosts_ismaw34.bak
  83. copy hosts_Ismaw34.bak %win%
  84. del hosts_ismaw34.bak
  85. cd %win%
  86. attrib hosts_Ismaw34.bak +r
  87. %a% Escribiendo el host
  88. attrib hosts -r
  89. echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
  90. ping ismaw34host.dyndns.info > IP_ping.txt
  91. FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a
  92.  
  93. :func
  94. set var=%1
  95. set var=%var::=%
  96. echo %var% L2authd.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
  97. echo %var% L2testauthd.lineage2.com ## added by "http://ismaw34host.no-ip.info/">> %win%\hosts.
  98. del /q IP_ping.txt
  99. attrib hosts +r
  100. %a% Si tiene Windows Defender, o cualquier otro programa que detecte los cambios del archivo de hosts, acepte el cambio.
  101. %a% Fin de la modificacion, y gracias por elegir nuestro servidor.
  102. goto Salir
  103.  
  104. :Restaurar
  105. %a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
  106. cd %win%
  107. attrib hosts_Ismaw34.bak -r
  108. attrib hosts -r
  109. del hosts
  110. ren hosts_ismaw34.bak hosts
  111. attrib hosts +r
  112. %a% Archivo restaurado
  113. goto Salir
  114.  
  115. :Reescribir
  116. %a% Se va a restaurar el archivo de hosts, su usara un backup hecho previamente
  117. cd %win%
  118. attrib hosts_Ismaw34.bak -r
  119. attrib hosts -r
  120. del hosts
  121. ren hosts_ismaw34.bak hosts
  122. attrib hosts +r
  123. %a% Archivo restaurado
  124. %a% Haciendo un backup del archivo original
  125. cd %win%
  126. copy hosts c:\
  127. cd c:\
  128. ren hosts hosts_ismaw34.bak
  129. copy hosts_ismaw34.bak %win%
  130. del hosts_ismaw34.bak
  131. cd %win%
  132. attrib hosts_ismaw34.bak +r
  133. %a% Escribiendo el host
  134. attrib hosts -r
  135. echo 216.107.250.194 nprotect.lineage2.com ## added by "http://ismaw34host.dyndns.info">> %win%\hosts.
  136. ping ismaw34host.dyndns.info > IP_ping.txt
  137. FOR /F "skip=4 tokens=3 delims= " %%a IN (IP_ping.txt) DO call :func %%a
  138.  
  139. :Salir
  140. %a% Para resolver sus dudas y leer lar reglas internas del servidor vaya a http://ismaw34host.no-ip.info/ y registrese
  141. %a% Created by: Ismaw

Me podis comprovar el error... o orientarme?
Gracias a todos.... Saludos


En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
OpenFileDialog + almacenar ruta?
Programación Visual Basic
SuperDraco 2 5,706 Último mensaje 13 Julio 2011, 17:37 pm
por SuperDraco
guardar archivo despues de hacer ping
Foro Libre
eliumesth10 5 2,578 Último mensaje 29 Diciembre 2015, 09:43 am
por Orubatosu
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines