$proxy_list_path = "proxy.txt"
$proxy_list = @(Get-Content -Path $proxy_list_path)

ForEach ($proxy in $proxy_list) {

  $max_running_jobs = 10

  $running = @(Get-Job | Where-Object { $_.State -eq 'Running' })
  if ($running.Count -ge $max_running_jobs) {
    $running | Wait-Job -Any | Out-Null
  }

  Write-Host $proxy
  Start-Job -Init ([ScriptBlock]::Create("Set-Location '$pwd'")) -ArgumentList $proxy {

    param($proxy)

    $proxy_protocol = "socks4"
    $user_agent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.81 Safari/537.36"
    $connect_timeout = 20 #seconds
    $model_name = "model"
    $curl_exe = "curl.exe"

    switch ($proxy_protocol) {
      "socks4" {$proxy_with_prefix = "socks4://" + $proxy}
      "socks4a" {$proxy_with_prefix = "socks4a://" + $proxy}
      "socks5" {$proxy_with_prefix = "socks5://" + $proxy}
      "socks5h" {$proxy_with_prefix = "socks5h://" + $proxy}
      Default {$proxy_with_prefix = $proxy}
    }

    $curlArguments = "--silent", 
                     "--user-agent", "$user_agent", 
                     "--proxy", "$proxy_with_prefix", 
                     "--connect-timeout", "$connect_timeout", 
                     "--write-out", "%{content_type}", 
                     "--output", "nul", 
                     "--url", "https://chaturbate.com/api/chatvideocontext/$model_name/"

    $content_type = & $curl_exe @curlArguments

    if ($content_type -eq "application/json") {
      $proxy | Out-File -Append "proxy-ok.txt"
    }

  } | Out-Null

}

Get-Job | Remove-Job -Force

Read-Host -Prompt "Press Enter to exit"