asked on

msscript.ocx with atl problem

I have this code in vbs:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate (" - Conversation")
WshShell.SendKeys ("check")
WshShell.SendKeys ("{ENTER}")

i need to write in c++ with atl. i tried the following:
bstr_t bstrLanguage(L"VBScript");
_bstr_t bstrCode1(L"set WshShell = WScript.CreateObject(\"WScript.Shell\")\n");
_bstr_t bstrCode2(L"WshShell.AppActivate (\" - Conversation\")\n");
_bstr_t bstrCode3(L"WshShell.SendKeys (\"check\") \n");
_bstr_t bstrCode4(L"WshShell.SendKeys (\"{ENTER}\")\n");
IScriptControlPtr spScriptCtl(__uuidof(ScriptControl));
spScriptCtl->put_Language(bstrLanguage);
spScriptCtl->AddCode(bstrCode1);
spScriptCtl->AddCode(bstrCode2);
spScriptCtl->AddCode(bstrCode3);
spScriptCtl->AddCode(bstrCode4);

this generates an error ( the vbs script works fine).
how to fix it?

purpleblob

What's the error it reports ?

Ralf Klatt

Hi,

msscript.ocx seems an unstable little thing to me regarding this article ---> http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q315922

Anyway, just as an approach:

When you use this function in c++:

function StartCalc()
{
var WshShell = new ActiveXObject("WScript.Shell");
var oExec = WshShell.Exec("calc");
WshShell = null;
}

... you'll get the calculator going ... but from design this looks a little different to your code!

I can not test this right now, but why not trying:

function StartConversation()
{
var WshShell = new ActiveXObject("WScript.Shell");
var oExec1 = WshShell.AppActivate(" - Conversation");
var oExec2 = WshShell.SendKeys("check");
var oExec3 = WshShell.SendKeys("{ENTER}");
WshShell = null;
}

Best regards, Raisor

etay

ASKER

regarding first comment it return an iexplore error reported in the visual studio debug view. & the code itself is not running.
regarding the seond comment , i think you missed the main problem; the problem is not in the vbscript itself but with the VC++ ATL implementing it. javascript wont solve this.

the vb script you have here will add "check" string & send it to any open conversation in the msn messenger.

the purpose of the vc code is to automate this withput vbs file.

ASKER CERTIFIED SOLUTION

purpleblob

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

purpleblob

Ah, I see this is interacting with MSN - okay I just tried the amended code which sent the word check into messenger and then "pressed" return - all works fine here with the amended code

etay

ASKER

thanks purpleblob,
it works.

purpleblob

Glad to have helped