Jefferds44

Hi guys, My goal is to collect data from a series of webpages and write that date to a single Excel worksheet. I spent the morning trying to get this to work but I'm stuck on where to go. I'm using _IETableWriteToArray to get data from a website into an array. I managed to write the table to Excel using _ExcelWriteSheetFromArray. Now where I'm stuck is I can't figure out how to append the Excel sheet once I fill the array with new data. Either I can append the Array before writing to Excel or append the Excel file as I go. Which strategy is best? And if so, could I get a quick sample on how to implement this functionality? Thanks! Jeff EDIT: Here's my non-working code so far: #include <IE.au3> #include <Excel.au3> #include <Array.au3> Global $ESRB = "http://www.esrb.org/ratings/search.jsp?titleOrPublisher=&rating=&ratingsCriteria=&platforms=&platformsCriteria=&searchVersion=compact&content=&searchType=title&contentCriteria=&newSearch.x=33&newSearch.y=11" Global $DataFile = "C:TempDataFile.xls" Global $aGlobalData ; Load ESRB webpage $oIE = _IECreate($ESRB, 1) Do $oTable = _IETableGetCollection($oIE, 2) ; Get Table from webpage $aTableData = _IETableWriteToArray($oTable,1) ;Write table to array ;~ _ArrayDisplay($aTableData) _ArrayAdd($aGlobalData, $aTableData) ; Add more data to array _ArrayDisplay($aTableData) $o_nextPage = _IEGetObjByName($oIE, "nextPage") ;Get nextPage Object $p_nextPageDisabled = _IEPropertyGet($o_nextPage, "isdisabled") If $p_nextPageDisabled == False Then _IEAction($o_nextPage, "click") EndIf Until $p_nextPageDisabled == True

Thank you so much for testing for me. Silly me, I changed my password recently and was using my old one... *embarrassed*

Ok here you go: ; ;################################## ; Include ;################################## #Include<file.au3> ;################################## ; Variables ;################################## $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $FromName = "Jeff Test" ; name from who the email was sent $FromAddress = "tester@gmail.com" ; address from where the mail should come $ToAddress = "jtest@gmail.com" ; destination address of the email - REQUIRED $Subject = "testing 1-2" ; subject from the email - can be anything you want it to be $Body = "this is a test" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "jeff.tester@test.com" ; address for cc - leave blank if not needed $BccAddress = "" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "jtest@gmail.com" ; username for the account used from where the mail gets sent - REQUIRED $Password = "asdfasdfasdf" ; password for the account used from where the mail gets sent - REQUIRED ;~ $IPPort = 25 ; port used for sending the mail ;~ $ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS $IPPort=465 ; GMAIL port used for sending the mail $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc) EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc

I have... ;(

Hi guys, Looking through the forums I couldn't quite pinpoint what I'm doing wrong here. I want to send an e-mail with _INetSmtpMailCom using GMail SMTP credentials. However, I get the following error. ### COM Error ! Number: 80020009 ScriptLine: 564 Description:The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available Any direction would help me out. Thanks,

Hi guys, I have a question relating to identifying windows. I put the option "Opt("WinTitleMatchMode", 2)". Now I'm wondering if I can identify a window based on 2 key strings. For example I have 4 windows with the titles: a) "Windows Explorer - User XYZ - Login user accounts" >_< "Windows Explorer - User ABC - Login user accounts" c) "Windows Explorer - User XYZ - Admin" d) "Windows Explorer - User ABC - Admin" How would I go about identifying the Windows that have both "Windows Explorer" AND "Admin in the title? I'm trying this but it doesn't work: Winexists ("Windows Explorer" AND "Admin")

Very weird. I rebooted my pc and it works now... oh well. Thanks for the replies guys.

Something weird is going on. I'm using the window info tool to find the color of a given pixel but no matter where I put it throughout my screen it always returns 0xFFFFFF. Any thoughts on why this is the case? I'll try rebooting and hopefully someone will have answered by then!

Hi Guys, I read through the documentation on Advanced Window Descriptions and I would need some help. I would like to GetWinList a specific set of windows. However, I have multiple windows with the same title and want to exclude a specific class. I have this so far: Opt("WinTitleMatchMode", 2) $Windows = WinList ("Explorer") This gets the list of windows that have Explorer in the title. However, I want to exclude windows that have Explorer in the title and that are a specific class. Help please... I'm not sure how to write up the syntax with REGEXPCLASS, Thanks,

What the heck are you talking about? I had a fully functioning auto-it script working for me before Full Tilt's graphical update. My script was registering tournaments for me and placing my windows fine. For all intents and purposes I learned auto-it myself and have read through the entire help file many times over. Why the hate? I always read the help file and search the forums first before posting. I'm hitting a wall and that's why I'm calling out to the community here. With respect to your post, why do you feel I'm going about it all wrong? The many scripts I've made for Full Tilt have also never consisted of using OCR. But things have changed. Now, I lay out my strategy for all to see and if you feel I'm not looking at this problem from the right angle, feel free to nudge me in the right direction. I'm not asking anyone to do the work for me, all I ask is for guidance and wisdom. I don't generally provide code, because I'm just asking for general design philosophy. But if you must, here's a snippet of my script. It used to read through the lobby and pull the table information from each line. Now that it is completely graphical, I can't do it that way anymore. [Note: Don't try running it, there are a few other outside functions and variables; but you'll get the general idea] Func GetPlayableTable($SlotNum) ;Checks lobby to get Table ID's that mach session/buy-in parameters Dim $FoundTable = False; Dim $LobbyItemCount; # of lines in lobby Dim $LobbyItem0Text; Table ID Dim $LobbyItem1Text; Game Dim $LobbyItem2Text; Type Dim $LobbyItem3Text; Buy-In Dim $LobbyItem4Text; Status Dim $LobbyItem5Text; Plrs Dim $Line; Line number in tournament list If $SlotTournamentID[$SlotNum] == -1 Then EnsureWinActive($LobbyhWnd) dbg("SlotTournamentID #" & $SlotNum & " == -1. Attempting to get playable table...") Dim $ListViewHandle = ControlGetHandle($FTPLobbyTitle, "", 520) $LobbyItemCount = ControlListView($FTPLobbyTitle, "", 520, "GetItemCount"); dbg("Number of registering tournaments: " & $LobbyItemCount) For $Line = 0 To $LobbyItemCount - 1 Step +1 $FoundTable = False ControlListView($FTPLobbyTitle, "", 520, "Select", $Line); dbg("Listing lobby fields") $LobbyItem0Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 0); dbg($LobbyItem0Text) $LobbyItem1Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 1); dbg($LobbyItem1Text) $LobbyItem2Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 2); dbg($LobbyItem2Text) $LobbyItem3Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 3); dbg($LobbyItem3Text) $LobbyItem4Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 4); dbg($LobbyItem4Text) $LobbyItem5Text = ControlListView($FTPLobbyTitle, "", 520, "GetText", $Line, 5); dbg($LobbyItem5Text) $RegTableSuccess = False If (Not CheckAlreadyRegistered($LobbyItem0Text) And ($LobbyItem1Text == $FTPGame) And ($LobbyItem2Text == $FTPType) And ($LobbyItem3Text == $FTPBuyIn) And ($LobbyItem4Text == $Status) And (CheckTableCapacity($LobbyItem5Text))) Then $FoundTable = True; dbg("Found new table #" & $SlotTournamentID[$SlotNum] & " at line " & $Line & ".") $SlotTournamentID[$SlotNum] = $LobbyItem0Text; _GUICtrlListView_SetItemSelected($ListViewHandle, $Line, True, True) EnsureWinActive($LobbyhWnd) ControlClick($FTPLobbyTitle, "", 1031); RegisterTable($SlotTournamentID[$SlotNum]) If $RegTableSuccess == True Then $SlotRegistration[$SlotNum] = 1 ExitLoop Else dbg("$RegTableSuccess Error") EndIf EndIf ControlListView($FTPLobbyTitle, "", 520, "DeSelect", $Line); Next EndIf EndFunc ;==>GetPlayableTable

Sean (or anyone else), I'm trying to work with the UDF, but I don't seem to be able to make it work. It seems to be broken for me at the base level. I'm testing the CaptureToTIFF() function, and it only outputs a blank .tif file. I have the latest version of Tesseract installed in my program files directory. Here's my script: #include <Tesseract.au3> $left_indent = 0 $top_indent = 0 $right_indent = 0 $bottom_indent = 0 $show_capture = 1 CaptureToTIFF("Calculator", "", "", "test01.tif", "", $left_indent, $top_indent, $right_indent, $bottom_indent)

Hi guys, here's what I'm trying to do. I am creating a script that opens poker tables automatically so that I can play. The Full Tilt poker lobby that I want to automate is completely image based. I don't have access to the controls and I can't read from them. The Window Info tool gives me nothing in the control properties and the window itself comes up as class QWidget. It looks like I'm going to have to use an OCR strategy. My strategy is as follows; - The poker lobby lists 18 rows each with a different table. - I want to break down the lobby into 18 different images (1 per row). - I will then scrape the text of each row - Based on the scraped text, I will register the table or not depending on the info I get back. What I would like to know is, are there any UDF's for auto-it that help me out with any of these? Is there an OCR collection of UDFs that allow me to break down the poker lobby into separate images and give me back the text? Thanks for any help you guys may offer up! Thanks, Jeff

What I'm looking for is unrelated to my specific problem. My explanation about my setup is there only to give a certain amount of context. What I'm looking for is some advice on common mistakes done with Auto-it that could throw everything else out of whack. But that's fine, I understand if my request is too generic to warrant a clear cut answer. I was just looking for things like basic tips & tricks. The kind of stuff veterans like yourself learned the hard way and are kind enough to share with nooblers.

damn Not even a push in any direction....

Hi guys, I'm running an auto-it script that is performing a certain action on the side of another program. This other program isn't an auto-it script but it has some automated features. When I run my auto-it script simultaneously with my 1st program, the auto-it script cause the first program to make mis-clicks. Can someone please help guide me in how to debug this? I'm lost and don't know where to start. Thanks, Jeff

Hi guys, Can someone please explain to me how the PixelGetColor function works in relation to the pixel location? What I want to do is get the color of a pixel within a given window. I want to specify relative coordinates to the window. Not absolute because the window moves around. Can I use the windows hWnd with the PixelGetColor function in some way? Thanks, Jeff

Hi guys, Say I have two windows with the following titles: 1) "Table #12345678" & 2) "Chat:Table #12345678" I want to get the handle for the first window but I always get the handle of the 2nd one for some reason. I am using WinTitleMatchMode == 2. I think I should use the [REGEXPTITLE] but I'm not sure how to get the syntax right. Pseudo code would be: Get handle for the window (with "Table #12345678" in the title) (that does NOT have "Chat:" in it.) Thanks for the help, Jeff

I'm not sure exactly what that means... ?

BrettF, Thanks for the reply. I'm back to this problem again. I have a strategy to rename the windows to different names. It works fine. But the program seems to reset the window titles at some point. Is there a way to manage windows w/o resorting to renaming strategies? Also, I searched the FAQ for the example you refer to but couldn't find it. Thanks, Jeff

Thanks man. With your help I was able to find the button index and command id.

Hey Kafu, and others, I'm talking about functions like "_GUICtrlToolbar_PressButton" _GUICtrlToolbar_PressButton($hWnd, $iCommandID[, $fPress = True]) It has the following parameters: Parameters $hWnd Handle to the control $iCommandID Button command ID $fPress Pressed state: True - Button will be set to a pressed state False - Button will be set to an unpressed state What I want to do is ensure that a specific button is pressed down (toggled so that it is pressed in). The only problem is that I think that the $iCommandID variable is to identify the specific button in a ToolbarWindow32 control... but I don't know how to get the info on the button in question. How do I know what the $iCommandID is for the button I want to press? Thanks, Jeff

Hi, I want to use the _GUICtrlToolbar_ UDF functions but they mostly rely on knowing the handle for the control and the button's $iCommandID Button command ID . Problem is, I can't seem to find out how to get the button command ID that I want to press. How do I get that info? The Window Info tool only gives me info on the Control and not the specific Button. Thanks, Jeff

Hi guys, I want to manage multiple windows but they all have the same title. I know they have a unique Handle. I'm having a hard time wrapping my head around what strategy to use to manage them. Any thoughts? THanks

Hi guys, I'm getting the following error: D:\test6.au3 (53) : ==> Subscript used with non-Array variable.: I think I might not be using array variables correctly. My intention is to get the pixel color of different locations on my screens. If the pixel color is a specifc color, I want to attribute if that window slot is available in an array variable. The practical application I'm trying to build is a tool that will lay out different poker tables on my screens. Here is my code: Global $SlotTournamentID; Array variable with the Tournament ID# Global $AvailableSlots; Array variable with True False for each slot Global Const $MultiTables = 2; Set number of tables to open at the same time Global $SlotPosX ; Horizontal (X) position of Tournament Window Global $SlotPosY ; Vertical (Y) position of Tournament Window Global Const $FrogPixelLocationX = 239; Horizontal (X) pixel location of frog Global Const $FrogPixelLocationy = 278; Vertical (Y) pixel location of frog Global $PlayMoneyTitle = "Play Money" Global Const $FTPBuyIn = "250"; Set Buy-In amount. "250", "2,000", "10,000", "100,000", "500,000", "1,000,000" CheckAvailableSlots ($AvailableSlots) Func CheckAvailableSlots (ByRef $ASlots); Closes busted-out tables and frees up the slotIDs. Verifies if the "Frog" is not present in one of the slots For $SlotNum = 0 To $MultiTables - 1 Step +1 If $ASlots[$SlotNum] = PixelGetColor ( $SlotPosX [$SlotNum] + $FrogPixelLocationX, $SlotPosY [$SlotNum] + $FrogPixelLocationy) = 0x75260B Then If $FTPRealMoney = 0 Then WinWaitClose ( $FTPBuyIn & " " & $PlayMoneyTitle & " Sit & Go (" & $SlotTournamentID [$SlotNum]) $SlotTournamentID [$SlotNum] = "" Else WinWaitClose ( $FTPBuyIn & " Sit & Go (" & $SlotTournamentID [$SlotNum]) $SlotTournamentID [$SlotNum] = "" EndIf $ASlots[$SlotNum] = PixelGetColor ( $SlotPosX [$SlotNum] + $FrogPixelLocationX, $SlotPosY [$SlotNum] + $FrogPixelLocationy) <> 0x8EB34F EndIf Next Return $ASlots EndFunc Thanks for any help I can get.

Ok, so I solved my problem. I'm ashamed to admit but I hadn't updated Autoit for a while. I decided to install the latest version and it solved my problem. Thanks to everyone for helping me solve this.