Hei taas
Minulla on pieni ongelma taas.
Käytän VB6 ja olen tehnyt MrSmart ohjelmia ainakin 20 vuotta, mutta kun lopetan sen, se ei mene pois, vaan se pitää poistaa CNTRL/ALT/Delete napeilla.
Aikaisennin viime vuonna sain sen pois tuolla Kill_Progran pikku palikalla,
mutta vaikka tein itsenäisen Kill_Program, se ei auttanut.
Osaako joku neuvoa, mitä olen tehnyt väärin?
Tässä on koko ohjelma
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const WM_CLOSE = &H10
Private Const WM_QUIT = &H12
Private Const WM_DESTROY = &H2
Private Const WM_NCDESTROY = &H82
Private Sub Form_Load()
Kill_Program11
End Sub
Sub Kill_Program11()
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, "MRSMART.EXE") ' tämä on oma ohjelma, jota yritän poistaa
WinWnd = FindWindow(vbNullString, "Text.txt - Muistio") ' tämä on ohjelman, jonka kaikki voivat tehdä, mutta ei poistaa
If WinWnd <> 0 Then
PostMessage WinWnd, WM_CLOSE, 0&, 0&
End If
End SubPekka
No huomasin, että olin lisännyt ohjelmaan päivämäärän ja nyt ohjelma ei ollutkaan
tuo MrSmart vaan MrSmart4.2.2024.
Kyllä tästä Ohjelmaputkasta on apua.
Pekka
Aihe on jo aika vanha, joten et voi enää vastata siihen.