Mensajes

Yo no programo en VB 2005 solo te digo busca en google algo asi "Sockets en VB 2005"

Ponle de nombre esto:

Código [Seleccionar] Expandir


Format(Now, "dd_MM_yyyy-hhmmss")


disculpen a lo mejor es una pregunta tonta
pero alguien me podria decir donde
esta el control de winsocks
y como introducirlo
en visual basic 2005 es que
no lo encuentro por ningun lado
gracias

No esta tienes que hacerlo desde codigo...

sip, pero si pongo eso, al darle a screen capture, me hace tambien eso de Hola entiendes? lo que te quiero decir compadre?

no la verdad no te entiendo...

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Open "C:\archivo.txt" For Append As #1
    Print #1, "zumo"
Close #1
End Sub


Fijate este ejemplo

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
WS.LocalPort = 1020
WS.Listen
End Sub

Private Sub WS_Close()
WS.Close
WS.Listen
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim rDatos As String
Dim rDato() As String

WS.GetData rDatos 'El dato que recibiria es: Mensaje|hola

rDato = Split(rDatos, "|")

If rDato(0) = "Mensaje" Then
    MsgBox rDato(1) 'Seria: MsgBox "hola"
End If
End Sub



http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-registro-windows-script-host.htm

No se si esta bien explicado pero sirve para contar el numero de caracteres de una cadena ejemplo:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Dim Cadena As String

Cadena = "Hola"

MsgBox Len(Cadena) 'Devuelve un 4
End Sub


Si te entendi quieres mostrar solo los minutos o las horas??? pues bueno si es asi lo puedes hacer asi:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
End Sub


Hola lo puedes hacer asi

Código [Seleccionar] Expandir


Text1.Text = Second(Time)