Lukke prog ved klikk av Command1

[danfredr]

hei. Noen som vet hvordan man lukker foreksempel Kazaa ved å klikke på Command1 ?

 

Jeg skal egentlig ha den til å lukke et program kalt project1 (vanlig vindu laget i VB6)

[aadnk]

Tja, jo det er mulig. Skriv inn denne koden i formen med knappen som skal avslutte det andre programmet:

 

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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10

Private Sub Command1_Click()

Dim WinWnd&, RetVal&, lpClassName$
Dim FormCaption As String

FormCaption = "Form1"

WinWnd = FindWindow(vbNullString, FormCaption)
If WinWnd = 0 Then MsgBox "Couldn't find the window ...", vbCritical: Exit Sub

ShowWindow WinWnd, SW_SHOWNORMAL
PostMessage WinWnd, WM_CLOSE, 0&, 0&

End Sub

 

Husk at FormCaption variabelen må være nøyaktig captionen i det andre programmet. Skift ut "Form1" med det programmet som skal avsluttes har som caption.