begin process at 2012 02 15 02:56:49
  Trouver un code source :
 
dans
 
Accueil > Forum > 

VB.NET et VB 2005

 > 

Système

 > 

Exécution

 > 

Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

mardi 10 juin 2008 à 12:41:43 | Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

mallett

Membre Club
Bonjour a tous,

Je galere grave depuis quelques jours sur un petit besoin specifique !

J'ai une application classique avec Interface (MonAppli.exe)
J'ai un service qui tourne (MonService.exe)

Et si MonService detecte que le process de MonAppli n'est pas lancer, je souhaite qu'il le lance.
Petit soucis (classique) le service est un process SYSTEM, alors que l'appli doit etre lancer sur
le Desktop du CURRENT USER pour pouvoir interagir avec l'utilisateur.

Question : Comment faire pour lancer (shell ou Process.Start) une appli sur l'utiliseur principal actuellement loggé (qui dispose d'un DESKTOP pour avoir les interfaces) et non sur le desktop du SYSTEM (qui tourne lui sans interface) ?

J'ai rien trouver de clair dans ce sens, pourriez-vous m'aider ? Merci d'avance

Thierry
mardi 10 juin 2008 à 14:23:56 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

vaughan

Membre Club
Réponse acceptée !
Est-ce que l'api CreateProcessWithLogonW peut faire l'affaire ???

[ Lien ]
http://www.vbfrance.com/infomsg_RUN-AS-VB6_1061764.aspx

Voici le déclaration VB :
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



vaughan
mardi 10 juin 2008 à 14:44:18 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

Megafan

Réponse acceptée !
Salut,
Regarde dans la structure StartInfo, il y a possiblité de déclarer le UserName du créateur du process.
@+
Megafan
mardi 10 juin 2008 à 14:57:30 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

Megafan

Salut,
j'oubliais il faut ausi UseShellExecute a false dans le StatyInfo
@+
Megafan
mardi 10 juin 2008 à 15:59:38 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

Megafan

Salut,
Je viens d'essayer sur ma machine avec un startinfo, cela fonctionne tres bien....
Par contre il y a un truc qui passe pas c'est le DOMAINE\UserName
Utilise l'enregistrement DNS username@mondomaine.truc
@+
Megafan
mardi 10 juin 2008 à 16:27:22 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

mallett

Membre Club
A tu testé depuis un service ?

Car moi ca marche pas, ca fonctionne depuis une autre appli lancer par un utilisateur mais pas depuis un service SYSTEM.

mardi 10 juin 2008 à 16:36:56 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

Megafan

SAlut,
Non j'ai pas essayé depuis un service
Faut que j'essaye alors.........
@+
Megafan
mardi 10 juin 2008 à 18:01:05 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

PCPT

Administrateur CodeS-SourceS
ré-édition du message de Mallett
(désolé on ne peut pas modifier directement)


Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe) le 10/06/2008 15:02:09

Merci ..

J'ai bien tanté le startinfo.username mais je me trouve avec un "acces refusé".

Et pour l'API CreateProcessWithLogonW, il faut imperativement fournir le password. L'idéal serait de pouvoir faire depuis le service un :

runas.exe /user:Domaine\User /savecred  APLI.exe

Mais ca fait rien du tout (ni message d'erreur d'ailleur) j'ai l'impression qu'il lance le RUNAS comme il faut mais qu'il ne lance pas l'appli.

Question subsidière.. Si je devais utiliser username et password du startinfo. Auriez vous un exemple de code pour gérer le password dans un startinfo.

Mon exemple (celui qui me donne un "Accès refusé") :

Try

Dim
SourceDir AsString = My.Application.Info.DirectoryPath & "\"
Dim StartProcess AsNew Process
Dim PassCrypt AsNew SecureString
Dim PassClear AsString = "XXX"

For
i AsInteger = 1 To PassClear.Length
  PassCrypt.AppendChar(Mid(PassClear, i, 1))
Next

PassCrypt.MakeReadOnly()
StartProcess.StartInfo.UseShellExecute =
False
StartProcess.StartInfo.LoadUserProfile = True
StartProcess.StartInfo.UserName = "YYY\USER"
StartProcess.StartInfo.Password = PassCrypt
StartProcess.StartInfo.Verb =
""
StartProcess.StartInfo.FileName = SourceDir & "VigilantCenter.exe"
StartProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
StartProcess.StartInfo.Arguments =
""
StartProcess.Start()

Catch ex As Exception
    SendLog("StartProcess Exception : " & ex.Message)
EndTry
 

Une ID ? Merci

mardi 10 juin 2008 à 20:29:56 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

Megafan

Salut
J'avais vu que tu avais laissé quelques elements confidentiels....
(pas grave, personne ne le sais....) ;)
Pour continuer, effectivement j'ai le meme message d'erreur que toi meme en spéciifant que le service est autorisé à interagir avec le bureau.
Un simple shell par contre fonctionne....par contre le .exe est lancé par l'utilsateur SYSTEM.
Je sêche un peu aussi....
@+
Megafan

mardi 10 juin 2008 à 20:45:17 | Re : Lancer (Shell ou process.start) un application classique (notepad.exe) depuis un service (monservice.exe)

PCPT

Administrateur CodeS-SourceS
je n'avais pas lu la question....

dans un contexte "normal" (c'est à dire sans bidouille), une application avec interface NE peut PAS être lancée en tant que service, tout simplement

quant aux bidouilles je ne les connais pas, si BruNews passe par là il pourra sans doute te donner plus d'infos.

au pire regarde sur le forum, il avait lancé quelques pistes de réponse il y a moins de 3 mois
++

Prenez un instant pour répondre à ce sondage svp

1 2

Cette discussion est classée dans : exe, lancer, process, service, classique


Répondre à ce message

Sujets en rapport avec ce message

Lancer un EXE VB avec Netscape/IE5 [ par Bernard ] Bonjour,Peux t'on lancer un programme executable VB à partit d'un provider Netscape ou IE 5.x. Soit avec un lien sur cet EXE ou autre.Je vous remecie comment lancer un exe depuis VB ??? [ par baba ] je voudrais lancer un "exe VB" depuis un autre code VB, comment faire???comment lancer un exe depuis VB ??? Lancer un exe avec des options [ par cameleon ] Je cherche comment reprendre des options dans une ligne de commande après un exe.Exemple : C:Projet.exe /print mais pas dans un SHELLpour que mon proj Comment lancer un exe sous VB6 sans connaitre le chemin ? [ par Jerome ] OU comment trouver le répertoire complet d'un fichier exécutable ? Merci, exe devant fonctionner en session fermée (service ???) comment faire ? [ par Nascimo ] Bonjour,J'ai un programme fonctionnant en boucle infinie. Mais il doit fonctionner meme lorsque la session est fermée (et pas vérouillée par ctr-alt-s lancer un exe [ par fabrice88 ] slt,comment peut-on lance un exe depuis vb??(syntaxe et lignes de commandes lancer un .exe depuis une page asp par exemple [ par zekmek ] quel est le code a mettre dans la page pour mettre un lien qui lance mailing.exe par exemple ?merci lancer un .exe depuis une page asp ... [ par zekmek ] qqun pourrait me dire comment faire ? je débute...merci beaucoup ;-) Passer un exe en service avec win 2000 [ par MacBoiss ] Bonjour,lorsque je me sers des sources de se site pour passer mon appli en service,mon appli ne se compile pas car ca me balance le msg d'erreur : "Po Comment lancer un exe quelconque en tant que form fille depuis une form MDI enVB6 [ par rbrault ] 1-Ce que je sais faire:Lancer une application quelconque (word, excel, bidule.exe, machin.exe....) depuis une application MDI ecrite an VB6.2-Ce que j


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,324 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales