sebdraluorg

eh oui mais je te parle d'utiliser l'assistant de creation de tache planifiees pour programmer l'execution de ton batch via celui-ci. Je ne te parles pas d'utiliser ton batch pour planifier la tache... donc tu ouvre l'assistant de tache planifier et tu lui dis d'executer ton batch tous les x temps et tu rentre ton mot de passe a ce moment la. ton batch sera executer chaque fois avec les bons droits... ++

Oui c'est bien une tache planifiée que tu dois utiliser pour ce genre d'application. C'est a ce moment la que tu donne le mot de passe admin et ton batch s'executera avec les privilleges necessaires. ++

re, voila Option Explicit Dim colProcessList Dim objWMIService Dim colMonitoredProcesses Dim objLatestProcess Dim bFound Dim objProcess Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'ENT32.EXE'") For Each objProcess in colProcessList objProcess.Terminate() bFound = True Next If bFound = True Then WScript.Quit Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent " & " within 1 where TargetInstance isa 'Win32_Process'") Do Set objLatestProcess = colMonitoredProcesses.NextEvent if Ucase(objLatestProcess.TargetInstance.Name) = "ENT32.EXE" then objLatestProcess.TargetInstance.Terminate exit do end if Loop Set objWMIService = Nothing Set colMonitoredProcesses = Nothing set objLatestProcess = Nothing set colProcessList = Nothing ++

hum, a mon avis on s'est pas bien compris. Mon script ne fonctionne ke si le process est lancé apres lui. Vu ton sleep 10000 je pensais que c'est ce que tu voulais, mais en fait tu veux que le script verifie si le process est deja en cours des l'execution et si il ne l'est pas attendre qu'il le soit ? c'est bien ca ? Si oui, dis le moi je modifirais le code.... ++

re, Eh il ne se passe rien ou bien tu ne vois rien ? Le script tourne en arriere plan jusqu'a ce que le process ent32.exe soit executé, puis le ferme et s'arrete. Tu n'est donc pas sencé voir quelques choses... As tu essayer de lancer le process ent32.exe apres avoir lancer le script ? Pour verifier que le script est en cours tu peux regarder apres le process wscript.exe dans le taskmgr ++

erf... faut pas que je l'execute pour toi tant qu'on y est? Bon allez j'vais etre gentil... Voici un bout de code qui va attendre que le process ent32.exe soit cree et aussi tot va le fermer, puis se fermer lui meme. Option Explicit Dim objWMIService Dim colMonitoredProcesses Dim objLatestProcess Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set colMonitoredProcesses = objWMIService.ExecNotificationQuery("select * from __instancecreationevent " & " within 1 where TargetInstance isa 'Win32_Process'") Do Set objLatestProcess = colMonitoredProcesses.NextEvent if Ucase(objLatestProcess.TargetInstance.Name) = "ENT32.EXE" then objLatestProcess.TargetInstance.Terminate exit do end if Loop Set objWMIService = Nothing Set colMonitoredProcesses = Nothing ++

Salut, Oui c'est possible la classe wmi propose une notification de creation de process si je me souviens bien, sinon au pire tu enum les process en cours et tu verifie s'il le tiens y est, si il est pas, tu sleep 1 seconde et tu recommence par exemple... ++

pas de quoi Bonne continuation ++

eh tu as surement une erreur... Si le chemin vers le programme contient un espace, il faut mettre tout le chemin entre guillemets Pour lancer les soft un a un en attendant chaque fois que le precedent soit terminé il ne faut rien changer, si tu veux qu'il se lance tous d'un coup tu ecris Start suivit d'un espace devant le nom du soft a executer. ++

salut, eh tu ouvre notepad et tu ecris: MonProg1.exe MonProg2.exe MonProg3.exe MonProg4.exe tu enregistre avec l'extension .bat au lieu de .txt et tu as ce que tu voulais ++

plop, eh si je comprends bien tu veux que en cliquant sur un bouton ca affiche une fenetre ? Si oui, rien de plus simple, quand tu est dans l'editeur visuel (celui qui te permet de mettre des boutons etc) tu double clic sur le bouton en question et la tu te retrouve dans la partie code du bouton tu devrais entre deux lignes de code genre: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub entre ces deux lignes de codes, il te suffit d'ecrire Fenetre.Show() en remplacant Fenetre par le nom de la fenetre a afficher... exemple: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Fenetre1.Show() End Sub ++

hum en francais ca donne quoi ? Essais de corriger un peu ton message afin qu'il soit lisible par tout le monde, le nombre de carateres n'est pas limité dans ce forum! Pour ton probleme la meilleur chose a faire (si possible) serait de revenir en arriere via la restauration systeme. ++

Salut a tous, Hum je pense qu'il veut faire une "visionneuse" de la config d'un jeu, c'est ca ? Si oui, eh je te conseillerait bien visual studio express C# ou VB.net c'est ce qui a de plus simple pour ce genre d'application. Je te conseil plus particulierement la version VB pour commencer apres c'est une question de gout sachant que les perfs a ce niveau la seront absolument identiques... ++

Yep j'avais vu l'erreur en me relisant.... Voici la correction... Private Function FindWordBetween(ByRef MyString As String, ByRef KeyWord1 As String, ByRef KeyWord2 As String) As String Dim lPos1 As Long Dim lPos2 As Long Dim NxtPos As Long Dim TxtLen As Long TxtLen = Len(MyString) lPos1 = InStr(1, MyString, KeyWord1) If lPos1 > 0 Then NxtPos = lPos1 + Len(KeyWord1) If NxtPos < TxtLen Then lPos2 = InStr(NxtPos, MyString, KeyWord2) If lPos2 > NxtPos Then FindWordBetween = Trim$(Mid$(MyString, NxtPos, lPos2 - NxtPos)) End If End If End Function ++

Salut, Voici un ptit exemple vite fait: Private Function FindWordBetween(ByRef MyString As String, ByRef KeyWord1 As String, ByRef KeyWord2 As String) As String Dim lPos1 As Long Dim lPos2 As Long Dim NxtPos As Long Dim TxtLen As Long Dim TxtLenB As Long TxtLen = Len(MyString) lPos1 = InStr(1, MyString, KeyWord1) If lPos1 = 0 Then Exit Function NxtPos = lPos1 + Len(KeyWord1) If NxtPos >= TxtLen Then Exit Function lPos2 = InStr(NxtPos, MyString, KeyWord2) TxtLenB = lPos2 - (lPos1 + Len(KeyWord2)) If NxtPos + TxtLenB > TxtLen Then TxtLenB = TxtLen - NxtPos If lPos2 >= NxtPos Then FindWordBetween = Mid$(MyString, NxtPos, TxtLenB) End Function Bon c'est fait a la volée ne sachant pas dans quel contexte tu dois l'utiliser, si tu dois appeler cette fonction beaucoup de fois dans une boucle ou autre ca risque de pas etre super rapide. ++

Eh pour le "Del MonFichier" Le chemin de ton fichier contient il des espaces ? auquel cas il faut mettre le chemin entre guillemet... Pour "l'interface" Sur quel os doit tourner le batch ? Si seulement sur XP et superieur tu peux utiliser Set /P si mes souvenirs sont bons... Si ca doit tourner sous des versions anterieurs a XP il faut alors utiliser l'utilitaire Choice.exe qui est fournis dans les versions des windows anterieur a XP (donc fodra le livrer avec ton batch pour les autres OS) pour ce dernier cas j'ai creer un ptit tool qui permet de generer des menu en quelques clics, si ca t'interesse dis le moi je te l'enverrai... Pour la suppression des fichiers genre abcdXXXXj eh bin ca depend que veux tu dire par aleatoire ? vraiment aleatoir ou de tel a tel chiffre en augmentant chaque fois de 1 par exemple ? Si c'est ca faut regarder du cote de l'instruction For Si non il faudrait que tu nous explique ce que tu appel aleatoire et ou tu va chercher ces nombres aleatoires... ++

salut, Humm erreur de redondance cyclique je pense pas que Unlocker puisse y faire quelques choses... Je dirais bien aussi un reboot mais en programmant d'abord une verification du disque au prochain demarrage. ++

Non c'est pas celui-la, a moins qu'ils aient sorti une nouvelle version... Mais ca a l'air d'etre a peu pres pareil et de repondre au besoin de SimonPersavessa. Merci Falkra ++

Salut, Eh sur Crystal XP.net y en a un qui permet de le faire par simple glisser deplacer dans un fenetre (tres pratique) et gratuit Par contre je me rappel plus du nom. Perso j'utilise IconWorckShop mais l'est payant ++

non je pense qu'il parle du lien US que tu lui a mis! lol il essai de te dire qu'il ne parle que francais ou gaulois du sud! Pour TsKill ecris le tel quel: TsKill Thunderbird mais bon si tu le mets juste derriere start Thunderbird.exe ca va le fermer tout de suite... ++

Salut, Il faut utiliser start pour lancer tes applications si tu lance un exe simplement par son nom, cmd attend que celui-ci soit fermé pour se fermer... donc remplace MonAppli.exe par Start MonAppli.exe Apres pour fermer le prog lancé eh faut soit killer le process avec TsKill "aplli.exe" Mais c'est pas super propre on va dire... ++ eh bah ca c'est juste pour ne pas afficher les commandes a l'ecran et pour effacer celles qui aurait deja ete ecrite... ou j'ai rien compris a la question ? ++

Salut, Tu dis avoir un deuxieme disk sur lequel tu as un windows d'installé ? Dans ce cas pourquoi ne pas booter sur ce windows pour aller chercher tes documents sur le disque ou le windows ne boot plus ? ++

Salut KewlCat, Eh redistribuer quoi au juste je vois pas trop ce que tu veux dire ? Je disais juste que les soft ecrit sous visual studio 2005 peuvent etre executé directement sous Vista sans devoir installer les dependance (ici le framework...) car il fait deja partie du systeme. Donc je vois pas pourquoi il faudrait un installeur ? Sorry si j'ai rien compris a ta remarque (l'est tard quand meme) ++

erf wai, avec une connexion 512 c'est un peu juste... et c'est vrai que pour convertir des montant HT en TTC c'est un peu sortir le cannon pour tuer la mouche lol Peut etre serait il plus simple de faire un classeur excel non ? Sinon petite consolation, sur vista le framework est natif donc pas besoin de l'installer... ++

re, Voila qui est corrigé pour la dll Encore merci pour l'info ++