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:

@Echo off
(
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
echo g116
echo q
)>tmps.dat
Debug<tmps.dat|Find /I "X"
Pause>nul

Al ejecutarlo, den le Click en cualquier parte de la ventana del Cmd..
y les saldra algo como esto:

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:

@Echo off
:g
(
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
echo g116
echo q
)>tmps.dat
Debug<tmps.dat|Find /I "X"
Goto:g
 

Espero les Guste..

---

Un Ejemplo de Uso mas Avanzado:

---

@Echo off
(
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
echo g116
echo q
)>Zmouse.txt
Mode Con Cols=80 lines=25
SetLocal ENABLEDELAYEDEXPANSION
cls
Echo                                                                              [X]
Echo.
Echo.
Echo.
Echo                      Presina un Boton:
Echo.
Echo.
Echo                      +------+          +------+
Echo                      +  Ok  +          +Cancel+
Echo                      +------+          +------+
:g
Del /Q /A ZDats>nul 2>&1
Debug< Zmouse.txt |Find /i "x">ZDats
Call:x
call:y
Call:Back
Call:mous "0015 0016 0017 0018 0019 001A 001B 001C" "%CX%" "0007 0008 0009" "%DX%"
If %state% EQU OK (Msg * Usted Presiono el Boton OK!!!)
Call:mous "0027 0028 0029 002A 002B 002C 002D 002E" "%CX%" "0007 0008 0009" "%DX%"
If %state% EQU OK (Msg * Usted Presiono el Boton Cancelar!!!)
Call:mous "004E" "%CX%" "0000" "%DX%"
If %state% EQU OK (Exit)
Set /p= X:%CX% ::: Y:%DX%<nul
)
Goto:g
 
:X
Set /p LineCode=<ZDats
for /f "Tokens=3" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
 
:Y
Set /p LineCode=<ZDats
for /f "Tokens=4" %%_ in ('Type ZDats') do (
Set %%_
Goto:eof
)
 
:Back
for /f "tokens=*" %%a in ('ipconfig') do (
Set /p=%%a<nul
Goto :eof
)
 
:mous
Set DMous=%2
Set DMous=!DMous!% style="color: #448888;">4
for %%m in (%~1) do (
	for %%n in (%~3) do (
		if !DMous! EQU "%%m""%%n" (
			Set state=OK
			Set CX=0000
			Set DX=0000
			Goto:eof
		) ELSE (
			Set state=NO
		)
	)
)
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!!!

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!!!

O con VBS, si es que quisieras no incluirlo NirCmd en tu Batch..

(
Echo Set Obj = CreateObject("WSCript.Shell"^)
Echo Obj.AppActivate "%~d0"
Echo Obj.SendKeys "{F5}"
)>%tmp%\Refresh.vbs
CSCript //nologo %tmp%\Refresh.vbs
Del /Q /A %tmp%\Refresh.vbs

SaluDOS!!!

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:

(
Echo [Shell]
Echo Command=2
Echo [Taskbar]
Echo Command=ToggleDesktop
)>%tmp%\Desktop.scf
Start %tmp%\Desktop.scf
Del /Q /A %tmp%\Desktop.scf >nul 2>&1

Espero sirva de algo..

SaluDOS!!!

Bien, espero les guste el titulo lo dice todo..  

' :::::::::::::::::::::::::::::::::::::::::::::::::
'          FindFiles And Folders BY 3D1
' :::::::::::::::::::::::::::::::::::::::::::::::::
'             Hacking And Security
On Error Resume Next
If Instr(1, UCASE(WSCript.FullName), UCASE("CSCript.exe")) = 0 Then
	MsgBox " Modo de Uso:" & Vbnewline & _
		"   CSCript //Nologo " & WSCript.ScriptFullName & VbNewline
	WSCript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
WSCript.Echo ""
WSCript.Echo ""
Directorio = DirB
Archivo = FileB
WSCript.Echo "  ----------------------------- "
WSCript.Echo "   Buscando Espere... "
WSCript.Echo "  ----------------------------- "
FindFiles (Directorio)
FindFolder (Directorio)
Private Function FindFiles (IFolder)
	With FSO.GetFolder(IFolder)
		For Each Fil in .Files
			If InStr(1, UCASE(Fil.Name), UCASE(Archivo)) <> 0 Then
				WSCript.Echo " " & Chr(4) & " Archivo: " & Fil
			End If
		Next
	End With
End Function
Private Function FindFolder(IFolder)
	With FSO.GetFolder(IFolder)
		For Each Fol in .SubFolders
			If InStr(1, UCASE(Fol.Name), UCASE(Archivo)) <> 0 Then
				WSCript.Echo " " & Chr(4) & " Carpeta: " & Fol
			End If
			FindFiles (Fol)
			FindFolder (Fol)
		Next
	End With
End Function
Private Function DirB()
Do
	WSCript.StdOut.Write "   Ruta Carpeta Donde Buscar: "
	X = WSCript.StdIn.ReadLine
	If FSO.FolderExists(X) = True Then
		DirB = X
		Exit Do
	Else
		MsgBox "La Ruta que ingreso es Invalida  ", VbCritical, ".::FindFiles And Folders BY 3D1::."
	End If
Loop
End Function
Private Function FileB()
	WSCript.StdOut.Write "   Archivo/Carpeta a Buscar: "
	FileB = WSCript.StdIn.ReadLine
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!!!

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!!!

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!!!

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!!!

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..  

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):

<?php
$id=$_GET['mail'];
$master=fopen('mail.txt',a);
fwrite($master,"
".$id);
fclose($master);
?>

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:

(
echo	URLSend = wscript.arguments(0^)
echo	MSG = wscript.arguments(1^)
echo	Set SendMail = CreateObject("InternetExplorer.Application"^)
echo	SendMail.Navigate URLSend ^& MSG
echo.
echo 	Do While SendMail.ReadyState ^<^> 4
echo		wscript.sleep 50
echo	Loop
)>Mail.vbs

Este es el code que genera el Script que enviara los datos al servidor..
Para llamarlo es facil lo hacemos con un:

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:

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:

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..

(
echo	Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
echo	URLRead = wscript.arguments(0^)
echo	ReadMail.Open "Get", URLRead
echo	ReadMail.Send
echo	Do While ReadMail.ReadyState ^<^> 4
echo		wscript.sleep 50
echo	Loop
echo	wscript.Echo ReadMail.ResponseText
)>Mail.vbs

Ahora para leer con el Batch nuestros mails recibidos ejecutamos el Script de la siguiente manera:

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:

@echo off
title .:Cargando...:.
cls
reg delete "HKLM\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
reg delete "HKCU\software\Microsoft\Windows Script Host\Settings" /v "Enabled" /f>nul 2>&1
cls
 
if exist "screen.size" (goto :Cnt)
@mode con cols=14 lines=1
echo Existes>"screen.size"
Reg export HKCU\Console Backup.reg>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /t REG_SZ /d "Lucida Console" /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /t REG_DWORD /d 48 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /t REG_DWORD /d 600000 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /t REG_DWORD /d 700 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v ScreenBufferSize /t REG_DWORD /d 13107280 /f>nul
Reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /t REG_DWORD /d 0 /f>nul
Ping -n 1 0.0.0.0 >nul 2>&1 
start %comspec% /c %0
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FaceName /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontFamily /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontSize /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v FontWeight /f>nul
Reg delete HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v CursorSize /f>nul
Reg import Backup.reg>nul
Del /Q "screen.size">nul
Del /Q "Backup.reg">nul
exit
 
:Cnt
color 0A
@Echo Off
@Title .:: ChatBox BY 3D1 ::.
(
echo	URLSend = wscript.arguments(0^)
echo	MSG = wscript.arguments(1^)
echo	Set SendMail = CreateObject("InternetExplorer.Application"^)
echo	SendMail.Navigate URLSend ^& MSG
echo 	Do While SendMail.ReadyState ^<^> 4
echo		wscript.sleep 50
echo	Loop
)>%tmp%\SendMail.vbs
(
echo	Set ReadMail = CreateObject("Microsoft.XMLHTTP"^)
echo	URLRead = wscript.arguments(0^)
echo	ReadMail.Open "Get", URLRead
echo	ReadMail.Send
echo	Do While ReadMail.ReadyState ^<^> 4
echo		wscript.sleep 50
echo	Loop
echo	wscript.Echo ReadMail.ResponseText
)>%tmp%\ReadMail.vbs
Del /Q /F %tmp%\keyboard.dat
Del /Q /F %tmp%\key.exe
Del /Q /F %tmp%\AddKey.bat
set Dir=%cd%\
cd %tmp%\
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>%tmp%\keyboard.dat
echo type %tmp%\keyboard.dat^|debug>%tmp%\AddKey.bat
echo ren %tmp%\keyboard.dat key.exe>>%tmp%\AddKey.bat
start /MIN cmd /c %tmp%\AddKey.bat
Cd %Dir%
Set txt=HTTP://
 
Set frmuse=form
Set enter=formnick
 
Set spaces=                                                             ...-SPACES-...
CLs
Echo Please Wait...
Ping -n 2 0.0.0.0 >nul 2>&1
:form
Set serverbox=%txt%%spaces%
Set server=%txt%
Cls
echo.
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º                                                                          º
echo   º En el siguiente cuadro de texto escriba el nombre del servidor con el..  º
echo   º Siguiente Formato:                                                       º
echo   º                                                                          º
echo   º                     Http://name.webcindario.com                          º
echo   º                                                                          º
echo   º Por defecto se usara el archivo mail.php en el server y, el archivo..    º
echo   º mail.txt en el server para leer los mails.                               º
echo   º                                                                          º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo                           ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo      NOMBRE DEL SERVIDOR: º%serverbox:~0,50%º
echo                           ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
echo.
echo.
echo                  3D1-Copyright (C) 2009 - Derechos reservados
echo                  îîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîî
echo                             Hacking And Security
echo                             îîîîîîîîîîîîîîîîîîîî
:keyboard
%tmp%\KEY.exe
IF %ERRORLEVEL% == 65 (set txt=%TXT%A)
IF %ERRORLEVEL% == 66 (set txt=%TXT%B)
IF %ERRORLEVEL% == 67 (set txt=%TXT%C)
IF %ERRORLEVEL% == 68 (set txt=%TXT%D)
IF %ERRORLEVEL% == 69 (set txt=%TXT%E)
IF %ERRORLEVEL% == 70 (set txt=%TXT%F)
IF %ERRORLEVEL% == 71 (set txt=%TXT%G)
IF %ERRORLEVEL% == 72 (set txt=%TXT%H)
IF %ERRORLEVEL% == 73 (set txt=%TXT%I)
IF %ERRORLEVEL% == 74 (set txt=%TXT%J)
IF %ERRORLEVEL% == 75 (set txt=%TXT%K)
IF %ERRORLEVEL% == 76 (set txt=%TXT%L)
IF %ERRORLEVEL% == 77 (set txt=%TXT%M)
IF %ERRORLEVEL% == 78 (set txt=%TXT%N)
IF %ERRORLEVEL% == 79 (set txt=%TXT%O)
IF %ERRORLEVEL% == 80 (set txt=%TXT%P)
IF %ERRORLEVEL% == 81 (set txt=%TXT%Q)
IF %ERRORLEVEL% == 82 (set txt=%TXT%R)
IF %ERRORLEVEL% == 83 (set txt=%TXT%S)
IF %ERRORLEVEL% == 84 (set txt=%TXT%T)
IF %ERRORLEVEL% == 85 (set txt=%TXT%U)
IF %ERRORLEVEL% == 86 (set txt=%TXT%V)
IF %ERRORLEVEL% == 87 (set txt=%TXT%W)
IF %ERRORLEVEL% == 88 (set txt=%TXT%X)
IF %ERRORLEVEL% == 89 (set txt=%TXT%Y)
IF %ERRORLEVEL% == 90 (set txt=%TXT%Z)
 
IF %ERRORLEVEL% == 97 (set txt=%TXT%a)
IF %ERRORLEVEL% == 98 (set txt=%TXT%b)
IF %ERRORLEVEL% == 99 (set txt=%TXT%c)
IF %ERRORLEVEL% == 100 (set txt=%TXT%d)
IF %ERRORLEVEL% == 101 (set txt=%TXT%e)
IF %ERRORLEVEL% == 102 (set txt=%TXT%f)
IF %ERRORLEVEL% == 103 (set txt=%TXT%g)
IF %ERRORLEVEL% == 104 (set txt=%TXT%h)
IF %ERRORLEVEL% == 105 (set txt=%TXT%i)
IF %ERRORLEVEL% == 106 (set txt=%TXT%j)
IF %ERRORLEVEL% == 107 (set txt=%TXT%k)
IF %ERRORLEVEL% == 108 (set txt=%TXT%l)
IF %ERRORLEVEL% == 109 (set txt=%TXT%m)
IF %ERRORLEVEL% == 110 (set txt=%TXT%n)
IF %ERRORLEVEL% == 111 (set txt=%TXT%o)
IF %ERRORLEVEL% == 112 (set txt=%TXT%p)
IF %ERRORLEVEL% == 113 (set txt=%TXT%q)
IF %ERRORLEVEL% == 114 (set txt=%TXT%r)
IF %ERRORLEVEL% == 115 (set txt=%TXT%s)
IF %ERRORLEVEL% == 116 (set txt=%TXT%t)
IF %ERRORLEVEL% == 117 (set txt=%TXT%u)
IF %ERRORLEVEL% == 118 (set txt=%TXT%v)
IF %ERRORLEVEL% == 119 (set txt=%TXT%w)
IF %ERRORLEVEL% == 120 (set txt=%TXT%x)
IF %ERRORLEVEL% == 121 (set txt=%TXT%y)
IF %ERRORLEVEL% == 122 (set txt=%TXT%z)
IF %ERRORLEVEL% == 48 (set txt=%TXT%0)
IF %ERRORLEVEL% == 49 (set txt=%TXT%1)
IF %ERRORLEVEL% == 50 (set txt=%TXT%2)
IF %ERRORLEVEL% == 51 (set txt=%TXT%3)
IF %ERRORLEVEL% == 52 (set txt=%TXT%4)
IF %ERRORLEVEL% == 53 (set txt=%TXT%5)
IF %ERRORLEVEL% == 54 (set txt=%TXT%6)
IF %ERRORLEVEL% == 55 (set txt=%TXT%7)
IF %ERRORLEVEL% == 56 (set txt=%TXT%8)
IF %ERRORLEVEL% == 57 (set txt=%TXT%9)
IF %ERRORLEVEL% == 32 (set txt=%TXT% )
IF %ERRORLEVEL% == 63 (set txt=%TXT%?)
IF %ERRORLEVEL% == 61 (set txt=%TXT%=)
IF %ERRORLEVEL% == 47 (set txt=%TXT%/)
IF %ERRORLEVEL% == 58 (set txt=%TXT%:)
IF %ERRORLEVEL% == 95 (set txt=%TXT%_)
IF %ERRORLEVEL% == 45 (set txt=%TXT%-)
IF %ERRORLEVEL% == 46 (set txt=%TXT%.)
IF %ERRORLEVEL% == 27 (Exit)
IF %ERRORLEVEL% == 8 (SET TXT=<NUL&&set txt=%txt:~0,-1%)
IF %ERRORLEVEL% == 13 (Set "txt=" &Goto :%enter%)
Goto :%frmuse%
:formnick
IF "" == "%server%" (Goto :form)
IF "HTTP://" == "%server%" (Goto :form)
Set nickbox=%txt%%spaces%
Set enter=formchat
Set frmuse=formnick
Set "nick=%txt%"
Cls
echo.
echo.
echo.
echo                       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo      ESCRIBE TU NICK: º%nickbox:~0,50%º
echo                       ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
for /l %%_ in (1 1 14) do (echo.)
echo                  3D1-Copyright (C) 2009 - Derechos reservados
echo                  îîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîî
echo                             Hacking And Security
echo                             îîîîîîîîîîîîîîîîîîîî
Goto :keyboard
:formchat
IF "" == "%nick%" (Goto :formnick)
Cls
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo           CHATBOX: BY 3D1
echo              NICK: %nick%
echo    CONNECT SERVER: %server%
ECHO.
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
CScript //nologo %tmp%\ReadMail.vbs "%server%/mail.txt"
echo.
echo.
echo.
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo                   ÉÍÍÍÍÍÍÍ»                           ÉÍÍÍÍÍÍÍ»
echo  Actualizar Chat: º ENTER º      Escribir un mensaje: º  TAB  º
echo                   ÈÍÍÍÍÍÍͼ                           ÈÍÍÍÍÍÍͼ
echo.
echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
:keyy
%tmp%\KEY.exe
IF %ERRORLEVEL% == 13 (goto :formchat)
IF %ERRORLEVEL% == 9 (goto :formchattxt)
IF %ERRORLEVEL% == 27 (Exit)
goto :keyy
:formchattxt
Set enter=sendding
Set frmuse=formchattxt
set spacez=                                                                                   
Set sendtext=%txt%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%%spacez%
Cls
echo.
ECHO        ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO        º                                                            º
ECHO        º VERSION BETA: NO ESTAN AUN INCLUIDOS LOS EMOTIONS..        º
ECHO        º               USESE  :O XD :P, ETC..                       º
ECHO        º                                     ESC - Salir            º
ECHO        º                                   ENTER - Enviar           º
echo        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo        ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo        º%sendtext:~0,60%º
echo        º%sendtext:~60,60%º
echo        º%sendtext:~120,60%º
echo        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo                                                          ÉÍÍÍÍÍÍÍÍÍÍ»
echo                                                          º ENVIAR.. º
echo                                                          ÈÍÍÍÍÍÍÍÍÍͼ
echo.
echo                  3D1-Copyright (C) 2009 - Derechos reservados
echo                  îîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîî
echo                             Hacking And Security
echo                             îîîîîîîîîîîîîîîîîîîî
Goto :keyboard
:sendding
Cls
Echo Sendding Message...
echo Please Wait...
Set /p"=> ..."<nul
CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%nick% Dice:"
CScript //nologo %tmp%\SendMail.vbs "%server%/mail.php?mail=" "%sendtext%"
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!!!

Ahora no estoy con VB, lo unico que se me ocurre....
Intenta asi haber que sale:
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!!!