Mensajes

No se a q t refieres pero si es a poner en un label la ip de un server (ftp, web ...) seria asi

Código [Seleccionar] Expandir

Private Sub Command1_Click()
ws.RemoteHost = Text1.Text
ws.RemotePort = Text2.Text
ws.Close
ws.Connect
End Sub

Private Sub Command2_Click()
ws.Close
End Sub

Private Sub ws_Connect()
Label1.Caption = ws.RemoteHostIP
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub


el ws es el winsock

Lo q necesito si alguien sabe como, es coger ese numero de serie del windows xp, estamos ablando del q aparece en un lateral de la torre ( CPU ),  pa aclararnos es con el q  ay q registrar windows.

Al intentar registrarlo m dice q ay mas ordenadores q lo utilizan, solo decir q yo tengo el cd original

jeje como q este ya l vi ace tiempo .... ahora no recuerdo donde 

.... Dame un compilador y programare el mundo ....

.... Solo hay 10 tipos de personas en la vida: los q saben codigo binario y los k no ....

Copie y pege, nunca e dixo q ese code fuese mio, yo d apis s muy poco y quite algo d codigo q informaba sobre la ruta de la aplicacion 


EDIT:

cuando postee el codigo no vi el tuyo Kizar, l debi d dar al enlace d responder y dejarle un tiempo en el q tu contextaste sorry 

Código [Seleccionar] Expandir

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    Dim strUserName As String

    strUserName = String(100, Chr$(0))
    GetUserName strUserName, 100
    strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

    MsgBox strUserName
    End
End Sub

keria hacer una aplicacion q controlase mi mp3 cuando l conectase al equipo asi k m puse a buscar y m encontre esto

http://foros.solocodigo.com/index.php?showtopic=13403

sigue siendo imposible hacerlo con vb6 

OK, gracias 

Salu2

Cuando lo pongo en el codigo no m lo reconoce como un comando  , m podrias decir como quedaria??

gracias

Estaba haciendo un textbox en el q acepte una ip
es decir q solo acepte numeros y puntos lo q pasa es q no tiene llimite, m gustaria limitarlo no por el espacio q ocupa xq cada ip puede tener algun numero mas o menos.
quiero limitarlo por los puntos q tiene "  .  ", q solo acepte 3, d momento tengo esto:

Código [Seleccionar] Expandir

tamaño = Len(Text1.Text)
b = 0
For a = 0 To tamaño
    If Left(Text1.Text, a) = "." Then
        b = b + 1
    End If
Next

If b = 3 Then MsgBox "tan 3 puntos"

No s en q falla, en alguna tonteria seguro,q l voy a acer soy un negao pa esto xD, pero quiero aprender