Ie popup killer (stop au popup!!)

Soyez le premier à donner votre avis sur cette source.

Vue 3 921 fois - Téléchargée 526 fois

Description

Slt, je me suis fait un modeste antipub, vous me direz : il en existe déja sur le site mais ceux que j'ai vu ne m'on pas seduit!!! ou alors j'ai pas bien regardé!! Enfin au pire ça en fera un de plus!!!

-Celui la à la particularité de lister les fenétres et url de IE seulement
-Ferme les fenétres selon la liste des mots cléf trouvé dans l'url ou le titre
-Fichier log et possibilité de réouvrir une page fermé
-Statistiques par mot clés ou par session
-Systray etc...

Enfin pour moi il est sympa, maintenant a vous de juger!!!

Source / Exemple :


In the zip
In the Screenshoot

Conclusion :


Ps: Un gros Hic , je suis pas spécialiste des listview et lorsque je veu le trier Sorted, ca medécale mes subitems. Si qq peu m'expliquer pq et comment faire???

Un ptit commentaire Svp!!!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

pcpunch
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3 -
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
-
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
-
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
-
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
-
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.