XProfan

BKA Remover
Ventana 0,0 - 500,500
Título de la ventana "BKA Remover"
Ventana de Estilo 64
Def @GetUserNameA(2) !"Advapi32.dll", "GetUserNameA"
Def &CSIDL_COMMON_APPDATA $23
Declarar Button1%, Button2%,Button3%,Button4%,Button5%,Archivos$
'Prozeduren

Proc GetSpecialDir

    Parámetros csidl&
    Declarar Result$
    Result$ = Espacio$(256)

    If Externo("Shell32", "SHGetSpecialFolderPathA", 0, Addr(Result$), csidl&, 0)

        Volver Trim$(Result$)

    EndIf

    Volver ""

ENDPROC

Proc GetUserName

    Declarar Buffer#, Size&, User$
    Size& = 255
    Dim Buffer#, 256
    GetUserNameA(Buffer#, Addr(Size&))
    User$ = String$(Buffer#, 0)
    Disponer Buffer#
    Volver User$

ENDPROC

Dateien$   = Crear("List", 1)
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\wvf0rsf.js")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\WvF0RsF.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\dsgsdgdsgdsgw.js")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\dsgsdgdsgdsgw.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Startmenü\Programas\Autostart\ctfmon.lnk")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\Anwendungsdaten\wvf0rsf.js")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\Anwendungsdaten\WvF0RsF.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\Anwendungsdaten\dsgsdgdsgdsgw.js")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\Anwendungsdaten\dsgsdgdsgdsgw.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\Startmenü\Programas\Autostart\ctfmon.lnk")
AddStrings(Archivos$, "C:\ProgramData\dsgsdgdsgdsgw.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\wgsdgsdgdsgsd.exe")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\"+GetUserName()+"\wgsdgsdgdsgsd.exe")
AddStrings(Archivos$, "C:\ProgramData\RWvESYd.js")
AddStrings(Archivos$, "C:\Users\All Users\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\runctf.lnk")
AddStrings(Archivos$, "C:\Users\"+GetUserName()+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\runctf.lnk")
AddStrings(Archivos$, "C:\ProgramData\RWvESYd.pad")
AddStrings(Archivos$, "C:\ProgramData\dsgsdgdsgdsgw.pad")
AddStrings(Archivos$, "C:\ProgramData\dsgsdgdsgdsgw.js ")
AddStrings(Archivos$, "C:\Users\All Users\wgsdgsdgdsgsd.exe")
AddStrings(Archivos$, "C:\Users\"+GetUserName()+"\wgsdgsdgdsgsd.exe")
AddStrings(Archivos$, "C:\ProgramData\K5wtzba.js")
AddStrings(Archivos$, "C:\ProgramData\K5wtzba.reg")
AddStrings(Archivos$, "C:\ProgramData\K5wtzba.bat")
AddStrings(Archivos$, "C:\ProgramData\K5wtzba.pad")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\0tbpw.pad ")
AddStrings(Archivos$, "C:\Dokumente y Einstellungen\All Users\Anwendungsdaten\0tbpw.js ")
'Ventana principal
Button1% = Crear("Button",%HWND,"Scan",150,50,200,50)
Crear("Tooltip",%HWND,Button1%,"Einen Scan después de Trojanern ausführen")
Button2% = Crear("Button",%HWND,"Updaten",150,100,200,50)
Crear("Tooltip",%HWND,Button2%,"Das Programa updaten")
Button3% = Crear("Button",%HWND,"Andere Remover suchen",150,150,200,50)
Crear("Tooltip",%HWND,Button3%,"Nach dergleichen Tools suchen")
Button4% = Crear("Button",%HWND,"Spende,Kontakt y Sonstiges",150,200,200,50)
Crear("Tooltip",%HWND,Button4%,"Spende hacer, con me Kontakt aufnehmen oder sonstige Aktionen")
Button5% = Crear("Button",%HWND,"Beenden",150,250,200,50)
Crear("Tooltip",%HWND,Button5%,"Das jeweilige Programa beenden")
PopUp "&Programm"
AppendMenu 101, "Scan"
AppendMenu 102, "Updaten"
AppendMenu 103, "Andere Remover suchen"
AppendMenu 104, "Spende, Kontakt y Sonstiges"
Separador
AppendMenu 105, "Beenden"

Mientras que 1

    WaitInput

    If clicked(Button1%)

        If FileExists(Archivos$)

            Imprimir Archivos$

        EndIf

    EndIf

EndWhile