B4J Question thread post request

slo001

Member
hi
My codes are like this:

B4X:
    listip = File.ReadList(File.DirAssets, "ip.txt")
    For i = 0 To listip.Size - 1
        get( listip.Get(i))
    Next
    
    Sub get(ip As String)
    Log(ip)
    htreq.PostString($"http://${ip}:123/login?username=admin&password=admin"$,"username=admin&password=admin")
    htreq.GetRequest.SetContentType("application/x-www-form-urlencoded")
    htreq.GetRequest.SetHeader("Proxy-Connection","keep-alive")
    htreq.GetRequest.SetHeader("Accept"," application/json, text/plain, */*")
    htreq.GetRequest.SetHeader("X-Requested-With","XMLHttpRequest")
    htreq.GetRequest.SetHeader("User-Agent","Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/107.0.0.0 Safari/537.36")
    htreq.GetRequest.SetHeader("Accept-Language","en,fa;q=0.9,en-US;q=0.8,tr;q=0.7,zh-CN;q=0.6,zh;q=0.5")
    htreq.GetRequest.SetHeader("Accept-Encoding","gzip, deflate")
    Wait For (htreq) JobDone(j As HttpJob)
    Log(j.GetString)
End Sub


I want to make the requests take turns
as thread
 
Top