message box,need to put code in fn library

message box,need to put code in fn library - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: message box,need to put code in fn library (/Thread-message-box-need-to-put-code-in-fn-library)

message box,need to put code in fn library - diya - 12-04-2012

i was trying to close the message box but there are so many...i want to use function library ,how to proceed..
i used below code for one msg box and tried

Code:
Dim message

message= "information:"

Set oShell = CreateObject("WScript.Shell")

oShell.Popup message,15, "Title"

how to put this in fn libraray and call the function please let me know

RE: message box,need to put code in fn library - Ankesh - 12-04-2012

Hi Diya,

please go through the below link.

https://www.learnqtp.com/forums/Thread-how-can-i-automatically-click-ok-button-in-msgbox-popup

Regards,
Ankesh

RE: message box,need to put code in fn library - diya - 12-04-2012

hello ankesh,

i went thru the link but its using for loop

I have in many places the msgbox so wanted to put the code in function library and call it where necessary..

how do i do that....please help

hello ankesh,

i went thru the link but its using for loop

I have in many places the msgbox so wanted to put the code in function library and call it where necessary..

how do i do that....please help

RE: message box,need to put code in fn library - Ankesh - 12-04-2012

Hey Diya,

Just remove the for loop and use the code. It will work.

Regards,
Ankesh

RE: message box,need to put code in fn library - diya - 12-04-2012

Code:
Function messagebox()

Set a=createobject("wscript.shell") 'Creat one object

msgbox_message="Your Text"

msgbox_time=5

msgbox_title=""

a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing

end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate

Code:
Function messagebox()

Set a=createobject("wscript.shell") 'Creat one object

msgbox_message="Your Text"

msgbox_time=5

msgbox_title=""

a.popup msgbox_message,msgbox_time,msgbox_title

Set a=Nothing

end function

call messagebox

Not able to get.....associated the fn library using File->setting->resources->associate

RE: message box,need to put code in fn library - Ankesh - 12-05-2012

Diya,

the above function will create a msgbox and display till the time limit.

I guess you are trying to do something else. Please give a brief info.

RE: message box,need to put code in fn library - diya - 12-05-2012

yuppy it worked.....sorry my mistake