VB6: shell funktioniert nur in der Programmoberfläöche

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von wernho.

    VB6: shell funktioniert nur in der Programmoberfläöche

    Folgendes Problem: Ich arbeite viel mit Autohotkey und spiele das MMO Elyon. Dieses Game verbietet aber Autohotkey, so muss ich es jedesmal vor dem Start von Elyon beenden.
    Nun habe ich mir ein Programm geschrieben, welches Autohotkey beendet und mit "shell" Elyon aufruft.
    Das Problem ist: wenn ich es über die Oberfläche von VB6 starte, funktioniert es. Wenn ich es aber über den kompilierten exe-File starte, kommt bei "shell" der Laufzeitfehler 5: ungültiger Prozeduraufruf ...
    Warum ist das bitte so?
    Hier der Programmcode (ist in Spoiler, da ein enig lang):
    Spoiler anzeigen

    Quellcode

    1. Option Explicit
    3. ' Prüft, ob eine EXE-Datei bereits ausgeführt wird und gibt im Erfolgsfall entweder das Fensterhandle oder die Process-ID zurück
    4. Public Function IsEXERunning(ByVal sFilename As String, Optional ByVal iReturn As procReturnValue = ProcessID) As Long
    6. Dim nResult As Long
    8. ' bei allen anderen Systemen...
    9. Dim lSnapshot As Long
    10. Dim uProcess As PROCESSENTRY32
    12. ' "Snapshot" des aktuellen Prozess ermitteln
    13. lSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    14. If lSnapshot <> 0 Then
    15. uProcess.dwSize = Len(uProcess)
    17. ' Ersten Prozess ermitteln
    18. nResult = ProcessFirst(lSnapshot, uProcess)
    20. Do Until nResult = 0
    21. ' Prozessliste durchlaufen
    22. If InStr(LCase$(uProcess.szexeFile), LCase$(sFilename)) > 0 Then
    23. 'Jepp - EXE gefunden
    24. If iReturn = Handle Then
    25. IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
    26. Else
    27. IsEXERunning = uProcess.th32ProcessID
    28. End If
    29. Exit Do
    30. End If
    32. ' nächster Prozess
    33. nResult = ProcessNext(lSnapshot, uProcess)
    34. Loop
    36. ' Handle schliessen
    37. CloseHandle lSnapshot
    38. End If
    40. End Function
    42. ' Ermittelt das Fensterhandle anhand einer Prozess-ID
    43. Private Function ProcID2hWnd(ByVal ProcID As Long) As Long
    45. ' alle Fenster durchlaufen und nach Process-ID suchen
    46. Dim lngHWnd As Long
    47. Dim lngProcTaskID As Long
    49. lngHWnd = FindWindow(vbNullString, vbNullString)
    50. Do While lngHWnd <> 0
    52. ' Existiert kein Eltern-Fenster, dann ProcssID
    53. ' ermitteln und mit TaskID vergleichen
    54. If GetParent(lngHWnd) = 0 Then
    55. GetWindowThreadProcessId lngHWnd, lngProcTaskID
    57. ' Handelt es sich um die gesuchte TaskID?
    58. If lngProcTaskID = ProcID Then
    59. ' Fenster-Handle zurückgeben und Schleife
    60. ' verlassen!
    61. ProcID2hWnd = lngHWnd
    62. Exit Do
    63. End If
    65. End If
    67. ' Nächstes Fenster
    68. lngHWnd = GetWindow(lngHWnd, GW_HWNDNEXT)
    69. Loop
    71. End Function
    73. ' Task beenden
    74. Public Sub TerminateTask(lTaskID As Long)
    76. Dim lhwnd As Long
    77. Dim lResult As Long
    79. lhwnd = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
    80. lResult = TerminateProcess(lhwnd, 1&)
    81. 'lResult = CloseHandle(lhwnd)
    83. End Sub
    85. Private Sub Form_Activate()
    87. Dim iID As Long
    89. iID = IsEXERunning("AutoHotkey.exe")
    90. If (iID > 0) Then
    91. TerminateTask iID
    92. imgOk.Visible = True
    93. frmMain.Refresh
    94. Sleep 250
    95. Else
    96. imgCancel.Visible = True
    97. frmMain.Refresh
    98. Sleep 250
    99. End If
    100. iID = Shell("G:\Elyon\Elyon_Launcher.exe", vbNormalNoFocus)
    101. Sleep 1000
    102. Unload Me
    104. End Sub



    Kann mir da bitte jemand helfen?

Facebook
Telefonspende