how can i automatically click ok button in msgbox popup

[test]

how can i automatically click ok button in msgbox popup.....please let me know..

[PrabhatN]

Where do you get the popup from?
I mean does your code contain something like below:

Code:

Msgbox "Hello World"

If this is the case, the OK button can't be clicked automatically.

If it is not please try using:

Code:

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup " Wait 5 seconds ", 5, "Title"

Hope it helps.

[test]

hello Prabhat
this is my case..

for i = 1 to 3
msgbox "hello Prabhat"

next

now i want to automatic click in this popup when it show hello prabhat in msgbox.
is it possible?
thanx in advance

Regards,
Ajay

[Ankesh]

Hi Ajay,

As per my knowledge its not possible, but you can create the MsgBox with time limit. use below code

Code:

For i=0 to 3
    
    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

Next

Regards,
Ankesh

---

This is the alternate solution....

Istead of writing like msgbox "Hello" , u can just write ur text in the variable like msgbox_message="Your Text" if you are using the above code..
This would serve ur purpose.

Do let me know if u have a query.

Regards,
Ankesh

[test]

Hi Ankesh

thanx for this, its working dear, but i have one problem in that hope u notice that prblm is that in this script loop is not working i mean to say popup ll come only one's times but loop is from 1 to 3.....please check it....


thanks,
Ajay

[Ankesh]

@Ajay, the code is working absolutly fine. I chkd it. I request you to plz re-execute the code.

[test]

Hey Ankesh

It is working thanx dear

Thanks,
Ajay

[test]

Hello,

Please Check this script.
Collapse | Copy Code

Code:

Dim ak
Set ak = CreateObject("wscript.shell")

For i = 1 to 3

   Set DataTable = ("A",dtglobalsheet)
    MsgBox _message = "A"
    MsgBox_time = 2
    MsgBox_title = "this is demo set"
ak.Popup MsgBox, MsgBox_time,MsgBox_title

Next

I just want to print data table value in Msgbox like Column name "A".

Thanks,
Ajay Kumar
Software Test Engineer

[Ankesh]

Code:

For i = 1 to 3
Datatable.SetCurrentRow(i)  'Set the row pointer to Currentrow
strValue= Datatable("A",dtGlobalSheet)  'Get the value from datatable
MsgBox_time = 2
MsgBox_title = "this is demo set"
ak.Popup strValue, MsgBox_time,MsgBox_title


Next

Try the above for loop.. It will work.

Regards,
Ankesh

[test]

Thanks Ankesh,

It is working fine.
can you please tell me any script for descriptive programming in which we used data table.


Thanks,
A.k