Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 12:53:55

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

VBScript

> RAPPEL POUR NE PAS OUBLIER D'ALER MANGER

RAPPEL POUR NE PAS OUBLIER D'ALER MANGER

Information sur la source

Note :

7,00 / 10

Catégorie :VBScript Classé sous :vbs, at, shell, fichiers, création Niveau :Débutant Date de création :20/02/2008 Vu / téléchargé :5 989 / 210

Auteur : l0r3nz1

Ecrire un message privé

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

utlise la manipulation de fichier, et du shell avec la commande bat, j'ai fais ça ya longtemps depuis ce que j'ai developpé et trop specifique pour vous interesser

Source

'------------------------------------------------------------------------------------------------------------------------------------------------------------
'créer un fichier a la base
'------------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub makArchive()
dim aaa
dim bbb
set aaa = CreateObject("scripting.FileSystemObject")
If not(aaa.folderExists("C:\notes")) Then set bbb = aaa.createFolder("C:\notes")
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------
cALL makArchive
dim rapl
dim com
rapl=inputbox("note","rediger note")
'-----------------------------------------------------------------------------------------------------------------------------------------------------------
'annonce en fichier texte, a utiliser ou non si on prefere a une annonce en message box
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim f
dim rappel
set f=CreateObject("Scripting.FileSystemObject")
set rappel = f.createTextFile("C:\notes\rappel.txt" ,true)
rappel.writeline rapl
rappel.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'systeme d'archivage
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim farch
dim rappelarch
dim contenu
dim contient
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'provisoirement on memorise et reecrit les archive
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set farch=CreateObject("Scripting.FileSystemObject")
contenu = ""
if farch.fileExists("C:\notes\Archivesrappel.txt") then
set contient= farch.openTextFile("C:\notes\Archivesrappel.txt")
contenu=contient.readall
contient.close
end if
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set rappelarch = farch.createTextFile("C:\notes\Archivesrappel.txt")
rappelarch.writeline contenu
rappelarch.write "the " & date & " at " & time & " -> " & rapl
rappelarch.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim heur
heur = inputbox("cequoileur","cequoiquecestleur")
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'fichier vbs qui affichera le message
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fifi
dim outil
set outil=CreateObject("Scripting.FileSystemObject")
set fifi = outil.createTextFile("C:\notes\rappel.vbs" ,true)
com = "msgbox" & " " & trema & " " & rapl & trema
fifi.writeline com
fifi.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'le fichier rappel.bat lancera a l'heure voulue soit le fichier txt (pg +simple) soit le fichier vbs
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fileAct
dim obj
set obj=CreateObject("Scripting.FileSystemObject")
set fileAct = obj.createTextFile("C:\notes\rappel.bat" ,true)
'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.txt"
com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.vbs"
fileAct.writeline com
fileAct.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'lance le tout via le fichier bat
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim executeur
set executeur = wscript.createObject("Wscript.shell")
executeur.run("C:\notes\rappel.bat")
'------------------------------------------------------------------------------------------------------------------------------------------------------------
public function trema
trema = chr ("34")
end function

'------------------------------------------------------------------------------------------------------------------------------------------------------------
'créer un fichier a la base
'------------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub makArchive()
dim aaa
dim bbb
set aaa = CreateObject("scripting.FileSystemObject")
If not(aaa.folderExists("C:\notes")) Then set bbb = aaa.createFolder("C:\notes")
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------

cALL makArchive

dim rapl
dim com
rapl=inputbox("note","rediger note")

'-----------------------------------------------------------------------------------------------------------------------------------------------------------
'annonce en fichier texte, a utiliser ou non si on prefere a une annonce en message box
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim f
dim rappel
set f=CreateObject("Scripting.FileSystemObject")
set rappel = f.createTextFile("C:\notes\rappel.txt" ,true)
rappel.writeline rapl
rappel.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------------------------------------------------------------------------------
'systeme d'archivage
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim farch
dim rappelarch
dim contenu
dim contient
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'provisoirement on memorise et reecrit les archive
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set farch=CreateObject("Scripting.FileSystemObject")
contenu = ""
if farch.fileExists("C:\notes\Archivesrappel.txt") then
set contient= farch.openTextFile("C:\notes\Archivesrappel.txt")
contenu=contient.readall
contient.close
end if
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set rappelarch = farch.createTextFile("C:\notes\Archivesrappel.txt")
rappelarch.writeline contenu
rappelarch.write "the " & date & " at " & time & " -> " & rapl
rappelarch.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------

dim heur
heur = inputbox("cequoileur","cequoiquecestleur")

'------------------------------------------------------------------------------------------------------------------------------------------------------------
'fichier vbs qui affichera le message 
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fifi
dim outil
set outil=CreateObject("Scripting.FileSystemObject")
set fifi = outil.createTextFile("C:\notes\rappel.vbs" ,true)
com = "msgbox" & " " & trema & " " & rapl & trema
fifi.writeline com
fifi.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------------------------------------------------------------------------------
'le fichier rappel.bat lancera a l'heure voulue soit le fichier txt (pg +simple) soit le fichier vbs
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fileAct
dim obj
set obj=CreateObject("Scripting.FileSystemObject")
set fileAct = obj.createTextFile("C:\notes\rappel.bat" ,true)
'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.txt"
com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.vbs"
fileAct.writeline com
fileAct.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'lance le tout via le fichier bat
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim executeur
set executeur = wscript.createObject("Wscript.shell")
executeur.run("C:\notes\rappel.bat")
'------------------------------------------------------------------------------------------------------------------------------------------------------------
public function trema
trema = chr ("34")
end function

Conclusion

z en avez besoin que si vous traveillez trop. j'ai mieux mais rien d'exeptionnel qui n'a pas ete decouvert par les as de vbfrrance.

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

rappel
- rappels.vbs 5 375 octets

Télécharger le zip

Sources du même auteur

GEOLOCALISATION WGS84

RECHERCHE RECURSIVE DANS BASES ACCESS (ET SQL SERVEUR)

TRANSFERT DONNÉES ACCESS

CONNEXION BASES DE DONNÉES

TACHE PLANIFIÉES (PETITE BLAGUE)

Toutes les sources de l0r3nz1

Sources de la même categorie

AFFICHER LES SESSIONS ACTUELLEMENT OUVERTES par djebbipgm

SCRIPT VBS DE DÉFINITION DE MOT DE PASSE par djebbipgm

ACTIVATION/DÉSACTIVATION DE PROXY WEB par djebbipgm

CRÉATION DE SOUS-RÉPERTOIRE À PARTIR DU MENU CONTEXTUEL par djebbipgm

CORRIGER RÉCURSIVEMENT LA CIBLE DES RACCOURCIS D'UN RÉPERTOI... par sammounier

Toutes les sources de la catégorie VBScript

Sources en rapport avec celle ci

AFFICHER LES SESSIONS ACTUELLEMENT OUVERTES par djebbipgm

SCRIPT VBS DE DÉFINITION DE MOT DE PASSE par djebbipgm

EXTRACTION DES CHAINES ENTRE GUILEMETS ET CREATION D'UN POIN... par ccgousset

BART VOTRE BUREAU DANS UNE BARRE par alfamick

RECHERCHER TOUS LES FICHIERS DONT L'EXTENSION EST *.VBS ET L... par hackoo

Commentaires et avis

Commentaire de klicksoe le 20/02/2008 11:52:13

Rhaaaaa, qu'est-ce que j'aime ce genre de logiciel...
ça sert à rien, mais c'est le petit plus qui manque à l'ordinateur :P

(même si j'ai déjà le planificateur de tache réglé sur 11h30 ^^)

Commentaire de VBGenesis le 20/02/2008 11:56:22

Salut!

Si tu veut un conseil, essaye de donner des noms plus spécifiques à tes variables :
dim aaa
dim bbb
Si tu fait ça, tu vas vite plus t'y retrouver dans le gros prog... éventuellement si tu veut une variable pour 2 lignes, appelle la tmp

Sinon moi pas besoin de ce genre de prog mon estomac se charge de me rappeler quand il faut manger ^^

Commentaire de djgab21 le 26/04/2008 15:35:13 7/10

J'adore ce genre de programme qui ne sert pas a grand chose !! mais c'est une bonne idée et un bon travail !! 7/10

PS : Il y a plus simple je crois
Re PS : Encore plus simple : ecouter si son estomac crie famine !! ;)

Commentaire de hackoo le 18/03/2009 13:27:50

'le fichier rappel.bat lancera a l'heure voulue soit le fichier txt (pg '+simple) soit le fichier vbs
'dim fileAct
'dim obj
'set obj=CreateObject("Scripting.FileSystemObject")
'set fileAct = obj.createTextFile("C:\notes\rappel.bat" ,true)
'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.txt"
'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.vbs"
'fileAct.writeline com
'fileAct.close
'lance le tout via le fichier bat
'dim executeur
'set executeur = wscript.createObject("Wscript.shell")
'executeur.run("C:\notes\rappel.bat")
'---------------------------------------------------------------------------
'on peut optimiser ton code sans passer par le fichier Batch ci-dessus par ces '4 lignes:
dim ws,command,Result
Set WS = CreateObject("WScript.Shell")
Command = "At " & heur & " C:\notes\rappel.vbs"
Result = Ws.Run(Command,0,True)

Commentaire de hackoo le 18/03/2009 13:27:52

Commentaire de l0r3nz1 le 26/03/2009 14:48:49

Trés juste, à l'époque j'avais juste essayé Ws.Run(Command) et à l'époque je trouvais ça intêressant de faire un programme qui en écrit un autre qui en lance un autre...

En tout cas merci pour ton commentaire constructif

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Help fichiers+shell!!!!!!!!!! [ par tom ] Comment faire pour inserer plusieurs fichiers (bmp et .bat) dans l'application VB5? existe t-il une limite? De plus ces fichiers seront par la suite e Création de fichiers .HPL [ par joe ] Comment créer des fichiers d'aide (.hlp)pour mes programmes en VB6 ?il existe un programme DOC2HLP qui convertit des fichiers Word en Hpl, mais il lui Urgent :Liste de fichiers cree par un shell [ par Ghs ] J'ai une sub comme cela :Private sub cmd1_click()'Appel d'un pragramme C qui cree plusieurs fichiers dans un dossier tempShell(PRGMEC.exe ...... ..... date de création de fichiers [ par brlanc ] débutant en programmationje voudrais extraire la date de création du fichier le plus récent d' un repertoirecomment fairemerçibl Télécharger et envoyer des fichiers sur un ftp en vbs [ par masterspirits ] Salut tlm. Je débute un peu en vbs, j'ai un ftp et j'aimerais pouvoir télécharger et uploader des fichiers dessus depuis un poste distant via le visua fonctionnement fichiers vbs [ par gremlins ] comment faire fonctionner un fichier vbs. si j'ai bien compris, ces fichiers sont des scripts qui necessites qqs dll pour fonctionner, quelles sont-el Amateur cherche les fichiers d'aide vbs [ par qed ] Bonjour,Je découvre ce site qui m'a l'air plutôt pas mal. Je suis un utilisateur amateur de VB ds Excel et Access (je suis actuaire, pas grand chose à Réinitialiser le shell [ par kroman ] salut!je cherche le moyen de réinitialiser le shell de windows (les icones, les type de fichiers ect) via un programme en vb.Mon programme ajoute ou m Probleme: SHELL via VB (Pour dezipper des fichiers) [ par fabieune ] BonjourG trouvé un moyen de dezipper en utilisant shell (fichier.bat)dedans je dezippe avec pkunzip mais il n'a pas le teemps ou en tout cas il ne dez recherche de fichiers sur tout le HD en VBS [ par TaZzMaNiak007 ] Bonjour,Je débute le vbs et il faut que je crée unscript qui recherche tous les fichiers c*.bat du dossier documents and settings pour les référencer

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

Forum

AFFICHER PLUSIEURS IMAGES par powerwave

RE : PRENDRE DATE MAX PLUS PETITE QU'UNE DATE DONNéE par Fabien75008

RECUPéRER LES DONNéES D'UNE BDD par kend

RE : PRENDRE DATE MAX PLUS PETITE QU'UNE DATE DONNéE par Renfield

RE : [DéPLACé VB6 -> VBA] DOSSIER CACHé par ucfoutu

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Module sur Prestashop
Budget : 700€
Redaction d-une page de vente pour un ebook
Budget : 300€
module flash de personalisation
Budget : 600€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5