vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
VB6: shell funktioniert nur in Programmoberfläche 
Autor: Wild Werner
Datum: 15.01.22 08:33

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:
Option Explicit
 
' Prüft, ob eine EXE-Datei bereits ausgeführt wird und gibt im Erfolgsfall 
' entweder das Fensterhandle oder die Process-ID zurück
Public Function IsEXERunning(ByVal sFilename As String, Optional ByVal iReturn _
  As procReturnValue = ProcessID) As Long
 
Dim nResult As Long
 
' bei allen anderen Systemen...
Dim lSnapshot As Long
Dim uProcess As PROCESSENTRY32
 
' "Snapshot" des aktuellen Prozess ermitteln
lSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If lSnapshot <> 0 Then
uProcess.dwSize = Len(uProcess)
 
' Ersten Prozess ermitteln
nResult = ProcessFirst(lSnapshot, uProcess)
 
Do Until nResult = 0
' Prozessliste durchlaufen
If InStr(LCase$(uProcess.szexeFile), LCase$(sFilename)) > 0 Then
'Jepp - EXE gefunden
If iReturn = Handle Then
IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
Else
IsEXERunning = uProcess.th32ProcessID
End If
Exit Do
End If
 
' nächster Prozess
nResult = ProcessNext(lSnapshot, uProcess)
Loop
 
' Handle schliessen
CloseHandle lSnapshot
End If
 
End Function
 
' Ermittelt das Fensterhandle anhand einer Prozess-ID
Private Function ProcID2hWnd(ByVal ProcID As Long) As Long
 
' alle Fenster durchlaufen und nach Process-ID suchen
Dim lngHWnd As Long
Dim lngProcTaskID As Long
 
lngHWnd = FindWindow(vbNullString, vbNullString)
Do While lngHWnd <> 0
 
' Existiert kein Eltern-Fenster, dann ProcssID
' ermitteln und mit TaskID vergleichen
If GetParent(lngHWnd) = 0 Then
GetWindowThreadProcessId lngHWnd, lngProcTaskID
 
' Handelt es sich um die gesuchte TaskID?
If lngProcTaskID = ProcID Then
' Fenster-Handle zurückgeben und Schleife
' verlassen!
ProcID2hWnd = lngHWnd
Exit Do
End If
 
End If
 
' Nächstes Fenster
lngHWnd = GetWindow(lngHWnd, GW_HWNDNEXT)
Loop
 
End Function
 
' Task beenden
Public Sub TerminateTask(lTaskID As Long)
 
Dim lhwnd As Long
Dim lResult As Long
 
lhwnd = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
lResult = TerminateProcess(lhwnd, 1&)
'lResult = CloseHandle(lhwnd)
 
End Sub
 
Private Sub Form_Activate()
 
Dim iID As Long
 
iID = IsEXERunning("AutoHotkey.exe")
If (iID > 0) Then
TerminateTask iID
imgOk.Visible = True
frmMain.Refresh
Sleep 250
Else
imgCancel.Visible = True
frmMain.Refresh
Sleep 250
End If
iID = Shell("G:\Elyon\Elyon_Launcher.exe", vbNormalNoFocus)
Sleep 1000
Unload Me
 
End Sub
Kann mir da bitte jemand helfen?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB6: shell funktioniert nur in Programmoberfläche299Wild Werner15.01.22 08:33
Re: VB6: shell funktioniert nur in Programmoberfläche120ModeratorDieter15.01.22 08:59
Re: VB6: shell funktioniert nur in Programmoberfläche115Wild Werner15.01.22 09:03
Re: VB6: shell funktioniert nur in Programmoberfläche119Wild Werner15.01.22 11:36

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 [email protected] Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel