Bonjour, mon problème est le suivant : je développe des robots, susceptibles d'être lancés dans des sandboxes différentes (un par sandbox). Je voudrais que lorsqu'un robot est lancé dans une sandbox, il puisse détecter ceux qui sont déjà lancés dans d'autres sandbox. J'arrive, à partir d'un programme situé hors des sandbox, à détecter les robots dans les sandbox (par leur nom de tâche en retrouvant leur handle) mais entre eux ils ne se voient pas (principe du sandbox !). Ma question est donc : comment faire ? Le but est d'empêcher le lancement de plus de x robots sur le même PC.
Quelqu'un a t'il une idée ?
Je précise que je développe en VB6.
La routine utilisée est celle-ci : (pas de moi, trouvée sur un code open source) :
qui affiche donc toutes les tâches nommées "Mon robot" dans une listbox.
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 Public Function ListeDesTaches() Dim CurrWnd As Long Dim Length As Long Dim NomTache As String Dim Parent As Long Dim NbListe As String NbListe = 0 lstTacheActive.Clear CurrWnd = GetWindow(Me.hwnd, GW_HWNDFIRST) While CurrWnd <> 0 Parent = GetParent(CurrWnd) Length = GetWindowTextLength(CurrWnd) NomTache = Space$(Length + 1) Length = GetWindowText(CurrWnd, NomTache, Length + 1) NomTache = left$(NomTache, Len(NomTache) - 1) If Length <> 0 Then If NomTache = "Mon robot" Then If IsWindowVisible(CurrWnd) Then lstTacheActive.AddItem & NomTache End If End If End If CurrWnd = GetWindow(CurrWnd, GW_HWNDNext) DoEvents Wend End Function
Merci de votre aide !! Ca fait un moment que je cherche ...
Partager