|
Mostrar Mensajes
|
Páginas: 1 2 [3] 4 5 6
|
22
|
Programación / Programación Visual Basic / Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
|
en: 15 Agosto 2006, 09:29 am
|
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.
|
|
|
23
|
Programación / Programación Visual Basic / Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
|
en: 13 Agosto 2006, 14:24 pm
|
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
|
|
|
24
|
Programación / Programación Visual Basic / Intalador
|
en: 11 Agosto 2006, 08:39 am
|
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
|
|
|
28
|
Programación / Programación Visual Basic / Re: Quien me ayuda a mejorar este codigo?(Socket)
|
en: 5 Agosto 2006, 21:08 pm
|
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 =(
|
|
|
29
|
Programación / Programación Visual Basic / Quien me ayuda a mejorar este codigo?(Socket)
|
en: 5 Agosto 2006, 06:21 am
|
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.
|
|
|
|
|
|
|