VB6: Programm abschießen

[huha]

Morgen!

Wie kann ich mit VB ein Programm, dessen Namen ich kenne, abschießen, sprich beenden?

Danke!

-huha

[String]

Wenn das Programm ein sichtbares Fenster hat: Fenster mit FindWindow suchen und mit SendMessage eine WM_CLOSE Nachricht senden.

[huha]

Hat jemand nen Codeschnipsel dazu? Ich weiß nciht, ob das Fenster sichtbar ist, ich wollt nämlich den VNC server vor dem (automatischen) Runterfahren einfach abschießen, denn sonst bleibt er - wenn noch eine Verbindung zu einem Client aufgebaut ist - einfach hängen, zeigt Fehler etc.pp.
Und das is ja recht schlecht für ne Remote administration.

-huha

[RaumKraehe]

Ähm .. bei mir fährt VNC ohne Problem mit runter ...

[TommySZB]

So hab ich früher Word beendet, vielleicht hilfts:

Public Function WordBeenden()
On Error Resume Next
Dim meinTask As Task
For Each meinTask In Tasks
If (meinTask.NAME = "TabVDL") Then
meinTask.Close
Exit For
End If
Next meinTask
For Each meinTask In Tasks
If (InStr(meinTask.NAME, "Microsoft Word") > 0) Then
meinTask.Close
Exit For
End If
Next meinTask
Ende:
End Function

du musst nur die Word Bibliothek Word Object Library in die Verweise eintragen.