fun monitor bitcoin gain

Post your working scripts, libraries and tools
User avatar
noname
Posts: 507
Joined: 19 Nov 2013, 09:15

fun monitor bitcoin gain

15 Dec 2017, 08:25

Image
fun monitor bitcoin gain ( or loss :cry: )
following from post : https://autohotkey.com/boards/viewtopic.php?f=5&t=41414

Image
update 16-12-2017 : There was as an embarrassing mistake it gave a "gain" as "loss" and "loss" as "gain" :o

Bitcoins is really insane ,if i sell my 1000 bitcoins ( bought this moring :shh: ) i earned 550 000 dollars today :xmas:

Code: Select all



settitlematchmode 2
SetWorkingDir, %A_ScriptDir%
SetBatchLines, -1

status:=0


If !pToken := Gdip_Startup()
{
   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
   ExitApp
}

pBitmap:=Create_80_png()

Gui, 1:  -Caption +E0x80000 +LastFound +OwnDialogs +Owner +hwndhwnd +alwaysontop
Gui, 1: Show, NA 
font=tahoma

Gdip_GetImageDimensions(pBitmap, w,h)

hbm := CreateDIBSection(w,h)
hdc := CreateCompatibleDC()
obm := SelectObject(hdc, hbm)
pGraphics := Gdip_GraphicsFromHDC(hdc)
Gdip_DrawImage(pGraphics, pBitmap, 0, 0, w, h, 0, 0, w,h)
UpdateLayeredWindow(hwnd, hdc,(a_screenwidth-w)//2,(a_screenheight-h)//2,w,h)

OnMessage(0x201, "WM_LBUTTONDOWN")
SetTimer, update, -1000

return



update:
Gdip_GraphicsClear(pGraphics)
Gdip_DrawImage(pGraphics, pBitmap, 0, 0, w, h, 0, 0, w,h)

gosub get_value

value_diff:=m1-value_old

options=w86 h75 x6 y5 cffc0c0c0 Center vCenter bold s12 r4
Gdip_TextToGraphics(pGraphics, m1, Options, Font)

color:=value_diff < 0 ? "cffff0000" : "cff00ff00"

options=w65 h80 x12 y56 %color% Center  bold s12 r4
Gdip_TextToGraphics(pGraphics, Format("{1:0.3f}",value_diff), Options, Font)

UpdateLayeredWindow(hwnd, hdc)
if !status
{
value_old:=m1
status:=1
settimer, update ,60000
}
return


SelectObject(hdc, obm)
DeleteObject(hbm)
DeleteDC(hdc)
Gdip_DeleteGraphics(pGraphics)

get_value:
url=https://api.coindesk.com/v1/bpi/currentprice/USD.json
UrlDownloadToVar(URL, response)
RegExMatch( response,"U)float.*(\d+.*)\}" ,m)
return


UrlDownloadToVar(URL, ByRef aResponse="") {
	WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
	WebRequest.Open("GET", URL)
	WebRequest.Send()
	aResponse := WebRequest.ResponseText
	WebRequest := ""
}



WM_LBUTTONDOWN(wParam,lParam,msg,hwnd){

PostMessage, 0xA1, 2 
}




WM_EXITSIZEMOVE(wParam,lParam,msg,hwnd){  ;to autosave last position when moving gui
}


guiclose:
esc::
exitapp


; ##################################################################################
; # This #Include file was generated by Image2Include.ahk, you must not change it! #
; ##################################################################################
Create_80_png() {
VarSetCapacity(B64, 4480 << !!A_IsUnicode)
B64 := "iVBORw0KGgoAAAANSUhEUgAAAGcAAABnCAYAAAAdQVz5AAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAAsTAAALEwEAmpwYAAAAB3RJTUUH4QUHDBYUS6NNgAAADKtJREFUeNrtnU2MHEcVx9+r7umZntkNWa8Bx8O2LXwgSAmJQfkQEiLikggFKTmRE4qEhHILiAPiwgUpRy4gQYjEIYIgOIQTOSSRSOIIEhslSsiHnQ9DErI7O5nsjN3TPf1ZxYFuu1xT1dM9H7s7u/Wk1ox2bc/4/eb/Pqqq3wBo06ZN24EyPGTvmS3Tf9RcQhBYERRbVmC4BO8JNzY27kTEBgAAYwxl73s4HJ7t9/tBgdOZ8DOm+DMajux9tNvthmEY9yDiHQBwJwCcRMQTpWMWY9sA8A5j7HVK6bkoil7odrsdCQwq+ZkM3qGGg47jnASABxHx7gzKXI0x9i/G2ItRFD3R6XRe4yBQxfN9A2pP4GxsbKwh4gOEkB8AwK279bqMsXfTNP2T7/t/2NnZ6WRQ+EsEtaeQdhVOu922DcN4iBDyMwC4fq/kyhgL0zT91aVLlx51XXcnA5JmlwiLSVR1oOCg4zgPEEIeAYCT+yXhMsY+ieP415ubm49mYBIOUn7J1LQrkHAXoNxFCPnFboavKSB9HIbhzzudzl8zILEElpijFh7qFgZnY2PjBsMwngCAu5al6aOUnndd9+F+v38+A5QIoGQhb2GAjEX8o47jnDYM4+n9rBbpJxXxaL1ev8+yrIu+738MACS7VM0vZmBwKeA4jnM/IeQpADi6hEtDgIh1y7K+02g04uFw+GYGB7lHWdRZCCBjzmB+RAj53RIsC0000zS/3mq1jo9Go1copbnz+UsVznBfwWm32/b6+vpjiPgTOEBmGMaXW63WbWEYvpSmaSKBAwpQuC/gtNttu1arPQUA98EBNELIsVardXcURWeSJAklCmKLKrZmhYPr6+uPA8C9cIANEVds2z7ted7zjDGqcPzcQ9xMcBzH+SkiPgyHwAghR5vN5knXdf+hqODmDsiYAcz9hJDfwiEywzBOWJZleJ53viCkzQ2QMSWY01m5bMIhs1qt9hVE7ARB8LGQd2RN6UzNaWU4Wef/9LL2MfOwer1+e5qmb0ZRNBAUo4IzVR9UFQ4eOXLkaQC4CQ6xIaLRaDROu677PGMshfHVa9V2Ay4MjuM49yPij0EbIGLTMIzE9/33BeWo9oUq558qcHBtbe0JADim0VxZRXBc1z3Dqadow65y/ikLBx3HeQgRv6+RXKOeumVZDc/zLnBQ6AT1lA5vpeC0223bNM0nAWBFIxlTz4nRaPTPNE0DCSAZpPK9VZkPiGEYD+lwplSPuba29u3sg9sEgFb22ACAOgDUspbDgGtXtnFm5WSl85+zF9MmV8/xOI7fjeP4EqcY1ZmE0tUbmfzBwAdhDw9jLIt6VldXv8GppgkAdvaBtjLl5OopXa1N7PAJId/T7i/VmN5MCFmhlEYAEAFAmD1GcHXLOxUURKdVDjqOcysA3KhdXyJ5E9JYWVm5KVMMr5xcPTVJ3inMPWSCXL+r3V7ems3mLRwQO7vqQmFAuGuqnJP/pXu0y8ubZVlfzEA0hMsSck8OprByIwVV2vWIeIt2eaXQVrdte0MCRwxtBsi3vMvBQcT7tLurW6vVujEDIQMjhrbKcDCDc4d29VSh7TgXxvKrLlHOxMKgqCC4Vbt6qob0s5k6LK4Y4OGIqwVYNecgIn5Ju3qqvNM0DKPFhTFeQSIcUhlOu92+Qa8KzNSQHuXUI+YbUxHWxkIbkf2SEHJCu3im0HY9B8IsgEOKUgtRxDS9yDmDIWIt860IpyYJaaAKbapq7aR28UzKuY6rykxBMTLlVCsItItnE48Ah39OZimlEfTezbwAEQ6GCGiqJhQAINC+nRmMCg6R9DhSBUnhZFMytM3Y8giAZNdUC58D7dvpLU3TkRDaUJH8S4c15JRzSbt4euNuE0EBEEpAVcs5lNJt7eLpLUmSkSRkTdwiKAVnc3Pzgi4KprcwDHcmFAulfk4KpPmOdnN1o5RGmXKUrp1JOZlpONMVA5cFCOIkKlYWmgoOo5Se066ublEU9UA+dI8pQLEyymFCUntGu7q6+b6/yflTPMgum0ZVOayxra2tC4yxD7W7K5XQqe/72wogsgPuUASJFL8We1G7vLzFcdxjjCUSMLJz0/mlzD2k6JdJkjypXV7ePM/7UAhpPBgREH8kt5JyGACwzc3NZxhjXe32ciHNdd3/SJSRjwNLQD4arFK1dk0sZIz9Rbu+VOO5RSkNJ6gm4X4um9tWXjkAQMMw/KN2/WQbDocXhVzDKybmnot3GygrN1LQCDEAYNvb26+nafqYdr/agiD473A4/EhQjQgmLoADVZVzJbG5rvtLxlioMchtMBi8UaCYGK7eoxNLQptyNDKZsAZEAYAOBoMOpfT3GoNcNUEQ7AhwUg4Kf/HqmdiMTso5+Qsm3W73EcZYT+O4tkLr9XrnJKrhFSO7w41OC4fJ1BOGoRfH8W80kmuWat7LVqCpBA4PJuTgiP1O5eUbkHW5vV7vca2eq6rp9/tv8dGFAxPC//fD8kfZvaETh4iXgcNy2lEUDX3f/yFjLDrscHZ2dl5OksQvUEwOJuAAJYqwJrWiOQSy7VXi+/6Wbdu+aZrfPMQ9zduDweA898FNOCg+AHgAMMwuL/uZL8k7hTmnDJz8+ZVTJMPh8O1Wq7VuGMbNh7E663a7Z/mIwoUtX4DjcnDyMMfnncItg0kTPMRDClcAua57dnV19auEkC8cFjBJklze2tr6G5fQ+ZI54MC4EuWocs7McMbCGwBgGIZnW63WtxDxMwcdDKU07nQ6z2YDiPg8E3LhzOegFKmGQolRk2WmRsmO+BAAIGmaJmmanrNt+15EtA54P/N8GIZ9YXkmzzMjIZTxqhllcMRwNvGgRxU4onoQADCKIo9Seq7RaNyOiNcdQMVEvV7vhWyHU6zMQi6cDSWqGQmVmphr2KxwREBjIS6Kosuj0eiMbds3E0I+d5ByTKfTeZZTjFiZyfJM/jipQoN5KEcV2nhIJE3T+PLly881m81jhmGcOghVWafTeSE79yzrZQIunIlgctXwKwPiBhubFxyVesZAua77immaI8uyvrasYDzPu9Dtdl9mjMWSHCOCyaG4QnU2VREwLzgyQAAA6Pv+vxlj7zcajduy+yOXJvHv7Oy81O/331YsZoYSMCIcEUzlcDYNHBUMKcAwDHu+758xTZOYpnkKEckSqOXFIAg+ERrMRFiS8SWKyQuAPJxFQhFQKZxNC2cSGCb2Bp7nXRiNRi/XarUV0zSd/Zhbtre3n3Nd9wNKaQzjezIhF8o8hWLyUMZXZ1OHs1ngqBZJlc/TNA2Gw+GbYRi+YVnWumEYe17RRVHU7fV6fx8MBm9l0wVlu5gh18fwVZmrWAUIJAXAVDOlZ4GDk1QDkrPBSZIMXdd9LU3TjwzDqJum+fndhhKG4dZgMHj1008/fTVJkqEQwmJJqazKL2LJLOtnplZNUYiqmn/4m1LzeS91uDpSMR9MupI9bwGAbRjGkdXV1VtardbpWq22sJAXx3Hf9/2Lrut+kC3zq05k8ruYPBxxQdMT1BKAfKeTTgtmVjiyBVERUD53zOYAteDaKbINAGgg4srKysop27ZP1Wq147Va7dgsMOI47o1Go23P8za582Ti9nsqCWViuewLcPj8wvcyyTzBzAOOSkEEro4TqXMqsjko/IjffFgpP/rKsixrrVarrdXr9WNZSa4avYhBEHySJMkwDMNLglNEIIwLOYlQkYnhTIQjg7IQMPOCI10UhasDEWQqsgUw/CRZfmApP8yHB190Hz9IoIin/WU5hgcjwhlxlVggdP7imtlcwADM75ujGFcU0IIQQkG9ndsQAPFDS2swPp6E374QP2iiamTHYxPOwSKYUAIk4FaXebXwiX9uYOYJRwQEwhtlio47d0pDohzZEDlTKD6K1EO5R1l+4RXDwxEhiUqJQf2F4nMDM284IiDxzVKQH1XlHcODkanHhPH5MUXKoRMqskiiYv6KJFB27QvEFzlGZWzlWvjUi3PILMnF/84sgIMSOGwCnERwfiRRiEwpqfDvwyLALBqODJAKEn9ZwqNsyp8h5B7Zuh2V5JtEKAQSLn9EIL8jgD/bzBatlt2EM0lFKlAyaIZCNUXKKSoGEkkO4mGI4WvXoOw2nLG+BMaH9vBlsik8ykZiycCgolJjwupwAvKbm4ru21xoCNtrOLLXJMIKg2oElmzs4qS5zEV9DoXxO8xEdewZlL2EU6QkhOLpSkTS35Q9Uiz7NkIq+Z3qOz731EH7CZL4XASBUOJbNAQnUwUw2WSNPYWyn+BM2oqYdLikTO/FCrYyQLHdse+csZ9BAVT4pkAFJNjPMJYJziLfKwNt2rRp07bb9j+07YubepJvoAAAAABJRU5ErkJggg=="
If !DllCall("Crypt32.dll\CryptStringToBinary", "Ptr", &B64, "UInt", 0, "UInt", 0x01, "Ptr", 0, "UIntP", DecLen, "Ptr", 0, "Ptr", 0)
   Return False
VarSetCapacity(Dec, DecLen, 0)
If !DllCall("Crypt32.dll\CryptStringToBinary", "Ptr", &B64, "UInt", 0, "UInt", 0x01, "Ptr", &Dec, "UIntP", DecLen, "Ptr", 0, "Ptr", 0)
   Return False
; Bitmap creation adopted from "How to convert Image data (JPEG/PNG/GIF) to hBITMAP?" by SKAN
; -> http://www.autohotkey.com/board/topic/21213-how-to-convert-image-data-jpegpnggif-to-hbitmap/?p=139257
hData := DllCall("Kernel32.dll\GlobalAlloc", "UInt", 2, "UPtr", DecLen, "UPtr")
pData := DllCall("Kernel32.dll\GlobalLock", "Ptr", hData, "UPtr")
DllCall("Kernel32.dll\RtlMoveMemory", "Ptr", pData, "Ptr", &Dec, "UPtr", DecLen)
DllCall("Kernel32.dll\GlobalUnlock", "Ptr", hData)
DllCall("Ole32.dll\CreateStreamOnHGlobal", "Ptr", hData, "Int", True, "PtrP", pStream)
hGdip := DllCall("Kernel32.dll\LoadLibrary", "Str", "Gdiplus.dll", "UPtr")
VarSetCapacity(SI, 16, 0), NumPut(1, SI, 0, "UChar")
DllCall("Gdiplus.dll\GdiplusStartup", "PtrP", pToken, "Ptr", &SI, "Ptr", 0)
DllCall("Gdiplus.dll\GdipCreateBitmapFromStream",  "Ptr", pStream, "PtrP", pBitmap)

DllCall("Gdiplus.dll\GdiplusShutdown", "Ptr", pToken)
DllCall("Kernel32.dll\FreeLibrary", "Ptr", hGdip)
DllCall(NumGet(NumGet(pStream + 0, 0, "UPtr") + (A_PtrSize * 2), 0, "UPtr"), "Ptr", pStream)
Return pBitmap
}



Gdip_Startup()
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	if !DllCall("GetModuleHandle", "str", "gdiplus", Ptr)
		DllCall("LoadLibrary", "str", "gdiplus")
	VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1)
	DllCall("gdiplus\GdiplusStartup", A_PtrSize ? "UPtr*" : "uint*", pToken, Ptr, &si, Ptr, 0)
	return pToken
}
Gdip_GetImageDimensions(pBitmap, ByRef Width, ByRef Height)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	DllCall("gdiplus\GdipGetImageWidth", Ptr, pBitmap, "uint*", Width)
	DllCall("gdiplus\GdipGetImageHeight", Ptr, pBitmap, "uint*", Height)
}
CreateDIBSection(w, h, hdc="", bpp=32, ByRef ppvBits=0)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	hdc2 := hdc ? hdc : GetDC()
	VarSetCapacity(bi, 40, 0)
	
	NumPut(w, bi, 4, "uint")
	, NumPut(h, bi, 8, "uint")
	, NumPut(40, bi, 0, "uint")
	, NumPut(1, bi, 12, "ushort")
	, NumPut(0, bi, 16, "uInt")
	, NumPut(bpp, bi, 14, "ushort")
	
	hbm := DllCall("CreateDIBSection"
					, Ptr, hdc2
					, Ptr, &bi
					, "uint", 0
					, A_PtrSize ? "UPtr*" : "uint*", ppvBits
					, Ptr, 0
					, "uint", 0, Ptr)

	if !hdc
		ReleaseDC(hdc2)
	return hbm
}
GetDC(hwnd=0)
{
	return DllCall("GetDC", A_PtrSize ? "UPtr" : "UInt", hwnd)
}
ReleaseDC(hdc, hwnd=0)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	return DllCall("ReleaseDC", Ptr, hwnd, Ptr, hdc)
}
CreateCompatibleDC(hdc=0)
{
   return DllCall("CreateCompatibleDC", A_PtrSize ? "UPtr" : "UInt", hdc)
}
SelectObject(hdc, hgdiobj)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	return DllCall("SelectObject", Ptr, hdc, Ptr, hgdiobj)
}
Gdip_GraphicsFromHDC(hdc)
{
    DllCall("gdiplus\GdipCreateFromHDC", A_PtrSize ? "UPtr" : "UInt", hdc, A_PtrSize ? "UPtr*" : "UInt*", pGraphics)
    return pGraphics
}
Gdip_DrawImage(pGraphics, pBitmap, dx="", dy="", dw="", dh="", sx="", sy="", sw="", sh="", Matrix=1)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	if (Matrix&1 = "")
		ImageAttr := Gdip_SetImageAttributesColorMatrix(Matrix)
	else if (Matrix != 1)
		ImageAttr := Gdip_SetImageAttributesColorMatrix("1|0|0|0|0|0|1|0|0|0|0|0|1|0|0|0|0|0|" Matrix "|0|0|0|0|0|1")

	if (sx = "" && sy = "" && sw = "" && sh = "")
	{
		if (dx = "" && dy = "" && dw = "" && dh = "")
		{
			sx := dx := 0, sy := dy := 0
			sw := dw := Gdip_GetImageWidth(pBitmap)
			sh := dh := Gdip_GetImageHeight(pBitmap)
		}
		else
		{
			sx := sy := 0
			sw := Gdip_GetImageWidth(pBitmap)
			sh := Gdip_GetImageHeight(pBitmap)
		}
	}

	E := DllCall("gdiplus\GdipDrawImageRectRect"
				, Ptr, pGraphics
				, Ptr, pBitmap
				, "float", dx
				, "float", dy
				, "float", dw
				, "float", dh
				, "float", sx
				, "float", sy
				, "float", sw
				, "float", sh
				, "int", 2
				, Ptr, ImageAttr
				, Ptr, 0
				, Ptr, 0)
	if ImageAttr
		Gdip_DisposeImageAttributes(ImageAttr)
	return E
}
Gdip_SetImageAttributesColorMatrix(Matrix)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	VarSetCapacity(ColourMatrix, 100, 0)
	Matrix := RegExReplace(RegExReplace(Matrix, "^[^\d-\.]+([\d\.])", "$1", "", 1), "[^\d-\.]+", "|")
	StringSplit, Matrix, Matrix, |
	Loop, 25
	{
		Matrix := (Matrix%A_Index% != "") ? Matrix%A_Index% : Mod(A_Index-1, 6) ? 0 : 1
		NumPut(Matrix, ColourMatrix, (A_Index-1)*4, "float")
	}
	DllCall("gdiplus\GdipCreateImageAttributes", A_PtrSize ? "UPtr*" : "uint*", ImageAttr)
	DllCall("gdiplus\GdipSetImageAttributesColorMatrix", Ptr, ImageAttr, "int", 1, "int", 1, Ptr, &ColourMatrix, Ptr, 0, "int", 0)
	return ImageAttr
}
Gdip_GetImageWidth(pBitmap)
{
   DllCall("gdiplus\GdipGetImageWidth", A_PtrSize ? "UPtr" : "UInt", pBitmap, "uint*", Width)
   return Width
}
Gdip_GetImageHeight(pBitmap)
{
   DllCall("gdiplus\GdipGetImageHeight", A_PtrSize ? "UPtr" : "UInt", pBitmap, "uint*", Height)
   return Height
}
Gdip_DisposeImageAttributes(ImageAttr)
{
	return DllCall("gdiplus\GdipDisposeImageAttributes", A_PtrSize ? "UPtr" : "UInt", ImageAttr)
}
UpdateLayeredWindow(hwnd, hdc, x="", y="", w="", h="", Alpha=255)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	if ((x != "") && (y != ""))
		VarSetCapacity(pt, 8), NumPut(x, pt, 0, "UInt"), NumPut(y, pt, 4, "UInt")

	if (w = "") ||(h = "")
		WinGetPos,,, w, h, ahk_id %hwnd%
   
	return DllCall("UpdateLayeredWindow"
					, Ptr, hwnd
					, Ptr, 0
					, Ptr, ((x = "") && (y = "")) ? 0 : &pt
					, "int64*", w|h<<32
					, Ptr, hdc
					, "int64*", 0
					, "uint", 0
					, "UInt*", Alpha<<16|1<<24
					, "uint", 2)
}
Gdip_GraphicsClear(pGraphics, ARGB=0x00ffffff)
{
    return DllCall("gdiplus\GdipGraphicsClear", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", ARGB)
}
Gdip_TextToGraphics(pGraphics, Text, Options, Font="Arial", Width="", Height="", Measure=0)
{
	IWidth := Width, IHeight:= Height
	
	RegExMatch(Options, "i)X([\-\d\.]+)(p*)", xpos)
	RegExMatch(Options, "i)Y([\-\d\.]+)(p*)", ypos)
	RegExMatch(Options, "i)W([\-\d\.]+)(p*)", Width)
	RegExMatch(Options, "i)H([\-\d\.]+)(p*)", Height)
	RegExMatch(Options, "i)C(?!(entre|enter))([a-f\d]+)", Colour)
	RegExMatch(Options, "i)Top|Up|Bottom|Down|vCentre|vCenter", vPos)
	RegExMatch(Options, "i)NoWrap", NoWrap)
	RegExMatch(Options, "i)R(\d)", Rendering)
	RegExMatch(Options, "i)S(\d+)(p*)", Size)

	if !Gdip_DeleteBrush(Gdip_CloneBrush(Colour2))
		PassBrush := 1, pBrush := Colour2
	
	if !(IWidth && IHeight) && (xpos2 || ypos2 || Width2 || Height2 || Size2)
		return -1

	Style := 0, Styles := "Regular|Bold|Italic|BoldItalic|Underline|Strikeout"
	Loop, Parse, Styles, |
	{
		if RegExMatch(Options, "\b" A_loopField)
		Style |= (A_LoopField != "StrikeOut") ? (A_Index-1) : 8
	}
  
	Align := 0, Alignments := "Near|Left|Centre|Center|Far|Right"
	Loop, Parse, Alignments, |
	{
		if RegExMatch(Options, "\b" A_loopField)
			Align |= A_Index//2.1      ; 0|0|1|1|2|2
	}

	xpos := (xpos1 != "") ? xpos2 ? IWidth*(xpos1/100) : xpos1 : 0
	ypos := (ypos1 != "") ? ypos2 ? IHeight*(ypos1/100) : ypos1 : 0
	Width := Width1 ? Width2 ? IWidth*(Width1/100) : Width1 : IWidth
	Height := Height1 ? Height2 ? IHeight*(Height1/100) : Height1 : IHeight
	if !PassBrush
		Colour := "0x" (Colour2 ? Colour2 : "ff000000")
	Rendering := ((Rendering1 >= 0) && (Rendering1 <= 5)) ? Rendering1 : 4
	Size := (Size1 > 0) ? Size2 ? IHeight*(Size1/100) : Size1 : 12

	hFamily := Gdip_FontFamilyCreate(Font)
	hFont := Gdip_FontCreate(hFamily, Size, Style)
	FormatStyle := NoWrap ? 0x4000 | 0x1000 : 0x4000
	hFormat := Gdip_StringFormatCreate(FormatStyle)
	pBrush := PassBrush ? pBrush : Gdip_BrushCreateSolid(Colour)
	if !(hFamily && hFont && hFormat && pBrush && pGraphics)
		return !pGraphics ? -2 : !hFamily ? -3 : !hFont ? -4 : !hFormat ? -5 : !pBrush ? -6 : 0
   
	CreateRectF(RC, xpos, ypos, Width, Height)
	Gdip_SetStringFormatAlign(hFormat, Align)
	Gdip_SetTextRenderingHint(pGraphics, Rendering)
	ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)

	if vPos
	{
		StringSplit, ReturnRC, ReturnRC, |
		
		if (vPos = "vCentre") || (vPos = "vCenter")
			ypos += (Height-ReturnRC4)//2
		else if (vPos = "Top") || (vPos = "Up")
			ypos := 0
		else if (vPos = "Bottom") || (vPos = "Down")
			ypos := Height-ReturnRC4
		
		CreateRectF(RC, xpos, ypos, Width, ReturnRC4)
		ReturnRC := Gdip_MeasureString(pGraphics, Text, hFont, hFormat, RC)
	}

	if !Measure
		E := Gdip_DrawString(pGraphics, Text, hFont, hFormat, pBrush, RC)

	if !PassBrush
		Gdip_DeleteBrush(pBrush)
	Gdip_DeleteStringFormat(hFormat)   
	Gdip_DeleteFont(hFont)
	Gdip_DeleteFontFamily(hFamily)
	return E ? E : ReturnRC
}
Gdip_DeleteBrush(pBrush)
{
   return DllCall("gdiplus\GdipDeleteBrush", A_PtrSize ? "UPtr" : "UInt", pBrush)
}
Gdip_CloneBrush(pBrush)
{
	DllCall("gdiplus\GdipCloneBrush", A_PtrSize ? "UPtr" : "UInt", pBrush, A_PtrSize ? "UPtr*" : "UInt*", pBrushClone)
	return pBrushClone
}
Gdip_FontFamilyCreate(Font)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	if (!A_IsUnicode)
	{
		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &Font, "int", -1, "uint", 0, "int", 0)
		VarSetCapacity(wFont, nSize*2)
		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &Font, "int", -1, Ptr, &wFont, "int", nSize)
	}
	
	DllCall("gdiplus\GdipCreateFontFamilyFromName"
					, Ptr, A_IsUnicode ? &Font : &wFont
					, "uint", 0
					, A_PtrSize ? "UPtr*" : "UInt*", hFamily)
	
	return hFamily
}
Gdip_FontCreate(hFamily, Size, Style=0)
{
   DllCall("gdiplus\GdipCreateFont", A_PtrSize ? "UPtr" : "UInt", hFamily, "float", Size, "int", Style, "int", 0, A_PtrSize ? "UPtr*" : "UInt*", hFont)
   return hFont
}
Gdip_StringFormatCreate(Format=0, Lang=0)
{
   DllCall("gdiplus\GdipCreateStringFormat", "int", Format, "int", Lang, A_PtrSize ? "UPtr*" : "UInt*", hFormat)
   return hFormat
}
Gdip_BrushCreateSolid(ARGB=0xff000000)
{
	DllCall("gdiplus\GdipCreateSolidFill", "UInt", ARGB, A_PtrSize ? "UPtr*" : "UInt*", pBrush)
	return pBrush
}
CreateRectF(ByRef RectF, x, y, w, h)
{
   VarSetCapacity(RectF, 16)
   NumPut(x, RectF, 0, "float"), NumPut(y, RectF, 4, "float"), NumPut(w, RectF, 8, "float"), NumPut(h, RectF, 12, "float")
}
Gdip_SetStringFormatAlign(hFormat, Align)
{
   return DllCall("gdiplus\GdipSetStringFormatAlign", A_PtrSize ? "UPtr" : "UInt", hFormat, "int", Align)
}
Gdip_SetTextRenderingHint(pGraphics, RenderingHint)
{
	return DllCall("gdiplus\GdipSetTextRenderingHint", A_PtrSize ? "UPtr" : "UInt", pGraphics, "int", RenderingHint)
}
Gdip_MeasureString(pGraphics, sString, hFont, hFormat, ByRef RectF)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	VarSetCapacity(RC, 16)
	if !A_IsUnicode
	{
		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, "uint", 0, "int", 0)
		VarSetCapacity(wString, nSize*2)   
		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, &wString, "int", nSize)
	}
	
	DllCall("gdiplus\GdipMeasureString"
					, Ptr, pGraphics
					, Ptr, A_IsUnicode ? &sString : &wString
					, "int", -1
					, Ptr, hFont
					, Ptr, &RectF
					, Ptr, hFormat
					, Ptr, &RC
					, "uint*", Chars
					, "uint*", Lines)
	
	return &RC ? NumGet(RC, 0, "float") "|" NumGet(RC, 4, "float") "|" NumGet(RC, 8, "float") "|" NumGet(RC, 12, "float") "|" Chars "|" Lines : 0
}
Gdip_DrawString(pGraphics, sString, hFont, hFormat, pBrush, ByRef RectF)
{
	Ptr := A_PtrSize ? "UPtr" : "UInt"
	
	if (!A_IsUnicode)
	{
		nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, 0, "int", 0)
		VarSetCapacity(wString, nSize*2)
		DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sString, "int", -1, Ptr, &wString, "int", nSize)
	}
	
	return DllCall("gdiplus\GdipDrawString"
					, Ptr, pGraphics
					, Ptr, A_IsUnicode ? &sString : &wString
					, "int", -1
					, Ptr, hFont
					, Ptr, &RectF
					, Ptr, hFormat
					, Ptr, pBrush)
}
Gdip_DeleteStringFormat(hFormat)
{
   return DllCall("gdiplus\GdipDeleteStringFormat", A_PtrSize ? "UPtr" : "UInt", hFormat)
}
Gdip_DeleteFont(hFont)
{
   return DllCall("gdiplus\GdipDeleteFont", A_PtrSize ? "UPtr" : "UInt", hFont)
}
Gdip_DeleteFontFamily(hFamily)
{
   return DllCall("gdiplus\GdipDeleteFontFamily", A_PtrSize ? "UPtr" : "UInt", hFamily)
}
DeleteObject(hObject)
{
   return DllCall("DeleteObject", A_PtrSize ? "UPtr" : "UInt", hObject)
}
DeleteDC(hdc)
{
   return DllCall("DeleteDC", A_PtrSize ? "UPtr" : "UInt", hdc)
}
Gdip_DeleteGraphics(pGraphics)
{
   return DllCall("gdiplus\GdipDeleteGraphics", A_PtrSize ? "UPtr" : "UInt", pGraphics)
}
Last edited by noname on 16 Dec 2017, 09:47, edited 3 times in total.
guest3456
Posts: 2469
Joined: 09 Oct 2013, 10:31

Re: fun monitor bitcoin gain

15 Dec 2017, 11:18

anything bitcoin :thumbsup:

burque505
Posts: 684
Joined: 22 Jan 2017, 19:37

Re: fun monitor bitcoin gain

15 Dec 2017, 14:40

Thanks, noname, that's impressive. And fun.
:clap:
Regards,
burque505
burque505
Posts: 684
Joined: 22 Jan 2017, 19:37

Re: fun monitor bitcoin gain

23 Dec 2017, 18:37

Deleted - I see it's fixed :crazy:

Return to “Scripts and Functions”

Who is online

Users browsing this forum: hoppfrosch and 25 guests