5个回答
展开全部
Function PostB(ByVal TextTemp As String, ByVal DelayTemp As Integer, ByVal RequestDataTemp As IService1.RequestData) As IService1.ResponseData Implements IService1.PostB ', ByVal RequestDataTemp As IService1.RequestData
SyncLock PostBLock
Dim PostBCallsNumberAllTemp As Integer = PostBCallsNumberAll
Dim PostBCallsNumberMeTemp As Integer = PostBCallsNumberMe
Threading.Thread.Sleep(DelayTemp)
PostBCallsNumberAll = PostBCallsNumberAllTemp + 1
PostBCallsNumberMe = PostBCallsNumberMeTemp + 1
Dim ResponseDataTemp As New IService1.ResponseData
With ResponseDataTemp
.ID = "PostB调用: 会话" & PostBCallsNumberMe.ToString & "次 , 全局" & PostBCallsNumberAll.ToString & "次. UserText:" & TextTemp & " , " & DelayTemp
.UserName = RequestDataTemp.UserName
.Password = RequestDataTemp.Password
.Job = "ThisJob"
.Age = 30
.Brithday = Now
End With
Return ResponseDataTemp
End SyncLock
End Function
SyncLock PostBLock
Dim PostBCallsNumberAllTemp As Integer = PostBCallsNumberAll
Dim PostBCallsNumberMeTemp As Integer = PostBCallsNumberMe
Threading.Thread.Sleep(DelayTemp)
PostBCallsNumberAll = PostBCallsNumberAllTemp + 1
PostBCallsNumberMe = PostBCallsNumberMeTemp + 1
Dim ResponseDataTemp As New IService1.ResponseData
With ResponseDataTemp
.ID = "PostB调用: 会话" & PostBCallsNumberMe.ToString & "次 , 全局" & PostBCallsNumberAll.ToString & "次. UserText:" & TextTemp & " , " & DelayTemp
.UserName = RequestDataTemp.UserName
.Password = RequestDataTemp.Password
.Job = "ThisJob"
.Age = 30
.Brithday = Now
End With
Return ResponseDataTemp
End SyncLock
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2021-03-05
展开全部
题目是反的。。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
为啥题目是反的。。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询