[VB6] Exécuter un programme en tant que... [Trucs & Astuces]

**Le_Tolier** · 28/05/2004, 09h33

Bonjour,

suite a mon probleme d hier (ICI)

j ai utilisé l API Createprocesswithlogon j ai un probleme pour l argument startupinfo : Type d argument byref incomptatible j ai tenté pas mal de truc mais la je séche...
voici mon code :

ds un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Const SW_SHOWNORMAL = 1
Private Const LOGON_WITH_PROFILE = &H1&
Private Const LOGON_NETCREDENTIALS_ONLY = &H2&
Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Private Const CREATE_NEW_CONSOLE = &H10&
Private Const CREATE_NEW_PROCESS_GROUP = &H200&
Private Const CREATE_SEPARATE_WOW_VDM = &H800&
Private Const CREATE_SUSPENDED = &H4&
Private Const CREATE_UNICODE_ENVIRONMENT = &H400&
Private Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000&
Private Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&
Private Const HIGH_PRIORITY_CLASS = &H80&
Private Const IDLE_PRIORITY_CLASS = &H40&
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const REALTIME_PRIORITY_CLASS = &H100&
 
Public Type STARTUPINFO
     cb As Long
     lpReserved As String
     lpDesktop As String
     lpTitle As String
     dwX As Long
     dwY As Long
     dwXSize As Long
     dwYSize As Long
     dwXCountChars As Long
     dwYCountChars As Long
     dwFillAttribute As Long
     dwFlags As Long
     wShowWindow As Integer
     cbReserved2 As Integer
     lpReserved2 As Long
     hStdInput As Long
     hStdOutput As Long
     hStdError As Long
End Type
 
Public Type PROCESS_INFORMATION
     hProcess As Long
     hThread As Long
     dwProcessID As Long
     dwThreadID As Long
End Type
 
Declare Function CreateProcessWithLogon Lib "Advapi32" Alias "CreateProcessWithLogonW" (ByVal lpUsername As Long, ByVal lpDomain As Long, ByVal lpPassword As Long, ByVal dwLogonFlags As Long, ByVal lpApplicationName As Long, ByVal lpCommandLine As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInfo As PROCESS_INFORMATION) As Long

et ds ma form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub Form_Load()
TB_Nb_Echantillons.Text = Configuration.L_Nb_Echantillons_Fluox.Caption
TB_Nb_Echantillons_ICP.Text = Configuration.L_Nb_Echantillons_ICP.Caption
TB_Repertoire_Courant.Text = Configuration.L_Rep_Courant
L_Nb_Elems.Caption = Configuration.L_Nb_Intnsity
 
 
 
Dim Startup As STARTUPINFO
Dim ProcessInf As PROCESS_INFORMATION
Dim return_value As Long
Dim app_to_run As String
Startup.cb = Len(Startup)
lpDomain = "."  'C'est ce qu'il faut mettre pour XP
lpUsername = "bob"
lpPassword = "bob"
'app_to_run = App.Path & "CelVal.exe" 'On veut lancer Half life par exemple
lpApplicationName = App.Path & "CelVal.exe"
lpCommandLine = vbNullString
lpCurrentDirectory = vbNullString
'Login = "bob" 'Nom du compte sur lequel on veut se logger
'Pass = "bob"    'Mot de passe pour ce compte
 
return_value = CreateProcessWithLogon(StrPtr(lpUsername), StrPtr(lpDomain), StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), StartInfo, ProcessInfo)
 
 
End Sub

**Endeavour** · 28/05/2004, 09h41

essaye de passer ton argument ByVal

**Le_Tolier** · 28/05/2004, 09h42

Deja tenté marche pas : Les types crée par l utilisateur ne peuvent etre passe par valeur

**seddik_saber** · 28/05/2004, 09h52

c'est quoi StartInfo????????????????

**Le_Tolier** · 28/05/2004, 09h56

C est un pointeur qui permet de definir l apparence de la fenetre du nouveau process :

lpStartupInfo
Pointer to a STARTUPINFO structure that specifies how the main window for the new process should appear.
(allapi.net)

J ai tenté sans ms c est un parametre obligatoire.

**seddik_saber** · 28/05/2004, 10h01

ce que je voulais dire c'est que je ne vois pas sa declaration je ne vois qu'une variable nomme startup

**Le_Tolier** · 28/05/2004, 10h08

En faite tu as raisons j ai mis les bon noms de variables ( le boulet

), mais je retrouve le prob que j avait avant que je commence a faire des modification.
C est a dire qu'a l execution c est un beau message d erreur me disant que Vb a genere des erreurs et qu il va etre fermé et qu un journal des errerus est en cour de creation..

**seddik_saber** · 28/05/2004, 10h13

je croix la que les parametre passe a l'api sont errone ou ta structure manque de donne
reconsulte des exp d'utilisation de cet api voila un bon site
http://allapi.net/

**Le_Tolier** · 28/05/2004, 10h17

C est de ce site que vient tt le code pour l api CreateProcessWithLogon j ai tt recopie et suivi leurs instructions c est pour ca que je ne comprend pas ce quise passe ...

**seddik_saber** · 28/05/2004, 10h23

désole de ne pas pouvoir t'aider pour le moment s'il ya un peux de temps je vais essayer de l'utiliser et je vais te poster ca mais si tu trouve qque chose n'oublie pas de communiquer ta soluce

**Le_Tolier** · 28/05/2004, 10h25

ok.
en faite ca compile bien le prob c est a l execution soit vb plante si je le fait de Vb soit c est l exe genere qui plante

**HPJ** · 28/05/2004, 10h28

Tu utilises Len(nombre de caractères) au lieu de LenB(nombre d'octets dans la chaîne) et en VB (unicode) 1 caractère = 2 octets -> Erreur sur la taille mémoire -> VB plante.

**Le_Tolier** · 28/05/2004, 11h08

Merci ca fonctionne Sauf que le programme se lance une trentaine de fois et certaine execution de l appli peuvent modifier le fichier et d autres pas

**HPJ** · 28/05/2004, 11h11

Tu dois avoir plusieurs exécutions simultanées du même programme: Tu peux gérer ce problème avec App.PrevInstance ou bien en ne lançant pas le programme tantque l'appel précédent ne s'est pas terminé.

**Le_Tolier** · 28/05/2004, 11h17

En faite j ai juste recopier le code que tu avais mis.
je fais voir pour ce que tu m as dit .
au cas je te montre mon code des fois qu une enormemite s y soit glissé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub Form_Load()
 
Dim lpUsername As String, lpDomain As String, lpPassword As String, lpApplicationName As String
Dim lpCommandLine As String, lpCurrentDirectory As String
Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
Dim start_ As Boolean
On Error GoTo erreur
 
TB_Nb_Echantillons.Text = Configuration.L_Nb_Echantillons_Fluox.Caption
TB_Nb_Echantillons_ICP.Text = Configuration.L_Nb_Echantillons_ICP.Caption
TB_Repertoire_Courant.Text = Configuration.L_Rep_Courant
L_Nb_Elems.Caption = Configuration.L_Nb_Intnsity
start_ = True
 
If start_ = True Then
 
lpUsername = "Administrateur"
lpDomain = "."
lpPassword = "pwd"
lpApplicationName = App.Path & "\CelVal.exe"
lpCommandLine = vbNullString 'use the same as lpApplicationName
lpCurrentDirectory = vbNullString 'use standard directory
StartInfo.cb = LenB(StartInfo) 'initialize structure
StartInfo.dwFlags = 0&
CreateProcessWithLogon StrPtr(lpUsername), StrPtr(lpDomain), StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), StartInfo, ProcessInfo
start_ = False
CloseHandle ProcessInfo.hThread 'close the handle to the main thread, since we don't use it
CloseHandle ProcessInfo.hProcess 'close the handle to the process, since we don't use it
'note that closing the handles of the main thread and the process do not terminate the process
'unload this application
End If
 
fin:
Exit Sub
erreur:
    Proc_Erreur
Resume fin
 
End Sub

les declarations et les structures sont ds un module j ai rien modifié par rapport a ton code sauf que j ai tt mis en public

**HPJ** · 28/05/2004, 11h24

Le code que j'avais mis n'était qu'un copier/coller de l'exemple de allapi.net...
Maintenant, ton problème est de ne pas exécuter ce code plusieurs fois en même temps.

**Le_Tolier** · 28/05/2004, 11h25

Bon maintenant le prog ne lance qu une fois ms je ne peut tjs pas ecrire ds le fichier, alors qu en admin je peut c est dc l histoire des droits.

**HPJ** · 28/05/2004, 11h28

Et si tu te loggues en administrateur ton programme fonctionne

:

**Le_Tolier** · 28/05/2004, 11h32

oui en admin tt fonctionne correctement
en simple utilisateur j ai une erreur du type :"erreur 75".
mais ce qui est bizarre c est que tt l heure qd il y a avait une 30 d instance du prog les dernieres pouvait modifier le fichier ms pas les 1ere ...