[-AI-] 縮寫網址還原
看到版上在比較 AUTO 與 HOTKEY
這程式跟之前的功能一樣，這樣比較起來應該很清楚語法上的差別
附帶 GUI 版本 http://file2.ws/ezhotkey2
;AutoIt
;;; 程式這開始
HotKeySet("{F7}", "url")
Sleep(1000*60*600)
Func url()
$ck = ClipGet()
$len = StringLen($ck)
$hk = "http://"
Select
Case $len = 4
$ppt="ppt.cc/"
ClipPut($hk&$ppt&$ck)
Case $len = 5
$0rz="0rz.tw/"
ClipPut($hk&$0rz&$ck)
Case $len = 6
$tiny="tinyurl.com/"
ClipPut($hk&$tiny&$ck)
Case Else
if StringIsDigit($ck) = 1 Then
$bd= "http://www.badongo.com/file/"
ClipPut($bd&$ck)
Else
$mu= "http://www.megaupload.com/?d="
ClipPut($mu&$ck)
EndIf
EndSelect
EndFunc
;; 程式這裡結束
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.8.98.54
推
08/25 14:08, , 1F
08/25 14:08, 1F
推
09/09 02:43, , 2F
09/09 02:43, 2F