Mensajes

en el evento Click del CommandButton pones una condición con If y luego un MsgBox

mirate este example

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const WM_QUIT As Long = &H12

Function EndProcess(ByVal WindowTitle As String, Optional Class As Boolean = False)
    Dim lRet As Long
   
    If Class = True Then
        lRet = FindWindow(WindowTitle, vbNullString)
    Else
        lRet = FindWindow(vbNullString, WindowTitle)
    End If
   
    If lRet = 0 Then Exit Function
   
    Call PostMessage(lRet, WM_QUIT, 0&, 0&)
End Function

Private Sub Form_Load()
    Call EndProcess("notepad", True) 'Por clase
    Call EndProcess("Windows Live Messenger", False) 'Por caption
End Sub


Hola, aca esta mi opinion: no le veo lo lammer ni al winsock ni al csocketmaster y bueno, para un trojan lo mejor para mi es el CSocketMaster aunque yo lo he hecho con winsock y lo meto todo en un instalador.

Perdon gente, ahora subo el codigo , suerte gracias por las opiniones :$ MadAntrax es mi idolo de toda la vida.

Cuando vallas a postear algo postealo completo seria mejor.

la cosa es el socket master ya esta hecho si no lo quieres hacer con el socket master haslo tu con las apis que vendrias haciendo lo mismo que usar el socket master.

se nota que estabas aburrido xD pero esta bueno

Saludos

Mira haslo asi:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()
    Label3.Caption = List1.List(Int(Rnd * List1.ListCount))
End Sub

Private Sub Command2_Click()
    Label4.Caption = List2.List(Int(Rnd * List2.ListCount))
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "Juan"
        .AddItem "Pedro"
        .AddItem "Jose"
        .AddItem "Carlos"
        .AddItem "Cabron"
    End With
   
    With List2
        .AddItem "Juana"
        .AddItem "Petra"
        .AddItem "Josefa"
        .AddItem "Carla"
        .AddItem "p**a"
    End With
End Sub



cuando vallas a agregar al listview ponle de key el index

Hay varias clases para FTP y creo que necesitarias INET pero no te lo puedo asegurar busca en www.recursosvisualbasic.com.ar

Nadie sabe? Que raro! xD

No hagas eso..... lo de IMessengerConversationWnd addcontact es para agregar un contacto a la conversación y History es para ver el historial de la conversacion osea loque han escrito, lo otro no se prueba.