cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
12 juin 2018 à 11:28
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024
-
15 juin 2018 à 03:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 Modifié le 15 juin 2018 à 03:08
Bonjour cs_Le Pivert
' Instructions au chargement de la Form ( processus Administrateur )
Location = GetLocationForm()
ClassCommunForm.Location = Location
Ces 2 lignes font partie de mon propre code et sont juste là pour l'exemple .
Tu les remplaces par le code que tu as besoin d'exécuter à ton Form_load
Heureux que cela ait pu te servir
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 13 juin 2018 à 17:46
Bonjour vb95,
J'ai essayé ton code, c'est super. cela évite le MsgBox , tu ouvres en mode Administrateur direct
Par contre j'ai une erreur sur ces 2 lignes:
' Instructions au chargement de la Form ( processus Administrateur )
Location = GetLocationForm()
ClassCommunForm.Location = Location
je les ai remplacé par cela:
' Instructions au chargement de la Form ( processus Administrateur )
Me.StartPosition = FormStartPosition.WindowsDefaultLocation
Merci encore et bonne soirèe
@+ Le Pivert
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 12 juin 2018 à 18:54
Merci bien
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 12 juin 2018 à 18:51
Pour les commentaires depuis que l'on est sur CCM, je n'ai pas de notification!
Ni d'anniversaire comme il était de coutume sur VBFrance.
Ni tous les lundi un message nous signalant les nouveaux codes sources de la semaine.
Ni une page pour les dernières mises à jour
etc.
voilà
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 12 juin 2018 à 18:43
Pas de souci
As-tu un message dans ta messagerie te signalant que tu as une réponse de ma part ?
Car moi tu viens de me répondre et je n'ai pas eu d'alerte par ma messagerie ! J'ai vu l'alerte sur codes-Sources lui-même .
Ainsi je saurais si c'est ma messagerie ou codes-sources qui est le coupable .
Merci
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 12 juin 2018 à 18:26
Quand je dit elles t'imposent des applications, c'est parce quelles me mettent un raccourci bureau du navigateur et me change l'application par défaut de la visionneuse d'image. Je suis donc obligé à chaque fois de remettre ma visionneuse par défaut! Par contre le navigateur ne change pas.
Bien vu pour le code "Administrateur" je vais étudier cela.
@+
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 Modifié le 12 juin 2018 à 17:55
bonjour cs_Le Pivert
Les applications ne sont pas imposées : elles sont installées d'office avec Windows 10 : rien ne t'empêche d'utiliser Firefox comme navigateur Internet
Au niveau "Administrateur" j'ai repensé à ce code que j'utilise dans la source "Accès direct disque et Partitions" qui nécessite les droits Administrateur
' Chargement de la Form
Private Sub FormSelectintrofrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Test si on est en mode Administrateur
If New WindowsPrincipal(WindowsIdentity.GetCurrent).IsInRole(WindowsBuiltInRole.Administrator) = False Then
' lancement du même processus en mode Administrateur
Process.Start(New ProcessStartInfo(Assembly.GetEntryAssembly.CodeBase) With {.UseShellExecute = True, .Verb = "runas"})
' on ferme le processus courant ( celui qui n'était pas Administrateur )
Application.Exit()
Else
' Instructions au chargement de la Form ( processus Administrateur )
Location = GetLocationForm()
ClassCommunForm.Location = Location
End If
End Sub
Ma Form de départ s'appelle FormSelectintrofrm
Si on démarre avec les droits Administrateur on va directement aux instructions au chargement de la form sinon on réexécute le même processus mais avec les droits Administrateur et on revient alors aux instructions de chargement de la form
Evidemment il faut importer
Ainsi lorsque l'on lance l'application on ne soucie pas si on est Admin ou pas !
Par contre si on veut débuguer il faut que Visual Studio soit lancé en "Tant qu'Administrateur" : on met un raccourci sur le bureau de l'Exe de Visual Studio et on le met en Admin avec les propriétés avancées
Sinon on lance l'application "Administrateur" et les points d'arrêts par exemple sont sur l'application "Non Administrateur"
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 12 juin 2018 à 13:41
Bonjour vb95,
Merci pour l'info, je le mettrais dans la prochaine mise à jour. C'est un code que j'ai trouvé il y a quelques années et que je reprends sans me poser la moindre question!
La difficulté comme je le disais dans la description était de créer la clé. Je me suis arraché les cheveux. Il a fallu que je tombe sur ce site pour pouvoir finaliser.
Je parlais des mises à jour sur Windows 10, elles t'imposent des applications:
Edge pour le navigateur et aussi la visionneuse d'images.J'en oublies certainement.
Cordialement
Le Pivert
vb95
Messages postés3467Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention24 mars 2024168 12 juin 2018 à 12:33
bonjour Cs_Le Pivert
Pas mal : j'achète comme dit le coach de "Danse avec les Stars" Jean-Marc Généreux
Une vérification "Admin" en vrai Do.Net
Private Function IsAdmin() As Boolean
Return New WindowsPrincipal(WindowsIdentity.GetCurrent).IsInRole(WindowsBuiltInRole.Administrator)
End Function
Modifié le 15 juin 2018 à 03:08
Ces 2 lignes font partie de mon propre code et sont juste là pour l'exemple .
Tu les remplaces par le code que tu as besoin d'exécuter à ton Form_load
Heureux que cela ait pu te servir
13 juin 2018 à 17:46
J'ai essayé ton code, c'est super. cela évite le MsgBox , tu ouvres en mode Administrateur direct
Par contre j'ai une erreur sur ces 2 lignes:
je les ai remplacé par cela:
Merci encore et bonne soirèe
@+ Le Pivert
12 juin 2018 à 18:54
12 juin 2018 à 18:51
Ni d'anniversaire comme il était de coutume sur VBFrance.
Ni tous les lundi un message nous signalant les nouveaux codes sources de la semaine.
Ni une page pour les dernières mises à jour
etc.
voilà
12 juin 2018 à 18:43
As-tu un message dans ta messagerie te signalant que tu as une réponse de ma part ?
Car moi tu viens de me répondre et je n'ai pas eu d'alerte par ma messagerie ! J'ai vu l'alerte sur codes-Sources lui-même .
Ainsi je saurais si c'est ma messagerie ou codes-sources qui est le coupable .
Merci
12 juin 2018 à 18:26
Bien vu pour le code "Administrateur" je vais étudier cela.
@+
Modifié le 12 juin 2018 à 17:55
Les applications ne sont pas imposées : elles sont installées d'office avec Windows 10 : rien ne t'empêche d'utiliser Firefox comme navigateur Internet
Au niveau "Administrateur" j'ai repensé à ce code que j'utilise dans la source "Accès direct disque et Partitions" qui nécessite les droits Administrateur
Ma Form de départ s'appelle FormSelectintrofrm
Si on démarre avec les droits Administrateur on va directement aux instructions au chargement de la form sinon on réexécute le même processus mais avec les droits Administrateur et on revient alors aux instructions de chargement de la form
Evidemment il faut importer
Ainsi lorsque l'on lance l'application on ne soucie pas si on est Admin ou pas !
Par contre si on veut débuguer il faut que Visual Studio soit lancé en "Tant qu'Administrateur" : on met un raccourci sur le bureau de l'Exe de Visual Studio et on le met en Admin avec les propriétés avancées
Sinon on lance l'application "Administrateur" et les points d'arrêts par exemple sont sur l'application "Non Administrateur"
12 juin 2018 à 13:41
Merci pour l'info, je le mettrais dans la prochaine mise à jour. C'est un code que j'ai trouvé il y a quelques années et que je reprends sans me poser la moindre question!
La difficulté comme je le disais dans la description était de créer la clé. Je me suis arraché les cheveux. Il a fallu que je tombe sur ce site pour pouvoir finaliser.
Je parlais des mises à jour sur Windows 10, elles t'imposent des applications:
Edge pour le navigateur et aussi la visionneuse d'images.J'en oublies certainement.
Cordialement
Le Pivert
12 juin 2018 à 12:33
Pas mal : j'achète comme dit le coach de "Danse avec les Stars" Jean-Marc Généreux
Une vérification "Admin" en vrai Do.Net
il faut ajouter en Import