Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 07:56:22
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: Chat x Lan 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Chat x Lan  (Leído 605 veces)
Hendrix
Visitante
« en: Febrero 02, 2006, 09:59:57 »
Weno, Este Programa lo e kodeado en 3 minutos (hasta puede tener fallos y todo, no lo e probado porke no tengo LAN en mi kasa)

Weno, Les dejo el kode:

 @echo off
cls
Title Chat X Lan {By Hendrix}
color 1f
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                     ******************************************
echo                     *                                        *
echo                     *                                        *
echo                     *      Chat   X   Lan    By Hendrix      *
echo                     *                                        *
echo                     *                                        *
echo                     ******************************************
echo.
echo.
echo.
pause > nul
goto inisi
:inisi
cls
echo.
echo Elige una Opcion:
echo.
echo 1. Hablar con un amigo
echo 2. Ver las carpetas de un amigo
echo 3. Apagar la PC de un amigo
echo 4. Salir
set /p op=
If %op% == 1 goto xerr
If %op% == 2 goto carp
If %op% == 3 goto apag
If %op% == 4 goto salir
:xerr
cls
echo Introduce el nombre de la compu de tu amigo:
set /p nompc=
echo.
echo Introduce el mensaje a enviar:
set /p sms=
net Send %nompc% %sms%
echo.
echo Escribe exit para salir o pulsa una tecla para continuar:
set /p resp=
If %resp% == exit (goto inisi) else (goto xerr)
:carp
cls
echo Introduce el nombre de la compu de tu amigo:
set /p nompc=
net view \\%nompc%
echo.
echo echo Escribe exit para salir o pulsa una tecla para continuar:
set /p resp=
If %resp% == exit (goto inisi) else (goto carp)
:apag
cls
echo Introduce el nombre de la compu de tu amigo:
set /p nompc=
shutdown -m \\%nompc%
echo.
echo echo Escribe exit para salir o pulsa una tecla para continuar:
set /p resp=
If %resp% == exit (goto inisi) else (goto apag)
:salir
exit

------------------------ EOF ----------------------------------------

Weno, MUY SIMPLE este kode, basikamente lo e kodeado porke ahora los de mi klase an deskubierto ke por netbios se peude hablar kon otras personas de la LAN (ni se imaginan lo ke se puede hacer kon netbios en una LAN  Tongue Tongue Tongue Tongue) jejejeje Pero weno...Hay lo tienen..

PD: Se le pueden agregar muchisimas mas opciones (komo por ejemplo entrar en los discos kompartidos de un user, crear usuarios...etc etc etc..)

Salu2

Hendrix
En línea
Modus
Visitante
« Respuesta #1 en: Febrero 02, 2006, 11:48:56 »
Esta muy bien Hendrix, solo que yo he probado varias veces a mandar mensajes a otro PC de mi LAN y no me ha ido, tendre algo mal configurado, si es asi tu programa iria bien
En línea
Hendrix
Visitante
« Respuesta #2 en: Febrero 02, 2006, 12:15:57 »
Puede ser ke tenga fallos, no se... Si alguien enkuantra alguno ke lo publike... Wink Wink

Salu2

Hendrix
En línea
iobh
Magic Flames
Colaborador
*****
Desconectado Desconectado

Mensajes: 693


Odi Profanum Vulgus et Arceo


Ver Perfil
« Respuesta #3 en: Febrero 02, 2006, 12:39:01 »
quizas envez de usar net send (que deberia funcionar) podrian ocupar msg
En línea
"No entiendes realmente algo a menos que seas capaz de explicarselo a tu abuela."

-Albert Einstein
Hendrix
Visitante
« Respuesta #4 en: Febrero 02, 2006, 12:39:48 »
yes iobh, es otra opcion...  Cheesy Wink Wink

Salu2

Hendrix
En línea
Theteam
mucha observacion y poco razonamiento llevan a la verdad
Colaborador
*****
Desconectado Desconectado

Mensajes: 432



Ver Perfil
« Respuesta #5 en: Febrero 02, 2006, 12:57:36 »
o sino tambien se podria hacer con el famoso >> y algun for.
haciendo algun archivo .txt que la otra maquina lea. eso si no funciona lo que dijeron, porque esto es poner mas codigo al pedo, pero si no queda otra opcion, adelante con esto
En línea


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Hendrix
Visitante
« Respuesta #6 en: Febrero 02, 2006, 01:01:18 »
Esto lo haciamos antes...lo ke era una mierda, porke no sabias kuando te habian enviado el mensage y todo esto...pero ahoa yo desblokee el cmd.exe y nos enviamos kon el net send (en el insti funciona), pero es un poko rollo, porke un amigo se ekivoko y lo envio a profe y el profe kasi se lo kome...jejejeje

Weno, Salu2

Hendrix
En línea
Modus
Visitante
« Respuesta #7 en: Febrero 02, 2006, 01:07:54 »
Que comando usabas? Teneis SP1 o SP2?
En línea
Hendrix
Visitante
« Respuesta #8 en: Febrero 02, 2006, 01:48:58 »
Usamos el SP2 creo, hice un Systeminfo y no pense a mirarlo...Pero kreo ke si...

Weno, Salu2

Hendrix
En línea
Zegius
Batch Revolution
Colaborador
*****
Desconectado Desconectado

Mensajes: 595



Ver Perfil WWW
« Respuesta #9 en: Febrero 02, 2006, 01:57:52 »
Yo tengo una duda con el net view, porque como no tengo lan no puedo mirarlo, puedes mirar el contenido dentro de ls carpetas o solo las carpetas que tiene??
En línea


Hendrix
Visitante
« Respuesta #10 en: Febrero 02, 2006, 02:11:50 »
Weno, eso kreo ke no se puede....yo ponia:

net view \\X5  y me salia esto:

Pascal                 Disco
Angles                 Disco


eso es lo ke me salia.....no lo probe lo de ver karpetas...

(Pues esto: net user H:\\X5\carpetakekeriaver  Pero no daba resultado)

Salu2

Hendrix
En línea
Modus
Visitante
« Respuesta #11 en: Febrero 02, 2006, 02:26:47 »
Yo tengo SP2 pero hasta pruebo net send y mi nombre de equipo y no va  :-\
En línea
Hendrix
Visitante
« Respuesta #12 en: Febrero 02, 2006, 02:33:16 »
yo no tengo red LAN, y lo e probado (komando net send) y tampoko va...pero en el insti si ke va... :-\ :-\ :-\ Mirare kuando pueda ke SP tiene...

Salu2

Hendrix
En línea
Modus
Visitante
« Respuesta #13 en: Febrero 03, 2006, 10:15:17 »
Lo seguire probando yo tambien
En línea
asf_oxid
Habitual
*****
Desconectado Desconectado

Mensajes: 261


asf_oxid@hotmail.com
Ver Perfil Email
« Respuesta #14 en: Febrero 03, 2006, 12:43:09 »
« Última modificación: Febrero 03, 2006, 12:49:59 por asf_oxid » En línea
....saludos desde barna
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: Chat x Lan « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC