Mensajes

miren haber si en este tipo de chat m pueden ayudar, tipo MSN, que te tienes que registrar poniendo una direccion email y contraseña, y para agregar contactos poner solo la direccion email, y luego como el msn, k te salga a las derecha un menu con todos los contactos k estan conectados, k le pinche y pueda hablar con el
donde puedo empezar???

Yo toy haciendo un chat, parecido, pero ni con mis conocimiento(que no son tantos) pero algo son, puedo hacerlo... es dificil y menos en tu situacion..
Agregame a ranslsad@archangel.es y si quieres te voy explicando cosillas...

Salu2

Ranslsad

Yo tambien habia visto ejemplos de esto, pero tampoco le habia dado mucha importancia, se los dare cuando me haga falta
Aun asi muy buen aporte.

Salu2

Ranslsad

[GRACIAS]

Hola amigos, primero disculpen por hacer tantas preguntas en un dia (con esta van dos) pero esuqe estoy haciendo un chat con registro, y yo ya tengo la parte "registrase" completada con base de datos MDB es decir el cliente envia info y el serveer procesa y guarda..

Al grano!
yo quiero hacer que en el login, al el cleinte enviar user:xxx pass:xxx pues mi servidor busque el nombre y en el mismo Record encuentre la contraseña y la compare.

Las tablas son:
Nombre
Contraseña

Bueno lo que quiero saber es como buscar(automatico) y leer un record en MDB, y en el mismo record, leer y comparar una palabra de otra tabla pero del mismo record..

Me lio yo solo

Bueno si alguien me entiende y puede ayudarme!!
Ya que hay mucho sobre eso pero no lo que yo busco :S
o si y busque mal, si es asi lo siento..

desde ya GRACIAS

Salu2

Ranslsad

Hola amigo, lo e probado y me sale el siguiente error:

Compile Error:
Variable Not Defined

y probe varias cosas pero ni idea oye..

me sale en esta parte el error:

Código [Seleccionar] Expandir

Select Case msg
  Case WM_LBUTTONUP 'restaura la ventana de formulario
    Me.WindowState = vbNormal
    result = SetForegroundWindow(Me.hWnd)
    Me.Show
  Case WM_LBUTTONDBLCLK 'restaura la ventana de formulario
    Me.WindowState = vbNormal
    result = SetForegroundWindow(Me.hWnd)
    Me.Show
  Case WM_RBUTTONUP 'desplega menú emergente
    result = SetForegroundWindow(Me.hWnd)
    Me.PopupMenu Me.mnuMain 'mostrar el menu en el systray
  End Select

Bueno espero que me pudas ayudar...

Salu2

Ranslsad

Hola amigos, hoy tengo una preguttita sencillita, yo tengo un codigo para minimizar mi aplicacion a la barra de tareas (un icono abajo a la derecha), pero la question una vez que lo minimizo no se como maximizarlo.
Bueno lo que yo realmente quiero es que si me pueden facilitar algun codigo para minimizas y tambien que al clickear sobre el icono (barra tareas) salga un menu..

Bueno si es posible, desde ya Gracias!!

Salu2

Ranslsad

y pon que funcion usas para copiarte, hay muchas alternativas para copiarte. dudo mucho que salte un av si usas una funcion del propio sistema

Oye quien es ese usuario? no tiene nombre, tiene mas de 4000 post y siempre contesta :S..
Quien sera? :S
un bot? (raro)
cerebro? (?)

bueno no se si alguien sabe :S

Salu2

Ranslsad

Bueno ya veo que te an respondido, aun asi te dejo una informacion que encontre en la pagina de nuestro foro...

Código [Seleccionar] Expandir

Selección y eliminación de todos los elementos de un ListBox:

Insertar un ListBox y dos Botón en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox
a "1 - Simple" y escriba el siguiente código:

Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
List1.AddItem "Texto 1"
List1.AddItem "Texto 2"
List1.AddItem "Texto 3"
List1.AddItem "Texto 4"
List1.AddItem "Texto 5"
List1.AddItem "Texto 6"
List1.AddItem "Texto 7"
End Sub

Private Sub Command1_Click()
'Seleccion de todo el contenido
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, True, -1)
End Sub

Private Sub Command2_Click()
'Eliminacion de todos los elementos seleccionados
Dim Resp As Long
Resp = SendMessageLong(List1.hwnd, &H185&, False, -1)
End Sub

Haber si te sirve para alguna otra cosilla

Salu2

Ranslsad

El problema esta en esta linea:
Print #1, Form9.List1.List(i)
el .list es el que falla creo, toy probando haber como era xD.. pero no me acuerdo..
cuando lo aya encontrado te aviso..

Salu2

Ranslsad

Necesitas un servidor ordenador... que almacene por ejemplo todas las IPs disponibles en ese momento y cuando tu por ejemplo abras el programa que solicite a ese servidor la IPs que estan activas asi podras mostrar una especie de lista con todas las IPs, luego ya podrias hacerlo mas avanzado almacenando frases personalizada. En resumen, es programacion avanzada

Pues si, ami siempre me interesao algo como eso, que escribis "ema.ema" y sale un contacto xD
pero creo que antes de proponermelo debo aprender un poquitin o mucho mas sobre VB.. mas que nada para no preguntar por cada cosa que me salga...

Salu2

Ranslsad

Bueno gracias a todos, pero especialmente a E0N que me aclaro muy bien lo que es un ClassModule!!
Grax amigos!!

Salu2

Ranslsad