Сайт о горячих клавишах.
сокращение ссылокСокращение ссылок(Edit)Прощще всего ребята сокращать ссылки чем-то удобным и Виндовым. Но таких софтин горох наплакал. сокращение ссылок - вещь необходимая, сокращалок сервисов полно. Сервисы сокращают отлично, а вот софта нет, Софт для сокращения ссылок отсутствует в природе, поэтому я решил поправить эту ситуацию и выпустить на волю свой софт для сокращения ссылок. Софт отличается от интернет сервиса тем что его можно посадить на горячие клавиши и использовать уже как надо, Интернет еще не так могуч чтобы можно было сервисы вещать на горячие клавиши, а вот софт умеет, и поэтому вы сможете делать сокращение ссылок не открывая браузера, или не заходя на поганые страницы. сервис сокращения ссылок - bit.ly, через него я сокращаю ссылки. сокращение ссылок в твитере - вообще происходит с недавнего времени автоматически, поэтому сокращать тексты в твиттере отпадает вообще. Ну дак вот собственно скрипт на AutoHotKey, который сокращает ссылку нажатием Win+E. При этом ссылка должна быть скопирована в Буфер. И результат так же окажется в буфере. Чтобы вы не путались в том что сократилась ссылка или нет - показывается окошечко с новой ссылкой и все. Все очень прекрасно. Вот скрипт:
uriEncode(str) { ; v 0.3 / (w) 24.06.2008 by derRaphael / zLib-Style release b_Format := A_FormatInteger data := "" SetFormat,Integer,H Loop,Parse,str if ((Asc(A_LoopField)>0x7f) | (Asc(A_LoopField)<0x30) || (asc(A_LoopField)=0x3d)) data .= "%" . ((StrLen(c:=SubStr(ASC(A_LoopField),3))<2) ? "0" . c : c) Else data .= A_LoopField SetFormat,Integer,%b_format% return data }uriDecode(str) { ; v 0.1 / (w) 28.06.2008 by derRaphael / zLib-Style release Loop,Parse,str,`% txt := (A_Index=1) ? A_LoopField : txt chr("0x" substr(A_LoopField,1,2)) SubStr(A_LoopField,3) return txt }
file := "C:\bitly.html" source := clipboard s1 := "http://api.bit.ly/v3/shorten?login=jkeks&apiKey=R_520a7f8c5cf29fd91beb144cc6ee3d5a&longUrl=" S2 := "&format=txt" source := % uriEncode(source) source = %s1%%source%%s2% FileDelete, %file% UrlDownloadToFile, %source%, %file% FileRead, InPut, %file% StringTrimRight, InPut, InPut, 1 if InPut <> INVALID_URI clipboard = %InPut% MsgBox %InPut% return Внимание для любителей сокращать ссылки(Edit)Всем кто офигел от исходника и является лентяем, предлагаю купить эту программку в откомпилированном виде всего за 3$. [http://citymobi.ru/pay.php?id_d=1153836]
|
|
||||||
