Temas

  Bueno tengo un pequeño problema que no se como resolver. Tengo estas líneas de codigo:

Código [Seleccionar] Expandir

Dim info As String
Winsock1.GetData info
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Y funciona bien, pero a mi me gustaría que solo haga:

Código [Seleccionar] Expandir

RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info

  Si el paquete tiene "/", y que si no lo tiene entonces ubique la información en un textbox. O que si tiene por ejemplo "@" lo ubique en el richtextbox2 y asi,, como se pude hacer.. cases?

  Hola, estoy haciendo un pequeño programa. Y deseo que el cliente envíe información al servidor como el nombre de la pc. Como puedo hacer para enviar esta información? es decir

Winsock1.senddata "asdkaskdjk"

  No serviria ya que cada computadora tiene un nombre diferente y el sistema de data arrival del servidor es por cases.. alguna ayuda?

  Yo siempre programé en VB6. Ahora, me interesé por este mundo del vbs debido a lo práctico que es, y necesito ayuda para saber si se puede bloquear el mouse desde VBS. Desde VB6 es posible y lo he probado con SetWindowsHookEx. Espero que puedan ayudarme,


PD: No logro deshabilitar el administrador de tareas desde VBS, fui al registro y la carpeta System no existía. La cree y agregue DisableTaskMgr poniendolo en 1 y si funcionaba. Lo volví a poner en 0, abrí el VBScript pero no se modifica. Alguna idea?