Mensajes

Hola a todos, mi problema es el siguiente:
Necesito ocultar una ventana y que esta tampoco aparezca en la barra de tareas. El problema es que tambien necesito que el todo siga funcionando, por lo que no puedo cerrarla con APIs.
Se como mover otras ventanas, activarlas o desactivarlas, cambiar el tamaño, pero no encuentro ninguna API para ocultarla. Intente iniciar la ventana dentro de mi programa pero el problema es que se trata de una ventana de conversacion del MSN y no se como hacerlo.

Espero que alguien pueda ayudarme, gracias de antemano.-

[Replace]

A ver, primero querias buscar una palabra. Para hacer eso podes usar un For:

Código [Seleccionar] Expandir


    'Teniendo en cuenta que Text1 es donde vamos a buscar la palabra que esta escrita en el Text2

    Dim i as Long

    For i = 1 To Len(Text1)
        If Mid(Text1, i, Len(Text2)) = Text2 Then
            MsgBox Mid(Text1, i, Len(Text2)) & " - " & i
        End If
    Next i

    'La posicion de la palabra que encontraste seria la variable i, y la longitud es igual a la del Text2...


Tambien habias preguntado como reemplazar una palabra, para eso usas la instruccion Replace:

Código [Seleccionar] Expandir


   Text1 = Replace(Text1, Text2, Text3)

   'Text1 es donde vamos a reemplazar la palabra
   'Text2 es la palabra que queremos reemplazar
   'Text3 es la palabra que se va a poner en lugar de la del Text2


Bueno espero que se entienda y que te sirva.

Un saluod.-

Agregas un Modulo y en este escribis:

Código [Seleccionar] Expandir


Public TuVariable As String '(o lo que quieras)


Ya esta, la podes usar en todos los formularios. Y creo que si usas Dim en vez de Public funciona tambien... no hay ganas de probar xD

Saludos.-

[CLICK]

Mira aca hay un hilo interesantisimo donde se responden muchas preguntas > CLICK

Es porque el CMD lo ejecuta en segundo plano.
Y si pones END te escribe una parte en el codigo.
A mi me funciono asi:

Código [Seleccionar] Expandir


    Shell "cmd", vbNormalFocus
    DoEvents
    SendKeys "ipconfig"
    DoEvents
    SendKeys "{enter}"


Saludos.-

Es recomendable hacerlo con apis pero podes usar:

Código [Seleccionar] Expandir


Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Programa /t REG_SZ /d C:\MiPrograma.exe"


Hay mucho en el foro de esto...

Muchas gracias por el amorte, esta interesante el code

pero s supone k el OCX viene en el SP6 del VB no?

Sí.-

No. Pone el Inputbox en la parte del cliente y entonces, cuando escribis algo en la caja de texto lo manda al servidor...

Saludos.-

[seguro = InputBox("Contraseña", , "Hola")]

 


Porque la instruccion seguro = InputBox("Contraseña", , "Hola") esta del lado del servidor y con Winsock1.SendData seguro mandas lo que se escribio al cliente...