Mensajes

Entonces pon:

Código [Seleccionar] Expandir

text1.text = winsock1.localip

Y de paso te lees un tutorial.

[&]

Utiliza & para encadenar strings en vez de +.

Utiliza la etiqueta codigo cuando vayas a poner codigos de programacion , lo hace mas legible.

Eso es de Aprende como si estuvieras en primero VB? Si es haci no te preocupes que solo son ejemplos de programas , cuando leas mas adelante puedes ir entendiendo que hace cada cosa. Y no te olvides de F2 que en el VB te da una lista de las funciones y sus explicaciones.

Quizas pusiste algo en tu codigo que haga que aparezca el form de nuevo si X cosa sucede ?

Las caritas creo que llevan menos de un año haci que denle un tiempo y luego se cambiaran 

Tantas alianzas me confunden 

En las propiedades del textbox buscas PasswordChar y pones * .

with a Linux Laptop and a directional antenna to inject audio to

Si muchas personas se ponen a jugar con esto veremos muchos accidentes de carros por una simple "broma".

'Tratare de aportar algo a esta pequeña clase.

El Visual Studios trae una herramienta llamada Spy++ el cual enumera todos los procesos con sus handles , classes y demas informacion.  Vamos aprender a buscar el notepad con el API FindWindow() , de igual modo aprenderan a buscar cualquier otro programa para poder cojer su handle.

Abrimos el notepad y luego el Spy++ , vas a Search->Find Window y arrastramos la mira hasta la ventana donde este el notepad. Deberia de aparecernos su handle , Caption y Class, le damos a ok para continuar. Deberia de aparecernos algo haci:



Le damos un click derecho y vemos las propiedades del programa , vamos a la pestaña llamada Class y apuntamos el Class Name que en este caso es Notepad.

Ahora vamos al codigo , ya sowher les dijo como declarar las Api haci que:

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'Creamos un boton y le dejamos por defecto Command1

Private Sub Command1_Click()
Dim hndl As Long
hndl = FindWindow("Notepad", vbNullString)
MsgBox hndl
End Sub

En mi caso el msgbox me da como resultado "197354" que si lo convertimos en hexadecimal es "302EA". Si vemos la imagen anterior vemos que he encontrado el handle del Notepad.

Luego otro dia muestro como cambiar el titulo an Notepad al menos que alguien quiera escribirlo primero que yo 

[If]

Pues lo haces igual con un If , fijate del codigo anterior.