Hi,
You can use following code.....
'-----------------------------------------------Navigate to Site
------------------------------------------------------------------------------'
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate(strURL)
objExplorer.AddressBar = 1
objExplorer.Visible = 1
Do Until (objExplorer.readyState = 4)
wait 2
Loop
nLocationURL= objExplorer.LocationURL
objExplorer.Quit
'-------------------------------------------Gettting Response Code or
Message------------------------------------------------------'
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp.SetTimeouts lngTimeout, lngTimeout, lngTimeout,
lngTimeout
If Instr(1,strURL,"http",0) =0 Then
strURL="http://"&; strURL
objWinHttp.Open strMethod, strURL
Else
objWinHttp.Open strMethod, strURL
End If
If strMethod = "POST" Then
objWinHttp.setRequestHeader "Content-type", _
"application/x-www-form-urlencoded"
End If
If strHostOverride <> "" Then
objWinHttp.SetRequestHeader "Host", strHostOverride
End If
objWinHttp.Option(0) = strUserAgentString
objWinHttp.Option(4) = intSslErrorIgnoreFlags
objWinHttp.Option(6) = blnEnableRedirects
objWinHttp.Option(12) = blnEnableHttpsToHttpRedirects
On Error Resume Next
objWinHttp.Send(strPostData)
If Err.Number = 0 Then
If objWinHttp.Status = "200" Then
Print strURL &"Status ----------------------" & objWinHttp.Status
' GetDataFromURL = objWinHttp.ResponseText
Else
GetDataFromURL = "HTTP " & objWinHttp.Status & " " & _
objWinHttp.StatusText
End If
Else
GetDataFromURL = "Error " & Err.Number & " " & Err.Source & " " &
_
Err.Description
End If
On Error GoTo 0
Set objWinHttp = Nothing
End Function
Thanks,
NaveenKumar M S
On Jul 16, 10:38 pm, "Byzoor.,IAS" <[email protected]> wrote:
> Anand,
> I am not getting your point. could u explain little bit more
>
> Happy Tester,
> Byzoor,
>
>
>
> On Sat, Jul 16, 2011 at 8:47 PM, Mr. Anand <[email protected]> wrote:
> > Hi,
>
> > I think if we have QTP use for the above scenario, its all very
> > simple.
> > Data drive the test script by putting a checkpoint on the page. Write
> > the checkpoint's output parameter to the datasheet itself.
> > I hope thats pretty easy approach subject to availability of QTP.
> > However if you donot have QTP, you can still use some of the free
> > tools available in industrty
>
> > Regards,
>
> > articlesontesting.com
>
> > On Jul 16, 7:29 pm, "Byzoor.,IAS" <[email protected]> wrote:
> > > Hi ,
>
> > > After Getting the Cell value from excel sheet use this fn, it will update
> > > the value..
>
> > > 'To get value from Excel file
> > > Function GetData(ByVal strFilePath,ByVal strSearchText)
> > > Dim oWorkSheets
> > > Dim oExcel:Set oExcel=CreateObject("Excel.Application")
> > > oExcel.Visible=False
> > > oExcel.DisplayAlerts=False
> > > Set oWorkSheets=oExcel.WorkBooks.Open(strFilePath).WorkSheets(1)
>
> > GetData=oWorkSheets.Cells(Split(oWorkSheets.Range("A:A").Find(strSearchText
> > ).Address,"$")(2),2).Value
> > > oExcel.Quit
> > > Set oWorkSheets=Nothing
> > > Set oExcel=Nothing
> > > strFilePath=Empty
> > > strSearchText=Empty
> > > End Function
>
> > > 'To Write the value to Excel file
> > > Function WriteData(ByVal strFilePath,ByVal strID,ByVal strData)
> > > Dim oWorkSheets,inUsedCount
> > > Dim oExcel:Set oExcel=CreateObject("Excel.Application")
> > > oExcel.Visible=False
> > > oExcel.DisplayAlerts=False
> > > Set oWorkSheets=oExcel.WorkBooks.Open(strFilePath).WorkSheets(1)
> > > inUsedCount=oWorkSheets.UsedRange.Rows.Count
> > > oWorkSheets.Cells(inUsedCount+1,1).Value=strID
> > > oWorkSheets.Cells(inUsedCount+1,2).Value=strData
> > > oExcel.WorkBooks(1).Save
> > > oExcel.Quit
> > > Set oWorkSheets=Nothing
> > > Set oExcel=Nothing
> > > strFilePath=Empty
> > > End Function
>
> > > Function ExcelDtaIO(sXls,sSht,sRow,sFld,sDta)
> > > On Error Resume Next
> > > Dim objExcel, objWorkBook, objSheet
> > > Set objExcel = CreateObject("Excel.Application")
> > > Set objWorkBook = objExcel.Workbooks.Open(sXls)
> > > Set objSheet = objWorkBook.Worksheets(sSht)
>
> > > '*** Get column number based on field name ***
> > > CurCol = 1
> > > CurColNum = 0
> > > Do While Trim(objSheet.Cells(1, CurCol).Value) <> Empty
> > > CurCellVal = Trim(objSheet.Cells(1, CurCol).Value)
> > > If CurCellVal = sFld Then
> > > CurColNum = CurCol
> > > Exit Do
> > > End If
> > > CurCol = CurCol + 1
> > > Loop
>
> > > If sRow = "" Then
> > > sRow = DataTable.GetSheet(sSht).GetCurrentRow
> > > End If
>
> > > '*** Put to or Get from specific cell of current excel file ***
> > > If sDta <> Empty Then
> > > '*** Update specific cell of current excel file ***
> > > objSheet.Cells(sRow+1, CurColNum).Value = sDta
> > > objWorkBook.Save
> > > ExcelDtaIO = Empty
> > > Else
> > > ExcelDtaIO = Trim(objSheet.Cells(sRow+1, CurColNum).Value)
> > > End If
> > > objWorkBook.Close True
>
> > > '*** Destroy objects created by this fucntion ***
> > > Set objSheet = Nothing
> > > Set objWorkBook = Nothing
> > > Set objExcel = Nothing
>
> > > End Function
>
> > > Happy Tester,
> > > Byzoor,
>
> > > On Sat, Jul 16, 2011 at 8:03 AM, uma mahesh <[email protected]>
> > wrote:
> > > > IC Ok then you can use this code
>
> > > > Option Explicit
> > > > Dim var1, var2, var3, rc, i, agent, pass
> > > > Set var1=createobject("Excel.application")
> > > > Set var2=var1.workbooks.open("path of excel sheet")
> > > > Set var3=var2.worksheets("sheet1")
> > > > rc=var3.usedrange.columns.count ' this will give the no.of links
> > > > available in the coulmn
> > > > MsgBox rc
> > > > For i=1 to rc
> > > > link=var3.cells("1", i)
> > > > Next
>
> > > > --
> > > > You received this message because you are subscribed to the Google
> > > > "QTP - HP Quick Test Professional - Automated Software Testing"
> > > > group.
> > > > To post to this group, send email to [email protected]
> > > > To unsubscribe from this group, send email to
> > > > [email protected]
> > > > For more options, visit this group at
> > > >http://groups.google.com/group/MercuryQTP?hl=en
>
> > --
> > You received this message because you are subscribed to the Google
> > "QTP - HP Quick Test Professional - Automated Software Testing"
> > group.
> > To post to this group, send email to [email protected]
> > To unsubscribe from this group, send email to
> > [email protected]
> > For more options, visit this group at
> >http://groups.google.com/group/MercuryQTP?hl=en- Hide quoted text -
>
> - Show quoted text -
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
