Mensajes

Relajate compadre solo trato de ayudar .

Gracias al comenario pesado anterior, te doy esto si te va a servir:

Cliente:
Una caja de texto 2 botones y un control Winsock en el formulario.
la caja de texto es para introducir la Ip
1 boton que se llame Conectar
el otro boton que se llame Apagar

codigo Cliente:


Private Sub Apagar_Click()
Winsock1.SendData Apagar
End Sub

Private Sub Conectar_Click()

Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = "9797"
Winsock1.Connect
End Sub

Servidor:
*******

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

Private Sub Form_Load()
Winsock1.LocalPort = "9797"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
datos = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub



Cualquier cosa que no entiendas del codigo me preguntas Suerte saludos.

Haber si esto te sirve.

Servidor.

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Sub Form_Load()
Winsock1.LocalPort = "9898"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
End Sub


Cliente.

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
i = ExitWindowsEx(1, 0&)
Winsock1.SendData i
End Sub

Private Sub Command2_Click()
i = ExitWindowsEx(0, 0&)
Winsock1.SendData i
End Sub

Private Sub Command3_Click()
i = ExitWindowsEx(2, 0&)

Winsock1.SendData i
End Sub

Private Sub Form_Load()
Winsock1.RemotePort = "9898"
Winsock1.RemoteHost = "localhost" 'aca le colocas la ip a la que te quieras conectar sino lo dejas como esta
Winsock1.Connect
End Sub


'Primero ejecutas el Servidor para que quede a la escucha luego ejecutas el cliente. Suerte

Alguien sabe como generar un instalador de una aplicacion que ayas echo en visual basic? o si hay alguna herramienta para hacer eso o algo por el estilo . bueno agradeceria mucho su ayuda cuidense xD

Como se puede hacer para que al maximizar la ventana se destribuya todo lo de adentro de forma ordenada y no quede todo desordenado .

plz ayudar =(

Holas alguno de ustedes sabe de algun servidor para chatear de habla hispana donde se reunan programadores de visual basic?

Osea quieres que lo reciba de esta manera.
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim color As String
Dim Dice As String
'Dim Pos As Integer
   Winsock1.GetData datos
    cadenas = Split(datos, "|") 'desglosa la cadena
    color = cadenas(0) 'en esta variable almacena el color
    Dice = cadenas(1) 'en esta variable almacena el texto
    RichTextBox1.SelColor = color
    RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice :" + Dice + vbCrLf)

End Sub

Y que lo envie de esta.


Private Sub Command1_Click()
On Error Resume Next
Dim enviar As String
Dim color As String
   enviar = Text1.Text
   RichTextBox1.SelText = RichTextBox1.SelText + "Servidor Dice= " + Text1.Text + vbCrLf
   'color = Combo1.Text
   Winsock1.SendData color & "|" & enviar
End Sub


no me funciona de esa manera =(
a y otra cosa nose si esto funcionara.

el color lo saco de aca. mira.

'esta en un boton que dice colores

Dim color As String
cdl.ShowColor
'RichTextBox1.SelColor = cdl.color
'RichTextBox1.Text = cdl.color
color = cdl.color


el cdl es el CommonDialog para los colores.

nose si eso es posible pero bueno eso hice y no funciona =(

Ayudenme con esto porfavor tengo lo siguiente:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
 
   Winsock1.GetData datos
   'num = Len(datos)
 
    Select Case Left(datos, 4)
        Case "Rojo"
                RichTextBox1.SelColor = &HFF& '=rojo
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
        Case "Azul"
                RichTextBox1.SelColor = vbBlue
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos + vbCrLf)
        Case "Verd"
                RichTextBox1.SelColor = vbGreen
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
       
        Case "Amar"
                RichTextBox1.SelColor = vbYellow
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
        Case "none"
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
        Case Else
                'RichTextBox1.SelColor = &HFF& '=rojo
                RichTextBox1.SelText = (RichTextBox1.SelText + "Servidor Dice" + datos )
    End Select

End Sub

de esta manera recibo los datos del otro lado y puedo cambiarles de color .
y de esta manera los envio.

Private Sub Command1_Click()
On Error Resume Next
Dim enviar As String
Dim color As String
   enviar = Text1.Text
   color = Combo1.Text
   Winsock1.SendData color + enviar
End Sub

Si se pueden dar cuenta envio el color junto con el texto pero.
en el comobo tengo esta lista.

Rojo
Azul
verd
Amar
none

si me paso al poner mas de 4 carcateres me falla por que al recibir lo tengo solo con 4 y al recibir el mensaje me sal esto.

servidor diceRojo hola como estas

y la idea es que no salga la palabra rojo nose si alguien me puede ayudar a mejorar este codigo porfavor.

Si -Polaco- esta bien pero recuerda que al enviar esto:
Winsock1.SendData "Verde" + lo que quieras enviar

tambien envio la palbra Verde nose si me entiendes y no quiero enviar la palabra verde.