Issues while running QTP Script in Siebel.

[Smita Dash]

Hi,

Also logged case in HP but not got any satisfactory solution.
Can anyone please give solution to this issue.

Thanks,
Smita

[basanth27]

Smita -
Try this,
Save the below file as dialoghandler.vbs file. Store it in your local hardrive.

Just before the code where the dialog comes up write this,

systemutil.Run "C:\windows\system32\wscript.exe", "C:\dialoghandler.vbs"

Let me know if this resolved your issue.

Code:

Set fso = CreateObject("WScript.Shell")
While fso.AppActivate("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend
fso.SendKeys "a", True

fso.SendKeys "~", True

wscript.sleep 7000

While fso.AppActivate ("WIP Session Recovery") = FALSE  
wscript.sleep 1000
Wend

fso.SendKeys "~", True

---

Should be like this,

Code:

SiebApplication("Siebel Sales").SiebScreen("Leads").SiebView("My Leads").SiebApplet("Lead").SiebPicklist("Lead Status").Select"Accept-Create New Project/Opty"
wait 2
systemutil.Run "C:\windows\system32\wscript.exe", "C:\dialoghandler.vbs"
'Line2:
'Browser("Siebel Sales").Dialog("Microsoft Internet Explorer").WinButton("OK").Click

---

I apologize.Pasted in haste, Corrections made to the function.

Code:

Set fso = CreateObject("WScript.Shell")
While fso.AppActivate("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend
fso.SendKeys "a", True

fso.SendKeys "~", True

wscript.sleep 7000

While fso.AppActivate ("Microsoft Internet Explorer") = FALSE  
wscript.sleep 1000
Wend

fso.SendKeys "~", True

[Smita Dash]

Thanks for your solution,as today application is not working so cannot verify will surely let you know tomorrow.

[Smita Dash]

Hi,

Getting issue as operation timed out.

Not able to add attachment here.

[basanth27]

Where does the timeout occur ? Can you please explain in detail ?

[Smita Dash]

When the message box appears qtp is stuck over there and does not do anything.
Then qtp throws message as Operation timed Out.

[basanth27]

Thanks for the quick reply. I just want to reconfirm how you have used the code i provided ?

[Smita Dash]

I just copied the code and named it as dialoghandler.vbs in c drive.

Then exactly as you told in script i did the same

[Saket]

Hi Smita,

would you like to use Windows API in your script?
Try this - Paste the following code into your script or in a library file and call the function 'HandleDialog' where you want to handle the dialog

Code:

Extern.Declare micHwnd, "FindWindowEx", "user32.dll", "FindWindowExA", micHwnd, micHwnd, micString, micString
Extern.Declare micLong, "PostMessage", "user32.dll", "PostMessageA", micHwnd, micLong, micLong, micLong
Extern.Declare micLong, "GetWindow", "user32.dll", "GetWindow", micLong, micLong

Const BM_CLICK = &HF5
Const WM_SETFOCUS = &H7



Public Function HandleDialog()

    pHwnd = extern.FindWindowEx(0,0, vbNullString, "Microsoft Internet Explorer")
    'pHwnd = extern.FindWindowEx(0,0, vbNullString, "Message from webpage")
    extern.PostMessage pHwnd,WM_SETFOCUS,0,0
    If pHwnd > 0 Then
        btnHwnd = extern.FindWindowEx(pHwnd,0,"button" ,vbNullString)

        extern.PostMessage btnHwnd,WM_SETFOCUS,0,0
        wait(5)
        extern.PostMessage btnHwnd,BM_CLICK,0,0
    End If

End Function

Let me know if there is any issue

[Smita Dash]

Hi,

Thanks for your solution.

Will try and let you know.