Rappel pour ne pas oublier d'aler manger
Soyez le premier à donner votre avis sur cette source.
Vue 8 955 fois - Téléchargée 344 fois
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
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.
Source / Exemple :
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'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.
Codes Sources
A voir également
- Rappel pour ne pas oublier d'aler manger
- Personnage manga aléatoire - Guide
- Standard v090 j'avais oublier le zip :) - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Gestion de rappels - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Visual Basic / VB.NET : Multialarmes v6 (graphique) - pour se rappeler ses rendez-vous - CodeS Sourc - Guide
- Rappel d'un fait à une date dans la semaine sans rien lancer... - Codes sources - C / C++ / C++.NET (Divers)
26 mars 2009 à 14:48
En tout cas merci pour ton commentaire constructif
18 mars 2009 à 13:27
'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)
18 mars 2009 à 13:27
'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)
26 avril 2008 à 15:35
PS : Il y a plus simple je crois
Re PS : Encore plus simple : ecouter si son estomac crie famine !! ;)
20 févr. 2008 à 11:56
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 ^^
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.