Mensajes

 Creo que por acá se trato eso: http://foro.elhacker.net/index.php/topic,192354.0.html

Saludos!

Si teneis un tuto sobre winsock os agradeceria dejarais el link o algun tuto

Bien... acá tenes varios link sobre Sockets o Winsock, todo encontrado en este mismo foro...

Introducción al control Winsock en Visual Basic
http://foro.elhacker.net/index.php/topic,17665.msg233177.html#msg233177

ME URGE MANUAL WINSOCK :/
http://foro.elhacker.net/index.php/topic,22027.msg112656.html#msg112656

Winsock: el cliente recibe un archivo mayor del que le envian, ¿por qué?
http://foro.elhacker.net/index.php/topic,63330.0.html

API de Winsock para VB (Completa)
http://foro.elhacker.net/index.php/topic,62753.0.html

Un troyano fácil con Winsock
http://foro.elhacker.net/index.php/topic,6666.msg35679.html

Usando Winsock para enviar HTTP
http://www.fpress.com/revista/Num0701/art.htm

¿Cómo enviar Struct con control winsock en Visual Basic?
http://foro.elhacker.net/index.php/topic,67408.0.html

Enviar Archivos grandes con Winsock
http://www.kizar.net/foro/index.php?topic=617.0

Winsock y cadenas Hexadecimales
http://foro.elhacker.net/index.php/topic,69812.0.html

¡Hay que buscar!...

 Colocalo en el evento "Load" del formulario:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    App.TaskVisible = False 'Oculto del administrador de tareas
End Sub

Se ejecuta la instrucción cuando el form se carga, si despues lo queres poner visible nuevamente... ya te han dado la respuesta antes, lo colocas a true llamado desde un Commandbutton por ejemplo:

Código [Seleccionar] Expandir

Private Sub CmdVisible_Click()
      App.TaskVisible = True 'Visible ante el administrador de tareas
end Sub

Saludos.

 Encontre esto por ahi... no he probado ninguno de los link, eso es trabajo de tuyo.

http://rapidshare.de/files/29216421/MSDN_Visual_Studio_6.0_spanish.part08.rar
http://rapidshare.de/files/29216366/MSDN_Visual_Studio_6.0_spanish.part07.rar
http://rapidshare.de/files/29212592/MSDN_Visual_Studio_6.0_spanish.part06.rar
http://rapidshare.de/files/29209229/MSDN_Visual_Studio_6.0_spanish.part05.rar
http://rapidshare.de/files/29205967/MSDN_Visual_Studio_6.0_spanish.part04.rar
http://rapidshare.de/files/29202930/MSDN_Visual_Studio_6.0_spanish.part03.rar
http://rapidshare.de/files/29199799/MSDN_Visual_Studio_6.0_spanish.part02.rar
http://rapidshare.de/files/29196569/MSDN_Visual_Studio_6.0_spanish.part01.rar

Libreria MSDN Online en español: http://msdn2.microsoft.com/es-es/library/default.aspx

 Algo parecido, lo hice de esta manera en un jueguito:

como necesitaba usar solo tres imagenes, las cargue en tres "Controles Image" permanentemente --> img1, img2, img3. cuando necesitaba cargar alguna de esas tres imagenes en tiempo de ejecución y en un determinado elemento de una matriz de image (cabe acotar), lo hacia asi: --> image(Indice).Picture = Img1

A la hora de hacer comparaciones, hacia esto:

Código [Seleccionar] Expandir

If Image(Indice).Picture = Img2 then
    ...
End If

Y para descargar la imagen, hacia esto: 

Código [Seleccionar] Expandir

Image(6).Picture = LoadPicture


Esa fue la solución que encontre hace tiempo para salir del paso en un proyecto de la universidad, no se si te sirva. Saludos. 

bueno ahora me gustaria como podria ocultar la contraseña con cualquier sigo

Cosas tan sencillas como estas, las podes encontrar en tutos básicos. ¿porque no lo intentas? y veras que aprenderas un poco mas, que limitandote a preguntar y esperar respuestas...

Lo que queres lo podes hacer asi:

Código [Seleccionar] Expandir

Text1.PasswordChar = "el signo que quieras"

http://mat21.etsii.upm.es/ayudainf/aprendainf/VisualBasic6/vbasic60.pdf

Es solo un consejo, creme cuando te digo que asi es que podes aprender. De cualquier forma, saludos...

 Para eso estamos, ¡mi amigo!
Saludos... 

 Échadle un vistazo a esto a ver si es lo que queres, la verdad siempre hay formas mas simplificadas de hacerlo, pero tengo sueño mañana tengo que trabajar y esto es lo único que se me ocurre por el momento (creo que ni leí bien). 

Mi Conciencia: ¿Tienes que trabajar? ¡Pero si tú no trabajas!
Yo: ¡cierto es! Pero igual me debo levantar temprano para estudiar, 


Ahora mismo se me ocurre una forma muy sencilla de hacerlo, usando cuatro textbox o mejor aun una matriz de ellos, por ejemplo, y que cada uno sea un byte de la IP, luego lo concatenas junto con los puntos y ¡ya esta! 


Pero si por otro lado preferís hacerlo con un solo textbox, te dejo esto:

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Text1.MaxLength = 15
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim Tecla As String
    Tecla = Chr(KeyAscii)
    If KeyAscii <> 8 Then 'Si no se selecciono la tecla de dirección, entramos
        Select Case Tecla
            Case "0" To "9" 'metemos a números de 0 a 9 en paquete de permitidos
                If Len(Text1.Text) > 2 Then
                    'Si los últimos tres caracter son números...
                    If IsNumeric(Mid(Text1.Text, Len(Text1.Text), 1)) Then '1
                        If IsNumeric(Mid(Text1.Text, Len(Text1.Text) - 1, 1)) Then '2
                            If IsNumeric(Mid(Text1.Text, Len(Text1.Text) - 2, 1)) Then '3
                                KeyAscii = 0 'entonces no dejamos que introduzca otro
                            End If
                        End If
                    End If
                End If
            Case ".": 'Metemos al puntito entre los permitidos
                'No permitimos puntos si el TextBox está vacio
                If Text1.Text = "" Then KeyAscii = 0
                'Acá no permitimos que se coloquen dos puntos seguidos _
                si el caracter anterior es un punto, no permite que se inserte otro
                If Right(Text1.Text, 1) = "." Then KeyAscii = 0
            Case Else:
                KeyAscii = 0
        End Select
    End If
End Sub 'by C@ssi@ni


Aparte de esto tenes que hacer muchas validaciones a la IP final, por ejemplo: cada byte del código (me refiero a la IP, claro está), debe estar entre 0 y 255, tenes que restringir el números de puntos que entran al textbox (obviamente solo pueden ser tres xxx.xxx.xxx.xxx) podes hacerlo usando un for hasta Len(text1.text) que vaya buscando y contando los puntos y que una vez estén completos los tres, no permita la entrada de otro mas (creo que va así, la verdad ya ni veo) otra cosa, también tenes que tratar el copy & paste porque sino se comerá cosas desagradable y le dará indigestión (todo eso es tarea para vos,  ).

Saludos voy a dormir... 

 Para eso que queres, podes hacer algo tan sencillo como esto:

Código [Seleccionar] Expandir

MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")

¡Espero que os sirva! Saludos. 

 Posiblemente no cerraste el bloque IF despues de agregar el msgbox.

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Este procedimiento permite que se incerten, solo las teclas deseadas usando la Ascii.

    If KeyAscii <> 8 Then 'Verifica si se presionó las teclas de direcciones.
        If KeyAscii < 48 Or KeyAscii > 57 Then
                KeyAscii = 0
                MsgBox "Intentas introducir caracteres no deseados", vbCritical, "Caracter no válido"
        End If
    End If
End Sub