hola ,mediante el registro recolecto cadenas de uninstall de los programas instalados ahora hay forma de llamar al desinstalador de forma silenciosa y oculta sin que muestre una interfaz de usuario, es decir que se desinstale sin opciones.

mi intento fue con ShellExcute + el comando y Hide pero igual se muestra la interfaz preguntando.


C:\WINDOWS\SysWoW64\Macromed\Flash\FlashUtil32_25_0_0_127_pepper.exe -maintain pepperplugin
"C:\Program Files (x86)\Microsoft Games\Age of Mythology\UNINSTAL.EXE" /runtemp /addremove
"C:\Program Files (x86)\Microsoft Games\Age of Mythology\UNINSTXP.EXE" /runtemp /addremove
"C:\Program Files (x86)\Google\Chrome\Application\57.0.2987.133\Installer\setup.exe" --uninstall --system-level --verbose-logging
"C:\Program Files (x86)\IcoFX 2\unins000.exe"
C:\Program Files (x86)\Notepad++\uninstall.exe
"C:\Program Files (x86)\Opera\Launcher.exe" /uninstall
"C:\Program Files (x86)\TeamViewer\uninstall.exe"
C:\Program Files (x86)\VideoLAN\VLC\uninstall.exe
MsiExec.exe /I{01501EBA-EC35-4F9F-8889-3BE346E5DA13}
MsiExec.exe /I{07E8F866-4D6A-4C17-BFC7-1E7D5F95A132}
MsiExec.exe /X{0EC7F9CC-4741-45AE-9F55-6E9343F726F5}
MsiExec.exe /X{1F1C2DFC-2D24-3E06-BCB8-725134ADF989}
"C:\Program Files (x86)\ApiViewer 2004\SDK\unins000.exe"
"C:\ProgramData\Package Cache\{246dcb72-b18c-4ab9-9de9-8a996296b01d}\vcredist_x86.exe"  /uninstall
"C:\ProgramData\Package Cache\{33d1fd90-4274-48a1-9bc1-97e33d9c2d6f}\vcredist_x86.exe"  /uninstall
MsiExec.exe /X{4E76FF7E-AEBA-4C87-B788-CD47E5425B9D}
"C:\Program Files (x86)\InstallShield Installation Information\{5BC2B5AB-80DE-4E83-B8CF-426902051D0A}\Setup.exe" -runfromtemp -removeonly
"C:\ProgramData\Package Cache\{6e8f74e0-43bd-4dce-8477-6ff6828acc07}\vcredist_x64.exe"  /uninstall
"C:\ProgramData\Package Cache\{74d0e5db-b326-4dae-a6b2-445b9de1836e}\VC_redist.x86.exe"  /uninstall
C:\Program Files (x86)\InstallShield Installation Information\{8833FFB6-5B0C-4764-81AA-06DFEED9A476}\setup.exe -runfromtemp -removeonly
MsiExec.exe /X{9BE518E6-ECC6-35A9-88E4-87755C07200F}
C:\Program Files (x86)\InstallShield Installation Information\{9D3D8C60-A5EF-4123-B2B9-172095903AB}\Install.exe -uninst -l0xA
C:\Program Files (x86)\InstallShield Installation Information\{9DAABC60-A5EF-41FF-B2B9-17329590CD5}\Install.exe -uninst -l0xA
MsiExec.exe /X{A1238426-ECDF-4639-BE2F-8D12A97AE23C}
"C:\Program Files (x86)\ApiViewer 2004\unins000.exe"
"C:\Windows10Upgrade\Windows10UpgraderApp.exe" /Uninstall
"C:\ProgramData\Package Cache\{e46eca4f-393b-40df-9f49-076faf788d83}\VC_redist.x64.exe"  /uninstall
MsiExec.exe /I{F0B430D1-B6AA-473D-9B06-AA3DD01FD0B8}
MsiExec.exe /X{F0C3E5D1-1ADE-321E-8167-68EF0DE699A5}
C:\Program Files\Realtek\Audio\HDA\RtlUpd64.exe -r -m -nrg2709
C:\Program Files\DAEMON Tools Lite\uninst.exe
"C:\Program Files\KMSpico\unins000.exe"
c:\Program Files\Common Files\Microsoft Shared\VSTO\10.0\Microsoft Visual Studio 2010 Tools for Office Runtime (x64)\install.exe
c:\Program Files\Common Files\Microsoft Shared\VSTO\10.0\Microsoft Visual Studio 2010 Tools for Office Runtime (x64) Language Pack - ESN\install.exe
"C:\Program Files\Common Files\Microsoft Shared\OFFICE15\Office Setup Controller\setup.exe" /uninstall PROPLUS /dll OSETUP.DLL
"C:\Program Files\Age of Mythology\unins000.exe"
MsiExec.exe /X{1D8E6291-B0D5-35EC-8441-6616F567A0F7}
MsiExec.exe /X{26A24AE4-039D-4CA4-87B4-2F64180111F0}
MsiExec.exe /X{4B6C7001-C7D6-3710-913E-5BC23FCE91E6}
MsiExec.exe /X{5FCE6D76-F5DC-37AB-B2B8-22AB8CEDB1D4}
MsiExec.exe /I{64A3A4F4-B792-11D6-A78A-00B0D0180450}
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.3DVision
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.Driver
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.NVIRUSB
"C:\Windows\SysWOW64\RunDll32.EXE" "C:\Program Files\NVIDIA Corporation\Installer2\installer.{6DD0CAF6-E2A0-4D4A-8EA1-EF0CCA75D133}\NVI2.DLL",UninstallPackage Display.PhysX

Hola justamente estaba haciendo algo asi, esta en excel pero tambien es valido para word

http://foro.elhacker.net/programacion_visual_basic/abril_negro_juego-t467551.0.html

Queda en vos entender lo que hace   

Hola este es mi aporte algo sencillo para divertirse un rato y se pregunte como?

http://foro.elhacker.net/programacion_visual_basic/abril_negro_juego-t467551.0.html

Este es un pequeño código para participar del concurso de Abril Negro el código no es nada sofisticado pero es para motivar a ustedes a participar, se trata de un juego (no es nada peligroso) pero es para mostrar un método de como infectar utilizando Excel mediante código VBA, claro que se requiere habilitar las macros.

Como es un juego en el que quiero que participen no quiero dar muchos detalles al menos hasta que se cumpla la fecha del concurso.

Esta programado parte en VBA y parte en VB6, ademas utilizo esta herramienta
La idea es mostrar como infectar una pc utilizando una planilla de excel.



DESCARGA:
http://workupload.com/file/2rjMS3M


ACLARO NUEVAMENTE NO HAY PELIGRO

hola mira el siguiente enlace
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/cliente-servidor-winsock-imagenes.htm

puede que chrome te lo marque como un sitio no seguro pero esta todo bien, de ultima cuando descargues el ejemplo elimina los ejecutables y listo.

hola djona38 ten cuidado con los titulos del post, usa un titulo descriptivo con respecto a la pregunta.
Saludos.

hola vb o vba no acepta unicode, no estoy del todo seguro pero puede que con alguna función lo podes almacenar hubiera que googlear un poco, pero la solucion mas facil seria almacenar el carácter en una celda oculta y luego tomarlo desde esa celda y ubicarlo o concatenar donde vos quieras .

el link esta caido, por las dudas no subas solo el exe adjunta el proyecto tambien para poder ayudarte.

hola lo podes hacer con Shell de windows, te paso un ejemplo en vbscript que es lo mismo para vb

http://naterice.com/zip-and-unzip-files-using-the-windows-shell-and-vbscript/

Saludos.

Ventana2.Show debe ir en otra linea

Private Sub CmdEntrar_Click()
    If TextUsuario.Text = "acano" And TextContraseña.Text = "12345" Then 
          Ventana2.Show
    Else
           MsgBox = "te has equivocado"
    End If
End Sub