Discussion :

[excalybur]

bonjour

Mon application synchrone Shell s'exécute sous VB6.

A la fin Shell rend la main => Comment afficher (sous VB6) à ce moment précis un cadre avec deux bouton oui/non pour valider le résultat?

Mon programme synchrone test 'shell':

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
 Private 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
 
   Private Type PROCESS_INFORMATION
      hProcess As Long
      hThread As Long
      dwProcessID As Long
      dwThreadID As Long
   End Type
 
   Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
      hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
   Private Declare Function CreateProcessA Lib "kernel32" (ByVal _
      lpApplicationName As String, ByVal lpCommandLine As String, ByVal _
      lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
      ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
      ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, _
      lpStartupInfo As STARTUPINFO, lpProcessInformation As _
      PROCESS_INFORMATION) As Long
 
   Private Declare Function CloseHandle Lib "kernel32" _
      (ByVal hObject As Long) As Long
 
   Private Declare Function GetExitCodeProcess Lib "kernel32" _
      (ByVal hProcess As Long, lpExitCode As Long) As Long
 
   Private Const NORMAL_PRIORITY_CLASS = &H20&
   Private Const INFINITE = -1&
 
   Public Function ExecCmd(cmdline$)
      Dim proc As PROCESS_INFORMATION
      Dim start As STARTUPINFO
 
      ' Initialize the STARTUPINFO structure:
      start.cb = Len(start)
 
      ' Start the shelled application:
      ret& = CreateProcessA(vbNullString, cmdline$, 0&, 0&, 1&, _
         NORMAL_PRIORITY_CLASS, 0&, vbNullString, start, proc)
 
      ' Wait for the shelled application to finish:
         ret& = WaitForSingleObject(proc.hProcess, INFINITE)
         Call GetExitCodeProcess(proc.hProcess, ret&)
         Call CloseHandle(proc.hThread)
         Call CloseHandle(proc.hProcess)
         ExecCmd = ret&
   End Function
'pour arrêter un process shell autrment que par CTRL-C
 
 
Public Function KillProcess(ByVal ProcessName As String) As Boolean
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        oproc.Terminate
    Next
    Set svc = Nothing
End Function
Sub Form_Click()
      Dim retval As Long
      retval = ExecCmd("notepad.exe")
      MsgBox "Process Finished, Exit Code " & retval
   End Sub

Explication du fonctionnement : Lancer le programme avec F5 (run) et cliquer sur le form avec la souris pour voir NOTE. Tant que NOTE n'est pas fermé rien ne se passe en VB6 (normal on est en mode synchrone).

Merci pour vos idées.

A vous lire

[l_autodidacte]

Bonjour;
Il me semble avoir vu ce même code(ou presque) ICI

Comment afficher (sous VB6) à ce moment précis un cadre avec deux bouton oui/non pour valider le résultat

De quel résultat s'agit-il ?

[excalybur]

bonsoir,

J'ai oublié le code .vbp dans le form! Excuses !

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Private Sub Form_Load()
ExecCmd "Calc.exe"
ExecCmd "C:\sbwin\py461usr\pywin64.exe" '-maxmem 4096000  + c:\sbwin\hninp.txt"
    ExecCmd App.Path & "\RunMe.Doc"
    MsgBox "Programme fermé"
    End
End Sub

Le MsgBox fonctionne en mode validation seulement.

Autre observation curieuse :

curieusement si j'utilise la ligne ExecCmd "C:\sbwin\py461usr\pywin64.exe -maxmem 4096000 + c:\sbwin\hninp.txt"

Le programme plante avec une erreur : "Vérifier que vous avez rentré le nom exact. " bizarre dans mon programme majeur c'est écrit de la même façon et ça marche (copie/collé).

a+

[l_autodidacte]

curieusement si j'utilise la ligne ExecCmd "C:\sbwin\py461usr\pywin64.exe -maxmem 4096000 + c:\sbwin\hninp.txt"

D'abord il faut voir si le programme pywin64.exe accepte plus d'un argument.
Ensuite, quand tu écris :pywin64.exe -maxmem 4096000 + c:\sbwin\hninp.txt cela fait une concaténation c-à-d : l'argument passé au programme devient pywin64.exe -maxmem 4096000c:\sbwin\hninp.txt et puisqu'il y a un espace entre -maxmem et le reste de la chaine, cela fait un autre argument.

S'il s'agit d'un autre argument, il faut remplacer le + par un espace pour avoir :
ExecCmd "C:\sbwin\py461usr\pywin64.exe -maxmem 4096000 c:\sbwin\hninp.txt". (3 arguments au total)

[excalybur]

Bonjour

Merci pour l'explication. effectivement pywin64.exe n'accepte qu'une seule instruction CTRL-C pour arrêter ce programme C. Concernant l'écriture je pense que tu a vu juste et je vais en tenir compte.

Donc il n'y a pas de solution 'propre' pour arrêter le programme avec la souris. Je mettrais un textbox pour l'utilisateur lui indiquant de saisir CTRL-C pour arrêter le programme.

Encore merci et bon WE !

[DarkVader]

Bonjour,

Une solution simple pour afficher l'éditeur de texte et attendre sa fermeture :

Code :

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

1
2
3
4
5
6
7
    Dim f As String
 
    f = Chr(34) & EnvironEx("%systemroot%") & IIf(Win64, "\SysWOW64", "\system32") & "\notepad.exe" & Chr(34)
 
    If Shell2(f, f, -1) > 0 Then
        MsgBoxW "End shell2"
    End If

[excalybur]

Bonjour

Merci Darkvader pour cette proposition. comment défini-tu la procédure EnvironEx ? code ?

a+