Título: Por que no me obedece el server? Publicado por: astaroth_15 en 2 Noviembre 2007, 06:16 am Tengo puesto para que me abra el cd-rom y me lo cierre, y lo hace bien..
Pero tengo esto otro, que es para que el server se reinicie y no me hace caso Algun fallo?? SERVER Código: Private Sub WS_DataArrival(ByVal bytesTotal As Long) Dim dato$ Dim reiniciar$ ws.GetData dato If LCase$(dato) = "opencd" Then mciSendString "Set CDAudio Door Open", ReturnString, 127, 0 ElseIf LCase$(dato) = "closecd" Then mciSendString "Set CDAudio Door Closed", ReturnString, 127, 0 Else End If ws.GetData apagate If reiniciar = "apagate" Then MsgBox "REINICIADO" End If End Sub Este es el comando que quiero efectuar: ws.GetData apagate If reiniciar = "apagate" Then MsgBox "REINICIADO" Pero claro, no me obedece :S --------------- Esto esta en un Commandbuttom CLIENTE Código: Private Sub Command8_Click() Ws.SendData "apagate" Label12.Caption = "Servidor reiniciado" End Sub Título: Re: Por que no me obedece el server? Publicado por: HaDeS, - en 2 Noviembre 2007, 21:17 pm Man a ver te explico, ya en los dos códigos que has enviado ha tenido varios errores, pero te ayudo.
primero te doy el code corregido: Código y luego te digo que tenía mal: Código Para que metes el "Else" si luego de eso no vas a poner nada... entonces se quita. ws.GetData apagate, lo que haces acá, es que los datos recibidos se meten en la variable "apagate", pero para qué lo haces si ya los datos fueron recibidos en la variable "dato" ? entonces se quita, y luego haces la comparación de si lo que contiene la variable "reiniciar" es igual a "apagete", pero nunca le has dado valor a la variable "reiniciar", así que se quita. Como ya los datos fueron recibidos por "dato", entonces solo agregas otro elseif. "Elseif Lcase$(dato) = "apagate" ...", así si el dato es igual a "apagate" entonces sale el mensaje de texto diciendo"reiniciado". Bueno, es todo, de nada xD. Saludos! Editado. Título: Re: Por que no me obedece el server? Publicado por: astaroth_15 en 3 Noviembre 2007, 00:46 am muchas gracias por la explicacion hades, muchimas gracias hermanito ;) cuidate haber si me sirve ;D
|