'''<summary>
'''OAuthのコンシューマー鍵
'''</summary>
- Private Const ConsumerKey As String = "iOQHfiCUsyOyamW8JJ8jg"
+ Private Const ConsumerKey As String = "tLbG3uS0BIIE8jm1mKzKOfZ6EgUOmWVM"
'''<summary>
'''OAuthの署名作成用秘密コンシューマーデータ
'''</summary>
- Private Const ConsumerSecret As String = "5PS2oa5f2VaKMPrlZa7DTbz0aFULKd3Ojxqgsm142Dw"
-
+ Private Const ConsumerSecret As String = "M0IMsbl2722iWa+CGPVcNeQmE+TFpJk8B/KW9UUTk3eLOl9Ij005r52JNxVukTzM"
'''<summary>
'''OAuthのアクセストークン取得先URI
'''</summary>
tks = accessTokenSecret
un = username
End If
- con.Initialize(ConsumerKey, ConsumerSecret, accessToken, accessTokenSecret, username, "screen_name")
+ con.Initialize(DecryptString(ConsumerKey), DecryptString(ConsumerSecret), accessToken, accessTokenSecret, username, "screen_name")
httpCon = con
connectionType = AuthMethod.OAuth
End Sub
'''<summary>
'''OAuthのコンシューマー鍵
'''</summary>
- Private Const ConsumerKey As String = "iOQHfiCUsyOyamW8JJ8jg"
+ Private Const ConsumerKey As String = "tLbG3uS0BIIE8jm1mKzKOfZ6EgUOmWVM"
'''<summary>
'''OAuthの署名作成用秘密コンシューマーデータ
'''</summary>
- Private Const ConsumerSecretKey As String = "5PS2oa5f2VaKMPrlZa7DTbz0aFULKd3Ojxqgsm142Dw"
+ Private Const ConsumerSecretKey As String = "M0IMsbl2722iWa+CGPVcNeQmE+TFpJk8B/KW9UUTk3eLOl9Ij005r52JNxVukTzM"
Private Const PostMethod As String = "POST"
Private Const GetMethod As String = "GET"
Public Sub New(ByVal accessToken As String, ByVal accessTokenSecret As String)
MyBase.New(New Uri("http://api.twitter.com/"), _
New Uri("https://api.twitter.com/1/account/verify_credentials.json"))
- Initialize(ConsumerKey, ConsumerSecretKey, accessToken, accessTokenSecret, "")
+ Initialize(DecryptString(ConsumerKey), DecryptString(ConsumerSecretKey), accessToken, accessTokenSecret, "")
End Sub
End Class
'''<summary>
'''OAuthのコンシューマー鍵
'''</summary>
- Private Const ConsumerKey As String = "iOQHfiCUsyOyamW8JJ8jg"
+ Private Const ConsumerKey As String = "tLbG3uS0BIIE8jm1mKzKOfZ6EgUOmWVM"
'''<summary>
'''OAuthの署名作成用秘密コンシューマーデータ
'''</summary>
- Private Const ConsumerSecretKey As String = "5PS2oa5f2VaKMPrlZa7DTbz0aFULKd3Ojxqgsm142Dw"
+ Private Const ConsumerSecretKey As String = "M0IMsbl2722iWa+CGPVcNeQmE+TFpJk8B/KW9UUTk3eLOl9Ij005r52JNxVukTzM"
Private Const PostMethod As String = "POST"
Private Const GetMethod As String = "GET"
Public Sub New(ByVal accessToken As String, ByVal accessTokenSecret As String)
MyBase.New(New Uri("http://api.twitter.com/"), _
New Uri("https://api.twitter.com/1/account/verify_credentials.json"))
- Initialize(ConsumerKey, ConsumerSecretKey, accessToken, accessTokenSecret, "")
+ Initialize(DecryptString(ConsumerKey), DecryptString(ConsumerSecretKey), accessToken, accessTokenSecret, "")
End Sub
End Class
'''<summary>
'''OAuthのコンシューマー鍵
'''</summary>
- Private Const ConsumerKey As String = "iOQHfiCUsyOyamW8JJ8jg"
+ Private Const ConsumerKey As String = "tLbG3uS0BIIE8jm1mKzKOfZ6EgUOmWVM"
'''<summary>
'''OAuthの署名作成用秘密コンシューマーデータ
'''</summary>
- Private Const ConsumerSecretKey As String = "5PS2oa5f2VaKMPrlZa7DTbz0aFULKd3Ojxqgsm142Dw"
+ Private Const ConsumerSecretKey As String = "M0IMsbl2722iWa+CGPVcNeQmE+TFpJk8B/KW9UUTk3eLOl9Ij005r52JNxVukTzM"
Private Const PostMethod As String = "POST"
Private Const GetMethod As String = "GET"
Public Sub New(ByVal accessToken As String, ByVal accessTokenSecret As String)
MyBase.New(New Uri("http://api.twitter.com/"), _
New Uri("https://api.twitter.com/1/account/verify_credentials.xml"))
- Initialize(ConsumerKey, ConsumerSecretKey, accessToken, accessTokenSecret, "")
+ Initialize(DecryptString(ConsumerKey), DecryptString(ConsumerSecretKey), accessToken, accessTokenSecret, "")
End Sub
End Class
End If
'その他のリンク(@IDなど)を置き換える
- status = Regex.Replace(status, "@<a target=""_self"" href=""https?://twitter.com/(#!/)?(?<url>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "${url}")
+ status = Regex.Replace(status, "@<a target=""_self"" href=""https?://twitter.com/(#!/)?(?<url>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "@${url}")
'ハッシュタグ
status = Regex.Replace(status, "<a target=""_self"" href=""(?<url>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "${link}")
'<br>タグ除去
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
<CodeAnalysisIgnoreBuiltInRuleSets>false</CodeAnalysisIgnoreBuiltInRuleSets>
<CodeAnalysisIgnoreBuiltInRules>false</CodeAnalysisIgnoreBuiltInRules>
+ <DefineConstants>
+ </DefineConstants>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
<DebugSymbols>true</DebugSymbols>
Exit Sub
ElseIf xElm.Element("event") IsNot Nothing Then
Debug.Print("event: " + xElm.Element("event").Value)
- If Array.IndexOf(EventNameTable, xElm.Element("event").Name.LocalName) = -1 Then
- TraceOut("Unknown Event:" + xElm.Element("event").Name.LocalName + Environment.NewLine + line)
+ If Array.IndexOf(EventNameTable, xElm.Element("event").Value) = -1 Then
+ TraceOut("Unknown Event:" + xElm.Element("event").Value + Environment.NewLine + line)
End If
Exit Sub
ElseIf xElm.Element("direct_message") IsNot Nothing Then