Imports System.Text
Imports System.Net
Imports System.IO
+Imports System.Diagnostics
'''<summary>
'''BASIC認証を使用するHTTP通信
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me, code, content)
+ Dim frame As New StackFrame(1)
+ callback(frame.GetMethod.Name, code, content)
End If
Return code
End Function
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me, code, content)
+ Dim frame As New StackFrame(1)
+ callback(frame.GetMethod.Name, code, content)
End If
Return code
End Function
Imports System.IO
Imports System.Text
Imports System.Security
+Imports System.Diagnostics
'''<summary>
'''OAuth認証を使用するHTTP通信。HMAC-SHA1固定
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me, code, content)
+ Dim frame As New StackFrame(1)
+ callback(frame.GetMethod.Name, code, content)
End If
Return code
End Function
code = GetResponse(webReq, content, headerInfo, False)
End If
If callback IsNot Nothing Then
- callback(Me, code, content)
+ Dim frame As New StackFrame(1)
+ callback(frame.GetMethod.Name, code, content)
End If
Return code
End Function