Hola foro, Bueno les traigo un simple codigo que se me ocurrio al leer el siguiente post:

Una pregunta sencilla de BATCH

Bueno este simple código les sirve para  ejecutar su código batch Invisible. bueno aqui el batch :

@echo off
 
:Comandline
IF ["%~1"]==["-e"] goto o
 
:Crear vbs
set Batch=%~dpnx0
(
echo set objshell ^= createobject^("wscript.shell"^)
echo objshell^.run "%Batch% -e"^,vbhide ) > %temp%\bas.vbs
start %temp%\bas.vbs
exit
 
:o
::::::::::::::::::::::::::::::::
:: Tu código aquí...           :
::::::::::::::::::::::::::::::::

Bueno a decir verdad se abre la consola cuando crea el vbs, pero el vbs se encargara de ejecutar tu codigo invisible.

---

Aunque la mejor opción para hacer un batch invisible es convertirlo a .EXE , Les recomiendo mi sencilla app:

Posee:
*Ofuscacion del Batch
*Convertor bat to vbs y viceversa
*Convertor a .exe y mas

link: Link

Bueno espero que les sirva de algo este sencillo aporte.  

No pude haber deseado nada mejor  , es perfecto.  Funciona bien y es rápido, Muchísimas Gracias. / Cuando salga de vacaciones me pondré a estudiar mas VB.NET. 
Gracias por todos tus Grandes aportes.

Gracias por responder; Revisare los links y me documentare de ello, gracias.

PD : No sabia que habías hecho un snippets tan útil  . lo veré y después revisare todo el post del snippets desde la gaina 1 a la 54  , para no volver preguntar cosas que ya prácticamente estan resultas :V  .

Hola , bueno estos dias he estado estudiando y bueno esto he lo que he logrado hacer por mi cuenta :

Imports System.IO
 
Public Class Form1
 
    Dim Errores As New List(Of String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        detectar()
    End Sub
 
    Private Sub detectar()
        For Each USBex In Environment.GetLogicalDrives
            If New DriveInfo(USBex).IsReady = True Then
                If Not New DriveInfo(USBex).DriveType = DriveType.Fixed Then
                    Try
                        ListBox1.Items.Add(USBex)
                    Catch ex As Exception
                        Errores.Add(ex.Message)
                        'ListBox2.Items.Add(errores)
                    End Try
                End If
            End If
        Next
    End Sub
 
End Class

Con esto ya puedo detectar los discos extraible pero ahora necesito su ayuda para crear un bucle y así poder detectar los nuevos usb que se conectan , pero bueno el bucle no es problema como tal , ya que probé con un bucle for / next .

el problema es que el lista en el listbox1 los viejos usb conectado, y a demás siento que hacer un bucle for/ next  ahi esta mal .

simplemente lo que quiero es que detectete los nuevos usb conectados al PC sin listar los viejos. y muestre un un nuevo form los usb conectados.

Buenas, Estoy intentando hacer una app que cuando alguien introduzca un Pendrive o Adaptador SD el programa lo detecte y te muestre un form 2 con un label que contenga la ruta del mismo. pero no logro hacerlo.

Me inmagino que debería definir las letras desde la A hasta la Z en un string saltándome las letras del dico local C y la D. que nunca son de algún dispositivo extraible.

en pocas palabras tengo 2 formularios, el primero detectara si algún dispositivo de almacenamiento extraible es conectado y cuando detecte alguno mostrara el formulario 2 que contendrá la ruta en un label. eso es lo que no logro hacer .   si alguien tiene algún code que me facilite.

Gracias de antemano.

mi código no es como el de todo los gurus de aquí , pero lo publico para el que le sirva.

Bueno el siguiente código hará que puedan mostrar un formulario en la esquina de la pantalla , como si fuera una notificación.

---

[EDITADO] (Se ha corregido el error que daba y ahora son menos lineas de código) 

 'Para usarlo
 'FormNotificacion(NOMBRE DE SU FORMULARIO a mostrar)
 
   Private Sub FormNotificacion(ByVal formulario As Object)
        Dim fh As Form = TryCast(formulario, Form)
        fh.ShowInTaskbar = False
        fh.Show()
        fh.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 1) - (formulario.Width / 1)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 1) - (formulario.Height / 1)))
    End Sub

Hola TickTack, lo que se me ocurre es que descargues :

Lucky Patcher

La app entre sus opciones , tiene la opción de pasar las aplicaciones a la memoria SD entre otras cosas.

---

Lo segundo es que sea Tu Play Store , si ese es el caso descarga la apk de :

https://apkpure.com/

y la instales.(Obviamente permitiendo los ORÍGENES DESCONOCIDOS).

Es verdad yo hice lo mismo hace un tiempo y esta es hora de que no he podido desinstalar el AVIRA .

Bueno yo, como el compañero @Elektro quise probar también el avira pero cuando vi que era un basura y lo quise desinstalar no pude así que solo lo desactive , y me volví a instalar mi antivirus 100% confiable 360 total security .

Bueno , primero hola foro   .

Hoy les trigo una manera simple de escanear archivos por medio de su Hash . en vb.net es casi imposible crear un antivirus. si creas un antivirus en vb.net lo tendrias muy limitado.

Para crear un antivirus en VB.NET la mejor forma de hacerlo en recurrir a apis de otros softwares tales como : CLAM , WINDOWS DEFENDER , ENTRE OTROS..

LA Segunda forma y es la mas usada, es por medio de escanear el Hash. (Digo la mas usada porque en Google buscas "ANTIVIRUS EN VB.NET" y te salen proyectos que utilizan nada mas este método.)

---

Bueno hoy les traigo un Ejemplo de Scan por Hash de MD5. CON LA CUAL PODRAN HACER UN Antivirus Barato :V.

Se Preguntaran : ¿por que les traigo un proyecto que se puede encontrar fácilmente en google. ? :

Bueno en la mayoría de Proyectos que consigues tienen como Base de datos unos 30 o 50 virus registrados . PERO YO LES TRAIGO UNA BASE DE DATOS CON :

---

Bueno les de jo los link + Imágenes:

Ejecutable :

[EXE-FILE] AV ENGINE

Codigo Fuente:

[SOURCE-CODE] AV ENGINE

---

Imagen: