Сайт о горячих клавишах.





сокращение ссылок








Сокращение ссылок(Edit)

Прощще всего ребята сокращать ссылки чем-то удобным и Виндовым. Но таких софтин горох наплакал.

сокращение ссылок - вещь необходимая, сокращалок сервисов полно. Сервисы сокращают отлично, а вот софта нет, Софт для сокращения ссылок отсутствует в природе, поэтому я решил поправить эту ситуацию и выпустить на волю свой софт для сокращения ссылок. Софт отличается от интернет сервиса тем что его можно посадить на горячие клавиши и использовать уже как надо, Интернет еще не так могуч чтобы можно было сервисы вещать на горячие клавиши, а вот софт умеет, и поэтому вы сможете делать сокращение ссылок не открывая браузера, или не заходя на поганые страницы.

сервис сокращения ссылок - bit.ly, через него я сокращаю ссылки.

сокращение ссылок в твитере - вообще происходит с недавнего времени автоматически, поэтому сокращать тексты в твиттере отпадает вообще.

Ну дак вот собственно скрипт на AutoHotKey, который сокращает ссылку нажатием Win+E. При этом ссылка должна быть скопирована в Буфер. И результат так же окажется в буфере. Чтобы вы не путались в том что сократилась ссылка или нет - показывается окошечко с новой ссылкой и все.

Все очень прекрасно.

Вот скрипт:

  1. SingleInstance force

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

}
  1. sc012:: ;
    Win+E

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]

Не нашли нужную информацию, не расстраивайтесь, наберите то что вы ищите в форму для поиска, скорее всего оно уже где-то валяется, и мы легко вам поможем найти это.

 



Edit

Яндекс.Метрика
jAntivirus