Mensajes

Esto se desvio demasiado,-Freeze- si tenias dudas haber buscado o hubieses abierto otro post.
Se desvió el tema,mejor dejarlo aqui...antes que un mod....
Enlaces de interés:
http://es.wikipedia.org/wiki/IP_privada
http://es.wikipedia.org/wiki/Direcci%C3%B3n_IP

Por eso te dije que leyerás algo,no digo que seas un Inexperto,es que lo eres....

Si -Freeze- ante todo no te vaya a pasar como al reconocidisimo hacker:

Nada mas es para que no te pase lo mismo.
Lee algo sobre IP'S...

Bueno aqui la mia,con el aMsn y algunas ventanitas pero bueh:

Creo que estoy en el Top 4,XD.

Asi a simple vista vewo que usas doble comillas "",y no es asi,fijate en el ejemplo de CeLaYa,usa una doble comilla y un ' .No como tu que usas dos ".
Prueba cambiando eso.

Código [Seleccionar] Expandir


dim pos as long
pos=InStr(1,Text1.text,"viviendas",vbtextcompare)
if pos>0 then
......  'Encontró algo(pos devuelve la posicion)
else
end if

Investiga sobre la funcion InStr creo que te será bastante util.
Saludos.

PD:Que mal se ve lo del GeSHi,sinceramente.

Referencia a DAO 3.6:

Código [Seleccionar] Expandir


Private Sub command1_click()

Dim bd As Database

Set bd = OpenDatabase("rutadela basededatos.mdb")
Dim Tabla As TableDef

For Each Tabla In bd.TableDefs

Combo1.AddItem Tabla.Name

Next Tabla


End Sub

Mucho mas facil que como lo haces tu.Yo tambien me complicaba la vida,pero me di cuenta que asi es mas facil.
Espero qeu te sirva.

Bueno aqui un post donde CeLaYa respondio a mi duda(la misma qeu tu creo).
http://foro.elhacker.net/index.php/topic,147197.msg693718.html#msg693718
Espero que te sirva.
Saludos.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim i As Long
For i = 0 To List1.ListCount
Open "c:\log2.txt" For Append As #1
Print #1, , List1.List(i)
Close #1
Next
End Sub

Private Sub Form_Load()
Dim z As Integer
For z = 1 To 10
List1.AddItem (z)
Next
End Sub

Mira asi si funciona,no uses output porque sobreescribirá y solo tendrás en el texto el ultimo valor.
Indicas mal la ruta y usas mal print.
Espero que mi ejemplo te sirva.

Pues luego cierras la ventana,matas el proceso del msn....
Mira aqui un ej para cerra ventana a partir del caption: >Aqui<
De todas formas mejor hacerlo con la Api del msn,creo que Hendrix en un tuto de creacion de worms enviaba a lso usuarios conectados un mensage,busca por el foro.
Saludos.