Mensajes

[Justo lo q necesitaba gracias de nuevo!]

Código (vbnet) [Seleccionar] Expandir

Dim regInfos As IEnumerable(Of RegInfo) =
    RegistryUtil.FindValue(RegistryView.Default,
                           rootKeyName:="HKCU",
                           subKeyPath:="Software\Microsoft\Windows\CurrentVersion\Run",
                           valueName:="WScript",
                           matchFullValueName:=False,
                           ignoreCase:=True,
                           searchOption:=SearchOption.TopDirectoryOnly)

For Each regInfo As RegInfo In regInfos
    Dim sb As New StringBuilder()
    sb.AppendLine(regInfo.RootKeyName)
    sb.AppendLine(regInfo.SubKeyPath)
    sb.AppendLine(regInfo.ValueName)
    sb.AppendLine(regInfo.ValueData?.ToString())
    Console.WriteLine(sb.ToString())
Next regInfo

Justo lo q necesitaba gracias de nuevo!

PD:  estaba apunto en hacer un post preguntando que era de ti? ya que es raro que te desaparezcas por tanto tiempo XD  . me imagino que estarías muy ocupado! . Gracias por el code! 

[wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"]

Hola foro, Como dice el titulo quiero Buscar valores en el regedit,

Ejemplo :

Código [Seleccionar] Expandir

Virus >> wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"

agrego un virus que se auto inicio. por medio una app quiero Que si en el valor:

wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"

sea detectado por mi app y me pregunte si quiere que elimine esa entrada, para el vbs no se ejecute.



Bueno lo primero que imagino es listar en un listbox mis app que se auto inician, Bueno eso es facil ya que es casi lo mismo que la duda que tenia hace tiempo de como verificar los programas instalados
(link).



1)   En-listo mis apps que se auto inician:

Código (vbnet) [Seleccionar] Expandir

Imports Microsoft.Win32

Public Class Form1
    Private Sub ListarHKCU()
        Dim key As RegistryKey
        Dim valueNames As String()
        Dim currentUser As RegistryKey = Registry.CurrentUser
        Dim name As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
        Dim str2 As String = "Software\Microsoft\Windows\CurrentVersion\Runonce"
        Try
            key = currentUser.OpenSubKey(name, True)
            valueNames = key.GetValueNames
            Dim str3 As String
            For Each str3 In valueNames
                Try

                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
        End Try
        Try
            key = currentUser.OpenSubKey(str2, True)
            valueNames = key.GetValueNames
            Dim str3 As String
            For Each str3 In valueNames
                Try
                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ListarHKCU()
    End Sub
End Class


Lo segundo seria Buscar en ese listbox la cadena de texto "Wscript.exe"

Bueno en esta parte ya he intentado con : FindMyString pero no logra reconocer ese string.

Busque una solución algo floja, osea use un textbox en vez de el Listbox. y para detectar el virus use el siguiente codigo:

Código (vbnet) [Seleccionar] Expandir

Dim APP_string As String() = {"wscript", "Cmd"}
        For Each elemento As String In APP_string
            If TextBox1.Text.Contains(elemento) Then
                'AQUI VA EL CODIGO DEL MENSAJE Y LA OPCION PARA BORRAR EL VIRUS DEL REGISTRO
            End If
        Next

Ahora Es la parte en la que necesito ayuda, es en la que borra el auto inicio del vbs, osea borra esa entrada del regedit.



Bueno he puesto como lo he intentado haber si me pueden echar una mano.

Basicamente lo que quiero es Buscar en donde inician las app por medio del regedit :

Código [Seleccionar] Expandir

SOFTWARE\Microsoft\Windows\CurrentVersion\Run

y hay busca archivos script , Que por lo general usan en los valores : "CMD /C" o "wscript.exe //B" para ejecutarse y cuando encuentre ese string en el regedit elimine esa entrada.

Gracias de antemano. si logro hacerlo lo posteare.

PD: Si se preguntan para que estoy haciendo esto , es por que llevo ya un tiempo desarrollando un motor de antiviurs . y apenas he logrado esto :
https://ibb.co/geS69J Cuando lo termine , (si es q lo termino subire el codigo fuente aqui)

[Hola foro]

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 :

Código (bash) [Seleccionar] Expandir

@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.  

[Cuando salga de vacaciones me pondré a estudiar mas VB.NET.]

• https://foro.elhacker.net/net/libreria_de_snippets_para_vbnet_compartan_aqui_sus_snippets-t378770.0.html;msg1959392#msg1959392

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]

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 :]

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

Código (vbnet) [Seleccionar] Expandir

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.

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

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) 

Código (vbnet) [Seleccionar] Expandir

'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 :]

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).

[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]

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 .