I came across Good question ..... Write a script to only
download pdf's if there are 20 links on a page. Kindly reply
these type of questions are pretty challenging..
Answers were Sorted based on User's Feedback
Answer / trex
Set oLink = Description.Create
oLink("micclass").value = "Link"
Set oPage = Browser("title:=.*").Page("title:=.*").ChildObjects(oLink)
PdfCount = 0
For i = 1 To oPage.Count-1
oPdfFiles = oPage(i).getROProperty("url")
print oPdfFiles
If Right(oPdfFiles,4)=".pdf" Then
MsgBox oPdfFiles
count = count +1
End If
Next
MsgBox PdfCount
Is This Answer Correct ? | 5 Yes | 1 No |
Answer / harsha
dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.visible=true
objIE.Navigate "your url"
Set ObjDoc = objIE.Document
objhref=objdoc.documentElement.getElementsbyTagName
("a").item(0).href
if (Instr(objhref,".pdf")>0) then
objdoc.documentElement.getElementsbyTagName("a").item
(0).click
End if
This will download the pdf doc into the current opened
browser.
Is This Answer Correct ? | 4 Yes | 1 No |
Answer / rajesh
Hi Arun,
I really thank you for your reply, however it seems to be
javascript.
can you please post the VB script. I did research on net and
could get the appropriate script.
Is This Answer Correct ? | 1 Yes | 0 No |
Answer / arun kumar
just try using the below code may be it helps you.
long fp;
char *data;
unsigned long prmLen;
web_url("example.html",
"URL=http://www.trainingg.com/example.html",
"TargetFrame=",
"Resource=0",
"RecContentType=text/html",
"Referer=",
"Snapshot=t1.inf",
"Mode=HTML",
LAST);
//Truncate to zero length or create file for writing.
fp = fopen("c:\\temp\\my_file.pdf","wb");
//Set the parameter size large enough to save the data.
web_set_max_html_param_len("200000");
//Use web_reg_save_param with the correct boundary to
capture the data returned by the server.
web_reg_save_param
("FILED","LB=","RB=","Search=Body",LAST);
web_url("PDF",
"URL= http://www.trainingg.com/example/automate.pdf",
"TargetFrame=",
"Resource=0",
"RecContentType=application/pdf",
"Referer= http://www.trainingg.com/example.html",
"Snapshot=t2.inf",
"Mode=HTML",
LAST);
//Get the download size.
lr_eval_string_ext("{FILED}", strlen("{FILED}"), &data,
&prmLen, 0, 0, -1);
//Write the data saved to an output file.
fwrite(data, prmLen, 1, fp);
//Close the file pointer.
fclose(fp);
Is This Answer Correct ? | 0 Yes | 6 No |
what is the difference between development and testing
How to open an application through scripting?
How did u write macros?What is the main importance of VB macros in testing environment?
Whenever we r keeping mouse pointer under the image we r getting image name. In qtp how can we do this thing.weather that name is coming or not?
What is the difference between driver-script and AOM-script?
What is quicktest professional (qtp)?
Tell about descriptive programing in qtp8.2?
WHAT ARE THE DISADVANTAGES OF SHARED REPOSITORY?
1. Can anyone help me with recovery scenarios, each type with examples and also what is on error resume next?
how to identify an object which is not in the object repository identification can be done using descriptive programming.
i have asked earlier only one question how to test web application using QTp plz send me the answer quickly
Explain sub procedure of vbscript.