Codes sources VB & VBS177 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Suite à cette [post=8343636]Discussion[/post], je me suis rendu compte que j'ai codé, il y a quelque temps, quelque chose qui s'en rapproche.
Que le posteur de la question y trouve ce qu'il souhaite ou du moins un peu d'aide.

Il y a pas mal de Virus et ses variants qui ont été répandu beaucoup ces jours-ci. et qui ont ces symptômes : ces derniers cachent les dossiers et ils les transforment en raccourcis qui ont pour cibles bien sûr leurs Virus.exe
Moi aussi j'étais victime de ce type de virus depuis une semaine. J'ai un virus qui transforme les dossiers en raccourcis. En fait dès qu'on branche une clé USB le virus s'active. Il met les dossiers en attribut caché et crée des raccourcis portant le nom du dossier qui si on clique dessus lance une application crée par le virus qui sature le CPU.
Donc j'ai pensé à faire ce vbscript pour supprimer automatiquement les raccourcis infectés et le Virus lui-même.

Le titre et les commentaires dans le fichier source décrivent amplement le but du code.

Un code qui reprend la colorisation de la boite de dialogue basé sur la démonstration de API Guide et AllApi


En collaboration avec : shwin

Ce qui m'a incité à faire ce petit programme, c'est que j'avais un utilitaire(Regcleaner4) qui marchait bien sur WIN98 et WIN XP SP1 et SP2, mais avec le SP3, il ne marche plus. J'ai alors pensé à faire quelque chose de très simple pour nettoyer mon registre des entrées indésirables.

L'utilisation du code est sans garantie(pour la suppression) néanmoins une sauvegarde est faite pour toute suppression si la case à cocher "Créer sauvegarde" est activée. Un fichier de sauvegarde est alors automatiquement créé dont le nom(sans extension) est aussitôt affiché et visible dans le ComboBox ajouté à cette fin. Ledit fichier a pour nom la date et l'heure de l'enregistrement sous la forme : dd_mm_yyyy_hh_mm_ss(+l'extension .reg)
Voir la suite

Ce composant sert à redimensionner automatiquement les composants contenus dans une feuille quand la fenêtre est agrandie par l'utilisateur.



Par contre si la fenêtre est diminuée, les composants ne sont plus redimensionnés, et des scrollbars sont affichés, permettant de voir les parties masquées de la fenêtre.



Pour l'utilisation :

• Poser le composant pour couvrir toute votre feuille.


• Mettez vos composants dedans.


• Ajoutez ce code à votre form.

Private Sub Form_Load()
AutoScroll1.AutoScroll True
End Sub


Private Sub Form_Resize()
On Error Resume Next ' ... Voir la suite

Utilisation d'un MSHFLEXGRID, avec des cellules "checkables" (true/false) et du texte.

Permettre la transparence d'un contrôle par la méthode d'encapsulation

Faites patienter les utilisateurs de votre script grâce a un bargraph.

Ce VBScript vous montre comment générer une liste des fichiers et dossiers en HTML avec arborescence

Ce code ne permet pas de sauvegarder les icônes récupérées sous forme de fichiers.

Un petit outil et quelques formules pour convertir les couleurs d'une page HTML en couleurs utilisables pour les contrôles/composants que l'on utilise sous VB6, et pourquoi pas inversement.

'***************** Différence de codage couleurs HTML et Hexadécimale *************************
Postula, la lecture des codages est faite de gauche à droite

Sous VB6, tous les composants/contrôles permettant un choix de couleurs peut être paramétré en hexadécimale.
Lorsque l'on veut utiliser une couleur provenant d'une page HTML

Voici un exemple de formulaire en HTA HTML Application pour envoyer un e-mail avec une pièce-jointe par deux méthodes:
1-Méthode: Via le serveur Gmail en utilisant l'authentification SMTP et SSL de ce dernier
2-Méthode: Via Votre Serveur SMTP sans authentification
Dans cet exemple vous pouvez utiliser du code HTML dans votre message. Par exemple moi j'ai utilisé une image comme signature a la fin du mail !
NB: Pour la 2ème méthode on peut l'utiliser sans login et sans mot de passe si on est sous le même Domaine et on peut aussi l'utiliser aussi si on est devant un Proxy , il suffit juste remplacer le contenu du champ SMTP "smtp.serveur.com"par son adresse IP par exemple si votre Proxy a comme adresse IP 172.16.0.1 ou b ... Voir la suite

Ce composant est un fourre-tout de fonctions axées vers les fichiers/disque.Vous y trouverez pêle-mêle, les fonctions de boites de dialogues communes,
les fonctions copy/move/delete de l'explorateur windows,des fonctions pour créer un raccourci sur le bureau/dans la barre de menu,
la lecture/modifications des attributs d'un fichiers (simple propriété en lecture/écriture) des fonctions de formatage/copie des disquettes

Enfin bref, y a pas plein de trucs a découvrir. Un exemple d'utilisation est donné

C'est une Mise à jour du SMTP Mail Client avec pièce jointe !
- Description de la Mise à jour :
- Installation d'un Raccourci vers le Bureau dés le premier lancement de l'application.
- Ajout de l'agent de Microsoft Merlin le Magicien pour le divertissement avec beaucoup de fonctions et de commandes et des tâches a accomplir !
Voici quelques tâches que peut faire ce Merlin le Magicien dans son Menu:
-Lire le Texte saisi et le Prononcer
-Donner l'heure
-Ouvrir le lecteur CD/DVD-Rom
-Fermer le lecteur CD/DVD-Rom
-Donner les informations sur la version de Windows
-Donner L'espace total et l'espace libre sur les lecteurs
-Afficher la Mémoire vive et la mémoire virtuelle
-Afficher l'ad ... Voir la suite

Pour connaître la résolution de l'écran sur lequel fonctionne un logiciel et, éventuellement, la changer pour une meilleure exécution.

Visualisation des paramétrés fuseau horaire en cours sur l'ordinateur et affichage de l'heure locale du fuseau sélectionné dans une des 2 listes.

Visualisez une image dans un pictureBox et utilisez en un autre pour afficher
un Zoom de l'image.

Une requête Access extrait le recordset de MaTable.MonChamp (String) qui contiennent MesMots (provenant, par exemple, d'un input de la page HTA)
lasql = "Select MonChamp from MaTable where InStr(MonChamp,"""& Mesmots &""")>0;"
Ce recordset est implémenté dans une table dans une Div1 du document HTA
Nécessite un CSS pour le tag Mark

Un bouton de commande skinnable. Avec ça, s'ajoute la possibilité d'afficher une ombre sous le label du bouton et en plus, on peut lui assigner une application à lancer.