Ayuda con mi troyano!!!

[sette]

Hola, despues de postear lo del Generador de Tarjetas, me parecio muy dificil asi que decidi tirarlo a la papelera  ... Ahora necesito ayuda para terminar mi troyano, que habia dejado pendiente por lo anterior, para terminar el troyano ya me falta poco pero necesito que me ayuden en lo siguiente:

Mi troyano consiste en varios formularios (form.frm), y uno de ellos se llama victima.frm en el cual yo escribo el "Nombre" y el "IP" de la victima y al hacer clic en un CommadButom (Agregar Victima) se agrean los datos a una lista (list1) para despues seleccionarlos y al presionar otro CommadButom (Conectar) se conecte al ip de de la victima que yo seleccione, hasta ahi todo vien, ahora se me comlica...
Quiero que si el usuario no escibe nada en el Texbox "Nombre" salga un MsgBox que diga "Falta Completar el campo Nombre", vbInformation
Lo mimo con el del Texbox "IP"...
Además quiero que por ejemplo se puedan escribir como minimo 3 caracteres en el campo "Nombre" de lo contrario que salga otro MsgBox. Con la opción MaxLength solo logro modificar los caracteres maximos pero no los minimos.
 
Y también hay un CommadButom (Borrar Victima) que tendria que funcionar asi:
Cuando selecciono la victima que quiero y hago click en (Borrar Victima) se borra la victima seleccionada, no logro hacerlo bien ya que se me borra toda la lista o de a 1 item por vez pero no como yo quiero...

Los metodos que intente fuero:
list1.Clear
list1.ItemRemo ve

[zXxOsirisxXz]

Para lo de k si el usuario no pone nada aparesca el msg es sensillo:

Private Sub Command1_Click()
If text1 = "" then msgbox "No a puesto nada", vbcritical, "Error"
end if
End Sub

Para lo del IP se hace igual.

Salu2

[crypto136]

Bien te dare un ejemplo para borrar elementos de un list abre otro formulario le agregas un listbox y commandbutton y reemplazas el codigo este:

Código:

Public x As String
Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = "borra" Then
    List1.RemoveItem (x)
Else
    MsgBox "No existe el comando indicado", vbInformation, ""
End If
End Sub

Private Sub Form_Load()
For I = 1 To 10 Step 1
    List1.AddItem (I)
Next
End Sub

Private Sub List1_Click()
x = List1.ListIndex
End Sub

Codigo Modificado

[-SharK_90-]

Aqui te dejo otra forma de Borrar elementos de un ListBox.
Agrega un Command1 y un List1

Private Sub Command1_Click()
On Error Resume Next
List1.RemoveIt em List1.ListInde x
List1.ListInde x = 0
End Sub

SALU2

[ziBboh]

Eso es para quitar todos los elementos

Código:

Public Function Quitar()
List1.ListIndex = 0
For X = 0 To Val(List1.ListCount) - 1 Step 1
List1.RemoveItem 0
Next
End Function

Otra manera, jejeje.

[sette]

Para lo de k si el usuario no pone nada aparesca el msg es sensillo:

Para lo del IP se hace igual.

Salu2

Gracias por responder a todos, pero me quedan otras dudas...

Cuando pongo el codigo que me decis funciona pero en el caso de que no escriba nada en cuaquiera de los dos "text", sale el cartel que dice "Falta completar" pero igualmente se agraga a la lista despues de que se aparezca el cartel...
Lo que quiero saber es como hago para que cuando el usuario no ponga nada en cualquiera de los 2 "text" salga el cartel pero tampoco que no se agrege a la lista lo qu escribio ¿se entiende?

Y también otra duda quiero saber como hago para que cuando seleccione una victima de la lista y hago clic en un CommandButom "Conectar" se conecte con la victima seleccionada, lo mismo para desconectarse

Desde ya muchas gracias...

[zXxOsirisxXz]

Si si si, mala mia.

Ese codigo es no mas para k aparesca el mensaje, lo ise asi, ya k no se lo k estas haciendo, exactamente.

Pero oye.. solo pon lo mismo.

Private Sub Command1_Click()
If text1 = "" then goto fallo else goto bien
fallo:
msgbox "No a puesto nada", vbcritical, "Error"
goto fin
bien:
'Aki pones lo k hace el boton normalmente.
fin:
end if
End Sub

[sette]

Gracias amigo por tu respuesta, otro problema resuelto, pero te queria saber como se hace lo que pregunte, eso de que cuando seleccione una victima de la lista y hago click en un CommadButom "Conectar" se conecte con la victima seleccionada.. .

Gracias   

[crypto136]

pues seria algo asi:

Código:

Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = List1.Text
Winsock1.RemotePort = "135"
Winsock1.Connect
End Sub

nos vemos suerte

[sette]

Gracias capo me resoviste el problema ¡De verdad! me ayudaste mucho gracias a vos y a todos los que postearon

No vemos cuidense