Aquí posteé una función para hacerlo: http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1817291#msg1817291


Saludos

Si no he entendido mal, quieres comprobar si el usuario ha escrito 1 texto obligatorio + una o varias palabras + 1 texto obligatorio + una o varias palabras, y luego quieres mostrar los textos obligatorios de otra forma.





Eso puedes hacerlo con expresiones regulares o de la siguiente manera,
Copia este form y ejecútalo (No es necesario que añadas los controles), la única parte que te interesa es la que hay antes del comentario "FINAL DEL EJEMPLO":

PD: Si quieres almacenar el nombre y apellido en una variable, usa RegEX o el método Split.

Public Class Form1
 
    Dim Obligado1 As String = "Tu nombre es:", Obligado2 As String = "Tu apellido es:"
    Dim Obligado1_B = "Dijiste que tu nombre era:", Obligado2_B = "Dijiste que tu apellido era:"
    Dim Nombres As String = Nothing
 
    Private Sub TBox1_TextChanged(sender As Object, e As EventArgs)
        Nombres = sender.text
    End Sub
 
    Private Sub Button_Click(sender As Object, e As EventArgs)
        If Nombres Is Nothing Then
            MsgBox("No introduciste nada")
        ElseIf Not Nombres.Contains(Obligado1.ToLower) Or Not Nombres.Contains(Obligado2.ToLower) Then
            MsgBox("No introduciste el texto obligado")
        ElseIf Nombres.Contains(Obligado1.ToLower) And Nombres.Contains(Obligado2.ToLower) Then
            TextBox2.Text = Nombres.Replace(Obligado1.ToLower, Obligado1_B).Replace(Obligado2.ToLower, Obligado2_B)
        End If
    End Sub
 
    '// Final del ejemplo
    '////////////////////
    '// Final del ejemplo
 
 
 
    ' Controles
    Dim Button As New Button
    Dim TextBox1 As New TextBox
    Dim TextBox2 As New TextBox
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button.Text = "Comprobar"
        Button.Location = New Point(10, 10)
        TextBox1.Size = New Size(370, 20)
        TextBox2.Size = New Size(370, 20)
        TextBox1.Location = New Point(10, 40)
        TextBox2.Location = New Point(10, 65)
        AddHandler TextBox1.TextChanged, AddressOf TBox1_TextChanged
        AddHandler Button.Click, AddressOf Button_Click
        Me.Controls.Add(Button) : Me.Controls.Add(TextBox1) : Me.Controls.Add(TextBox2)
        Me.Size = New Point(410, 130)
    End Sub
 
End Class

@diegoCmC
Muchísimas gracias, ni se me habría ocurrido.

Saludos!

---

Estoy intentando seguir el ejemplo de ese link, intento copiar un archivo de texto de pocas líneas, pero el archivo copiado siempre queda vacío (0 bytes)

¿Que estoy hciendo mal?

Public Class Form1
 
    Dim cancelled As Boolean = Nothing
    Dim input = New System.IO.FileStream("C:\1.txt", System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
    Dim output = New System.IO.FileStream("C:\Nueva carpeta\Nueva carpeta\Nueva carpeta\1.txt", System.IO.FileMode.CreateNew, System.IO.FileAccess.Write, System.IO.FileShare.Write)
 
    Public Sub CopyStream(ByVal inputStream As System.IO.Stream, ByVal outputStream As System.IO.Stream)
        'Dim buffer = System.IO.File.ReadAllBytes("C:\1.txt")
 
        Dim buffer = New Byte((1024) - 1) {}
        Dim bytesRead As Integer = 1
 
        While (inputStream.Read(buffer, 0, buffer.Length) > 0)
            outputStream.Write(buffer, 0, bytesRead)
            'bytesRead += 1
 
            If cancelled Then
                MsgBox("operacion cancelada")
                Return
            End If
        End While
 
        inputStream.Close()
        outputStream.Close()
        MsgBox("operacion terminada")
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CopyStream(input, output)
    End Sub
 
End Class

Con las prisas interpreté mal lo que querías hacer, pero al final, de todas formas, lo que te dije es lo que necesitas, ocultar la CMD.

El código de arriba, lo escribes desde un BAT, a un archivo VBS de la misma manera que haces en ese BAT (Por la forma en la que está escrita la sintaxis juraría que es un copy/paste de algún script mío  ), y lo ejecutas al inicio del BAT, se verá la CMD durante medio segundo, no se puede evitar eso.

Hay otras formas para evitar eso, como utilizar un convertidor de BAT a EXE.

Saludos

Creo que a lo que raul338 se refería es que muestres la parte del código de las variables para especificar el tipo de variable que es, aparte del contenido y de las modificaciones que le hagas...

Ya queda menos, Ahora sólo falta que especifiques lo que intentas hacer...

Saludos!

Pero si tienes el código, ¿porque no lo pruebas tu mismo para salir de dudas? xD

Ese code lo único que hace es mostrar una Caja de texto usando VisualBasicScript.

Usa el buscador del foro...

set ws = wscript.createobject("WScript.shell")
ws.run("notepad.exe"), 0, true

Ahora no dispongo de tiempo, debes modificar los argumentos (%1 %2 %3) del BAT para usar ese code VBS.

Saludos!

Nunca me ha gustado el Outlook, y lo tengo capado en los Windows que uso sin forma de testearlo xD.
probaré desde la aplicación de Mozilla (que no recordaba el nombre), gracias!

Esta función es para escribir "hints" (o "cues") en los TextBox por ejemplo.

#Region " Set Control Hint Function "
 
    ' [ Set Control Hint Function ]
    '
    ' Examples :
    ' Set_Control_Hint(TextBox1, "Put text here...")
 
    <System.Runtime.InteropServices.DllImport("user32.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr)> ByVal lParam As String) As Int32
    End Function
 
    Private Function Set_Control_Hint(ByVal control As Control, ByVal text As String) As Boolean
        Try
            SendMessage(control.Handle, &H1501, 0, text)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function
 
#End Region

---

Enviar POST por PHP:

#Region " Send POST PHP Function "
 
    ' [ Send POST PHP Function ]
    '
    ' Examples :
    ' Dim htmlcode As String = PHP("http://somesite.com/somephpfile.php", "POST", "name=Jim&age=27&pizza=suasage")
 
    Public Function Send_POST_PHP(ByVal URL As String, ByVal Method As String, ByVal Data As String) As String
        Try
            Dim request As System.Net.WebRequest = System.Net.WebRequest.Create(URL)
            request.Method = Method
            Dim postData = Data
            Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = byteArray.Length
            Dim dataStream As System.IO.Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
            Dim response As System.Net.WebResponse = request.GetResponse()
            dataStream = response.GetResponseStream()
            Dim reader As New System.IO.StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            reader.Close()
            dataStream.Close()
            response.Close()
            Return (responseFromServer)
        Catch ex As Exception
            Dim PHP_Error As String = ErrorToString()
            If PHP_Error = "Invalid URI: The format of the URI could not be determined." Then
                MsgBox("ERROR! Must have HTTP:// before the URL.")
            Else
                Throw New Exception(ex.Message)
            End If
            Return ("ERROR")
        End Try
    End Function
 
#End Region

Bueno pues llevo 2 o 3 días así (y me parece que no soy el único):



¿Le pasa algo al servicio de Microsoft?, me parece algo fuera de lo normal porque he testeado desde Firefox, desde chrome, con una limpieza prévia de cookies porsupuesto, en mi Windows, y en VirtualBox, no me deja pinchar en ningún correo de entrada!
y necesito leer un correo importante pero ahora mismo no se me ocurre ningún soft con el que poder leer los correos de Hotmail, ¿Alguna sugerencia?.

Grabar audio del PC:

#Region " Rec Sound Function "
 
    ' [ Rec Sound Function ]
    '
    ' Examples :
    ' Rec_Sound("C:\Audio.wav", Rec.Start_Record)
    ' Rec_Sound("C:\Audio.wav", Rec.Stop_Record)
 
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
 
    Public Enum Rec
        Start_Record
        Stop_Record
    End Enum
 
    Private Function Rec_Sound(ByVal Path As String, ByVal Rec As Rec) As Boolean
        Select Case Rec
            Case Rec.Start_Record
                mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
                mciSendString("record recsound", "", 0, 0)
                Return True
            Case Rec.Stop_Record
                mciSendString("save recsound " & Path & "", "", 0, 0)
                mciSendString("close recsound", "", 0, 0)
                Return True
            Case Else : Return Nothing
        End Select
    End Function
 
#End Region