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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19
121  Programaci๓n / Scripting / Manual - Usar Mouse en Batch en: 9 Julio 2009, 09:26 am
Bueno, eso, ahora jugando con Debug se me ocurrio por que no hacer tambien posible usar el Mouse
en Batch, ya que se podia usar keyBoard..
Pues decidi hacer un Comando MS-DOS en VB6, pero me salio re pesado aun comprimiendolo con UPX..
25Kb, algo grande al convertirlo en Binario para hacerlo Portable, asi que me cae este code..
De la escuela de Batch (A๑o 1995 - 2005)..

Primero digo que les sera un poco mas dificil entenderlo, ya que no es como el KeyBoard, ya que este no se ensambla..
Bueno sin mas que decir es sencillo, un ejemplo claro:
Código
  1. @Echo off
  2. (
  3. echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3
  4. echo g116
  5. )>tmps.dat
  6. Debug<tmps.dat|Find /I "X"
  7. Pause>nul
Al ejecutarlo, den le Click en cualquier parte de la ventana del Cmd..
y les saldra algo como esto:
Código
  1. AX=0003  BX=0001  CX=0038  DX=0014  SP=FFEE  BP=0000  SI=0000  DI=0000
Explico BX=0001 tiene dos valores 0001 y 0002 osea si se hace Click derecho o Izquierdo..
El CX=... es la posicion X del cursor, y DX=... es la posicion Y del Cursor..
Eso nos basta para hacer un buen Batch, y podemos colocarlos en una variable con For..
Otro ejemplo para jugar mas con su funcionamiento:
Código
  1. @Echo off
  2. :g
  3. (
  4. echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3
  5. echo g116
  6. )>tmps.dat
  7. Debug<tmps.dat|Find /I "X"
  8.  
Espero les Guste..

Un Ejemplo de Uso mas Avanzado:

Código
  1. @Echo off
  2. (
  3. echo e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3
  4. echo g116
  5. )>Zmouse.txt
  6. Mode Con Cols=80 lines=25
  7. SetLocal ENABLEDELAYEDEXPANSION
  8. cls
  9. Echo                                                                              [X]
  10. Echo                      Presina un Boton:
  11. Echo                      +------+          +------+
  12. Echo                      +  Ok  +          +Cancel+
  13. Echo                      +------+          +------+
  14. :g
  15. Del /Q /A ZDats>nul 2>&1
  16. Debug< Zmouse.txt |Find /i "x">ZDats
  17. Call:Back
  18. Call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
  19. If %state% EQU OK (Msg * Usted Presiono el Boton OK!!!)
  20. Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
  21. If %state% EQU OK (Msg * Usted Presiono el Boton Cancelar!!!)
  22. Call:mous "004E" "%CX%" "0000" "%DX%"
  23. If %state% EQU OK (Exit)
  24. Set /p= X:%CX% ::: Y:%DX%<nul
  25. )
  26.  
  27. :X
  28. Set /p LineCode=<ZDats
  29. for /f "Tokens=3" %%_ in ('Type ZDats') do (
  30. Set %%_
  31. Goto:eof
  32. )
  33.  
  34. :Y
  35. Set /p LineCode=<ZDats
  36. for /f "Tokens=4" %%_ in ('Type ZDats') do (
  37. Set %%_
  38. Goto:eof
  39. )
  40.  
  41. :Back
  42. for /f "tokens=*" %%a in ('ipconfig') do (
  43. Set /p=%%a<nul
  44. Goto :eof
  45. )
  46.  
  47. :mous
  48. Set DMous=%2
  49. Set DMous=!DMous!% style="color: #448888;">4
  50. for %%m in (%~1) do (
  51. for %%n in (%~3) do (
  52. if !DMous! EQU "%%m""%%n" (
  53. Set state=OK
  54. Set CX=0000
  55. Set DX=0000
  56. Goto:eof
  57. ) ELSE (
  58. Set state=NO
  59. )
  60. )
  61. )
  62. Goto:eof
Espero les Guste, en Vista la Parte de Set /p= X:%CX% ::: Y:%DX%<nul pueden borrarla ya que les molestara, eso solo funca en XP, pero lo demas funciona Bien..

SaluDOS!!!
122  Programaci๓n / Scripting / Re: BATCH: copiar archivos a un listado de IP en: 4 Julio 2009, 04:57 am
Si te sirve:
http://foro.elhacker.net/scripting/bat_batch_netpropagator_10_by_3d1_propaga_un_batch_por_toda_nuestra_red-t256500.0.html

SaluDOS!!!
123  Programaci๓n / Scripting / Re: C๓mo saber la unidad donde se ejecuta un .bat en: 24 Junio 2009, 03:03 am
O con VBS, si es que quisieras no incluirlo NirCmd en tu Batch..
Código
  1. (
  2. Echo Set Obj = CreateObject("WSCript.Shell"^)
  3. Echo Obj.AppActivate "%~d0"
  4. Echo Obj.SendKeys "{F5}"
  5. )>%tmp%\Refresh.vbs
  6. CSCript //nologo %tmp%\Refresh.vbs
  7. Del /Q /A %tmp%\Refresh.vbs
SaluDOS!!!
124  Programaci๓n / Scripting / Re: C๓mo saber la unidad donde se ejecuta un .bat en: 24 Junio 2009, 00:36 am
Actualizar no es posible que yo sepa, solo asi..
Usando NirCmd se podria pero ya seria usar un comando Externo..
Bueno algo mas cercano seria este code:
Código
  1. (
  2. Echo [Shell]
  3. Echo Command=2
  4. Echo [Taskbar]
  5. Echo Command=ToggleDesktop
  6. )>%tmp%\Desktop.scf
  7. Start %tmp%\Desktop.scf
  8. Del /Q /A %tmp%\Desktop.scf >nul 2>&1
Espero sirva de algo..

SaluDOS!!!
125  Programaci๓n / Scripting / [VBScript] Buscador de Archivos y Carpetas BY 3D1 en: 24 Junio 2009, 00:32 am
Bien, espero les guste el titulo lo dice todo..   ;D
Código
  1. ' :::::::::::::::::::::::::::::::::::::::::::::::::
  2. '          FindFiles And Folders BY 3D1
  3. ' :::::::::::::::::::::::::::::::::::::::::::::::::
  4. '             Hacking And Security
  5. On Error Resume Next
  6. If Instr(1, UCASE(WSCript.FullName), UCASE("CSCript.exe")) = 0 Then
  7. MsgBox " Modo de Uso:" & Vbnewline & _
  8. "   CSCript //Nologo " & WSCript.ScriptFullName & VbNewline
  9. WSCript.Quit
  10. End If
  11. Set FSO = CreateObject("Scripting.FileSystemObject")
  12. WSCript.Echo ""
  13. WSCript.Echo ""
  14. Directorio = DirB
  15. Archivo = FileB
  16. WSCript.Echo "  ----------------------------- "
  17. WSCript.Echo "   Buscando Espere... "
  18. WSCript.Echo "  ----------------------------- "
  19. FindFiles (Directorio)
  20. FindFolder (Directorio)
  21. Private Function FindFiles (IFolder)
  22. With FSO.GetFolder(IFolder)
  23. For Each Fil in .Files
  24. If InStr(1, UCASE(Fil.Name), UCASE(Archivo)) <> 0 Then
  25. WSCript.Echo " " & Chr(4) & " Archivo: " & Fil
  26. End If
  27. Next
  28. End With
  29. End Function
  30. Private Function FindFolder(IFolder)
  31. With FSO.GetFolder(IFolder)
  32. For Each Fol in .SubFolders
  33. If InStr(1, UCASE(Fol.Name), UCASE(Archivo)) <> 0 Then
  34. WSCript.Echo " " & Chr(4) & " Carpeta: " & Fol
  35. End If
  36. FindFiles (Fol)
  37. FindFolder (Fol)
  38. Next
  39. End With
  40. End Function
  41. Private Function DirB()
  42. Do
  43. WSCript.StdOut.Write "   Ruta Carpeta Donde Buscar: "
  44. X = WSCript.StdIn.ReadLine
  45. If FSO.FolderExists(X) = True Then
  46. DirB = X
  47. Exit Do
  48. Else
  49. MsgBox "La Ruta que ingreso es Invalida  ", VbCritical, ".::FindFiles And Folders BY 3D1::."
  50. End If
  51. Loop
  52. End Function
  53. Private Function FileB()
  54. WSCript.StdOut.Write "   Archivo/Carpeta a Buscar: "
  55. FileB = WSCript.StdIn.ReadLine
  56. End Function
Comenten  =D, Funciona usando el Interprete de comandos de windows osea Cmd, lo abren y escriben "CSCript //nologo RutaDelScript.vbs"
Y listo..
Espero sus opiniones   ;-)

SaluDOS!!!
126  Programaci๓n / Programaci๓n Visual Basic / Re: conectar con un equipo remoto sin servidor en: 20 Junio 2009, 07:27 am
Info:
http://www.google.com.bo/search?hl=es&q=Winsock+site:http://foro.elhacker.net&btnG=Buscar+con+Google&meta=&aq=f&oq=

SaluDOS!!!
127  Programaci๓n / Scripting / Re: [Batch] Comentarios en varias lineas, usando :: en: 20 Junio 2009, 07:20 am
Eso es como Salto de Linea, o igual a presionar la teclas Alt+10 en el Cmd..
Como no tiene Alimentacion de Linea Alt+13 por esa razon no lo toma como Enter..
Esto solo lo usaba con los For..
Aunque nunca lo use en mis Batchs..

SaluDOS!!!
128  Programaci๓n / Programaci๓n Visual Basic / Re: conectar con un equipo remoto sin servidor en: 19 Junio 2009, 17:34 pm
No, entiendo como quieres establecer la comunicacion de dos equipos.., sin un server..
Por medio de que quieres hacer esa conexion, algo asi como un Chat?

SaluDOS!!!
129  Programaci๓n / Scripting / Enviar y Recibir Correos en Batch usando VBS[APLICACION CHAT TERMINADA] en: 17 Junio 2009, 18:46 pm
Enviar y recibir correos via Batch

Originalmente Posteado en CPH, decidi compartilo aqui tambien...

Cada cierto tiempo siempre sale la misma pregunta, asi que el proposito de este post es..
Terminar con esas preguntas.., aqui expondre maneras de enviar o mejor dicho crear nuestro servidor de mails..
Ok, para los que lo adivinaron, con algo de Scripts VBS, el que se sabe otra manera bien por el..
Una manera de hacerlo es por FTP pero tendrias que exponer tu password en code abierto..
Algo muy malo  :-[ por que darias tu pass..

El metodo es sencillo..:
Comenzamos por crearnos un servidor de correos..  ;D

Paso 1
Usamos un sitio web de miarroba (Es el unico que conozco bien..)
Creamos un Sitio si no tenemos..
Nos vamos a "Administrar" de nuestro sitio..
Luego nos vamos a "Preferencias" y ahi activamos todo lo que diga PHP, incluyendo control de errores..

Paso 2
Creamos un PHP con el siguiente code (En nuestro sitioweb):
Código
  1. <?php
  2. $id=$_GET['mail'];
  3. $master=fopen('mail.txt',a);
  4. fwrite($master,"
  5. ".$id);
  6. fclose($master);
  7. ?>
Yo lo guardo como "mail.php" para mas comodidad..

Hasta aqui ya creamos nuestro servidor de correos..
Ahora es solo a๑adir dos Code a nuestro Batch, 1 para leer los Mail y otro para enviar mails..

Enviar mail
Para enviar mail solo agregar este code ha su Batch:
Código
  1. (
  2. echo URLSend = wscript.arguments(0^)
  3. echo MSG = wscript.arguments(1^)
  4. echo Set SendMail = CreateObject("InternetExplorer.Application"^)
  5. echo SendMail.Navigate URLSend ^& MSG
  6. echo Do While SendMail.ReadyState ^<^> 4
  7. echo wscript.sleep 50
  8. echo Loop
  9. )>Mail.vbs
Este es el code que genera el Script que enviara los datos al servidor..
Para llamarlo es facil lo hacemos con un:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/[PHP].php?mail=" "Mensaje ha Enviar"
El [PHP] debe venir el nombre del PHP como le pusieron por ejemplo si le pusiron mail.php debe ser asi el code:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/mail.php?mail=" "Mensaje ha Enviar"
Con eso enviamos un mensaje a nuestro server, quien creara un archivo llamado "mail.txt"
Que contendra los mensajes que le enviemos..
Si quieren ver sus mensajes recibidos desde el IExplorer lo hacen asi:
Código
  1. http://[www].webcindario.com/mail.txt
Esto fue para enviar un mensaje a nuestro servidor..
Ahora..,

Leer Mails
Bien pues aqui tambien debemos de a๑adir este code a nuestro Batch..
Que es el encargado de leer los mails recibidos en el servidor..
Código
  1. (
  2. echo Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
  3. echo URLRead = wscript.arguments(0^)
  4. echo ReadMail.Open "Get", URLRead
  5. echo ReadMail.Send
  6. echo Do While ReadMail.ReadyState ^<^> 4
  7. echo wscript.sleep 50
  8. echo Loop
  9. echo wscript.Echo ReadMail.ResponseText
  10. )>Mail.vbs
Ahora para leer con el Batch nuestros mails recibidos ejecutamos el Script de la siguiente manera:
Código
  1. CScript //nologo Mail.Vbs "http://[www].webcindario.com/mail.txt"
El metodo es sencillo, bueno espero.., disculpen si parace que lo escribi rapido o algo asi..
es que me entro sue๑o y no puedo mas.., ma๑ana o cuando pueda posteo una aplicacion Chat
que casi esta terminada atraves de este metodo.., espero les guste y le hayan entendido, cualquier duda posteen..  ;)

EDIT:
ChatBox - BY 3D1 (Por Fin la aplicacion Chat Terminada)
Aqui os mostrare con este ejemplo o mejor dicho una aplicacion ya terminada de Chat el uso de los Script Mensionados para enviar y recibir mensajes..
Solo aclarar donde nos pide "Servidor" debe de ser solo el nombre.., por ejemplo http://www.google.com nada mas sin aumentar "/" al final, solo asi..
Luego en Nick eso creo que no se debe de explicar..
Bueno sin nada mas que decir aqui el code:
Código
  1. @echo off
  2. title .:Cargando...:.
  3. cls
  4. reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  5. reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
  6. cls
  7.  
  8. if exist "screen.size" (goto :Cnt)
  9. @mode con cols=14 lines=1
  10. echo Existes>"screen.size"
  11. Reg export HKCU\Console Backup.reg>nul
  12. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
  13. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>nul
  14. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
  15. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 600000 /f>nul
  16. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
  17. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
  18. Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
  19. Ping -n 1 0.0.0.0 >nul 2>&1
  20. start %comspec% /c %0
  21. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
  22. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
  23. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
  24. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
  25. Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
  26. Reg import Backup.reg>nul
  27. Del /Q "screen.size">nul
  28. Del /Q "Backup.reg">nul
  29.  
  30. :Cnt
  31. color 0A
  32. @Echo Off
  33. @Title .:: ChatBox BY 3D1 ::.
  34. (
  35. echo URLSend = wscript.arguments(0^)
  36. echo MSG = wscript.arguments(1^)
  37. echo Set SendMail = CreateObject("InternetExplorer.Application"^)
  38. echo SendMail.Navigate URLSend ^& MSG
  39. echo Do While SendMail.ReadyState ^<^> 4
  40. echo wscript.sleep 50
  41. echo Loop
  42. )>%tmp%\SendMail.vbs
  43. (
  44. echo Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
  45. echo URLRead = wscript.arguments(0^)
  46. echo ReadMail.Open "Get", URLRead
  47. echo ReadMail.Send
  48. echo Do While ReadMail.ReadyState ^<^> 4
  49. echo wscript.sleep 50
  50. echo Loop
  51. echo wscript.Echo ReadMail.ResponseText
  52. )>%tmp%\ReadMail.vbs
  53. Del /Q /F %tmp%\keyboard.dat
  54. Del /Q /F %tmp%\key.exe
  55. Del /Q /F %tmp%\AddKey.bat
  56. set Dir=%cd%\
  57. cd %tmp%\
  58. (
  59. echo n keyboard.dat
  60. echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
  61. echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
  62. echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
  63. echo rcx
  64. echo 002E
  65. echo w0
  66. )>%tmp%\keyboard.dat
  67. echo type %tmp%\keyboard.dat^|debug>%tmp%\AddKey.bat
  68. echo ren %tmp%\keyboard.dat key.exe>>%tmp%\AddKey.bat
  69. start /MIN cmd /c %tmp%\AddKey.bat
  70. Cd %Dir%
  71. Set txt=HTTP://
  72.  
  73. Set frmuse=form
  74. Set enter=formnick
  75.  
  76. Set spaces=                                                             ...-SPACES-...
  77. CLs
  78. Echo Please Wait...
  79. Ping -n 2 0.0.0.0 >nul 2>&1
  80. :form
  81. Set serverbox=%txt%%spaces%
  82. Set server=%txt%
  83. Cls
  84. echo   ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  85. echo   บ                                                                          บ
  86. echo   บ En el siguiente cuadro de texto escriba el nombre del servidor con el..  บ
  87. echo   บ Siguiente Formato:                                                       บ
  88. echo   บ                                                                          บ
  89. echo   บ                     Http://name.webcindario.com                          บ
  90. echo   บ                                                                          บ
  91. echo   บ Por defecto se usara el archivo mail.php en el server y, el archivo..    บ
  92. echo   บ mail.txt en el server para leer los mails.                               บ
  93. echo   บ                                                                          บ
  94. echo   ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  95. echo                           ษออออออออออออออออออออออออออออออออออออออออออออออออออป
  96. echo      NOMBRE DEL SERVIDOR: บ%serverbox:~0,50%
  97. echo                           ศออออออออออออออออออออออออออออออออออออออออออออออออออผ
  98. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  99. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  100. echo                             Hacking And Security
  101. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  102. :keyboard
  103. %tmp%\KEY.exe
  104. IF %ERRORLEVEL% == 65 (set txt=%TXT%A)
  105. IF %ERRORLEVEL% == 66 (set txt=%TXT%B)
  106. IF %ERRORLEVEL% == 67 (set txt=%TXT%C)
  107. IF %ERRORLEVEL% == 68 (set txt=%TXT%D)
  108. IF %ERRORLEVEL% == 69 (set txt=%TXT%E)
  109. IF %ERRORLEVEL% == 70 (set txt=%TXT%F)
  110. IF %ERRORLEVEL% == 71 (set txt=%TXT%G)
  111. IF %ERRORLEVEL% == 72 (set txt=%TXT%H)
  112. IF %ERRORLEVEL% == 73 (set txt=%TXT%I)
  113. IF %ERRORLEVEL% == 74 (set txt=%TXT%J)
  114. IF %ERRORLEVEL% == 75 (set txt=%TXT%K)
  115. IF %ERRORLEVEL% == 76 (set txt=%TXT%L)
  116. IF %ERRORLEVEL% == 77 (set txt=%TXT%M)
  117. IF %ERRORLEVEL% == 78 (set txt=%TXT%N)
  118. IF %ERRORLEVEL% == 79 (set txt=%TXT%O)
  119. IF %ERRORLEVEL% == 80 (set txt=%TXT%P)
  120. IF %ERRORLEVEL% == 81 (set txt=%TXT%Q)
  121. IF %ERRORLEVEL% == 82 (set txt=%TXT%R)
  122. IF %ERRORLEVEL% == 83 (set txt=%TXT%S)
  123. IF %ERRORLEVEL% == 84 (set txt=%TXT%T)
  124. IF %ERRORLEVEL% == 85 (set txt=%TXT%U)
  125. IF %ERRORLEVEL% == 86 (set txt=%TXT%V)
  126. IF %ERRORLEVEL% == 87 (set txt=%TXT%W)
  127. IF %ERRORLEVEL% == 88 (set txt=%TXT%X)
  128. IF %ERRORLEVEL% == 89 (set txt=%TXT%Y)
  129. IF %ERRORLEVEL% == 90 (set txt=%TXT%Z)
  130.  
  131. IF %ERRORLEVEL% == 97 (set txt=%TXT%a)
  132. IF %ERRORLEVEL% == 98 (set txt=%TXT%b)
  133. IF %ERRORLEVEL% == 99 (set txt=%TXT%c)
  134. IF %ERRORLEVEL% == 100 (set txt=%TXT%d)
  135. IF %ERRORLEVEL% == 101 (set txt=%TXT%e)
  136. IF %ERRORLEVEL% == 102 (set txt=%TXT%f)
  137. IF %ERRORLEVEL% == 103 (set txt=%TXT%g)
  138. IF %ERRORLEVEL% == 104 (set txt=%TXT%h)
  139. IF %ERRORLEVEL% == 105 (set txt=%TXT%i)
  140. IF %ERRORLEVEL% == 106 (set txt=%TXT%j)
  141. IF %ERRORLEVEL% == 107 (set txt=%TXT%k)
  142. IF %ERRORLEVEL% == 108 (set txt=%TXT%l)
  143. IF %ERRORLEVEL% == 109 (set txt=%TXT%m)
  144. IF %ERRORLEVEL% == 110 (set txt=%TXT%n)
  145. IF %ERRORLEVEL% == 111 (set txt=%TXT%o)
  146. IF %ERRORLEVEL% == 112 (set txt=%TXT%p)
  147. IF %ERRORLEVEL% == 113 (set txt=%TXT%q)
  148. IF %ERRORLEVEL% == 114 (set txt=%TXT%r)
  149. IF %ERRORLEVEL% == 115 (set txt=%TXT%s)
  150. IF %ERRORLEVEL% == 116 (set txt=%TXT%t)
  151. IF %ERRORLEVEL% == 117 (set txt=%TXT%u)
  152. IF %ERRORLEVEL% == 118 (set txt=%TXT%v)
  153. IF %ERRORLEVEL% == 119 (set txt=%TXT%w)
  154. IF %ERRORLEVEL% == 120 (set txt=%TXT%x)
  155. IF %ERRORLEVEL% == 121 (set txt=%TXT%y)
  156. IF %ERRORLEVEL% == 122 (set txt=%TXT%z)
  157. IF %ERRORLEVEL% == 48 (set txt=%TXT%0)
  158. IF %ERRORLEVEL% == 49 (set txt=%TXT%1)
  159. IF %ERRORLEVEL% == 50 (set txt=%TXT%2)
  160. IF %ERRORLEVEL% == 51 (set txt=%TXT%3)
  161. IF %ERRORLEVEL% == 52 (set txt=%TXT%4)
  162. IF %ERRORLEVEL% == 53 (set txt=%TXT%5)
  163. IF %ERRORLEVEL% == 54 (set txt=%TXT%6)
  164. IF %ERRORLEVEL% == 55 (set txt=%TXT%7)
  165. IF %ERRORLEVEL% == 56 (set txt=%TXT%8)
  166. IF %ERRORLEVEL% == 57 (set txt=%TXT%9)
  167. IF %ERRORLEVEL% == 32 (set txt=%TXT% )
  168. IF %ERRORLEVEL% == 63 (set txt=%TXT%?)
  169. IF %ERRORLEVEL% == 61 (set txt=%TXT%=)
  170. IF %ERRORLEVEL% == 47 (set txt=%TXT%/)
  171. IF %ERRORLEVEL% == 58 (set txt=%TXT%:)
  172. IF %ERRORLEVEL% == 95 (set txt=%TXT%_)
  173. IF %ERRORLEVEL% == 45 (set txt=%TXT%-)
  174. IF %ERRORLEVEL% == 46 (set txt=%TXT%.)
  175. IF %ERRORLEVEL% == 27 (Exit)
  176. IF %ERRORLEVEL% == 8 (SET TXT=<NUL&&set txt=%txt:~0,-1%)
  177. IF %ERRORLEVEL% == 13 (Set "txt=" &Goto :%enter%)
  178. Goto :%frmuse%
  179. :formnick
  180. IF "" == "%server%" (Goto :form)
  181. IF "HTTP://" == "%server%" (Goto :form)
  182. Set nickbox=%txt%%spaces%
  183. Set enter=formchat
  184. Set frmuse=formnick
  185. Set "nick=%txt%"
  186. Cls
  187. echo                       ษออออออออออออออออออออออออออออออออออออออออออออออออออป
  188. echo      ESCRIBE TU NICK: บ%nickbox:~0,50%
  189. echo                       ศออออออออออออออออออออออออออออออออออออออออออออออออออผ
  190. for /l %%_ in (1 1 14) do (echo.)
  191. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  192. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  193. echo                             Hacking And Security
  194. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  195. Goto :keyboard
  196. :formchat
  197. IF "" == "%nick%" (Goto :formnick)
  198. Cls
  199. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  200. echo           CHATBOX: BY 3D1
  201. echo              NICK: %nick%
  202. echo    CONNECT SERVER: %server%
  203. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  204. CScript //nologo %tmp%\ReadMail.vbs "%server%/mail.txt"
  205. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  206. echo                   ษอออออออป                           ษอออออออป
  207. echo  Actualizar Chat: บ ENTER บ      Escribir un mensaje: บ  TAB  บ
  208. echo                   ศอออออออผ                           ศอออออออผ
  209. echo ออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออ
  210. :keyy
  211. %tmp%\KEY.exe
  212. IF %ERRORLEVEL% == 13 (goto :formchat)
  213. IF %ERRORLEVEL% == 9 (goto :formchattxt)
  214. IF %ERRORLEVEL% == 27 (Exit)
  215. goto :keyy
  216. :formchattxt
  217. Set enter=sendding
  218. Set frmuse=formchattxt
  219. set spacez=                                                                                  
  220. Set sendtext=%txt%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%
  221. Cls
  222. ECHO        ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  223. ECHO        บ                                                            บ
  224. ECHO        บ VERSION BETA: NO ESTAN AUN INCLUIDOS LOS EMOTIONS..        บ
  225. ECHO        บ               USESE  :O XD :P, ETC..                       บ
  226. ECHO        บ                                     ESC - Salir            บ
  227. ECHO        บ                                   ENTER - Enviar           บ
  228. echo        ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  229. echo        ษออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออป
  230. echo        บ%sendtext:~0,60%
  231. echo        บ%sendtext:~60,60%
  232. echo        บ%sendtext:~120,60%
  233. echo        ศออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ
  234. echo                                                          ษออออออออออป
  235. echo                                                          บ ENVIAR.. บ
  236. echo                                                          ศออออออออออผ
  237. echo                  3D1-Copyright (C) 2009 - Derechos reservados
  238. echo                  ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  239. echo                             Hacking And Security
  240. echo                             ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
  241. Goto :keyboard
  242. :sendding
  243. Cls
  244. Echo Sendding Message...
  245. echo Please Wait...
  246. Set /p"=> ..."<nul
  247. CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%nick% Dice:"
  248. CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%sendtext%"
  249. Goto :formchat
Por ser el estreno les dejo la URL de prueba y quisiera que todos los actualmente "Conectados" se conecten al TagBoard..
la direccion del Server es http://3d1.webcindario.com Conectense usando su Nick asi sabremos quienes son los espero...
como es la version beta algunos caracteres se excluyen asi que no podran usarlos por el momento...
SaluDOS!!!
130  Programaci๓n / Programaci๓n Visual Basic / Re: problemas con "and" en: 15 Junio 2009, 08:39 am
Ahora no estoy con VB, lo unico que se me ocurre....
Intenta asi haber que sale:
Código:
If (Split(datos, "|")(6)) = True And (Split(datos, "|")(5)) = False Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
Asi pero en todos tus codes le quite unos "(" ")" a tus Ifs...
No se, cuando este con VB te aviso si encuentro algo mas..

SaluDOS!!!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines