Mensajes

POR DIOOOOOOOS SANTO DEJA DE ESCRIBIR ASI PEDRONETS, TU ORTOGRAFÍA NO ES MALA, ES ASQUEROSA Y PERTUEBADORA.

MauseMove -> MouseMove (INTENTA BUSCAR EL EVENTO MAUSEMOVE)
IMAJEN -> IMAGEN
ARIVA -> ARRIBA
ESPLIQUE -> EXPLIQUÉ
NOSIERTO -> NO ES CIERTO

Y SI ESTOY GRITANDO!!

[Tutorial del control WinSock]

Lee un tutorial de WinSock, hay uno excelente de MSDN justo arriba como tema pegado. 

Tutorial del control WinSock

Saludos.

El siguiente código puede servir para saber si un formulario está cargado o no.

Código [Seleccionar] Expandir


Function IsLoaded(FormName As String) As Boolean
      Dim csForm

  For Each csForm In Forms
    If StrComp(csForm.Name, FormName, vbTextCompare) = 0 Then
      IsLoaded = True
     
      Exit For
    End If
  Next
End Function


Saludos.

[NtQuerySystemInformation]

Depende del tipo de handles que quieras listar. Hay algunas funciones muy poco documentadas que se usan para eso. Las funciones son NtQuerySystemInformation, NtQueryInformationProcess, NtQueryInformationThread y NtQueryInformationFile.

Con NtQueryInformationProcess y NtQuerySystemInformation se puede listar los handles del proceso.

Saludos.

Visual Basic ya tiene la función SetAttr, ¿entonces para qué usar APIs?

Saludos.

Si podes intercambiar texto entonces es sencillo. Suponiendo que tenes la lista de contactos en un ListBox, creas una cadena con todas los contactos, delimitado por algun caracter, vamos a suponer que es Chr$(1).

Código [Seleccionar] Expandir


Function MakeStrFromList(ListSpec As ListBox) As String
         Dim sData$, i%

  For i = 0 To ListSpec.ListCount-1
    sData = sData & ListSpec.List(i) & Chr$(1)
  next

  MakeStrFromList = sData
End Function


Luego envias la cadena y cuando llega a destino usas Split para obtener los elementos, y luego los volves a agregar a otra lista.

Código [Seleccionar] Expandir


Sub StrToList(StrSpec As String)
        Dim sItems$(), i%

  sItems = Split(StrSpec, Chr$(1))

  For i = LBound(sItems) To UBound(sItems)
    Call lstContactos.AddItem(sItems(i))
  Next
End Sub


Es solamente una idea, pero es lo mas sencillo. Tambien se podria crear una estructura de datos con mas informacion, pero esto es solo para ejemplificar.

Saludos.

Si el puerto esta cerrado no se va a conectar, ademas no asignaste ningun puerto a menos que hayas establecido la propiedad Text de Text2 en tiempo de diseño.

Saludos.

P.D: Usa las etiquetas code para el codigo.

No es forma de pedir las cosas, si crees que somos tus sirvientes estas muy equivocado 

La clave que esta monitoreando es "HKEY_CLASSES_ROOT\" & DEFKEY, que seria "HKEY_CLASSES_ROOT\Software" (no me preguntes por que puse esa de ejemplo xD).

Cambia la clave a la que quieras monitorear y listo.

Saludos.

[Etiqueta OBJECT]

En la etiqueta OBJECT hay un campo en donde se puede especificar el origen del control. Si no esta instalado en la maquina le da la opcion de descargarlo e instalarlo automaticamente.

Etiqueta OBJECT

Mira los campos CODE y CODEBASE.

Saludos.