is.gd URL Shortener

[autoit]

;#####################################################
;# Name...........: is.gd Shortener #
;# Autor..........: Blume #
;# AutoIt-Version.: v3.3.6.1 #
;# Kontakt........: PM : (http://www.autoit.de)(Blume) #
;# eMail: ([email='dp95@live.de'][/email]) #
;# URL: (http://www.lzma.de/) #
;# Beschreibung...: #
;# #
;# Kompromiert eine URL mittels der is.gd API #
;#####################################################

[/autoit] [autoit][/autoit] [autoit]

;# Compiler-Befehle
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

;# Includes
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

;# Global/Const
Global Const $sAPIUrl = "http://is.gd/api.php?longurl="

[/autoit] [autoit][/autoit] [autoit]

;# Gui
$hMain_Gui_Gui = GUICreate("is.gd Shortener", 321, 96, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
GUICtrlCreateGroup("URL", 8, 8, 305, 49)
$hMain_Input_URL = GUICtrlCreateInput("", 16, 24, 289, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$hMain_Button_Make = GUICtrlCreateButton("Verkleinern", 8, 64, 75, 25, $WS_GROUP)
$hMain_Input_ShortURL = GUICtrlCreateInput("Auf 'Verkleinern' klicken", 88, 64, 225, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

;# MainLoop
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hMain_Button_Make
GUICtrlSetData($hMain_Input_ShortURL, _MakeShortUrl(GUICtrlRead($hMain_Input_URL)))
GUICtrlSetColor(-1, 0x00AA00)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _MakeShortUrl($sLongUrl = "")
Return BinaryToString(InetRead($sAPIUrl & $sLongUrl))
EndFunc

[/autoit]