XProfan

BKA Remover
Fenêtre 0,0 - 500,500
Titre de la fenêtre "BKA Remover"
Fenêtre Style 64
Def @GetUserNameA(2) !"Advapi32.dll", "GetUserNameA"
Def &CSIDL_COMMON_APPDATA $23
Déclarer Button1%, Button2%,Button3%,Button4%,Button5%,Fichiers$
'Prozeduren

Proc GetSpecialDir

    Paramètres csidl&
    Déclarer Result$
    Result$ = Space$(256)

    Si Externe("Shell32", "SHGetSpecialFolderPathA", 0, Addr(Result$), csidl&, 0)

        Retour Trim$(Result$)

    EndIf

    Retour »

ENDPROC

Proc GetUserName

    Déclarer Buffer#, Size&, User$
    Size& = 255
    Faible Buffer#, 256
    GetUserNameA(Buffer#, Addr(Size&))
    User$ = String$(Buffer#, 0)
    Dispose Buffer#
    Retour User$

ENDPROC

Dateien$   = Créer("List", 1)
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\wvf0rsf.js")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\WvF0RsF.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\dsgsdgdsgdsgw.js")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\dsgsdgdsgdsgw.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Startmenü\Programme\Autostart\ctfmon.lnk")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\Anwendungsdaten\wvf0rsf.js")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\Anwendungsdaten\WvF0RsF.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\Anwendungsdaten\dsgsdgdsgdsgw.js")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\Anwendungsdaten\dsgsdgdsgdsgw.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\Startmenü\Programme\Autostart\ctfmon.lnk")
AddStrings(Fichiers$, "C:\ProgramData\dsgsdgdsgdsgw.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\wgsdgsdgdsgsd.exe")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\"+GetUserName()+"\wgsdgsdgdsgsd.exe")
AddStrings(Fichiers$, "C:\ProgramData\RWvESYd.js")
AddStrings(Fichiers$, "C:\Users\All Users\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\runctf.lnk")
AddStrings(Fichiers$, "C:\Users\"+GetUserName()+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\runctf.lnk")
AddStrings(Fichiers$, "C:\ProgramData\RWvESYd.pad")
AddStrings(Fichiers$, "C:\ProgramData\dsgsdgdsgdsgw.pad")
AddStrings(Fichiers$, "C:\ProgramData\dsgsdgdsgdsgw.js ")
AddStrings(Fichiers$, "C:\Users\All Users\wgsdgsdgdsgsd.exe")
AddStrings(Fichiers$, "C:\Users\"+GetUserName()+"\wgsdgsdgdsgsd.exe")
AddStrings(Fichiers$, "C:\ProgramData\K5wtzba.js")
AddStrings(Fichiers$, "C:\ProgramData\K5wtzba.reg")
AddStrings(Fichiers$, "C:\ProgramData\K5wtzba.bat")
AddStrings(Fichiers$, "C:\ProgramData\K5wtzba.pad")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\0tbpw.pad ")
AddStrings(Fichiers$, "C:\Dokumente et Einstellungen\All Users\Anwendungsdaten\0tbpw.js ")
'Hauptfenster
Button1% = Créer("Button",%HWND,"Scan",150,50,200,50)
Créer("Tooltip",%HWND,Button1%,"Einen Scan pour Trojanern ausführen")
Button2% = Créer("Button",%HWND,"Updaten",150,100,200,50)
Créer("Tooltip",%HWND,Button2%,"Das Programme updaten")
Button3% = Créer("Button",%HWND,"Andere Remover suchen",150,150,200,50)
Créer("Tooltip",%HWND,Button3%,"Nach dergleichen Tools suchen")
Button4% = Créer("Button",%HWND,"Spende,contact et Sonstiges",150,200,200,50)
Créer("Tooltip",%HWND,Button4%,"Spende faire, avec mir contact aufnehmen ou bien sonstige Aktionen")
Button5% = Créer("Button",%HWND,"Beenden",150,250,200,50)
Créer("Tooltip",%HWND,Button5%,"Das jeweilige Programme beenden")
PopUp "&Programm"
AppendMenu 101, "Scan"
AppendMenu 102, "Updaten"
AppendMenu 103, "Andere Remover suchen"
AppendMenu 104, "Spende, contact et Sonstiges"
Séparateur
AppendMenu 105, "Beenden"

Tandis que 1

    WaitInput

    Si clicked(Button1%)

        Si FileExists(Fichiers$)

            Imprimer Fichiers$

        EndIf

    EndIf

Endwhile