Sites de téléchargements

' Sites de téléchargements
LABEL Clip
DIM a$
' Les sites qui ne repackent pas (sites propres a priori):
DATA "www.commentcamarche.net/download/"
DATA "telecharger.tomsguide.fr","www.cnetfrance.fr","www.lelogicielgratuit.com"
DATA "telechargement.zebulon.fr","www.pcastuces.com","jetelecharge.com"
DATA "oldapps.com","www.oldversion.fr","madolo.fr","filehippo.com (?)"
DATA "www.gratilog.net","www.framasoft.net","www.technifree.fr"
DATA "fileforum.betanews.com","softpedia"
DATA "F"
' Les sites qui repackent (ajout de logiciels parasites):
DATA "telecharger.com","01net.com","clubic.com","sourceforge.net","Download.com / Cnet"
DATA "softonic.com","downloadastro.com","Soft32.fr","Portalux.com","Malavida.com"
DATA "telecharger.logiciel.net","sur-telecharger.com","monde-software.com"
DATA "downloaden-gratis.com","01-telecharger.com","bajar-programas.com"
DATA "top20soft.com","downloaden-jetzt.com","zona-descargas.com","Soft-Box.net"
DATA "top-logiciels.com","Softbian.com","itwiss.com","BrotherSoft","Download366"
DATA "F"
DATA "http://www.malekal.com/2014/12/04/les-sites-de-telechargements-qui-repackent/#QBADkRm2eqPCMWGe.99"
WIDTH 0,500: BORDER_SMALL 0: FONT_NAME 0,"Arial": FONT_SIZE 0,10
  CAPTION 0,"SITES  DE  TÉLÉCHARGEMENTS  AVEC  LOGICIELS  PARASITES"
ALPHA 1: LEFT 1,70: CAPTION 1,"LISTE BLANCHE": FONT_BOLD 1
LIST 2: TOP 2,15: LEFT 2,0: WIDTH 2,WIDTH(0)/2-9: HEIGHT 2,HEIGHT(0)-70
ALPHA 3: LEFT 3,280: CAPTION 3,"LISTE ROUGE (+indésirables)": FONT_BOLD 3
LIST 4: TOP 4,TOP(2): LEFT 4,WIDTH(2): WIDTH 4,WIDTH(0)-WIDTH(2)-18
  HEIGHT 4,HEIGHT(2): COLOR 4,255,200,200
ALPHA 5: TOP 5,TOP(2)+HEIGHT(2): CAPTION 5,"Ref:"
LIST 6: HEIGHT 6,20: TOP 6,TOP(2)+HEIGHT(2): LEFT 6,23: WIDTH 6,WIDTH(0)-42
  FONT_SIZE 6,7: FONT_ITALIC 6: FONT_COLOR 6,0,0,255: ON_CLICK 6,Clip
READ a$: WHILE a$<>"F": ITEM_ADD 2,a$: READ a$: END_WHILE
READ a$: WHILE a$<>"F": ITEM_ADD 4,a$: READ a$: END_WHILE
READ a$: ITEM_ADD 6,a$
END
Clip:
CLIPBOARD_STRING_COPY ITEM_READ$(6,1): ' -> clipboard
RETURN

' Sites de téléchargements
Bordures(1)

LABEL Clip
DIM a$,lien$
' Les sites qui ne repackent pas (sites propres a priori):
DATA "www.commentcamarche.net/download/"
DATA "telecharger.tomsguide.fr","www.cnetfrance.fr","www.lelogicielgratuit.com"
DATA "telechargement.zebulon.fr","www.pcastuces.com","jetelecharge.com"
DATA "oldapps.com","www.oldversion.fr","madolo.fr","filehippo.com (?)"
DATA "www.gratilog.net","www.framasoft.net","www.technifree.fr"
DATA "fileforum.betanews.com","softpedia"
DATA "F"
' Les sites qui repackent (ajout de logiciels parasites):
DATA "telecharger.com","01net.com","clubic.com","sourceforge.net","Download.com / Cnet"
DATA "softonic.com","downloadastro.com","Soft32.fr","Portalux.com","Malavida.com"
DATA "telecharger.logiciel.net","sur-telecharger.com","monde-software.com"
DATA "downloaden-gratis.com","01-telecharger.com","bajar-programas.com"
DATA "top20soft.com","downloaden-jetzt.com","zona-descargas.com","Soft-Box.net"
DATA "top-logiciels.com","Softbian.com","itwiss.com","BrotherSoft","Download366"
DATA "F"
DATA "http://www.malekal.com/2014/12/04/les-sites-de-telechargements-qui-repackent/#QBADkRm2eqPCMWGe.99"
WIDTH 0,500: BORDER_SMALL 0: FONT_NAME 0,"Arial": FONT_SIZE 0,10
  CAPTION 0,"SITES  DE  TÉLÉCHARGEMENTS  AVEC  LOGICIELS  PARASITES"
  HEIGHT 0,HEIGHT(0)+bh%
ALPHA 1: LEFT 1,70: CAPTION 1,"LISTE BLANCHE": FONT_BOLD 1
LIST 2: TOP 2,15: LEFT 2,0: WIDTH 2,(WIDTH(0)/2)-(bd%*2): HEIGHT 2,HEIGHT(0)-(70+bd%)
ALPHA 3: LEFT 3,280: CAPTION 3,"LISTE ROUGE (+indésirables)": FONT_BOLD 3
LIST 4: TOP 4,TOP(2): LEFT 4,WIDTH(2): WIDTH 4,WIDTH(0)-WIDTH(2)-(bd%*2)
  HEIGHT 4,HEIGHT(2): COLOR 4,255,200,200
ALPHA 5: TOP 5,TOP(2)+HEIGHT(2)+2: LEFT 5,2: CAPTION 5,"Ref:"
LIST 6: HEIGHT 6,20: TOP 6,TOP(5): LEFT 6,28: WIDTH 6,WIDTH(0)-(42+bh%)
  FONT_SIZE 6,7: FONT_ITALIC 6: FONT_COLOR 6,0,0,255: ON_CLICK 6,Clip
READ a$: WHILE a$<>"F": ITEM_ADD 2,a$: READ a$: END_WHILE
READ a$: WHILE a$<>"F": ITEM_ADD 4,a$: READ a$: END_WHILE
READ a$: ITEM_ADD 6,a$

END

Clip:
lien$=ITEM_READ$(6,1): ' -> clipboard
EXECUTE lien$
RETURN

SUB Bordures(bs%)
' bs% => 0=BORDER_HIDE, 1=BORDER_SMALL, 2=BORDER_NORMAL
' dimension des bordures de fenêtres (bd%) et du bandeau supérieur (bh%)
' (différences W7/W8). Si paramètre bs% = 1: cas border_small
DIM_LOCAL f%,p%
IF VARIABLE("bd%")=0 THEN DIM bd%
IF VARIABLE("bh%")=0 THEN DIM bh%
f%=5000: FORM f%
IF bs%=0 THEN BORDER_HIDE f%
IF bs%=1 THEN BORDER_SMALL f%
IF bs%=2 THEN BORDER_NORMAL f%
HIDE f%: p%=f%+1: PICTURE p%: PARENT p%,f%: FULL_SPACE p%
bd% = (WIDTH(f%)-WIDTH(p%))/2: bh% = HEIGHT(f%)-HEIGHT(p%)-bd%
DELETE f%
END_SUB

EXECUTE_WAIT "cmd.exe /c WHERE /R C:\ fichier.bat >C:\TEMP\Resultat.txt"
PRINT "Terminé !"

' Kill.bas tuer une tâche Windows récalcitrante
DIM fm$, a$, i%, k%, w0, h0, hp%, tsk$(200), pid$, nta
LABEL Kill

fm$ = "C:\Temp\Tasklist.txt": ' fichier de manoeuvre, -- A AJUSTER --
' paramètres de Tasklist, voir: http://windows.developpez.com/cours/ligne-commande/?page=page_19

EXECUTE_WAIT "Cmd.exe /c Tasklist.exe >" + fm$
FILE_OPEN_READ 1, fm$
    FILE_READLN 1, a$: FILE_READLN 1, a$: FILE_READLN 1, a$: ' en-tête
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, a$: k% = INSTR(a$,"Console ")
        IF k% > 0
            pid$ = MID$(a$,k%-5,4)
            a$ = LEFT$(a$, 25): nta = nta + 1: tsk$(nta) = a$+pid$
        END_IF
    END_WHILE
FILE_CLOSE 1: FILE_DELETE fm$
hp% = 13: w0 = 200: h0 = (nta+2)*hp%+65
WIDTH 0, w0: HEIGHT 0, h0: CAPTION 0, "  -  TUEUR  DE  TÂCHE  -": BORDER_SMALL 0
LIST 1: WIDTH 1, w0-17: HEIGHT 1, h0-36: COLOR 1, 255,255,192
FONT_NAME 1, "Consolas": FONT_SIZE 1, 8
FOR i% = 1 TO nta
    ITEM_ADD 1, tsk$(i%)
NEXT i%
SORT 1
ITEM_INSERT 1,1,".TÂCHES CONSOLE ACTIVES."
ITEM_INSERT 1,2," ----------------------  PID:"
BUTTON 2: TOP 2, h0-56: LEFT 2, 4: WIDTH 2, w0-68: HEIGHT 2, 18: CAPTION 2, "Clic la tâche à tuer, puis ->"
BUTTON 3: TOP 3, TOP(2): LEFT 3, w0-62: WIDTH 3, 40: HEIGHT 3, 18: CAPTION 3, "Kill": font_bold 3
ON_CLICK 3, Kill
END

Kill:
IF ITEM_INDEX(1)<3 OR ITEM_INDEX(1)>(nta+2) THEN RETURN
a$ = RTRIM$(LEFT$(ITEM_INDEX$(1),25))
EXECUTE "Cmd.exe /c taskkill.exe /F /IM " + a$ + " /T"
TERMINATE