AutoHotkey Community

Code: Select all

; Create Imgurl ClientID -- https://api.imgur.com/oauth2/addclient

UploadToImgur(FileName, ClientID = "fbf77ff49c42c8a") {
	return UploadToImgur.DoIt(FileName, ClientID)
}

Class UploadToImgur {

	DoIt(FileName, ClientID) {
		postData := this.FileToStream(FileName)
		header := {"Authorization": "Client-ID " ClientID}
		whr := this.Http("POST", "https://api.imgur.com/3/image",  postData, header)

		if RegExMatch(whr.ResponseText, """link"":""\K[^""]+", result) {
			return StrReplace(result, "\")
		} else {
			RegExMatch(whr.ResponseText, """error"":""\K[^""]+", errMsg)
			throw, errMsg ? errMsg : "Unkown Error"
		}
	}

	FileToStream(FileName) {
		ADO := ComObjCreate("ADODB.Stream")
		ADO.Type := 1 ; adTypeBinary
		ADO.Open()
		ADO.LoadFromFile(FileName)
		Stream := ADO.Read()
		ADO.Close()
		return Stream
	}

	Http(Method, Url, PostData="", Obj_Headers="") {
		whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
		whr.Open(Method, Url, "True")

		for k, v in Obj_Headers {
			whr.SetRequestHeader(k, v)
		}
		if (Method = "POST") && !Obj_Headers["Content-Type"] {
			whr.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
		}

		whr.Send(PostData)
		whr.WaitForResponse()
		return whr
	}
}

ImageFile := clipboard

try {
	result := UploadToImgur(ImageFile)
	MsgBox, 64, Upload Successful!, % result
} catch errMsg {
	MsgBox, 48, Error!, % errMsg
}

Code: Select all

#Include ImagePut.ahk ; https://www.autohotkey.com/boards/viewtopic.php?f=6&t=76301

MsgBox % Imgur_UploadFromClipboard()

Imgur_UploadFromClipboard(ClientID := "fbf77ff49c42c8a") {
	body := ClipImageToByteArray()

	whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	;whr.SetProxy(2, "localhost:1080")
	whr.Open("POST", "https://api.imgur.com/3/image", true)
	whr.SetRequestHeader("Authorization", "Client-ID " . ClientID)
	whr.Send(body)
	whr.WaitForResponse()

	if RegExMatch(whr.ResponseText, """link"":""\K[^""]+", result) {
		return StrReplace(result, "\")
	} else {
		RegExMatch(whr.ResponseText, """(message|error)"":""\K[^""]+", errMsg)
		throw errMsg ? errMsg : "Unkown Error"
	}
}

ClipImageToByteArray() {
	pStream := ImagePutStream(ClipboardAll)

	DllCall("ole32\GetHGlobalFromStream", "ptr",pStream, "uint*",hData)
	pData := DllCall("GlobalLock", "ptr",hData, "uptr")
	nSize := DllCall("GlobalSize", "uint",pData)

	safeArray := ComObjArray(0x11, nSize) ; Create SAFEARRAY = VT_ARRAY|VT_UI1
	pvData := NumGet(ComObjValue(safeArray) + 12 + (A_PtrSize==8 ? 4 : 0)) ; get pvData memeber
	DllCall("RtlMoveMemory", "ptr", pvData, "ptr", pData, "ptr", nSize)

	DllCall("GlobalUnlock", "ptr",hData)
	DllCall(NumGet(NumGet(pStream + 0, 0, "uptr") + (A_PtrSize * 2), 0, "uptr"), "ptr",pStream)
	DllCall("GlobalFree", "ptr",hData)
	ObjRelease(pStream)
	return safeArray
}

Code: Select all

Msgbox % UploadToImgur(clipboard)

; Image can be a filename, base64 or URL
UploadToImgur(Image, ClientID := "fbf77ff49c42c8a")
{
	if FileExist(Image) {
		FileGetSize size, %Image% ; get file size in bytes
		PostData := ComObjArray(0x11, size) ; Create SAFEARRAY = VT_ARRAY|VT_UI1
		pvData := NumGet(ComObjValue(PostData) + 12 + (A_PtrSize==8 ? 4 : 0)) ; get pvData memeber
		FileOpen(Image, "r").RawRead(pvData + 0, size) ; read raw data
	} else {
		PostData := Image
	}

	whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	whr.Open("POST", "https://api.imgur.com/3/image", true)
	whr.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
	whr.SetRequestHeader("Authorization", "Client-ID " ClientID)
	whr.Send(PostData)
	whr.WaitForResponse()

	if !RegExMatch(whr.ResponseText, """link"":""\K[^""]+", result) {
		RegExMatch(whr.ResponseText, """(message|error)"":""\K[^""]+", message)
		throw, message ? message : whr.ResponseText
	}
	return StrReplace(result, "\")
}

Code: Select all

MsgBox % UploadToImgur("C:\Stuff\Testing\126101.gif")

Code: Select all

ImgurUrl := UploadToImgur(clipboard)
Msgbox % ImgurUrl
FileAppend, % ImgurUrl . "`n", % A_ScriptDir . "\ImgurUrls.txt"

Code: Select all

Msgbox % Clipboard := UploadToImgur("https://www.autohotkey.com/boards/download/file.php?avatar=78781_1495566606.png")

; Image can be a filename, base64, URL or SAFEARRAY = VT_ARRAY|VT_UI1
UploadToImgur(Image, clientID := "fbf77ff49c42c8a")
{
   Whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
   if FileExist(Image) {
      File := FileOpen(Image, "r")
      Image := ComObjArray(0x11, File.Length) ; Create SAFEARRAY = VT_ARRAY|VT_UI1
      File.RawRead(NumGet(ComObjValue(Image) + 8 + A_PtrSize), File.Length) ; read raw data
      File.Close()
   }
   else if RegExMatch(Image, "i)^https?://.+") {
      Whr.Open("GET", Image, true)
      Whr.Send()
      Whr.WaitForResponse()
      status := Whr.status
      if (status != 200)
         throw "Failed to get image data from URL, status: " . status
      contentType := Whr.GetResponseHeader("Content-Type")
      if !InStr(contentType, "image")
         throw "URL doesn't link to an image"
      Image := Whr.ResponseBody
   }
   Whr.Open("POST", "https://api.imgur.com/3/image", true)
   Whr.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
   Whr.SetRequestHeader("Authorization", "Client-ID " . clientID)
   Whr.Send(Image)
   Whr.WaitForResponse()
   response := Whr.ResponseText
   if !RegExMatch(response, """link"":""\K[^""]+", result) {
      RegExMatch(response, """(message|error)"":""\K[^""]+", message)
      throw message ? message : response
   }
   return StrReplace(result, "\")
}