for nt systems only(2k, vista, xp etc)
http://kmeleon.swiftfree.net/files/tinyurlnt.7z
for 9x systems only(98, me)
http://kmeleon.swiftfree.net/files/tinyurl98.7z
generates tinyurl and automatically copies the short url to the clipboard for easy paste in twitter, forums etc
access from: tools(webservices)>tiny plus
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# ---------- tiny plus----------------------------
$_tool_path=getfolder(RootFolder)."\\Tools";
tinyplus{
#menugrayed=(hostname($URL)=="");
$tinyp = $URL;
$tinyp = prompt("This will get and copy TinyURL to the clipboard from the following address:", "Generate TinyUrl", $tinyp);
$tinyp == "" ? "" : exec($_tool_path."\\tinyplus.exe \t1ny.us/l.php?long=".$tinyp);
}
tinyplus_BuildMenu{
setmenu(WebServices,macro,"Tiny Plus",tinyplus);
}
$OnInit=$OnInit."tinyplus_BuildMenu;";
# ----------------------------------------------------
$macroModules=$macroModules."tinyplus;";
; AutoIt Version: 3.3.0
; Language: English
; Platform: Win9x/NT
; Author: yanni
#NoTrayIcon
#include <GUIConstantS E X.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>
#Include <Clipboard.au3>
$temper=(@TempDir & "\tinymade.txt")
InetGet($CmdlineRaw, $temper, 1, 0)
$gettiny=FileReadLine($temper, 1)
;MsgBox(4096, "Test", $gettiny, 10)
_ClipBoard_SetData($gettiny)
disptiny()
Func disptiny()
$tinypp = GUICreate("tinpee", 175, 48, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$label = GUICtrlCreateLabel("Tiny URL copied to clipboard:", 7, 4, 150, 20)
GUICtrlCreateInput ($gettiny, 7, 20 , 160 , 20 )
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
WinSetOnTop("tinpee", "", 1)
sleep(7422)
GUIDelete()
ExitLoop
WEnd
Exit
EndFunc
Edited 2 time(s). Last edit at 12/11/2010 12:57PM by disrupted.