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?
etayAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

purpleblobCommented:
What's the error it reports ?
0
Ralf KlattEmployee in Civil ServiceCommented:
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
0
etayAuthor Commented:
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.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

purpleblobCommented:
Okay, it's been a few years since I used the scripting control but it would appear you're using the the wrong code to create your object in the script you've supplied, i.e.

replace

_bstr_t bstrCode1(L"set WshShell = WScript.CreateObject(\"WScript.Shell\")\n");

with

_bstr_t bstrCode1(L"set WshShell = CreateObject(\"WScript.Shell\")\n");

See if this works - if it does then I understand the reason - it's probable that WScript object is added to the Windows scripting engine when used directly via a windows script (i.e. running a .vbs through Windows). When you create the scripting control you need to either create and then add the WScript object to your instance of the scripting or use the global version of CreateObject.

If this doesn't solve the problem then please explain what happened (if anything) witht he chane and I'll have another look. On my machine I've just tested this change and it doesn't exception when run, although I obviously have nothing that the script actually interacts with so I cannot say whether your script works.

Hope this helps

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
purpleblobCommented:
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
0
etayAuthor Commented:
thanks purpleblob,
it works.
0
purpleblobCommented:
Glad to have helped
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.