Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Me.Visible = False
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
DoEvents
SendKeys ("minick")
SendKeys ("{ENTER}")
Me.Visible = True
End Sub
 

Jaja bueno, así me funciono, lo de los users ni idea porque nunca he programado con esa librería

Saludos!

El ocx viene en el rar "WINSOCK_SN1579214252003", descomprimis, abris la carpeta, abris el proyecto "Winsniff.vbp" y luego de eso sale un error, le das aceptar, luego te vas para Archivo, y allí le das generar sniffer.ocx, ese proyecto contiene todas las cosas del sniffer.
Pero luego de eso, tenes que ir al proyecto "SniffExample.vbp" lo abris y te salen varios errores, pero es lo de menos!, te vas para los formularios, y en los formularios escoges el que dice "frmMain", lo abris, e insertas el componente que falta, que es el "sniffer.ocx", lo agregas y luego lo dibujas en el main y listo

Saludos!

Primero crea el ocx, ahí está en el proyecto que dice "winsniff".
En ese winsniff es donde se encuentra el código que se encarga de capturar los paquetes, luego de eso si podes abrir el  proyecto de ejemplo que trae el rar, agregas vos mismo el componente "snifer.ocx", y luego de eso lo metes en el frmmain del proyecto de ejemplos.
Si queres aprender lo del sniffer mira principalmente el ocx que es el que se encarga de hacer que todo funcione, el ejemplo es solo la utilización de los métodos del ocx.
si tengo tiempo lo miro bien, y te posteo como hacerle...

Saludos!

pdata. No tengo tiempo porque estoy haciendo tareas

No soy partidario de dar ejemplos de otras páginas, pero si queres pegate una revisada por esta página: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=44801&lngWId=1

Me parece un muy buen ejemplo de sniffer, apenas lo pude probar, luego si tengo tiempo, armo uno yo mismo, y te lo posteo.

Saludos!

Lo que hace el split es separar los datos teniendo un delimitador, en este caso es que delimita los datos es el "|".
Si tenes esto:

texto = "archivo|1000kb|c:\"
 

y haces un split a ese texto:

split(texto, "|")
 

el texto se dividirá en varias partes.
la primera parte contendrá: "archivo", la segunda "1000kb" y la tercera "c:\"

El split es una función que trae el visual y no tenes porque declararla, lo que te había dicho antes, era que de seguro no estabas mandando una cadena con "|", ya que si el split no encuentra algún "|" en la parte del código que es:

filesize = dato(1)
Path = dato(2)
 

sale un error diciendo que el subíndice está fuera del intervalo.
bueno, espero me haya explicado bien.

si tenes option explicit al principio del proyecto, quitáselo y mira a ver si te funciona.
Saludos!

Intenta con esto:

Private Sub Command1_Click()
Dim Canal% 'as integer
Dim x$
For i = 0 To List1.ListCount - 1 'recorremos cada elemento del list
    x = x & vbCrLf & List1.List(i) 'a la variable x le metemos el contenido de cada valor de la lista
Next i
Canal = FreeFile 'abrimos canal
Open "c:\lista.txt" For Output As Canal 'abrimos el archivo en modo de escritura
Print #canal, x 'escribimos el contenido
Close #Canal 'cerramos el canal
End Sub
 

Si lo que queres hacer es guardar el contenido solo de un elemento:

Private Sub Command1_Click()
Dim Canal% 'as integer
Dim x$
x =  List1.List(i) 'a la variable x le metemos el contenido del valor escogido en la lista, i es la fila que vamos a guardar
Canal = FreeFile 'abrimos canal
Open "c:\lista.txt" For Output As Canal 'abrimos el archivo en modo de escritura
Print #canal, x 'escribimos el contenido
Close #Canal 'cerramos el canal
End Sub
 

Saludos!

Ja!. pues que raro esta eso. Intenta entonces:
1. Crear Frame.
2. Crea OptionButton dentro del frame con este seleccionado.
3. Crear otro Frame al lado del frame 1
4. Crear OptionButton dentro del nuevo frame el cual esta seleccionado.

Lo acabo de probar y funciona al 100%
La cosa es que los OptionButton trabajan según el contenedor, si los metes en dos frames distintos, el contenedor es el frame y no el form.
Repite hasta que te salga

Saludos !

Depronto es que no hay ningún "|" en los datos que mandas al winsock.
Si si los mandas, postea el código entero, o mandamelo por pm lo reviso bien

Saludos!

Editado:

Private Sub subb(datos)
If Left(datos, 7) = "archivo" Then
dato = Split(datos, "|")
filesize = dato(1)
Path = dato(2)
MsgBox filesize
MsgBox Path
End If
End Sub
 
Private Sub Command1_Click()
subb "archivo|1000kb|c:\"
End Sub
 

Me funciona al 100%

Si no me equivoco creo que la constante es "&H24" y se refiere al numero 36 decimal.
Intenta a ver si con esa da, pero no creó que funcione con el getasynckeystate, pon un hook en el teclado y de seguro con esa constante si te funciona

Saludos!

Webstar, es simple, solo tenes que mirar todo el código xDD, proba a guardar la página y abrirlo con un editor o yo que se...


Soulip!, es algo muy básico, y hay diferentes scripts que te hacen el trabajo por vos, es una de las cifras de cuando vivió Cristo !

Saludos!