Quantcast
Channel: VBForums - ASP, VB Script
Viewing all articles
Browse latest Browse all 688

Batch Script to extract data from a website is that possible?? If yes help me

$
0
0
Hi All,

I need a batch script which will retrieve data from a webpage . The data is not constant.

If want any details let me know i tried using the inet

Option Explicit

Private Sub Command1_Click()
Dim url As String
Dim avgRstime As String
Dim tempStr As String
Dim i As Long
Dim p As Long

url = ""http://54.215.11.234:9080/controlcenter/monitor/operation/getSummary.do?domain=Production&application=Nike_APIProxy&service=Nike_Plus&endpoint=v2_me&addressTy pe=client&operation=sync""

tempStr = Inet1.OpenURL(url)

Do While Inet1.StillExecuting
DoEvents
Loop

i = InStr(tempStr, "<td class=""activeVersionLabel""><STRONG>Avg Resp Time (msec)</STRONG></td>")
i = i + Len("<td class=""activeVersionLabel""><STRONG>Avg Resp Time (msec)</STRONG></td>")
i = i + Len("<TD class=activeVersionLabel>")

p = InStr(i, tempStr, "</")
avgRstime = Mid(tempStr, i, p - i)

MsgBox "Avg Resp Time is " & avgRstime

End Sub


Please let me know ASAP

Viewing all articles
Browse latest Browse all 688

Trending Articles