Public Sub SubmitJob(job As HttpJob) As Int
taskCounter = taskCounter + 1
TaskIdToJob.Put(taskCounter, job)
If job.Username <> "" AND job.Password <> "" Then
hc.ExecuteCredentials(job.GetRequest, taskCounter, job.Username, job.Password)
Else
hc.Execute(job.GetRequest, taskCounter)
[B] OAuth.SetTokenWithSecret(Main.tokenKey, Main.tokenSecret)
OAuth.Sign(job.GetRequest)[/B]
End If
Return taskCounter
End Sub