Vossen

I found what seems to be version 1.6.2.1 here, http://code.google.com/p/autoit-cn/source/browse/trunk/UserInclude/?r=783, and I will check back for the newest (if newer) later using the original source.

Please, read the forum rules.

As M23 says, something like this? Dim $aWord[3] = ["Hello", "Hi", "Bye"] MsgBox(0, "Word", $aWord[Random(0, UBound($aWord)-1, 1)])

Hello, I am in need of the WinHTTP.au3, but I do not seem to be able to download it from the original source shown in the WinHTTP topic. http://winhttp.origo.ethz.ch/download Is someone in possession of this UDF and can upload it? Thanks in advance, Vossen

I am long past that, all those codes and files are long gone, I worked further on with the code that I could get to work.

It did not work with the script UTF8 encoded either, tried. This works, that is what matters to me, as the database is created in memory anyways makes it irrelevant if you should open it with a SQLite manager. The content is stored only for a temp. period to access it faster locally, this MAY help others later if the have the same issue as me and they cannot get the common method to work. And every time I write here I get the comment to use the search function, I can tell you, I have used the search, yes, I can see the issue has been up several times, no, the common answer did not help ME and yes, I used a kinda-method that worked for me.

After crying a bit and going emo. I seem to have fixed it by using this topic while I converted my online page to ANSI and my code now looks like this. #include <GUIConstantsEx.au3> #include <SQLite.au3> #include <SQLite.dll.au3> #include <GUIListBox.au3> #include <INet.au3> Dim $aMain[2][3] Dim $aConn[6][3] Dim $aAdds[6][3] _SQLite_Startup() _SQLite_Open() GUICreate("Dishes", 885, 400) $aMain[1][1] = GUICtrlCreateInput("", 5, 5, 200, 20) $aMain[1][2] = GUICtrlCreateList("", 5, 30, 200, 300) $aConn[1][1] = GUICtrlCreateInput("", 210, 5, 25, 20) $aConn[1][2] = GUICtrlCreateList("", 210, 30, 25, 300) $aAdds[1][1] = GUICtrlCreateInput("", 240, 5, 100, 20) $aAdds[1][2] = GUICtrlCreateList("", 240, 30, 100, 300) $aConn[2][1] = GUICtrlCreateInput("", 345, 5, 25, 20) $aConn[2][2] = GUICtrlCreateList("", 345, 30, 25, 300) $aAdds[2][1] = GUICtrlCreateInput("", 375, 5, 100, 20) $aAdds[2][2] = GUICtrlCreateList("", 375, 30, 100, 300) $aConn[3][1] = GUICtrlCreateInput("", 480, 5, 25, 20) $aConn[3][2] = GUICtrlCreateList("", 480, 30, 25, 300) $aAdds[3][1] = GUICtrlCreateInput("", 510, 5, 100, 20) $aAdds[3][2] = GUICtrlCreateList("", 510, 30, 100, 300) $aConn[4][1] = GUICtrlCreateInput("", 615, 5, 25, 20) $aConn[4][2] = GUICtrlCreateList("", 615, 30, 25, 300) $aAdds[4][1] = GUICtrlCreateInput("", 645, 5, 100, 20) $aAdds[4][2] = GUICtrlCreateList("", 645, 30, 100, 300) $aConn[5][1] = GUICtrlCreateInput("", 750, 5, 25, 20) $aConn[5][2] = GUICtrlCreateList("", 750, 30, 25, 300) $aAdds[5][1] = GUICtrlCreateInput("", 780, 5, 100, 20) $aAdds[5][2] = GUICtrlCreateList("", 780, 30, 100, 300) GUISetState(@SW_SHOW) _DatabaseCreate("http://www.shellkorskro.dk/dishesdata/get") _ConnCreate($aConn, 5, 2) _MainCreate($aMain, 1, 2) _AddsCreate($aAdds, 5, 2) _SQLite_Close() _SQLite_Shutdown() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _DatabaseCreate($sSource, $hDB = -1) $sSQL = _INetGetSource($sSource) MsgBox(0, "", $sSQL) _SQLite_Exec($hDB, $sSQL) EndFunc Func _ConnCreate($aConn, $iNum, $iLevel) For $i = 1 to $iNum GUICtrlSetData($aConn[$i][$iLevel], " ") GUICtrlSetData($aConn[$i][$iLevel], "med") GUICtrlSetData($aConn[$i][$iLevel], ",") GUICtrlSetData($aConn[$i][$iLevel], "og") _GUICtrlListBox_SelectString($aConn[$i][$iLevel], " ") Next EndFunc Func _MainCreate($aMain, $iNum, $iLevel, $hDB = -1) Local $hQuery, $aRow, $sMsg _SQlite_Query ($hDB, "SELECT * FROM DishesData WHERE Data1 = 'main';", $hQuery) For $i = 1 to $iNum GUICtrlSetData($aMain[$i][$iLevel], " ") _GUICtrlListBox_SelectString($aMain[$i][$iLevel], " ") Next For $i = 1 to $iNum While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK GUICtrlSetData($aMain[$i][$iLevel], _ANSI2UNICODE($aRow[2])) WEnd Next EndFunc Func _AddsCreate($aAdds, $iNum, $iLevel, $hDB = -1) Local $hQuery, $aRow, $sMsg _SQlite_Query ($hDB, "SELECT * FROM DishesData WHERE Data1 = 'adds';", $hQuery) For $i = 1 to $iNum GUICtrlSetData($aAdds[$i][$iLevel], " ") _GUICtrlListBox_SelectString($aAdds[$i][$iLevel], " ") Next While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK For $i = 1 to $iNum GUICtrlSetData($aAdds[$i][$iLevel], _ANSI2UNICODE($aRow[2])) Next WEnd EndFunc Func _UNICODE2ANSI($sString = "") ; Convert UTF8 to ANSI to insert into DB ; http://www.autoitscript.com/forum/index....p?showtopic=85496&view=findpos ; ProgAndy ; Make ANSI-string representation out of UTF-8 Local Const $SF_ANSI = 1 Local Const $SF_UTF8 = 4 Return BinaryToString(StringToBinary($sString, $SF_UTF8), $SF_ANSI) EndFunc ;==>_UNICODE2ANSI Func _ANSI2UNICODE($sString = "") ; Extract ANSI and Convert to UTF8 to display ; http://www.autoitscript.com/forum/index....p?showtopic=85496&view=findpos ; ProgAndy ; Convert ANSI-UTF8 representation to ANSI/Unicode Local Const $SF_ANSI = 1 Local Const $SF_UTF8 = 4 Return BinaryToString(StringToBinary($sString, $SF_ANSI), $SF_UTF8) EndFunc ;==>_ANSI2 Incase that can help others some day.

Hello fellow AutoIt'ians! I have run into a problem. I have a webpage encoded in UTF-8, all documents and the database (SQLite). My issue is that I need to print some data out from the webpage to my AutoIt script and it makes funny thing out of my danish characters (æøå) and the ½ character. The page where I need to get my data from is clicky! Here everything is shown fine and nice as it should. After having a lil' trip to AutoIt, it looks funny, like this... CREATE TABLE IF NOT EXISTS 'DishesData' (Id INTEGER PRIMARY KEY, 'Data1' , 'Data2' , 'Data3' , 'Data4' , 'Data5' , 'Data6' , 'Data7' , 'Data8' , 'Data9' );INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', '½ grill kylling');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Afrikansk hakkebøf');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'AndelÃ¥r');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Benløse fugle');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Boller i karry');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'BrunkÃ¥l');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Brændende kærlighed');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Bøflindstrøm');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Culottesteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Farsbrød');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Fiskefilet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Forloren hare');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Frikadeller');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Friskefrikadeller');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Fyldt kylling');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Fyldt rødspætte');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Glaseret hamburgerryg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Glaseret skinke');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Grillkøller');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Grillspyd');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Græsk farsbrød');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Gullasch');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Hamburgerryg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Hawaii schnitzel');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'HerregÃ¥rdsbøf');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Hjemmelavet biksemad');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'HvidkÃ¥lsrulletter');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Hvidløgsmarineret kalkunbryst');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Høns i asparges');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kalkun gordon bleu');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kalkungryde');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kamben');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kamsteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Karbonader');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Karrymarineret svinefillet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kartoffelmos');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Koteletter');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Koteletter i fad');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kylling i karry');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kyllingebryst');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Kyllingefilet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'KÃ¥lruller');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Laksefilet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Marinerede kam ben');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Marineret kylling');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Marineret svinefilet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Medister');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Millionbøf');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Mørbradbøf');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Mørbradgryde');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Nakkefilet');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Oksesteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Pastaret');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Ribbensteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Rullesteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Schnitzel');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Shepards pie');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Skinkesteg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Stegt flæsk');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Svensk pølseret');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Tarteletter');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('main', 'Ã…lerøget skinke');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', '(oksekød med kartoffelmos)');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'agurkesalat');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'bacon');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'bearnaisesovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'blandet salat');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'bløde løg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'brunsovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'champignon');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'cocktail pølser');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'fars');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'flødekartofler');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'flødesovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'grøn salat');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'grønsager');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'grønsagssovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'gulerødder');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'kalkunkød');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'kartoffelmos');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'kartofler');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'kylling');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'løg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'paprikasovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'persillesovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'ris');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'rødbeder');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'røde pølser');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'rødkÃ¥l');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'salat');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'sovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'spejlæg');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'spinatsovs');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'stegte grønsager');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'stuvede grønsager');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'stuvede gulerødder');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'stuvede ærter');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'stuvet hvidkÃ¥l');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'surt');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'tyttebær');INSERT INTO 'DishesData' (Data1, Data2) VALUES ('adds', 'ærter'); My code looks like this... #include <GUIConstantsEx.au3> #include <SQLite.au3> #include <SQLite.dll.au3> #include <GUIListBox.au3> #include <INet.au3> Dim $aMain[2][3] Dim $aConn[6][3] Dim $aAdds[6][3] _SQLite_Startup() _SQLite_Open() GUICreate("Dishes", 885, 400) $aMain[1][1] = GUICtrlCreateInput("", 5, 5, 200, 20) $aMain[1][2] = GUICtrlCreateList("", 5, 30, 200, 300) $aConn[1][1] = GUICtrlCreateInput("", 210, 5, 25, 20) $aConn[1][2] = GUICtrlCreateList("", 210, 30, 25, 300) $aAdds[1][1] = GUICtrlCreateInput("", 240, 5, 100, 20) $aAdds[1][2] = GUICtrlCreateList("", 240, 30, 100, 300) $aConn[2][1] = GUICtrlCreateInput("", 345, 5, 25, 20) $aConn[2][2] = GUICtrlCreateList("", 345, 30, 25, 300) $aAdds[2][1] = GUICtrlCreateInput("", 375, 5, 100, 20) $aAdds[2][2] = GUICtrlCreateList("", 375, 30, 100, 300) $aConn[3][1] = GUICtrlCreateInput("", 480, 5, 25, 20) $aConn[3][2] = GUICtrlCreateList("", 480, 30, 25, 300) $aAdds[3][1] = GUICtrlCreateInput("", 510, 5, 100, 20) $aAdds[3][2] = GUICtrlCreateList("", 510, 30, 100, 300) $aConn[4][1] = GUICtrlCreateInput("", 615, 5, 25, 20) $aConn[4][2] = GUICtrlCreateList("", 615, 30, 25, 300) $aAdds[4][1] = GUICtrlCreateInput("", 645, 5, 100, 20) $aAdds[4][2] = GUICtrlCreateList("", 645, 30, 100, 300) $aConn[5][1] = GUICtrlCreateInput("", 750, 5, 25, 20) $aConn[5][2] = GUICtrlCreateList("", 750, 30, 25, 300) $aAdds[5][1] = GUICtrlCreateInput("", 780, 5, 100, 20) $aAdds[5][2] = GUICtrlCreateList("", 780, 30, 100, 300) GUISetState(@SW_SHOW) _DatabaseCreate("http://www.shellkorskro.dk/dishesdata/get") _ConnCreate($aConn, 5, 2) _MainCreate($aMain, 1, 2) _AddsCreate($aAdds, 5, 2) _SQLite_Close() _SQLite_Shutdown() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _DatabaseCreate($sSource, $hDB = -1) $sSQL = _INetGetSource($sSource) ClipPut($sSQL) MsgBox(0, "", $sSQL) _SQLite_Exec($hDB, $sSQL) EndFunc Func _ConnCreate($aConn, $iNum, $iLevel) For $i = 1 to $iNum GUICtrlSetData($aConn[$i][$iLevel], " ") GUICtrlSetData($aConn[$i][$iLevel], "med") GUICtrlSetData($aConn[$i][$iLevel], ",") GUICtrlSetData($aConn[$i][$iLevel], "og") _GUICtrlListBox_SelectString($aConn[$i][$iLevel], " ") Next EndFunc Func _MainCreate($aMain, $iNum, $iLevel, $hDB = -1) Local $hQuery, $aRow, $sMsg _SQlite_Query ($hDB, "SELECT * FROM DishesData WHERE Data1 = 'main';", $hQuery) For $i = 1 to $iNum GUICtrlSetData($aMain[$i][$iLevel], " ") _GUICtrlListBox_SelectString($aMain[$i][$iLevel], " ") Next For $i = 1 to $iNum While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK GUICtrlSetData($aMain[$i][$iLevel], $aRow[2]) WEnd Next EndFunc Func _AddsCreate($aAdds, $iNum, $iLevel, $hDB = -1) Local $hQuery, $aRow, $sMsg _SQlite_Query ($hDB, "SELECT * FROM DishesData WHERE Data1 = 'adds';", $hQuery) For $i = 1 to $iNum GUICtrlSetData($aAdds[$i][$iLevel], " ") _GUICtrlListBox_SelectString($aAdds[$i][$iLevel], " ") Next While _SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK For $i = 1 to $iNum GUICtrlSetData($aAdds[$i][$iLevel], $aRow[2]) Next WEnd EndFunc Any genius who can enlighten me, I have been playing around with charsets on my webpage, without luck. I can't really change the charset of the database either as it has to support special characters. Thanks in advance, Vossen

Couldn't make Bowmore's try act 100% as I wanted it to, but thanks to GEOSoft I was able to test all sorts of lame ideas and somehow I made it work. Thanks.

It seems to work for my use, thank you! I am not sure I ever will get RegExp. Edit: The new one seems to miss a part though.

Hi, I need some help as I never really got StringRegExp. I get text like e.g. ["I WANT THIS","I WANT THIS","I WANT THIS",I WANT THIS]I WANT THIS or ["I WANT THIS","I WANT THIS","I WANT THIS",I WANT THIS]I WANT THIS["I WANT THIS","I WANT THIS","I WANT THIS",I WANT THIS]I WANT THIS["I WANT THIS","I WANT THIS","I WANT THIS",I WANT THIS]I WANT THIS When doing this... StringRegExp($aFile[$i], '(?i)["(.*?)","(.*?)","(.*?)",(.*?)](.*?)', 1) It returns: I WANT THIS","I WANT THIS","I WANT THIS",I WANT THIS]I WANT THIS Then I tried... StringRegExp($aFile[$i], '(?i)["([^"]+)","([^"]+)","([^"]+)",([^"]+)](.*?)', 1) But then it returns nothing... Please help, my brain fried. Did I completely misunderstand the concept of RegExp? // Vossen

This kinda sentence make me kinda pissed: "Next time, please search these forums using the export function before posting." "Next time," like he just helped me with something really easy, which I just could have searched for in a few seconds, and the fact that he tells me to search, although I pointed out in the very start of my post that I searched without luck. Also that he points out what I should have searched for, which is pretty obvious now that I found it. It might not be what he did, but the way he did it, imo. he should just have left that comment as it was, not there. Edit: I have to admit, that I may have used a wrong word, when I wrote it I was kinda frustrated and I may have used a wrong choise of words. Sort of regret that, sorry. Edit: Also as you might see I linked to a French forum, even had to Google Translate it to understand the language just abit, how would I have found that without searching? I searched here for quite a while, I found that GDI+ had to be a way, though eventually I gave up and moved on to Google. After a few hours of searching I found what I needed. Went from scratch to what I needed all by myself, instead of just instant posting here for help and it makes me frustrated that you get the "Next time, please search these forums using the export function before posting." after a few hours of search here and on Google.

Sorry, m8, not to be offensive, but do you have to be such an a**? I may need to search better, but then you'll have to read better! As I said: "When I searched this forum, I couldn't find any way to get a pixel color from an image" and if I had no idea how to do it, how should I then know I would have to search for GdipBitmapGetPixel? Atleast I found what I were looking for and I was nice enough to post it here for others usage. Vossen - Kinda pissed!

When I searched this forum, I couldn't find any way to get a pixel color from an image. Done some research and found this on a french AutoIt forum (http://www.autoitscript.fr/forum/viewtopic.php?f=3&t=2993&start=0) #include <GDIPlus.au3> $sv_ImageSource = @ScriptDir & "\Source.jpg" $iPosX = 253 $iPosY = 291 _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($sv_ImageSource) MsgBox(0, "Pixel Color", _GDIPlus_BitmapGetPixel($hImage, $iPosX, $iPosY)) _GDIPlus_ImageDispose($hImage) _GDIPlus_ShutDown() Func _GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY) Local $tArgb, $pArgb, $aRet $tArgb = DllStructCreate("dword Argb") $pArgb = DllStructGetPtr($tArgb) $aRet = DllCall($ghGDIPDll, "int", "GdipBitmapGetPixel", "hwnd", $hBitmap, "int", $iX, "int", $iY, "ptr", $pArgb) Return "0x" & Hex(DllStructGetData($tArgb, "Argb"), 6) EndFunc Hope it will be useful for someone else too!

Nice program, works perfectly. Really useful.