<job id="nico">
<script language="VBScript">
Option Explicit
Dim wsh,oExec,strClip
Set wsh = WScript.CreateObject("WScript.Shell")
Set oExec =wsh.Exec("%ComSpec% /c <nul PowerShell -command ""[void][Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms');$textbox=new-object System.Windows.Forms.TextBox;$textbox.Multiline=$true;$textbox.Paste();write-output $textbox.Text""")
strClip = Replace(oExec.StdOut.ReadAll,vbCrLf,"")
</script>
<script language="JavaScript">
var inputurl = decodeURIComponent(strClip);
</script>
<script language="VBScript">
If InStr(strClip,"http://") <> 0 Then
Else
Call MsgBox("¥¯¥ê¥Ã¥×¥Ü¡¼¥É¤ËURL¤ò´Þ¤ó¤Àʸ»úÎó¤ò¥³¥Ô¡¼¤·¤Æ¤¯¤À¤µ¤¤",vbOkOnly + vbExclamation,"¥¨¥é¡¼")
WScript.Quit
End If
Dim msg,regEx
Set regEx = New RegExp
If InStr(inputurl,"http://twitter.com/share") <> 0 Then 'Ä̾ï¤Îɽµ¤ËÊÑ´¹
regEx.Pattern = ".+?counturl=(http://.+?nicovideo.jp/.+?/.+?\d+?)&text=(.+?)&url=(http://.+?)"
url = regEx.Replace(inputurl,"$2 $3") '$1¤¬Ä̾ï¤ÎURL¡¢$3¤¬nico.ms¤ÎURL
regEx.Pattern = "http://twitter.com/.+?counturl=(.+)"
inputurl = regEx.Replace(inputurl,"$1")
If InStr(url,"#nicovideo") <> 0 Then '¥Ë¥³¥Ë¥³Æ°²è¤Î»þ´Ö¤È¥Ï¥Ã¥·¥å¥¿¥°¤Ê¤·
regEx.Pattern = "(.*?)\(\d+?:\d\d\) #.+? (http://.+)"
msg = regEx.Replace(url,"$1$2")
success
End If
If InStr(url,"#nicoch") <> 0 Then '¥Ë¥³¥Ë¥³¥Á¥ã¥ó¥Í¥ë¤Î»þ´Ö¤È¥Ï¥Ã¥·¥å¥¿¥°¤Ê¤·¤Ç¥Á¥ã¥ó¥Í¥ëÍѤÎû½ÌURL
regEx.Pattern = "(.*?)\(\d+?:\d\d\) #nicoch #(.+?\d+?) http://.+"
msg = regEx.Replace(url,"$1http://nico.ms/$2")
success
End If
Else
url = inputurl
End If
If InStr(url,"nicovideo.jp/") <> 0 Then 'nico.ms¤ËÊÑ´¹
regEx.Pattern = "(.*?)http://.+?nicovideo.jp/.+?/(.+?\d+?)(.*?)"
msg = regEx.Replace(url,"$1http://nico.ms/$2$3")
success
End If
If InStr(url,"#nicovideo") <> 0 Then '¥Ë¥³¥Ë¥³Æ°²è¤Î»þ´Ö¤È¥Ï¥Ã¥·¥å¥¿¥°¤Ê¤·
regEx.Pattern = "(.*?)\(\d+?:\d\d\) #nicovideo #(.+?\d+?) http://t.co/.+"
msg = regEx.Replace(url,"$1http://nico.ms/$2")
success
End If
If InStr(url,"#nico") <> 0 Then 't.co¤«¤énico.ms¤ËÊÑ´¹
regEx.Pattern = "(.*?)#nico(.+?) #(.+?\d+?) http://t.co/.+"
msg = regEx.Replace(url,"$1http://nico.ms/$3 #nico$2 #$3")
success
End If
If InStr(url,"http://www.youtube") <> 0 Then 'youtu.be¤ËÊÑ´¹
If InStr(url,"&") <> 0 Then
msg = Left(url,InStr(url,"&")-1)
Else
msg = url
End If
regEx.Pattern = "(.*?)http://www.youtube.com/watch\?v=(.+?)"
msg = regEx.Replace(msg,"$1http://youtu.be/$2")
success
End If
Sub success
msg = InputBox(inputurl & vbCrLf & vbCrLf & "¤«¤é°Ê²¼¤Î¤è¤¦¤ËÊÑ´¹¤·¤Þ¤·¤¿","URLû½Ì",msg)
WScript.Quit
End Sub
Call MsgBox(inputurl & vbCrLf & vbCrLf & "¤ÏÊÑ´¹¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿",vbOkOnly + vbExclamation,"¥¨¥é¡¼")
</script>
</job> |