Puedes redirigir la salida del comando Echo, al Input de otro comando, pero esto no siempre funcionará en todos los casos.

Echo CONTRASEÑA|Net.exe user "usuario" *

Echo S|Choice.exe

Saludos

Te faltó usar el caracter de continuación de linea al principio:

payload = unescape( _
                   "%fc%e8%89%00%00%00%60%89%e5%31%d2%64%8b%52" & _
                   "%30%8b%52%0c%8b%52%14%8b%72%28%0f%b7%4a%26" & _
                   "%31%ff%31%c0%ac%3c%61%7c%02%2c%20%c1%cf%0d" & _
                   "%01%c7%e2%f0%52%57%8b%52%10%8b%42%3c%01%d0" & _
                   "%8b%40%78%85%c0%74%4a%01%d0%50%8b%48%18%8b" & _
                   "%58%20%01%d3%e3%3c%49%8b%34%8b%01%d6%31%ff" & _
                   "%31%c0%ac%c1%cf%0d%01%c7%38%e0%75%f4%03%7d" & _
                   "%f8%3b%7d%24%75%e2%58%8b%58%24%01%d3%66%8b" & _
                   "%0c%4b%8b%58%1c%01%d3%8b%04%8b%01%d0%89%44" & _
                   "%24%24%5b%5b%61%59%5a%51%ff%e0%58%5f%5a%8b" & _
                   "%12%eb%86%5d%6a%01%8d%85%b9%00%00%00%50%68" & _
                   "%31%8b%6f%87%ff%d5%bb%f0%b5%a2%56%68%a6%95" & _
                   "%bd%9d%ff%d5%3c%06%7c%0a%80%fb%e0%75%05%bb" & _
                   "%47%13%72%6f%6a%00%53%ff%d5%63%61%6c%63%2e" & _
                   "%65%78%65%00" _
                  )

· Statement Breaks in VBScript

Saludos!

Este snippet sirve para rotar la posición de las palabras que contiene un String.

    ' Rotate String
    ' ( By Elektro )
    '
    ' Usage Examples:
    ' MsgBox(RotateString("a b c d e f", RotationDirectorion.Left, 2)) ' Result "c d e f a b"
    ' MsgBox(RotateString("Hello_World_!", RotationDirectorion.Right, 1, "_"c)) ' Result: "!_Hello_World"
 
    ''' <summary>
    ''' Indicates the rotation direction of an String.
    ''' </summary>
    Public Enum RotationDirectorion
 
        ''' <summary>
        ''' Rotates to the left.
        ''' </summary>
        Left
 
        ''' <summary>
        ''' Rotates to the right.
        ''' </summary>
        Right
 
    End Enum
 
    ''' <summary>
    ''' Rotates the words in a String.
    ''' </summary>
    ''' <param name="String">Indicates the string to rotate.</param>
    ''' <param name="Direction">Indicates the rotation direction.</param>
    ''' <param name="Rotation">Indicates the rotation count.</param>
    ''' <param name="Delimiter">
    ''' Indicates the delimiter that is used to split the words of the string. 
    ''' Default is 'Space' character.
    ''' </param>
    ''' <returns>System.String.</returns>
    ''' <exception cref="Exception">Rotation count is out of range.</exception>
    Private Function RotateString(ByVal [String] As String,
                                  ByVal Direction As RotationDirectorion,
                                  ByVal Rotation As Integer,
                                  Optional ByVal Delimiter As Char = " "c
                                  ) As String
 
        Dim Parts As String() = [String].Split(Delimiter)
 
        If String.IsNullOrEmpty([String]) OrElse Not [String].Contains(CStr(Delimiter)) Then
            Throw New Exception(String.Format("Delimiter '{0}' not found in the String.", CStr(Delimiter)))
        End If
 
        If Rotation = 0 OrElse Rotation >= Parts.Length Then
            Throw New Exception("Rotation count is out of range.")
        End If
 
        Select Case Direction
 
            Case RotationDirectorion.Left
                Return String.Format("{0}{1}",
                                     String.Join(Delimiter,
                                                 From s As String In Parts Skip Rotation) & CStr(Delimiter),
                                     String.Join(Delimiter,
                                                 From s As String In Parts Take Rotation))
 
            Case RotationDirectorion.Right
                Return String.Format("{0}{1}",
                                     String.Join(Delimiter,
                                                 From s As String In Parts Skip (Parts.Length - Rotation)) & CStr(Delimiter),
                                     String.Join(Delimiter,
                                                 From s As String In Parts Take (Parts.Length - Rotation)))
 
            Case Else
                Return String.Empty
 
        End Select ' Direction
 
    End Function
 

Sé que el siguiente comentario no va a satisfacer tu urgencia, pero es que lo mejor y más fiable es hacérselo uno mismo, lo cual no es nada dificil.

Si te lo llegas a plantear entonces te recomiendo usar la aplicación WinToolkit, es una excelente herramienta para crear una ISO de Windows desatendida, y además, la aplicación provee esta serie de 'Software Addons' descargables, que son aplicaciones desatendidas que puedes añadir a tu ISO, aunque no están disponibles las que tu requieres ...pero por otro lado un InstallBuilder desatendido para las aplicaciones que nombraste es algo faicl de realizar, por ejemplo con InnoSetup y un poco de ingenieria inversa (muy básica).

PD: Yo hice mi propio instalador desatendido de NOD32 y de Skype, te los puedo pasar por privado si quieres.

Saludos.

Ese tipo de páginas se denominan Surveys, y son servicios engañosos (Osea, ESTAFAS), como muchas otras estafas legales que hay en internet (y así va el mundo).

Yo una vez estuve muy interesado en descargar un archivo, pero solo lo pude encontrar en una survey,
en fín, tal era mi desesperación que rellené la survey (es decir, introduje el nº de movil) para probar suerte y así poder descargar el archivo que me interesaba, aunque yo ya sabía lo que me podia esperar, pero aún así, quise probar suerte.

El problema que me surgió es que, después de rellenar la Survey, no me reirigía a ningún enlace de descarga, así que tuve que contactar con el servicio de la Survey mediante el email de asistenci al usuario para reclamarles el enlace de descarga (y de paso advertirles de una posible denuncia si no me lo daban),
y al final, ellos mismos me pasaron un enlace de descarga (y dejándo notar como estaban bastante acojonados por mi posible denuncia, cosa que no me extraña, ya que su servicio es muy falso), y por fín pude descargar lo que se suponia que era un archivo executable ...pero este no funcionaba, así que lo examiné por encima y descubrí que el archivo .exe no era más que un archivo de texto plano (.txt) que contenia una palabra escrita repetida en el interior para así agrandar el tamaño del archivo unos cuantos MegaBytes, y después le cambiaron la extensión "txt" a "exe" para intentar camuflar la estafa un poco mejor.

Asi que, en resumen, fue una pérdida de tiempo.

No te puedes fiar ni de los Trolls las personas que hostean un archivo en ese tipo de servicios, ya que como para descargar hay que pagar, nunca sabes si el archivo va a ser reálmente lo que dice ser, ni tampoco puedes confiar en el propio servicio en si mismo, que sabe muy bien que el 99% de los usuarios usan su servicio para estafar a los demás.

...Y ese tipo de cosas es lo único que te vas a encontrar si te atreves a rellenar una Survey.

Saludos!

Puedes hacerlo de la siguiente manera:


Saludos

Claro, en el output estás trabajando 5 lineas en total así que se procesa linea por linea para setear la variable, debes modificar la expresión del FOR para obtener la única linea que te interesa, prueba a reemplazar la expresión, por esta otra:

'pslist.exe -s 2 idle ^| Findstr.exe "[0-9]:"'

De todas formas no necesitas utilizar herramientas de terceros, puedes hacerlo con el comando externo WMIC de Windows:

@Echo OFF
 
Set    "ProcessName=Firefox"
Set /A "PercentCPU=0"
 
FOR /F "Tokens=2 Delims==" %%# IN (
	'WMIC.exe Path Win32_PerfFormattedData_PerfProc_Process Where Name^="%ProcessName%" Get PercentProcessorTime /Format:List ^| FINDSTR.exe "[0-9]"'
) DO (
	Set /A "PercentCPU=%%#"
)
 
Echo Process   : %ProcessName%
Echo CPU Usage : %PercentCPU%%%
 
Pause&Exit

Saludos.

Te vas a reir, pero a mi me funciona perféctamente tu programa, el archivo de lectura ...se lee xD, no ha sido necesario efectuarle ninguna modificación para que me funcione.

¿Has probado tu app en una VM?, debería funcionar.

De todas formas tenías el archivo 'Diccionario1.txt' desperdigado en varias carpetas, lo único que he echo ha sido dejarlo únicamente como recurso y modificar las órdenes para leer el recurso en los 2 métodos que intentaban leer un archivo local, en fín lo tienes en la carpeta .\WindowsApplication7\Resources


Es probable que lo que a ti te sucede sea un problema de VisualStudio (algo que no se ha actualizado corréctamente en el proyecto) o de la configuración de la App, si con la simple modificación que hice sigue sin funcionarte entonces prueba a hacer lo siguiente:

1. Eliminar el archivo oculto de opciones ("WindowsApplication7.suo") que está en la carpeta raiz de la solución.  (verás otro archivo SUO, ese lo ha generado mi VS 2012)
2. Limpiar la solución y reconstruirla (En las opciones de VS, el botón 'Clean solution', y 'Rebuild')
3. Eliminar el directorio que comentaste, me da muy mala espina porque estoy casi convencido de que tiene algo que ver con todo esto y quizás es lo que te está causando el problema:
C:\Documents and Settings\PRIMERO\Configuración local\Apps\2.0\X16CBQ9K.6OB\GRDP0DY2.Z7J
(no se que habrá dentro del directorio, quizás prefieras hacer un backup antes de elimiar).


PD: Hay muchas cosas que podrías mejorar en el código (demasiadas), y también me fijé que tenías un bug (al cerrar el Form1.vb la aplicación seguía activa sin cerrarse y había que matarla o detener el debugger), lo he corregido.

Saludos

Creo que tienes un tremendo lio montado

¿Porque tu programa intenta buscar el archivo en 'LOCALAPPDATA'?:


Si quieres pásame una url de descarga del proyecto (por aqui o en privado) y le echo un vistazo al problema del archivo, aunque no te aseguro nada, nunca he echo un instalador en VS, no se si estás usando VSIX para hacer el instalador, o un install builder aparte, o que se yo, así que no se lo que me voy a encontrar xD.

EDITO: Lo de las 'Build actions' es para establecer la forma en como se debe trabajar el recurso (por ejemplo, embedirlo a la app), en tu caso deberías dejarlo como está, en 'None'.

· Resource Files

+



Saludos!