FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
Irrelevante
→
Lancer IE en mode administrateur
Lancer IE en mode administrateur
Iniciado por johnston, 14,dic. 2017 12:19 - No hay respuesta
Conéctese…
johnston
#1
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
:
s
NomExecutable
est une chaîne
c
NomExecutable
est une chaîne
s
VersionIE
est un entier
C
VersionIE
est un entier
//pour l'executable en cours
s
NomExecutable
=
fExtraitChemin
(
ExeInfo
(
exeNom
)
,
fFichier
+
fExtension
)
c
NomExecutable
=
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
s
VersionIE
=
RegistreLit
(
"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
,
s
NomExecutable
)
C
VersionIE
=
RegistreLit
(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
,
c
NomExecutable
)
//Deja force IE9
SI PAS
s
VersionIE
DANS
(
9000
,
9999
)
ALORS
//on force IE9
s
VersionIE
=
9000
SI PAS
RegistreEcrit
(
"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
,
s
NomExecutable
,
s
VersionIE
)
ALORS
Erreur
(
"Impossible de forcer la version de Internet Explorer"
,
ErreurInfo
(
)
)
FIN
FIN
SI PAS
C
VersionIE
DANS
(
9000
,
9999
)
ALORS
//on force IE9
C
VersionIE
=
9000
SI PAS
RegistreEcrit
(
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
,
c
NomExecutable
,
C
VersionIE
)
ALORS
Erreur
(
"Impossible de forcer la version de Internet Explorer"
,
ErreurInfo
(
)
)
FIN
FIN
DANS
le bouton valider
:
SI
C
bConnexion
=
""
ALORS
Info
(
"Veillez choisir un lien "
)
SINON
//
Ouvre(FEN_Connexion)
s
NomAppli
est une chaîne
=
"C:\Program Files (x86)\Internet Explorer\iexplore.exe"
SI
LanceAppli
(
ChaîneConstruit
(
[
"%1" "%2"
]
,
s
NomAppli
,
SAI_
adresse
)
) =
Faux
ALORS
Erreur
(
ErreurInfo
(
)
)
FIN
//
ExplorerAccepte(vrai,sNomAppli)
FIN
merci
Mensaje modificado, 14,diciembre 2017 - 12:33
Informar
0
0
→ Volver a Irrelevante
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versiones precedentes)
WEBDEV (versiones precedentes)
WINDEV Mobile (versiones precedentes)
Reports & Queries
Irrelevante
Herramientas
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto