PiloteSaisie(NouvelleBackup.SaisieNomBackup, "TEST",psShift)
PiloteSouris(NouvelleBackup.BtnSeletRep, psClicGauche, 15,8)
PiloteSouris(NouvelleBackup, psClicGauche, 330,-14)
PiloteSouris(NouvelleBackup, psClicGauche, 23,8)
PiloteSouris(NouvelleBackup.SaisieRepDestination, psClicGauche, 208,7)
PiloteSaisie(NouvelleBackup.SaisieRepDestination, "S",psShift)
PiloteSaisie(NouvelleBackup.SaisieRepDestination, ":")
PiloteSaisie(NouvelleBackup.SaisieRepDestination, "\",psControl+psAlt)
PiloteSouris(NouvelleBackup.InterOptions, psClicGauche, 80,34)
PiloteOuiNon(Oui)
PiloteInfo()
PiloteSouris(NouvelleBackup.Valider, psClicGauche, 25,11)
Voila un exemple de test modifié pour sélectionner un Nom aléatoire de Backup dans le champ SaisieNomBackup ainsi que d’ajouter une valeur de test dans la liste ListeRépertoires
InitHasard()
sNom est une chaîne = "TEST_" + Hasard(10000)
PiloteSaisie(NouvelleBackup.SaisieNomBackup, sNom)
ListeAjoute(ListeRépertoires, "D:\Temp")
PiloteSouris(NouvelleBackup.SaisieRepDestination, psClicGauche, 208,7)
PiloteSaisie(NouvelleBackup.SaisieRepDestination, "S",psShift)
PiloteSaisie(NouvelleBackup.SaisieRepDestination, ":")
PiloteSaisie(NouvelleBackup.SaisieRepDestination, "\",psControl+psAlt)
PiloteSouris(NouvelleBackup.InterOptions, psClicGauche, 80,34)
PiloteOuiNon(Oui)
PiloteInfo()
PiloteSouris(NouvelleBackup.Valider, psClicGauche, 25,11) |