Mon premier gros programme écrit en VBScript avec interface HTA, merci de votre indulgence.
Le but, plutôt que de lancer un gros projet, ce programme ne nécessitant aucune installation peut
s'avérer utile pour aider à la rédaction de requête SQL.
Programme utilisant ADO pour la partie dialogue avec la BDs (ACCESS exclusivement)
Nom du fichier à lancer, OutilBDsAccess.HTA
Sous fichiers, Fond.jpg, DBSHTA.ico, TBLHTA.ico, MultiTBLHTA.ico et StructGenTbl.hta.
Pour l'affichage les fichiers GenTblSpl.hta et GenTblMlt.HTA seront générés par le fichier
OutilBDsAccess.HTA, à l'endroit du dossier de celui ci.
Que permet ce programme
Ouverture BDs :
Choix DSN (noms de source utilisateur) et/ou par l’explorateur et/ou rédaction/modification
de connexion direct (écriture d’une ligne de connexion par défaut lors de ces choix).
Analyse du test, si réussi, affichage des noms de table et champs de la table.
Ouverture d’une table :
Choix dans la liste tables et/ou rédaction/modification dans la boite requête,
drag drop possible des noms de champs depuis la liste champs vers boite de rédaction de la requête.
Chaque test est géré si une erreur se produit, affichage n° et descriptif de la cause de l’erreur.
Visualisation.
Test connexion à la BDs
Bouton « Tester », message Ok ou descriptif de l’erreur
Test ouverture de table:
Bouton « Tester », renseignement sur le nombre d'enregistrements pouvant être retournée,
si l’utilisation de Sum, Count, Max, Min ou Avg présent dans la requête,
informations suivant l'une de ces conditions.
Bouton « Test+ », affichage du résultat sur 1 page.
Bouton « Test++ », affichage du résultat de la requête, par lot de XX enregistrements
(XX est à choisir dans la liste au dessous de ce bouton, de 25 à 100, par pas de 5)
Dans tout les cas, descriptif de l’erreur qui se serai produite.
A savoir, sur un HTA, un clique bouton droit de la souris permet une prévisualisation pour une sortie impression.
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.
Un Splash Screen ou bien un écran d’accueil écrit en Vbscript tout en utilisant la puissance du HTML Application [HTA] ,donc c'est un Splash Screen avec du texte et image animé avec une musique de fond
L'avantage de ce code est qu'il est utilisable dans n'importe quelle Application écrite en Vbscript et il est facilement modifiable et personnalisable !
Donc il suffit d’appeler la procédure SplashScreen avant tout programme Principal et le tour est joué !
Un petit programme d'exemple sur l'utilisation de diverses fonctions de gestion de dates :
Date, Format, DateAdd, isDate , Year, Month, CDate..., et d'un contrôle Monthview
je lui ai ajouté des combobox
liste de serveurs
liste de contact
la liste de contact se remplie avec des fiches au format text dans un soudossier de l'application
on peut ajouter ou supprimer un contact dynamiquement
la liste se met a jour en meme temp
30/032011
j'ai apporté quelques modification d'ordre ergonomiques
les parametres sont dans un menu a droite de la page (caché)
le bouton parametre le decouvre
ajout de la modification des couleurs des label( bien pratique en fonction du fond d'ecran que vous choisissez
avec une pallette assez large en couleur(nouveau)
il ya deux fichier ini (mes adresse: marametres)nouveau!!
mes adresse liste toutes les adresses perso )nouveau!!
parametres enregistre le serveur de votre "fai" que vous avez choisi pour ne plus avoir a le refaire(nouveau!!!)
il enregistre aussi la couleur des label que vous avez choisi(pour ne plus avoir a le faire a chaque fois que l'on se sert de l'application)nouveau!!
le bouton valider en bas a droite sert a enregistrer et fermer le menu (nouveau!!!)
Voici un code, permettant d'utiliser la fonction API ShellExecute, pour ouvrir un dossier (dans explorateur windows) , ou un fichier dans l'application associée (le bloc note pour un .txt, Word pour un .doc...) .. et tout cela en gérant l'erreur sur la non disponibilité du fichier .. (inexistant, pas d'association.....)
Ce Vbscript est en "version beta" et je veux le partager avec vous pour des tests sur vos machines, et bien sûr, vous devriez me donner vos commentaires et vos suggestions pour améliorer ce dernier.
Alors ce script vous montre comment créer un dossier et le protéger par mot de passe Crypté et stocké dans la base des registres, il crée un dossier nommé "C:\Protection" puis il lui attribue une permission d'accès refusée, donc vous ne pouvez pas ni renommer ni ouvrir, ni écrire, ni lire ni supprimer ce dossier.
Ce script modifie les attributs du dossier pour "+ r + s + h" et révoque les autorisations pour %COMPUTERNAME% et le groupe d'administrateurs après avoir invité à saisir un mot de passe. Et ces changements revient après le même mot de passe qui a été fourni.
NB:Ce Script n'est pas sécurisé à 100% en effet le propriétaire du dossier et tout membre du groupe Administrateurs peuvent modifier ces autorisations sans passer par le mot de passe connaissant bien sûr la bonne syntaxe en ligne de commande.
- Ce Script est testé sous Windows 7 64-bits Version Française
Il offre la possibilité d'une progress bar verticale ou horizontale
On peut choisir la couleur de fond, la couleur de la progress bar et la couleur du texte.
On peut choisir d'afficher le pourcentage d'avancement ou pas
On peut choisir d'inverser la progression
Il n'accepte comme valeur qu'un chiffre entre 0 et 100 (fonctionne directement en pourcentage)
Ce composant est un ComboBox dont la partie liste à été remplacée par une grille de donnée.
La grille de données est liée en interne à un composant d'accès aux données (DAO)
L'accès à ce composant interne est géré comme un contrôle data, avec comme différence que les différentes propriétés commencent par Liste
Exemple:
La propriété RecordSource du Contrôle data est remplacée par ListRecordSource, la propriété RecordSet, par ListRecordSet etc.
La grille en elle même est un DbGrid, les colonnes peuvent être triées par un click de souris sur l'entête de la colonne.
Tout le composant est basé sur DAO, si quelqu'un veut le traduire pour ADO, libre à lui, mais je demanderais dans ce cas un changement du nom du composant.
Codes sources VB & VBS
