ユーザー指定のURLで{STATUS}をステータスIDに置き換えるようにしてみた

diff --git a/Tween/AppendSettingDialog.resx b/Tween/AppendSettingDialog.resx
index 1f16437..47b997c 100644 (file)
--- a/Tween/AppendSettingDialog.resx
+++ b/Tween/AppendSettingDialog.resx
@@ -460,13 +460,13 @@
     <value>22, 203</value>
   </data>
   <data name="Label39.Size" type="System.Drawing.Size, System.Drawing">
-    <value>196, 12</value>
+    <value>401, 12</value>
   </data>
   <data name="Label39.TabIndex" type="System.Int32, mscorlib">
     <value>17</value>
   </data>
   <data name="Label39.Text" xml:space="preserve">
-    <value>ユーザー指定のURL({ID}を置き換えます)</value>
+    <value>ユーザー指定のURL({ID}をScreenNameに、{STATUS}をステータスIDに置き換えます)</value>
   </data>
   <data name="&gt;&gt;Label39.Name" xml:space="preserve">
     <value>Label39</value>

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index c5b26e2..52e56c0 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -10296,6 +10296,12 @@ RETRY:
                     xUrl = xUrl.Replace("{ID}", _curPost.ScreenName)
                     OpenUriAsync(xUrl)
                 End If
+            ElseIf SettingDialog.UserAppointUrl.Contains("{STATUS}") Then
+                If _curPost IsNot Nothing Then
+                    Dim xUrl As String = SettingDialog.UserAppointUrl
+                    xUrl = xUrl.Replace("{STATUS}", _curPost.StatusId.ToString)
+                    OpenUriAsync(xUrl)
+                End If
             Else
                 OpenUriAsync(SettingDialog.UserAppointUrl)
             End If