Рассчитать время Unix в цикле

Question

Я делаю эти циклы веб-запросов, и мне нужно отслеживать время (unix time), прошедшее с момента первого запроса. Например:

    Dim post1 String = "http://www.xxx.com/......" & UnixTimeNow1stCall & "......"
    Dim postReq1 As HttpWebRequest = DirectCast(WebRequest.Create(post1), HttpWebRequest)

    Dim post2 String = "http://www.xxx.com/......" & UnixTimeElasped1stCall& "......"
    Dim postReq2 As HttpWebRequest = DirectCast(WebRequest.Create(post2), HttpWebRequest)


    Dim post3 String = "http://www.xxx.com/......" & UnixTimeElasped1stCall& "......"
    Dim postReq3 As HttpWebRequest = DirectCast(WebRequest.Create(post3), HttpWebRequest)

*LOOP again*

И так далее. Другими словами, мне нужно заблокировать текущее время Unix при первом вызове, и всякий раз, когда я звоню позже (через 10 секунд), мне нужно, чтобы он ссылался на этот первый вызов.

Используя это, чтобы вычислить текущее время Unix:

Открытая функция UnixNow() As Long

    Dim _TimeSpan As TimeSpan = (DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0))

    Return CLng(_TimeSpan.TotalSeconds)

End Function

Всякий раз, когда я вызываю UnixTime, отображается текущее время, поэтому результат всегда равен 0. Любые намеки?

Answer 1

Конечно, UnixNow всегда даст вам текущее время...

Сохраните и вычислите разницу

Dim unixTimeFirstRequest Long = UnixNow()
Dim post1 String = "http://www.xxx.com/......" & unixTimeFirstRequest & "......"
Dim postReq1 As HttpWebRequest = DirectCast(WebRequest.Create(post1), HttpWebRequest)

Dim post2 String = "http://www.xxx.com/......" & UnixNow() - unixTimeFirstRequest & "......"
Dim postReq2 As HttpWebRequest = DirectCast(WebRequest.Create(post2), HttpWebRequest)


Dim post3 String = "http://www.xxx.com/......" & UnixNow() - unixTimeFirstRequest & "......"
Dim postReq3 As HttpWebRequest = DirectCast(WebRequest.Create(post3), HttpWebRequest)