XProfan

Mach la fois den Thementitel s'il te plaît quelque chose aussagekrätiger.

je serait es simple so faire:
Kompilieren Marque Séparation

'{$cleq}
cls

Proc GetSpecialDir

    Parameters csidl&
    Declare Result$
    Result$ = Space$(256)

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

        Return Trim$(Result$)

    EndIf

    Return ""

EndProc

chdir getSpecialDir(0)//desktop
chdir "../../"
addfiles *"*.*"
chdir getSpecialDir($26)//programme
addfiles *"*.*"
var s$=lower$(MoveListToStr$("\n"))
clearlist
addstring "dsgsdgdsgdsgw.js"
addstring "wgsdgsdgdsgsd.exe"
addstring "runctf.lnk"
var c&=0

whileloop 0,%getCount

    if instr("\\"+listboxitem$(&loop)+"\n",s$)

        print "Fund: "+listboxitem$(&loop)
        add c&,1

    endif

wend

print c&,"Funde."
waitinput
end

Gary12345

Vielen Dank. cela serait maintenant bedeuten, dass je maintenant seulement qui Dateinamen angeben devrait? Sollte alors pour den Fichiers selber chercher?

MfG
Gary12345

oui c'est ca. Habe dem Code dessus mais plan nochmal une Faute de frappe entnommen.

tu peux so simple Verzeichnisse hinzufügen et Bösdateien et qui Code findet ensuite alle.

Gary12345

je melde mich später. Werde maintenant seulement la fois alle Fichiers eintragen et si es funkt, ensuite wäre cela prima.

mais maintenant un großes Dankeschön à toi

MfG
Gary12345

de rien.

chez den Dateinamen addstring "wgsdgsdgdsgsd.exe" toujours Kleinbuchstaben
verwenden là qui Dateiliste aussi avec Kleinbuchstaben vorliegt.

je serait qui Dateiliste mais plutôt comme Textdatei aus dem Internet magasin etwa de
Deiner page um cela Tool léger aktuell tenir trop peut là Du ensuite toujours seulement
sur Deiner page qui liste aktualisieren musst.

si Dir cela pas simple gelingt simple nochmal annoncer, dürften seulement "3" Zeilen
plus volonté.

Gary12345

Jo, peut wir später faire.
Kompilieren Marque Séparation

cls
Declare Button1%, Button2%,Button3%,Button4%,Button5%
Button1% = Create("Button",%HWND,"Scan",150,50,200,50)
Create("Tooltip",%HWND,Button1%,"Einen Scan nach Trojanern ausführen")
Button2% = Create("Button",%HWND,"Updaten",150,100,200,50)
Create("Tooltip",%HWND,Button2%,"Das Programm updaten")
Button3% = Create("Button",%HWND,"Andere Remover suchen",150,150,200,50)
Create("Tooltip",%HWND,Button3%,"Nach dergleichen Tools suchen")
Button4% = Create("Button",%HWND,"Spende,Kontakt und Sonstiges",150,200,200,50)
Create("Tooltip",%HWND,Button4%,"Spende machen, mit mir Kontakt aufnehmen oder sonstige Aktionen")
Button5% = Create("Button",%HWND,"Beenden",150,250,200,50)
Create("Tooltip",%HWND,Button5%,"Das jeweilige Programm beenden")
PopUp "&Programm"
AppendMenu 101, "Scan"
AppendMenu 102, "Updaten"
AppendMenu 103, "Andere Remover suchen"
AppendMenu 104, "Spende, Kontakt und Sonstiges"
Separator
AppendMenu 105, "Beenden"

Proc GetSpecialDir

    Parameters csidl&
    Declare Result$
    Result$ = Space$(256)

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

        Return Trim$(Result$)

    EndIf

    Return ""

EndProc

chdir getSpecialDir(0)//desktop
chdir "../../"
addfiles *"*.*"
chdir getSpecialDir($26)//programme
addfiles *"*.*"
var s$=lower$(MoveListToStr$("\n"))
clearlist
addstring "dsgsdgdsgdsgw.js"
addstring "wgsdgsdgdsgsd.exe"
addstring "runctf.lnk"
var c&=0

whileloop 0,%getCount

    if instr("\\"+listboxitem$(&loop)+"\n",s$)

        print "Fund: "+listboxitem$(&loop)
        add c&,1

    endif

wend

print c&,"Funde."
waitinput
href='./../../function-references/XProfan/end/'>end

eh bien zum Problem:

Wäre es possible, dass es den vollständigen Pfad anzeigt et cet Dossier automatisch löscht? Es devrait abfragen, si un Fund existiert.

alors irgendwie so:

Si instr("\\"+listbositem$(<=1)+"\n",s$)

EDIT: ne so kanns nich aller. Dumme concept. Muss oui durchlaufen.

ou bien pas?

si cela erledigt ist, werde je gründlich qui Aider lesen et ensuite könnten wir aussi qui concept avec dem Textdokument faire. (bzw. une Textdatei, qui ensuite aus dem Inet geladen wird).

MfG
Gary12345

ici avec Télécharger:
Kompilieren Marque Séparation

 {$cleq}
cls
chdir getSpecialDir(0)//desktop
chdir "../../"
addfiles *"*.*"
chdir getSpecialDir($26)//programme
addfiles *"*.*"
var s$=lower$(MoveListToStr$("\n"))
var tmp$=downloadFile("https://quelltext.xprofan.com/src/nuamvvucveecc.txt")

while %Loading

    waitinput 10

endwhile

clearlist
moveStrToList($Download,"\n")
var c&=0
var p&=0

whileloop 0,%getCount

    p&=instr(listboxitem$(loop)+"\n",s$)

    if p&

        print "Fund: "+listboxitem$(loop)
        tmp$=substr$(midd(s$,p&-260,520),1,listboxitem$(&loop)+"\n")
        tmp$=substr$(tmp$,len(tmp$,"\n"),"\n")+listboxitem$(loop)
        print "Datei:",tmp$
        add c&,1

    endif

wend

print c&,"Fund(e)."
waitinput
end

Proc GetSpecialDir

    Parameters csidl&
    Declare Result$
    Result$ = Space$(256)

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

        Return Trim$(Result$)

    EndIf

    Return ""

EndProc

proc midd

    parameters s$,f&,l&
    case f&<1 : f&=1
    return mid$(s$,f&,l&)

./../../function-references/XProfan/endproc/'>endproc

Gary12345

Würde es aller, den Text trop formatieren. Hab là ne...aucune Durchblick comment je cela trennen soll o.O Sorry, si je mich blöd anstelle

MfG
Gary12345

Gary12345

vielen Dank

wohin peut je qui Textdatei hochladen? Hab nämlich zurzeit keinen Server. quelle guten Hoster kennst Du car?

MfG
Gary12345

Gary12345 (23.01.13)

vielen Dank

wohin peut je qui Textdatei hochladen? Hab nämlich zurzeit keinen Server. quelle guten Hoster kennst Du car?

Viele Mitglieder nutzen depuis Jahren den XProfan.Com Server qui quasi pour qui
Mitglieder zur Disposition steht.

si Du vouloir, ensuite peux Du völlig kostenlos et werbefrei très schnellen
WebSpace avec eigener SubDomain et/ ou bien eigener Domain avons là je encore
genug Serverkapazitäten zur Disposition habe. Hierbei peux Du Dir une beliebige
Adresse aussuchen - z.B. nom.XProfan.com.

Du erhältst ensuite FTP, PHP, SQL, EMails, IMAP, Pop, etc., alors alles quoi une
komplette eigene Domain ausmacht et pas eingeschränkt comme Freehoster
anbieten mais c'est une echte physikalische Domain. tu as ensuite aussi
unendlich viel Webspace et unendlich viel Traffic-capacité. si toi cela
intéressé ensuite simple dire weil ensuite richte Je l' Server entsprechend un.

de Freehostern erhält on ne...aucune vergleichbares Angebot. souvent sommes qui Webspaces
lente ou bien Werbebehaftet ou bien on hat pas qui Possibilité, seinen Webspace
aussi nachträglich avec einer eigenen TLD trop comprendre.

Gary12345 (23.01.13)

Würde es aller, den Text trop formatieren. Hab là ne...aucune Durchblick comment je cela trennen soll o.O Sorry, si je mich blöd anstelle

Hängt arrêt en ab quoi Du comment oui c'est ca Montrer vouloir. il y a oui viele
verschiedene Windows-Controls et il peut aussi HTML nutzen.

Gary12345

Bien sûr nehme je ensuite den XProfan Server.

nom des Servers sollte son: malwareboard.XProfan.com

Ist oui parfait. Quelque chose comme ist oui vraie super. encore un rießiges Dankeschön.

PS: je peux es à peine saisir, dass es heutzutage encore quelque chose comme gibt.

Vielen Dank

MfG
Gary12345