ارسال درخواست به سرور (حل شد)

[DexterFstone 396]

سلام کد زیر نوشتم ولی جوابی نمیگیرم مشکل از چی میتونه باشه؟

	Dim j As HttpJob
	j.Initialize("j",Me)
	j.Download("*******************)
	Dim token As String = "***********"
	j.GetRequest.SetHeader("Authorization","Bearer "&token )
	Wait For (j) JobDone(j As HttpJob)
	If j.Success Then
		Log(j.GetString)
	End If
	j.Release

 

[DexterFstone 396]

خب ظاهرا باید ساب jobdone جدا قرار میدادم

Sub JobDone(j As HttpJob)
	If j.Success Then
		Log(j.GetString)
	End If
	j.Release
End Sub