Mensajes

prueva poniendolo en un Timer con un inteval de  100 o mas!!!!

         Saludos y Suerte

>Se es algo haci lo que quiero...En breves que cunado yo abra un proyecto conecta a alguien que este usando kazaa de ahi ver su ip y los archivos que compar....

mas claro que eso no puedo!!!

      Saludos KaikiNets

si lo que tu quieres lograr es lo que entendi entonces fija y lee sobre el Inet.... Es bueno en esas condisiones si no quieres usar conexione xDD.

Listo solucione el problema.... Dejo el codigo por si alguien lo quiere

Código [Seleccionar] Expandir

Dim a As Single
Dim b As Single
Dim c As Single
a = Val(Text4.Text)
b = Val(Text5.Text)
c = a * b / 100
Text6.Text = c
Text7.Text = a + c

hola uso este codigo

Código [Seleccionar] Expandir

Text6.Text = Val(Text4.Text) * Val(Text5.Text) / 100
Text7.Text = Val(Text4.Text) + Val(Text6.Text)

la suma del text6 con el text4 (si nosotros ponemos 20 en el text4) me tendria que dar 24.2 y me da 24.teniendo encuenta que uso 3 text 4,5,6 y este codigo se encuentra en change del text4

¿ Que carajo pasa?¿ por que no me suma los decimales?

            Saludos KakiNets

gracias por tu informacion...Lo que tu dices de la ip seria como un proxy o algo por el estilo...

la verdad nunca senti oir que alguien aya preguntado como crear un proxy en vb ¿alguien sabe el funsionamiento?-

    Saludos....

Hola a todos voy a divir mi explicasion en 2...1 la idea ...2como tengo pensado hacerlo

  1- Lo que yo quiero lograr no me parece simple...Osea lo que quiero hacer es que cuando una persona en cualquier lado abre el kazaa y conecta a el tambien conecte a un programa que estoy realizando en vb y haci octener la ip de todos los usuario....Seria como un scan de IP

  2- cada ves que ustedes abre el kazaa y se conectan queda a la escucha un puerto que es el 32656 si yo ago un programa que intente conectar a ese puerto alterando las ip (hacien ip aleatoreas...Como un scan de puerto)voy a octener la ip y saber de que sitio es y que archivos conparte....

     ¿ Ahora es posible este sueño o es solo una fantacia?

          Saludos KakiNets
PD:No me traten mal por mi delirancia. Pero me gusta volar....

aka te soluciones el problema espero que te sirva....

Código [Seleccionar] Expandir


Private Sub Combo1_Click()
If Combo1.Text = "ESPAÑA" Then
List1.AddItem ("ola")
End If
End Sub


Saludos KakiNets

Hola a todo ayer boludiando encontre estos metodos que no tengo la placida idea para que sirven...

Winsock.Item
Winsock.LBound
Winsock.UBound
Winsock.Count

Tambien encontra una funcion nueva que no se para que es

load

    por ahora es eso nomas....
Saludo a todo los chicos del Foro y el Equipo de ElHacker.net
                      KakiNets

Bueno gracia a todos.

     A travajar. chau...