作者wait999 (-.-)
看板EzHotKey
標題[-AI-] 縮寫網址還原
時間Mon Aug 24 13:42:58 2009
看到版上在比較 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
1F：推 lindo0130:AHK好像沒有switch case功能 08/25 14:08
2F：推 MikageLin:AHK只有IF的樣子. >"< 09/09 02:43