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
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