Custom Query (3922 matches)

Using guictrldelete() on a natively created listview which has had all its natively created items guictrldelete()'d causes a win32 exception in 3.2.11.6.

#include <guiconstantsex.au3>
#include <guilistview.au3>


$gui = guicreate("TEST", 500, 500)


$search_listview = guictrlcreatelistview("Items requiring follow-up", 10, 10, 480, 380, BitOr($GUI_SS_DEFAULT_LISTVIEW, $LVS_NOSORTHEADER))


$item1 = guictrlcreatelistviewitem("TEST", $search_listview)
$item2 = guictrlcreatelistviewitem("TEST", $search_listview)


$button = guictrlcreatebutton("GO", 200, 400, 100, 50)

guisetstate()




while 1=1
	$msg = guigetmsg()
	if $msg <> 0 Then
		switch $msg
			case $gui_event_close
				Exit
			case $button
				guisetstate(@SW_LOCK)
				guictrldelete($item1)
				guictrldelete($item2)
				guictrldelete($search_listview)
				guisetstate(@SW_UNLOCK)
		EndSwitch
	endif
wend

AppName: autoit3.exe AppVer: 3.2.12.1 ModName: autoit3.exe ModVer: 3.2.12.1 Offset: 00011c63

Caused by this line in a program I was working on Global $InCombat as Binary

I'm fairly sure I should be able to call a global and say it's binary, however I could be wrong.. & then it should be labeled a feature request (to lower memory costs) counting pixels (in an obvious bot) is resource costly!!

It may be tied into some other parts of the code for that reason:

#include <GUIConstants.au3> ; enable gui elements like forms buttons and pix
#include "speak.au3" ;  enble speak("text") function 
Opt("SendKeyDelay", 0)
Opt("SendKeyDownDelay", 0) 
Opt("ColorMode", 0)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("^s","SetLoc")
HotKeySet("^c","SetCombat")

;HotKeySet("{ESC}", "Quit") ;So we be able to exit from the loop

;setup our locations as globals so we can grab them anywhere & have them the same.
Const $xc as 0
Const $yc as 1
Global $CombatLoc[2] 
$CombatLoc[$xc] = 133
$CombatLoc[$yc]=150

;setup our color swatch for 
Global $CombatColor

;a toggle to see if we are in combat
Global $InCombat as Binary
$InCombat = 0
;$run = 1

;While $run = 1

;WEnd

Func CombatLoop
	While 1
		Sleep(2000)
		;set up a scanner that loops every second could be faster 
		Do		
			ToolTip(PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]),0,0)
			sleep(1000)
			Send("`")
		Until PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]) <> "101010"
		
		; we are in combat so we need to do combat stuff now every second it spams skills
		; since the smallest cool downs are about a second this works grate.
		While PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]) = "101010"
			ToolTip(PixelGetColor(CombatLoc[$xc], $CombatLoc[$yc]),6),0,0)
			sleep(1000)
			Send("15")
		WEnd
		Send("67")
		Sleep(1000)
		send("k")
	WEnd
EndFunc

Func Quit()
    Exit
EndFunc


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
	Speak("I hope you liked the fish!")
    Exit 0
EndFunc

Func SetCombat()
	$InCombat = Binary
EndFunc

PS: it's incomplete & untested was just seeing if some new parts would work... the speach.au3 is my own work just includes the Agent links through AutoIT.. & works fine with other code I have. Also dislexic so sorry for any coding typos or abnormalities.

TY for a grate piece of software.

All who have some knowledge of VB are confused by the behavior of UBound () not returning the upper bound, but the array length. It would be better to have a function that will operate differently, for example:

Local $arr[2][5]; ArrayLength($arr) => 10 ArrayLength($arr,0) => 2 ArrayLength($arr,1) => 5

not priority, I know, but make sense :)