#SingleInstance Force
;Copyright (c) D.Donchev

html:= A_ScriptFullPath ".html"
xOut:= FileOpen(A_ScriptFullPath ".txt", "w")

loop read, A_ScriptFullPath ".ini" {
	if A_LoopReadLine {
		if inStr(A_LoopReadLine, "|") {
			machine:= strSplit(A_LoopReadLine, "|", " `t")
			TrayTip("Take counters from: " machine[1])
			Download(machine[2], html)
			if (counters:= !ErrorLevel) {
				text:= FileRead(html)
				xOut.Write((nextLine? "`r`n": "") machine[1])
				nextLine:= 1
		}	} else if counters {
			if RegExMatch(text, "[0-9]+", match, inStr(text, A_LoopReadLine) + strLen(A_LoopReadLine)) {
				xOut.Write("," match.Value)
}	}	}	}
xOut.Close()
FileDelete(html)
TrayTip("Take counters DONE!")
msgBox("Done!")
ExitApp
#!F4::ExitApp

;Copyright (c) D.Donchev
class Task {
	static List:= []   ;static list
	;mode
	;		0x01 - terminate task and delete from list (keep/kill child when parent close)
	;		0x02 - delete default VAR file
	;		0x04 - delete script file
	;		0x08 - kill task
	;
	;		0x10 - runwait
	;		0x20 - run when new Task() (run without using this.run())
	;		0x40 - end when new Task() (end without using this.end())
	;example:
	;		new Task(".\test.ahk", 0x73) ;just one line
	;			run test.ahk
	;			wait to close
	;			delete from list
	;			delete var file
	;default
	;		0x13 - runwait|delete var file|close task
	;most used
	;		0x73 - run auto|end auto|runwait|delete var file|close task
	__new(name, mode:= 0x13) {
		this.mode:= mode
		this.name:= name
		Task.List[this]:= ""
		this.ini()			;set default values
		if this.mode & 0x20
			this.run()		;run task
		if this.mode & 0x40
			this.end()		;end task
	}
	set(var, val, opt:="") { ;var val [ini:iniName sec:iniSection]
		this.ini(ini, sec, opt)
		iniWrite(val, ini, sec, var)
		return   val
	}
	get(var,      opt:="") { ;var [ini:iniName sec:iniSection]
		this.ini(ini, sec, opt)
		return iniRead(ini, sec, var)
	}
	;mode   1 - wait
	;		0 - dont wait
	;	   -1 - use this.mode (default)
	run(para:="", wait:= -1) { 					;execute task
		run("autohotkey.exe " this.name " " para,,,pid) ;send parameters correctly
		this.PID:= pid 										  ;take PID immediately 
		if (wait == -1? this.mode & 0x10: wait)
			ProcessWaitClose(this.PID) 						  ;runwait
		return this	
	}
	static 	end:= func("__Task_end") ; byRef this external function
	__delete() {
		if this.mode != "" {			;prevent second run
			;0x08 - kill or 0x01 - close
			if this.mode & 0x80
				ProcessClose(this.pid)
			else if this.mode & 0x09 {	
				DetectHiddenWindows("On")
				winClose("ahk_pid " this.PID)
			}
			if this.mode & 0x02		;0x02 - delete default task.ahk.VAR !!!
				FileDelete(this.name ".VAR")	
			if this.mode & 0x04		;0x04 - delete task.ahk
				FileDelete(this.name)
			this.mode:= this.name:= ""	;prevent second run
	}	}
	; ini(ini, sec)								;current values
	; ini(ini, sec, "ini:file.ini|sec:input")	;temporary values
	; ini(ini, sec, "set:|ini:ini.ext|sec:1")	;set new values
	;		|									;delimiter (space is not delimiter)
	;		set:								;set command
	;		ini:c:\long path\long name.ini		;ini file name
	;		sec:some text						;section name
	; ini(ini, sec, 0)							;reset values
	ini(byRef ini:= "", byRef sec:= "", opt:= "") { ;DRY set:|ini:iniName|sec:iniSection
		;if this.file not set OR opt == 0 (0 or "0")
		if !this.file || opt == 0 ;set default values
			this.file:= "ini:" this.name "|sec:VAR"
		;if opt != 0 (0 or "0" or "") use opt else use this.file	
		opt:= opt? opt: this.file
		if RegExMatch(opt, "i)ini:([\w\\:. ]+)(p*)", arg) ;ini:
			ini:= arg[1]
		if RegExMatch(opt, "i)sec:([\w ]+)(p*)"    , arg) ;sec:
			sec:= arg[1]
		if RegExMatch(opt, "i)set:",                 arg) ;set:
			this.file:= "ini:" ini "|sec:" sec
		;dont forget it is your script - using it incorrect doing incorrect
	}
} 
__Task_end(byRef this) { ;clear reference in list and in calling var
	if type(this) != "Class" {
		Task.List.Delete(this)
		this.__delete() ;forced   __delete() if other references
		this:= ""		;autocall __delete() if no more references
}	} ;class Task ------------------------------------------------------------------
__onExit() {
	;Task.List:= [] ;https://autohotkey.com/boards/viewtopic.php?p=192750#p192750
	while !isEmpty {
	isEmpty:= 1
	for key in Task.List {
		key.end()
		isEmpty:= 0 
}	}	}
OnExit(         "__onExit")
__scExit() { ;script exit
	ExitApp
}
OnMessage(0x10, "__scExit") ;WM_CLOSE 
OnMessage(0x11, "__scExit") ;WM_QUERYENDSESSION

#SingleInstance Force
;Copyright (c) D.Donchev

CoordMode("Pixel", "Screen")
msgBOX(ColorIs(10, IniReadPixel(, "IE8-W7", "OPEN_chk", p), "Wait ")) ;ini is A_ScriptName
for key, val in  p
	msgBOX(key ":=" val)
ExitApp

IniReadPixel(f:="", s:="", varr:="", byRef pixl:= "") { ;set f and s for further use
	static file:= A_ScriptName, sect:= ""
		if f
			file:= f
		if s
			sect:= s
	if varr != "" {
		pixl:= [] ;create object
		loop parse, IniRead(file, sect, varr), ",| " ;replace StrSplit and for
			if A_LoopField != "" 
				if ++cnt == 1
					pixl.x:= A_LoopField 
				else if cnt == 2
					pixl.y:= A_LoopField 
				else {
					val:= strSplit(A_LoopField, ":", " ")
					pixl[val[1]]:= val[2]
	}			}
	return pixl
}
ColorIs(sec, byRef pix, txt:= "", mis:= 998) { 
	if isObject(pix) {
		while sec { ;negative value check infinitely
			if pix[pix.c:= PixelGetColor(pix.x, pix.y)] != "" { ;add c to pix
				tooltip()
				return pix[pix.c] ;if pix.c not exist and/or pix[pix.c] not exist return ""
			}	
			tooltip(txt sec--)
			sleep(mis)
	}
	tooltip()	
	return ""
}
/* ;This line prevent AutoHotkey.exe to void errors. NEXT IS INI
[IE8-W7]
OPEN_chk	= 645, 354, 0xFFFFF1:1, 0xC9CED4:0

#SingleInstance Force
;Copyright (c) D.Donchev

class t {
	__new(arg) {
		this.valu:= arg
}	}

a:= [{"asd":[{new t("zxc"):234}, {"sdf":789}, 2, 3]}, {"qwe":345}, 1, 2, 3, 4, 12.34]
;b:= [2, 3, 4]
b:= new t("zxc")

msgBOX(toStr(a))
msgBOX(toStr(b))
msgBOX(contain(a, b)) ; if contain(a, b)

contain(this, needle) {
	return inStr(toStr(this), toStr(needle))
}

toStr(this) {
	if isObject(this) {
			for key, val in this 
				str .= (type(key) != "Integer"? toStr(key): "") toStr(val)
			return str		
	} else	return "|" this "|"
}

#SingleInstance Force
;Copyright (c) D.Donchev

SendMode("Event")
CoordMode("Mouse", "Screen")
CoordMode("Pixel", "Screen")
SetKeyDelay(150, 90)
Sleep(500)
goSub("!B")
goSub("$CapsLock")

$CapsLock::
	tooltip("<<< " ((State:=!State)? "Kill": "Pause") " >>>", midx(State? -62: -71), A_ScreenHeight-75, 20)
GRB_KILL:
	SetTimer("GRB_KILL", "OFF") ;label not init so name needed (only in global scope)
	if State {
		if pixelGetColor(midx(-4), 28) != 0x252525
			Send(1) ;attack
	SetTimer("GRB_KILL",   100) ;
	}
return

!B::
	loop 4 {
		Sleep(500)
		GoSub("$Numpad" A_Index) ;gosub init labels
	}
return

!G::ExitApp

$Numpad1::Send("{Numpad1 5}"), SetTimer(, 180000) ;no label name needed
$Numpad2::Send("{Numpad2 5}"), SetTimer(, 170000)
$Numpad3::Send("{Numpad3 5}"), SetTimer(, 300000)
$Numpad4::Send("{Numpad4 5}"), SetTimer(, 900000)	

midx(x:=0) {
	static mx:= A_ScreenWidth//2
	return mx+x
}
midy(y:=0) {
	static my:= A_ScreenHeight//2
	return my+y
}

#SingleInstance force
;Copyright (c) D.Donchev

dd_ToolTip("Set Tip")			;set tip 
	msgBOX(,,"T5")

loop 10 { ;main usage of dd_ToolTip
	dd_ToolTip(," " A_Index)	;use  txt 
	sleep 998
}

dd_ToolTip("New Tip") 			;change tip
	msgBOX(,,"T5")
dd_ToolTip()					;clear  tip
	msgBOX(,,"T5")
	
dd_ToolTip(arg:="", txt:="") { ;-----------
	static tip:=""
	if txt == "", tip:= arg ;main idea is:
							;if you call function without txt argument
							;then you call function with tip argument
	ToolTip(tip txt)
	return arg				;it is extra and may be omitted
} ;----------------------------------------

;--------------------------------------	
;Haystack		  - The string whose content is searched.
;NeedleRegEx	  - The pattern to search for, which is a Perl-compatible regular expression (PCRE). 
;OutputVar		  - Output list with found matches.
;Numbers		  - Numbers of searched matches.
;						+ - first Numbers matches
;						0 - nothing
;						- - all matches (DEFAULT)
;StartingPosition - Initial starting possition.

RegExNMatch(Haystack, NeedleRegEx, ByRef OutputVar:="", Numbers:= -1, StartingPosition:= 1) {
	OutputVar:=[]    ;create OutputVar
	while Numbers--  ;
		if (StartingPosition:= RegExMatch(Haystack, NeedleRegEx, v, StartingPosition)) && v.count() {
			OutputVar.push(v.value())
			StartingPosition += v.len()
		} else break
	return OutputVar.length()	
} ;--------------------------------------

;--------------------------------------------------------------------------------------
;RegExNMatch(Haystack, NeedleRegEx [, OutputVar, Numbers:= 1, StartingPosition:= 1])
;	find first Numbers matches of NeedleRegEx in Haystack from StartingPosition
;	return numbers of actually found NeedleRegEx
;
RegExNMatch(Haystack, NeedleRegEx, ByRef OutputVar:="", Numbers:= 1, StartingPosition:=1) {
	OutputVar:=[] ;create OutputVar object
	loop Numbers  ; 
		if StartingPosition:= RegExMatch(Haystack, NeedleRegEx, v, StartingPosition) {
			OutputVar.push(v[1])
			StartingPosition += v.len(1)
		} else break
	return OutputVar.length()	
} ;------------------------------------------------------------------------------------