Frage zu VC+Automatisierung

[delphirocks]

hallo,

ich möchte eine existierende, dialogbasierende anwendung automatisieren, sodaß ich ausgewählte funktionen von VBScript aus aufrufen kann. im programm werden verschiedene funktionen mittels sendmessage aufgerufen.

z.B. sendmessage(PROGRAMM_BEENDEN);

ich habe ein atlobjekt mit dem assistenten hinzugefügt.

HRESULT CProgCtrl::ShutDown()
{
AfxGetMainWnd()->SendMessage(PROGRAMM_BEENDEN); // funzt nicht
}
HRESULT CProgCtrl::Test()
{
AfxMessageBox("test"); // ok
}

AfxGetMainWnd liefert mir leider einen nullpointer zurück, genauso wie AfxGetApp().

wie realisiert man so etwas am besten? wie erhalte ich zugriff auf's hauptfenster?

thx

dr