Mensajes

gracias Elemental Code , me sirve, bueno el code.
salu2

hice un programa pequeño para mostrar una cruz que apunta para un juego , asi como el del counter strike, para esto use setpixel dentro de un timer dandole las coordenadas donde queria que se pinte los pixeles, el exe corre bien bajo windows xp porque pintaba cualuier ventana que estuviera activa en ese momento incluido el juego , pero bajo windows 7 no se por que solo puede pintar las ventanas del  explorador pero la del juego no los pinta, el codigo y esta bien y como les digo el prblema es solo en windows 7, si kizas se saben otro metodo mejor que este porfi me lo pasan.

tendrias que colocar una caja de texto en el admin para escribir el mensaje golaval, lo vamos a llamar txtMSG, para enviar lo harias asi:

en el admin :

Código (vb) [Seleccionar] Expandir

Dim MSG As String
MSG = "ACTIVAR-ANIM" & txtMSG.Text
Winsock1.SendData   MSG



y para el programa que recibe los mensajes tendria que tener ese label donde mostrar ese mensaje recibido, lo vamos a llamar lblMSG , seria

en los programas que reciben :

Código (vb) [Seleccionar] Expandir

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
   Dim Buffer As String
   Winsock2.GetData Buffer
   DoEvents
   If Left(Buffer, 14) = "<ACTIVAR-ANIM>" Then
       Buffer = Mid(Buffer, 15)
       lblMSG.Caption = Buffer
   End If
End Sub




con left coger los 14 primeros caracteres y compara si dicer "<ACTIVAR-ANIM>", si fuera asi entonces coge los catracteres que hay a partir del 15 hacia adelante con Mid, y lo muestra en el label.

hola tio, pos lo que pods hacer es que el winsock del admin envia instrucciones y los demas reciben los datos y luego verifican que tipo de instrccion es, ejemplo para enviar una instruccion que indique apagar la compu seria asi:

Código [Seleccionar] Expandir

<APAGAR-PC>

para lo que tu keres seria:

Código [Seleccionar] Expandir

<ACTIVAR-ANIM>Aqui mensaje mensaje que sera mostrado en label

el programa receptor tendria que comprobar que tipo de instruccion son las que estan entre los "<" ">", para eso usarias Left, Mid para separar las cadenas y listo.


No entendi bien que es un "mensaje golaval ", "supongo que un mensaje global"

tambien puedes  usar la funcion DIR() de vb6 para obtener uno a uno las carpetas y archivos y agregarlos mediante List1.addItem, es sencillo. pero lo que pusieron anterior es mas rapido.

no es necesario crear una dll, una dll es para compartir funciones entre varios programas y ahorrar espacio, ejemplo si haces varios programas que tienen en comun una funcion de 200 lineas , en vez de meter la misma funcion en cada programa lo que haces crear una dll  y asi cuando  un programa necesite esa funcion solo debe usar la dll.

lo que quieres es registrar usuarios , agregarlos y modificarlos, la dll no es para eso ,  en este caso puedes usar una base de datos, pero como supongo que no quieres usar eso, puedes crear un archivo cualquiera y guardar la informacion,  bueno tu programa seria el que haga todo esto, lo que puedes hacer es guardar la informacion que el usuarios ingresa en las cajas de texto (usuario, clave, edad, telefono, etc) en variables agregandole algunos simbolos que indiquen donde empieza y acaba la informacion de un usuario, ejemplo si un usuarios ingresara esto:

Código [Seleccionar] Expandir

             nombre                  clave                  ocupacion

           pepitogrillo             pepe                     maestro



el programa deberia guardar agregandole simbolos:

              <pepitogrillo,pepe>maestro*

esto para que cuando el programa deba mostrar la informacion de un usuario use las funciones para busqueda y copiado de cadena y coja la informacion desde la posicion y cantidad que deba, en el ejmeplo de arriba si el programa necesita la ocupacion tendria que usar InStr() para buscar el ">" luego coger lo que haya de ahi en adelante con la funcion Mid() quedando "maestro*" y finalmente otra vez Instr() para buscar el "*" y cogeria todos los caracteres que se encuentren antes de la posicion ocupada por "*" con la funcion Left().

ahora lo de guardar el contenido de esa variable en un archivo, usa Open para crear un archivo o abrir uno existente, Put para colocar el contenido de la variable en un archivo, Get para colocar el contenido de un archivo en una variable y close para cerrar el archivo abierto, te paso un codigo que hice, te servira de ejemplo de lo que te digo,  te vas a encontrar con un form inicial en el que ingresas usuario y clave para registrar o ingresar (lo correcto seria tener un form para cada accion pero es solo para ejemplo), luego de ingresar o registrar saldra otro form mostrando una nota escrita por ese usuario, dentro de la misma carpeta del programa se creara un block de notas donde quedaran guardados los usuarios, claves y notas , si lo abres el block de notas veras como se guarda la informacion.

el codigo esta escrito en vb 6, pero si no tienes el vb6 , ahi tambien puse el ejecutable.

http://www.mediafire.com/?7rck56gr5y5cd0c

te encargas de pasarlo a vb .net 2008

hola, estuve ocupado


suponte que la informacion la guardar de esta manera dentro del archivo:

Código [Seleccionar] Expandir

<pepito,fido16>
<boris,contraseña777>



mas o menos el codigo para manejar esa informacion es asi:

Código (vb) [Seleccionar] Expandir

    'Esto seria para cargar el fichero
    'cargaria la lista de usuarios y claves existentes
    Dim ListaUsuarios As String 'esta variable deberia ser general
   
    Dim Peso As Long
    Open App.Path & "\usuarios.usr" For Binary As #1
    Peso = LOF(1)
    If Peso > 0 Then
        ListaUsuarios = String(Peso, Chr(0))
        Get #1, , ListaUsuarios
    End If
    Close #1

Código (vb) [Seleccionar] Expandir

    'Esto seria para la busqueda, para comprobar que un usuario y clave son correctos, tambien lo podrias usar para comprobar si un usuario ya esta agregado para no crear duplicados
    Dim Nombre As String
    Dim Resultado As Long
    Dim UsuarioBuscar As String
    Dim Clave As String
    Dim PosicionInicial As Long
    Dim cantidad As Long
   
    Nombre = txtnombre.Text
    Clave = TXTclave.Text
    UsuarioBuscar = "<" & Nombre & "," & Clave & ">"
    Resultado = InStr(1, listausuario, UsuarioBuscar)
    If Resultado > 0 Then
        MsgBox "Si se encontro el usuario", vbInformation, ""
    Else
        MsgBox "No existe el usuario", vbCritical, ""
    End If
   

Código (vb) [Seleccionar] Expandir

    'Esto seria para la busqueda de usuario y contraseña cuando se kiere ingresar,
    'tambien seria para comprobar si un usuario ya existe, si fuera
    'asi entonces no lo agregaria para no crear duplicados
    Dim Nombre As String
    Dim Resultado As Long
    Dim UsuarioBuscar As String
    Dim Clave As String
    Dim PosicionInicial As Long
    Dim cantidad As Long
   
    Nombre = txtnombre.Text
    Clave = TXTclave.Text
    UsuarioBuscar = "<" & Nombre & "," & Clave & ">"
    Resultado = InStr(1, listausuario, UsuarioBuscar)
    If Resultado > 0 Then
        MsgBox "Si se encontro el usuario", vbInformation, ""
    Else
        MsgBox "No existe el usuario", vbCritical, ""
    End If

Código (vb) [Seleccionar] Expandir

   'Esto lo que hace es borrar el antiguo archivo
    'y crear otra ves el archivo para escribir el contenido de ListaUsuario
    'que ahora va a  contener los usuarios que ya existian y los agregados
    Kill App.Path & "\usuarios.usr"
   
    Open App.Path & "\usuarios.usr" For Binary As #1

    Put #1, , ListaUsuarios
    End If
    Close #1

Aprendete a usar estas funciones:

Open, Get, Put, Close (para crear, leer y escribir en un archivo)
Instr (para buscar cadenas)
Mid (para copiar cadenas)  esta no la use , averigua
Kill (para borrar archivos)


en las porciones de codigo falta mucho esta incompleto, pero te da una idea no?, averigua esas  funiones que te puse arriba que son para lo que necesitas hacer, sino te queda todavia claro me avisas, esta es una explicacion rapida
como te dije tendrias que buscar equivalentes de vb6 a vb.net 2008 de esta funciones, a menos que te animes hacerlo en vb6.

si tu prog. lo que va a hacer es registrar y consultar  nombres de usuarios , lo que puedes hacer es que tu programa cree un archivo cualquiera por ejemplo : usuarios.usr y que al iniciar abra ese archivo y cargue el contenido en una variable tipo string, cuando  kieres acceder a la informacion de algun usuario usas una funcion que te permita buscar cadenas dentro de esa variable string pasandole el nombre y contraseña (supongo que vas a usar nombre y contraseña para ver la info de tal usuario), y si el nombre y contraseña coinciden muestras la info requerida, si se va a registrar un nuevo , lo que haces es otra vez buscar si existe  ese nombre y contra, si no existe lo agregas a la variable, borras el archivo usuarios.usr y creas uno nuevo escribiendo lo que contiene la variable string que es la informacion con los nuevos usuarios.   en vb6 para abrir archivo se usa "open", para leer su contenido se usa "input",para cerrar el acceso al archivo "close", y para buscar cadenas dentro de otra cadena "instr", busca los equivalentes de estos en vb 2008.

oks gracias por el consejo.

gracias ya me los baje, es mucho mas sencillo cambiar de esa forma, del manual de mi monitor no recuerdo donde lo puse o si lo bote, pero hay alguna configuracion adecuada para los ojos para que no provoque tanto cansancio y dolor de cabeza?, es que tengo que escribir bastante en la computadora y hacer correcciones constantemente por eso es que busco la mejor configuracion.