Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Issues while running QTP Script in Siebel.
#11
Solved: 10 Years, 7 Months, 3 Weeks ago
Hi,

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

Thanks,
Smita
Reply
#12
Solved: 10 Years, 7 Months, 3 Weeks ago
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
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Reply
#13
Solved: 10 Years, 7 Months, 3 Weeks ago
Thanks for your solution,as today application is not working so cannot verify will surely let you know tomorrow.
Reply
#14
Solved: 10 Years, 7 Months, 3 Weeks ago
Hi,

Getting issue as operation timed out.

Not able to add attachment here.
Reply
#15
Solved: 10 Years, 7 Months, 3 Weeks ago
Where does the timeout occur ? Can you please explain in detail ?
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Reply
#16
Solved: 10 Years, 7 Months, 3 Weeks ago
When the message box appears qtp is stuck over there and does not do anything.
Then qtp throws message as Operation timed Out.
Reply
#17
Solved: 10 Years, 7 Months, 3 Weeks ago
Thanks for the quick reply. I just want to reconfirm how you have used the code i provided ?
Basanth
Give a fish to a man and you feed him for a day..Teach a man how to fish and you feed him for life.
Reply
#18
Solved: 10 Years, 7 Months, 3 Weeks ago
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
Reply
#19
Solved: 10 Years, 7 Months, 3 Weeks ago
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

Reply
#20
Solved: 10 Years, 7 Months, 3 Weeks ago
Hi,

Thanks for your solution.

Will try and let you know.
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  Issues while uft script execution AAB 4 4,463 10-05-2015, 07:23 PM
Last Post: supputuri
  Running QTP scripts without QC sowjanya 3 5,858 07-16-2015, 11:16 AM
Last Post: ravi.gajul
  QTP Siebel: execution issue when form applet button invokes browser dialog box impreetam 2 4,428 02-06-2014, 12:23 AM
Last Post: vsampark
  Windows 8 envirnment error while running QTP script. Rashmi Rajpal 0 2,321 10-10-2013, 12:21 PM
Last Post: Rashmi Rajpal
  QTP does not stop running furqanmlk 2 3,638 08-25-2013, 02:06 PM
Last Post: GregHicks

Forum Jump:


Users browsing this thread: 1 Guest(s)