IE POPUP KILLER (STOP AU POPUP!!)

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 27 nov. 2003 à 10:18
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 18 déc. 2003 à 15:24

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18247-ie-popup-killer-stop-au-popup

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
18 déc. 2003 à 15:24

Ben lol, le seul compilateur pour VB qui existe a ma connaissance c'est VB!! (visual Basic 6 en l'occurance pour ce code)

Je sais qu'a une epoque Visual Basic était disponible en version d'éssaie sur le site de crosoft, mais maintenant?????

Donc fait des recherche sur le web si tu as l'adsl!!! ou alors achéte le!!

sliders_alpha Messages postés 1 Date d'inscription samedi 13 décembre 2003 Statut Membre Dernière intervention 13 décembre 2003
13 déc. 2003 à 19:11

yop
bas moi je devellope en liberty basic et j'ai penser que le vb
sa serai pareil ou du moin ressemblant et donc est ce que l'on pourrais me donner l'adresse pour telecharger le dernier compilateur vb (en freeware ou shareware)
bas sinon j'ai pas pu tester ton prog parce que j'ai pas encore de compilateur vb

hackademius Messages postés 172 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 24 février 2008
28 nov. 2003 à 19:50

dsl , javais ps vu ke tu l'avais mis le systray . c'est ok , bah en fait , il est parfait , moi je dis quil ne manque rien.

LogRaam (aka Gabriel Mailhot) Messages postés 60 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 25 avril 2005
28 nov. 2003 à 15:47

Salut pcpunch,

Beau soft. Une suggestion ici, tu peux optimiser les pointeurs mémoires en "refactorisant" ton code. Par exemple, Bien que c'est plus lisible, ce n'est pas conseillé de déclarer (Dim) les variables ailleurs qu'au début de la fonction. En fait, lors de l'exécution, si tu regroupes tous les Dim ensemble dans l'entête, ton code tournera plus rapidement.

Tu peux aussi diriger menuellement les pointeurs mémoires en utilisant WITH.. END WITH. Pour les strings vides, utilise vbNullString au lieu de (""); les guillemets assignent une valeur vide en mémoire alors que vbNullString libère le buffer. Assigner est plus lent que vider en code compilé.

Voici une de tes fonction que j'ai refactorisé:


Private Sub Form_Load()

    '--- Faire les DIM au début de la Sub ---
    Dim Mot$, Nb$, Nr%, x%, temp1$, myNr%
    
    Quitter = False
    
    '--- Utiliser WITH.. END WITH pour accélérer le code ---
    With IconeT
        .cbSize = Len(IconeT)
        .hwnd = Me.hwnd
        .uID = 1&
        .uFlags = Icone Or TIP Or MESSAGE
        .uCallbackMessage = MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = Me.Caption & Chr$(0)
    End With
    
    With ListView1
        .View = lvwReport
        .ColumnHeaders.Add 1, , "Nom de la page", .Width / 2 - 100
        .ColumnHeaders.Add 2, , "Url", .Width / 2
        .GridLines = True
    End With
    
    With ListView2
        .View = lvwReport
        .ColumnHeaders.Add 1, , "Fermer", 1500
        .ColumnHeaders.Add 2, , "Mot clef", .Width - 1600
    End With
    
    With ListView3
        .GridLines = True
        .View = lvwReport
        .ColumnHeaders.Add 1, , "Filtre", .Width - 100
        .HideColumnHeaders = True
        .GridLines = True
    End With
    
    With ListView4
        .View = lvwReport
        .ColumnHeaders.Add 1, , "Heure", 1000
        .ColumnHeaders.Add 2, , "Mots clefs", 2000
        .ColumnHeaders.Add 3, , "Url", .Width - 3100
        .GridLines = True
    End
    
    '--- Utiliser vbNullString au lieu de ("") ---
    If Dir(App.Path & "/moturl") <> vbNullString Then
        Open App.Path & "/moturl" For Input As #1
        x = 1
        '--- WITH.. END WITH encore plus important pour les boucles ---
        With ListView3.ListItems
            Do While Not EOF(1)
                Input #1, temp1
                .Add x, , temp1
            Loop
        End With
        Close #1
    End If
    
    With Text1
        Check1.Value = INIRead("Config", Check1.Name)
        Check2.Value = INIRead("Config", Check2.Name)
        .Text = INIRead("Config", .Name)
        If Dir(.Text) vbNullString Then .Text App.Path & "/sound.wav"
    End With
    
    If Dir(App.Path & "/stat/", vbDirectory) = "" Then MkDir App.Path & "/stat/"
    
    If Dir(App.Path & "/stat/stat.txt", vbNormal) = "" Then
        Open App.Path & "/stat/stat.txt" For Output As #1
        With ListView3
            For i = 1 To .ListItems.Count
                Write #1, .ListItems(i), "0"
            Next i
        End With
        Close #1
    End If

    Open App.Path & "/stat/stat.txt" For Input As #1
    With ListView2
    Do While Not EOF(1)
        '--- Déplacer les calculs afin d'optimiser le code.  Ici, le +1 est assigné une seule fois (voir le code original) ---
        Nr = .ListItems.Count + 1
        Input #1, Mot, Nb
        .ListItems.Add Nr, , Val(Nb)
        .ListItems(Nr).SubItems(1) = Mot
    Loop
    End With
    Close #1
End Sub

Voilà, ce sont des petits trucs qui vont augmenter la valeur de ton code.

Allez, bonne prog ! Moi je retourne au travail.

MadLucas

hackademius Messages postés 172 Date d'inscription mercredi 29 janvier 2003 Statut Membre Dernière intervention 24 février 2008
28 nov. 2003 à 12:32

il est nickel ton prog , y marche super bien , merci
juste un truc , (en option) il auait pu etre dans le tray pour le reduir
sinon il est kool.

bonne prog @+ 10

KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
27 nov. 2003 à 18:02

c trop cool ton truc :)
moi qui cherchais un anti kazaa :)
thx ça va m'etre utile lol :D
bonne note en retour ;)

++
KaViDee

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
27 nov. 2003 à 10:18

Oui c'est simple ... il se decale car il se tris !

Pour garder l'index de tes items affecte leur un index
dans la prp Tag comme ceci :

With ListView1.ListItems.Add()
.Tag=.Index
end With

@+

Discussions similaires

Popup css? avec formulaire inside

Arreter l'execution du php

Centrer un Pop-up (JS)

creer pop up

[Qt] Nouvelle fenêtre après clique sur bouton

Votre réponse

Discussions similaires