Killer l'application TEAMVIEWER

Dans le cadre de l'assistance avec nos clients, nous sommes souvent confrontés à des installations de Teamviewer de différentes versions.

Avec ces deux procédures nous pouvons arrêter les processus TEAMVIEWER afin de pouvoir relancer notre TeamViewer avec notre version...

Code (Text):

PROCEDURE AfficheProcessus()

ListeSupprimeTout(LISTE_IDPROCESSUS)
ListeSupprimeTout(LISTE_PROCESSUS)

ListeAjoute(LISTE_PROCESSUS,ExeListeProcessus(exeNomCourt,exePID))

POUR I = 1 A ListeOccurrence(LISTE_PROCESSUS)
    SI ChaîneOccurrence(LISTE_PROCESSUS[I],"TeamViewer") <> 0 ALORS ListeAjoute(LISTE_IDPROCESSUS,ExtraitChaîne(LISTE_PROCESSUS[I],2,TAB))
    SI ChaîneOccurrence(LISTE_PROCESSUS[I],"tv_w32") <> 0 ALORS ListeAjoute(LISTE_IDPROCESSUS,ExtraitChaîne(LISTE_PROCESSUS[I],2,TAB))
    SI ChaîneOccurrence(LISTE_PROCESSUS[I],"tv_x64") <> 0 ALORS ListeAjoute(LISTE_IDPROCESSUS,ExtraitChaîne(LISTE_PROCESSUS[I],2,TAB))
FIN

 

Code (Text):

PROCEDURE KilllesProcessus()
Nfic est un entier
//Tue le processus TeamViewer

fRepCrée(fRepExe()+"\Utilitaires\")


POUR I = 1 A ListeOccurrence(LISTE_IDPROCESSUS)
    Nfic = fOuvre(fRepExe()+"\Utilitaires\KillProcess.cmd",foCréation+foAjout)
    SI Nfic <> -1 ALORS
        fEcritLigne(Nfic,"TASKKILL /PID " + SansEspace(LISTE_IDPROCESSUS[I]) + " /F")
        fFerme(Nfic)
       
        LanceAppli(fRepExe()+"\Utilitaires\KillProcess.cmd", exeIconise, exeBloquant)
        SI ErreurDétectée ALORS  
            Erreur()
        FIN
    FIN  
    //Multitâche(100)
FIN

 

et le code source (WD20) :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

 

Tu pourras t'en sortir avec les codes....