XIncludeFile "RW_LibCurl_Inc.pb"
If InitNetwork() = 0
  MessageRequester("Ошибка", "Не могу инициализировать сеть!", 0)
  End
EndIf
OpenConsole()
OpenFile(0, ProgramParameter())
OpenFile(1, ProgramParameter())
Repeat
  i+1
  proxy.s = ReadString(0)
  curl  = curl_easy_init()
  RW_LibCurl_InitString()
  curl_easy_setopt(curl, #CURLOPT_URL, @"dronebl.org/ws/lookup")
  s.s = "ajax=1&ip="+StringField(proxy.s, 1, ":")
  ua.s = "Opera/9.80 (Windows NT 5.1; U; en) Presto/2.5.18 Version/10.50"
  curl_easy_setopt(curl, #CURLOPT_POSTFIELDS, @s.s)
  curl_easy_setopt(curl, #CURLOPT_USERAGENT, @ua)
  curl_easy_setopt(curl, #CURLOPT_TIMEOUT, 5)
  curl_easy_setopt(curl, #CURLOPT_REFERER, @"http://dronebl.org/lookup")
  curl_easy_setopt(curl, #CURLOPT_WRITEFUNCTION, @RW_LibCurl_WriteStrFunction())
  curl_easy_perform(curl)
  curl_easy_cleanup(curl)
  res.s = RW_LibCurl_GetString()
  If FindString(res, "No incidents", 1)
    WriteStringN(1, proxy.s)
    PrintN(Str(i) + " " + proxy.s + " No incidents")
    FlushFileBuffers(1)
  Else
    PrintN(Str(i) + " " + proxy.s + " Blacklisted")
  EndIf
Until Eof(0)
CloseFile(1)
CloseFile(0)
CloseConsole()