Sign In
Create Account
Last active: Apr 23 2007 02:58 PM/*
AutoHotkey Version: 1.0.47.06
Sprache: English
Plattform: WIN_XP
Author: tic/(and ~2% BoBoCode)
Credits: The script is up to 100% based on what has been puplished within this thread: "GDI+ standard library 1.20 by tic" ...
which you might want to check out here: http://www.autohotkey.com/forum/topic32238.html
Script Funktion: Creation of two screenshoots ('The Bundle') in one go.
One image is created in its original size, the second is getting 'thumbnailed'.
Both screenshoots will be uploaded to autohotkey.net (configurable) using standard FTP .
Window- as well as Screen-shoots are supported.
Additionaly a BBCodeLink will be created at the clipboard (eg. to be used at a forum afterwards).
That BBCodeLink will offer the option to drop a 'clickable Thumbnail' at a forum, linked to the original image
eg. on autohotkey.net
Using thumbnails instead of original sized images should speed up the loading of forum posts, and prevents users from posting
'Wallpaper'-sized images which impacts the readability of threads.
Handling: Using the Hotkey (here SHIFT+PrintScreen), two screenshoots will be created at the scripts current directory.
The BBCodeLink is created at the clipboard to be used at a forum.
Requirements: the AHK Gdi+ library (linked below).
to edit the path which defines the BBCOde-Links destination target (as mentioned below)
*/
#NoEnv
#SingleInstance, Force
#Include, Gdip.ahk ; Download: https://ahknet.autohotkey.com/~tic/Gdip.ahk
SetBatchLines, -1
MyAHKNetUserName := "MyUsername"
MyAHKNetPassword := "MyPassword"
MyAHKNetUploadDir := "MyDirectory"
MyAHKNetFTPPath := "autohotkey.net"
MyAHKNetPath := "https://ahknet.autohotkey.com"
If !pToken := Gdip_Startup()
{
MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
ExitApp
}
OnExit, Exit
+PrintScreen:: ; press SHIFT+Printscreen
MyAHKNetPath := MyAHKNetPath "/~" MyAHKNetUserName "/" MyAHKNetUploadDir
FileName := SaveScreen(1.00,"png","Window") ; create screenshot (original size).
Sleep, 750
FileNameThumb := SaveScreen(0.33,"png","Window") ; shrink screenshot with a rate of 33/100 %, to create its thumbnail.
ClipBoard := "[url=" MyAHKNetPath "/" FileName ".png][img]" MyAHKNetPath "/" FileNameThumb ".png[/img][/url]" ; create BBCodeLink
Upload(FileName
, FileNameThumb
, MyAHKNetUserName
, MyAHKNetPassword
, MyAHKNetUploadDir
, MyAHKNetFTPPath)
Return
Return
SaveScreen(Size,FileType,Type)
{
WinGetPos, X, Y, W, H, A
If (Type = "Window") {
pBitmap := Gdip_BitmapFromScreen(X "|" Y "|" W "|" H)
FileName := "Window_" A_Now
} Else {
pBitmap := Gdip_BitmapFromScreen()
FileName := "Screen_" A_Now
}
Width := Gdip_GetImageWidth(pBitmap), Height := Gdip_GetImageHeight(pBitmap)
PBitmapResized := Gdip_CreateBitmap(Round(Width*Size), Round(Height*Size)), G := Gdip_GraphicsFromImage(pBitmapResized)
Gdip_SetInterpolationMode(G, 7)
Gdip_DrawImage(G, pBitmap, 0, 0, Round(Width*Size), Round(Height*Size), 0, 0, Width, Height)
Gdip_SaveBitmapToFile(PBitmapResized, A_ScriptDir "\" FileName "." FileType)
Gdip_DeleteGraphics(G), Gdip_DisposeImage(pBitmapResized)
Gdip_DisposeImage(pBitmap)
Return (FileName)
}
Upload(FileName,FileNameThumb,MyAHKNetUserName,MyAHKNetPassword,MyAHKNetUploadDir,MyAHKNetFTPPath) {
FileDelete, FSB.ftp
FileAppend,
(LTrim
open %MyAHKNetFTPPath%
%MyAHKNetUserName%
%MyAHKNetPassword%
binary
cd %MyAHKNetUploadDir%
put %FileName%.png
put %FileNameThumb%.png
quit
), FSB.ftp
ToolTip, Upload to %MyAHKNetFTPPath% ...
RunWait, cmd /c ftp -s:FSB.ftp >> FSB.log,, Hide
SoundBeep
ToolTip Transfer completed. Bye!
Sleep, 500
ToolTip
FileAppend, `n`n%ClipBoard%`n`n`t------`n`n, FSB.log ; add the BBCode-Link as additional reference to the FTP logfile.
Return
}
!l::Run, FSB.log ; press ALT+L if you want to check the FTP logfile
!a::Run, %MyAHKNetPath% ; press ALT+A to visit autohotkey.net
Exit:
Gdip_Shutdown(pToken)
ExitApp
ReturnMight come handy if it comes to create 'clickable-forum-thumbnail-images' like this (without to use imageshack&friends):
Feel free to comment, as ~98,99 % of the code is tic's! So I will blame him - on your behalf :D10/09/2008 - New. Script provides the upload of the created screenshots to autohotkey.net (host configurable) using FTPs basic functionality .
derRaphael posted an alternative script (see below) using his httpQuery function for the file transfer.
Wanna flame me? Send your mail to: <!-- e --><a href="mailto:[email protected]">[email protected]</a><!-- e --> 8) - Not enough pain? What about to check out [FSC] now ?? :wink:
Keywords: thumbnail - screenshot - GDI+ - gdiplus - BB Code - phpBB - BoBo - BoBo² - capture - grep - autohotkey.net - tic - imageshack
Back to top
