Mensajes

Código [Seleccionar] Expandir

Dim Clicks As Integer

Private Sub Command1_Click()
Clicks = Clicks + 1
If Clicks = 10 Then Command1.Enabled = False
End Sub

quien quiera entrar ahora: 81.172.24.88:27015

Pero que version?

yo creo q estaria bien la 1.6

NO, mejor lo creamos nosotros porque asi es mejor

Yo me apunto y si se lo comento a kizar y a benru seguro q se apunta también.

Salu2

seguramente sea el control ocx de winsock "mswinsock.ocx" usa enviale el ocx y q lo ponga alado del exe

creo q el no quieres eso, creo que quiere q al pasar por el evento movemouse de una imagen por ejemplo todos los controles pongan .caption = "h" etc...

pero nu se

Salu2

lo q quieres haces el algo brutal  sobre todo si son 748496 porque nunca pararía el bucle asea se q se petaría el programa.

no se q aconsejarte para eso haber si alguien postea q yo tambien me e quedado con la duda 

[Ocultar Proceso en TaskMgr sin hooks:]

Ocultar Proceso en TaskMgr sin hooks:

• http://foro.elhacker.net/index.php/topic,82701.0.html

Código [Seleccionar] Expandir


Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

Private Sub Form_load()
Dim i As Integer
i = ExitWindowsEx(0, 0&)
End Sub

Salu2

Código [Seleccionar] Expandir

Dim i As Long
For i = 0 To Command1.Count - 1
Command1(i).Caption = "Aceptar ;)"
Next i