PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → Irrelevante → Lancer IE en mode administrateur
Lancer IE en mode administrateur
Iniciado por johnston, 14,dic. 2017 12:19 - No hay respuesta
Miembro registrado
9 mensajes
Publicado el 14,diciembre 2017 - 12:19
Bonjour,
je suis novice sous Windev 2, j ai conçu un programme qui convertie IE11 en IE5. mon problème est le suivant j ai un lien (site web) que je dois joindre, lorsque lance le lien avec l adresse IP j arrive a ouvrir le site mais avec le nom de domaine sa ne marche pas
et aimerais lancer IE en mode administrateur

Voila mon code

initalisation du project:

sNomExecutable est une chaîne
cNomExecutable est une chaîne

sVersionIE est un entier
CVersionIE est un entier

//pour l'executable en cours

sNomExecutable=fExtraitChemin(ExeInfo(exeNom),fFichier+fExtension)

cNomExecutable=fExtraitChemin(ExeInfo(exeNom),fFichier+fExtension)

// creation d un repertoire

//ResCreation est une chaine
//ResCreation=fRepCrée("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION\DWORD 32 bits")

//Lecture du parametrage actuel

sVersionIE=RegistreLit("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION",sNomExecutable)

CVersionIE=RegistreLit( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION",cNomExecutable)



//Deja force IE9

SI PAS sVersionIE DANS (9000,9999) ALORS

//on force IE9
sVersionIE=9000

SI PAS RegistreEcrit("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION",sNomExecutable,sVersionIE) ALORS

Erreur("Impossible de forcer la version de Internet Explorer",ErreurInfo())
FIN
FIN


SI PAS CVersionIE DANS (9000,9999) ALORS

//on force IE9
CVersionIE=9000

SI PAS RegistreEcrit("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION",cNomExecutable,CVersionIE) ALORS

Erreur("Impossible de forcer la version de Internet Explorer",ErreurInfo())
FIN
FIN





DANS le bouton valider:



SI CbConnexion="" ALORS

Info("Veillez choisir un lien ")
SINON

// Ouvre(FEN_Connexion)
sNomAppli est une chaîne = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"

SI LanceAppli(ChaîneConstruit([
"%1" "%2"
], sNomAppli, SAI_adresse)) = Faux ALORS
Erreur(ErreurInfo())
FIN

// ExplorerAccepte(vrai,sNomAppli)



FIN



merci
Mensaje modificado, 14,diciembre 2017 - 12:33