#NoTrayIcon
#SingleInstance, Force
Gui +ToolWindow -Owner +E0x40000
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Add,GroupBox,x5 y5 w355 h50,URL:
Gui,Add,Edit,x13 y20 w345 vurl
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Add,GroupBox,x5 y65 w355 h50,Your short URL:
Gui,Add,Edit,w345 x13 y80 ReadOnly vShort
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Font,,Tahoma
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Add,GroupBox,y+20 w355 h55 x8,Service:
Gui,Add,Radio,x10 y138 vtinyurl Checked,TinyUrl.com
Gui,Add,Radio,x+3 vtrim,tr.im
Gui,Add,Radio,x+3 varmin,arm.in
Gui,Add,Radio,x+3 vi2h,i2h.de
Gui,Add,Radio,x+3 vshorten,shorten.ws
Gui,Add,Radio,x+3 visgd,is.gd
Gui,Add,Radio,x10 y+5 vShortUrlCom,ShortUrl.com
Gui,Add,Radio,x+1 vTubeURL,TubeURL.com
Gui,Add,Radio,x+1 vxr,xr.com
Gui,Add,Radio,x+1 vbitly,bit.ly
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Add,Checkbox, x10 y+10 vAuto,Create a copy in clipboard
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Gui,Add,Button,x115 y+5 gGo w60 Default,Create
Gui,Add,Button,x+4 gReset w60,Reset
Gui,Add,Button,x+4 gClipBoard w60,Clipboard
Gui,Add,Text,y200 x10 disabled, © www.xptricks.de
hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
OnMessage(0x200,"WM_MOUSEMOVE")
Gui,Show,w370 h220,ShortUrlMaker 1.2 English Edition
Return
~LButton::
MouseGetPos,,,,ctrl
IfWinNotActive,ShortUrlMaker 1.2 English Edition
Return
If ctrl in Static1
run,www.xptricks.de
Return
Reset:
GuiControl,,Short,
GuiControl,,Url,
Return
WM_MOUSEMOVE(wParam,lParam)
{
Global hCurs
MouseGetPos,,,,ctrl
If ctrl in Static1
DllCall("SetCursor","UInt",hCurs)
Return
}
ClipBoard:
GuiControlGet,clipboard,,Short
MsgBox,64,Info,Copied into clipboard! `;)
Return
GuiClose:
ExitApp
go:
Gui,Submit,NoHide
if url =
{
MsgBox,16,Error!,Please enter an URL!
Return
}
if (i2h){
chars := SubStr(url,1,4)
If chars != http
url = http://%url%
UseApi("http://api.i2h.de/v1/?url=" . url)
GuiControl,,Short,%su%
Return
}
if (armin){
UseApi("http://arm.in/arminize/" . url)
StringTrimLeft,su,su,78
StringGetPos,pos,su,</arminized_url>
StringLeft,su,su,%pos%
GuiControl,,Short,%su%
Return
}
if (trim){
UseApi("http://tr.im/api/trim_url.xml?url=" . url)
StringTrimLeft,su,su,115
StringGetPos,pos,su,</url>
StringLeft,su,su,%pos%
GuiControl,,Short,%su%
Return
}
if (tinyurl){
chars := SubStr(url,1,4)
If chars != http
url = http://%url%
UseApi("http://tinyurl.com/api-create.php?url=" . url)
GuiControl,,Short,%su%
Return
}
if (shorten){
chars := SubStr(url,1,4)
If chars != http
url = http://%url%
UseApi("http://shorten.ws/?module=ShortURL&file=Add&mode=API&url=" . url)
GuiControl,,Short,%su%
Return
}
if (isgd){
UseApi("http://is.gd/api.php?longurl=" . url)
GuiControl,,Short,%su%
}
if (ShortUrlCom){
UseApi("http://shorturl.com/make_shorturl.php?longurl=" . url)
StringGetPos,pos,su,<font size=1>[<a href=
StringTrimLeft,su,su,%pos%
StringGetPos,pos,su,%A_Space% target
StringLeft,su,su,%pos%
StringReplace,su,su,<font size=1>[<a href=,
GuiControl,,Short,%su%
}
if (TubeURL){
UseApi("http://tubeurl.com/?action=generate_url&url=" . url)
StringGetPos,pos,su,</strong>: <a href="
StringTrimLeft,su,su,%pos%
StringGetPos,pos,su,target="_blank"
StringLeft,su,su,%pos%
StringReplace,su,su,</strong>: <a href=",
StringReplace,su,su,"%A_Space%
GuiControl,,Short,%su%
}
if (xr){
Settimer,changebtn,50
MsgBox,35,Custom Tags,Do you wish to insert a custom Tag?
IfMsgBox Cancel
Return
Else IfMsgBox No
{
UseApi("http://api.xr.com/api?link=" . url)
StringSplit,link,su,`n
GuiControl,,Short,%link2%
}
Else
{
InputBox,customlink,Custom Tag,Please enter a name for your custom Tag!
if customlink =
Return
UseApi("http://api.xr.com/api?link=" . url "&custom=" . customlink )
GuiControl,,Short,%su%
}
}
if (bitly){
UseApi("http://api.bit.ly/shorten?version=2.0.1&longUrl=" . url "&login=bitlyapidemo&apiKey=R_0da49e0a9118ff35f52f629d2d71bf07&format=text")
GuiControl,,Short,%su%
}
if (Auto){
GuiControlGet,clipboard,,Short
}
Return
UseApi(api){
global
UrlDownloadToFile,%api%,%a_temp%\encrypted.dat
fileread,su,%a_temp%\encrypted.dat
FileDelete,%A_temp%\encrypted.dat
return su
}
changebtn:
IfWinNotExist, Custom Tags
return ; Keep waiting.
settimer,changebtn,off
ControlSetText, Button1, &Own Link
ControlSetText, Button2, &Random Link
Return
Login
Register
FAQ
Search
