作者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