Herb191

Yes that’s what is suppose to happen when you click on the select buttons. The problem is when I run it there is about a 10 to 20 second delay before clicking on the select buttons do anything. The weird thing is that the other buttons will work immediately.

This script works but it is vary slow. Three buttons work almost immediately (next, previous and ok) but the other buttons labeled BookSelcitonOption1-4 take forever to work. I’m not sure why. Any suggestions would be appreciated. Thanks P.S. I just coped this script out of my main program and made a few changes so there are some extra variables that aren’t used in this part of script. #include <GUIConstantsEx.au3> #include <WindowsConstants.au3>; #include <GuiImageList.au3> _Scanoutgui() Func _Scanoutgui() Global $Record,$BarCodeNumber, $BookEntrySpot, $BookEntrySpot, $BookNumber, $TextToCount, $TextToCount, $TextCharacterCounter Global $ScanningOutOfWAREHOUSE, $ScanningOutOfREPAIR, $ScanningOutOfSTORE, $font, $DisplayEntry, $TEXT, $DisplayTotals Local $Next, $Previous, $BookToScanOutwin, $a, $Checkoutput, $OutputCounter, $b, $destination Local $output2, $msg, $results, $Okbutton, $outputTitle1, $OutputT1, $OutputListPrice Local $OutputListPrice1, $OutputConditionOfBook1, $OutputAssingmentNumber1 Local $OutputListPrice2, $OutputConditionOfBook2, $OutputAssingmentNumber2 Local $OutputListPrice3, $OutputConditionOfBook3, $OutputAssingmentNumber3 Local $OutputListPrice3, $OutputConditionOfBook3, $OutputAssingmentNumber4 Local $BookSelectionOption1,$BookSelectionOption2, $BookSelectionOption3, $BookSelectionOption4 Local $Message1 Local $hImage, $hDC $Bookinfo = @ScriptDir & "\Bookinfo.ini" $BookEntrySpot = "40" $BookToScanOutwin = GUICreate("Book to scan out", 900, 600, -1, -1, -1, $WS_EX_TOPMOST) $BookToScanOutwin_Pos = WinGetPos($BookToScanOutwin, "") GUISetState(@SW_SHOW) $CopesOfBooksInWarehouse = IniRead($Bookinfo, $BookEntrySpot, "CopesOfBooksInWarehouse", "0") $a = 0 $b = 0 While 1 $Checkoutput = IniRead($Bookinfo, $BookEntrySpot, "WarehouseBook " & $a & "Assignment Number", "Error") Select ;Checks to make sure loop has not gone though all off the books in the ini file. If it has it will exit loop. Case $Checkoutput = ("Error") If $CopesOfBooksInWarehouse < $b Then ExitLoop Case Else $b = $b + 1 ;keeps track of books found Select Case $OutputAssingmentNumber1 = ("") $OutputAssingmentNumber1 = IniRead($Bookinfo, $BookEntrySpot, "WarehouseBook " & $a & "Assignment Number", "Error") $OutputListPrice1 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "LIST PRICE" & $a, "Error") $OutputConditionOfBook1 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "ConditionOfBook" & $a, "Error") ;Displays book 1 info on gui GUISetFont(20, 1000, "", $font) $OutputT1 = IniRead($Bookinfo, $BookEntrySpot, "Title", "Error") $OutputTitle1 = GUICtrlCreateLabel($OutputT1, 5, 5, 300, 70) GUICtrlCreateLabel("Assingment Number", 5, 35, 500, 70) $OutputAssingmentNumber1 = GUICtrlCreateLabel($outputAssingmentNumber1, 400, 35, 300, 70) GUICtrlCreateLabel("Condition Of Book", 5, 65, 500, 70) $OutputConditionOfBook1 = GUICtrlCreateLabel($OutputConditionOfBook1, 400, 65, 300, 70) GUICtrlCreateLabel("List Price", 5, 95, 500, 70) $OutputListPrice1 = GUICtrlCreateLabel($OutputListPrice1, 400, 95, 300, 70) GUICtrlSetFont( -1, 20, 800, "", $font) GUICtrlSetFont($outputTitle1, 20, 800, "", $font) GUICtrlSetFont($outputAssingmentNumber1, 20, 800, "", $font) ;Load images to put under book 1 $hImage = _GUIImageList_Create(900, 4) _GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($BookToScanOutwin, 000000, 900, 4)) ;Draw images to put under book 1 $hDC = _WinAPI_GetDC($BookToScanOutwin) _GUIImageList_DrawEx($hImage, 0, $hDC, 0, 125) _WinAPI_ReleaseDC($BookToScanOutwin, $hDC) ;Displays book 2 info Case $OutputAssingmentNumber2 = ("") $OutputAssingmentNumber2 = IniRead($Bookinfo, $BookEntrySpot, "WarehouseBook " & $a & "Assignment Number", "Error") $OutputListPrice2 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "LIST PRICE" & $a, "Error") $OutputConditionOfBook2 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "ConditionOfBook" & $a, "Error") ;Displays book 2 info on gui GUISetFont(20, 1000, "", $font) $OutputT1 = IniRead($Bookinfo, $BookEntrySpot, "Title", "Error") $outputTitle1 = GUICtrlCreateLabel($OutputT1, 5, 140, 300, 70) GUICtrlCreateLabel("Assingment Number", 5, 170, 500, 70) $outputAssingmentNumber2 = GUICtrlCreateLabel($outputAssingmentNumber2, 400, 170, 300, 70) GUICtrlCreateLabel("Condition Of Book", 5, 200, 500, 70) $OutputConditionOfBook2 = GUICtrlCreateLabel($OutputConditionOfBook2, 400, 200, 300, 70) GUICtrlCreateLabel("List Price", 5, 230, 500, 70) $OutputListPrice2 = GUICtrlCreateLabel($OutputListPrice2, 400, 230, 300, 70) ;Load images to put under book 2 $hImage = _GUIImageList_Create(900, 4) _GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($BookToScanOutwin, 000000, 900, 4)) ;Draw images to put under book 2 $hDC = _WinAPI_GetDC($BookToScanOutwin) _GUIImageList_DrawEx($hImage, 0, $hDC, 0, 260) _WinAPI_ReleaseDC($BookToScanOutwin, $hDC) ;displays book 3 info Case $OutputAssingmentNumber3 = ("") $OutputAssingmentNumber3 = IniRead($Bookinfo, $BookEntrySpot, "WarehouseBook " & $a & "Assignment Number", "Error") $OutputListPrice3 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "LIST PRICE" & $a, "Error") $OutputConditionOfBook3 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "ConditionOfBook" & $a, "Error") ;Displays book 3 info on gui GUISetFont(20, 1000, "", $font) $OutputT1 = IniRead($Bookinfo, $BookEntrySpot, "Title", "Error") $OutputTitle1 = GUICtrlCreateLabel($OutputT1, 5, 275, 300, 70) GUICtrlCreateLabel("Assingment Number", 5, 305, 500, 70) $OutputAssingmentNumber3 = GUICtrlCreateLabel($OutputAssingmentNumber3, 400, 305, 300, 70) GUICtrlCreateLabel("Condition Of Book", 5, 335, 500, 70) $OutputConditionOfBook3 = GUICtrlCreateLabel($OutputConditionOfBook3, 400, 335, 300, 70) GUICtrlCreateLabel("List Price", 5, 365, 500, 70) $OutputListPrice3 = GUICtrlCreateLabel($OutputListPrice3, 400, 365, 300, 70) ; Load images to put under book 3 $hImage = _GUIImageList_Create(900, 4) _GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($BookToScanOutwin, 000000, 900, 4)) ; Draw images to put under book 3 $hDC = _WinAPI_GetDC($BookToScanOutwin) _GUIImageList_DrawEx($hImage, 0, $hDC, 0, 395) _WinAPI_ReleaseDC($BookToScanOutwin, $hDC) ;displays book 4 info Case $OutputAssingmentNumber4 = ("") $OutputAssingmentNumber4 = IniRead($Bookinfo, $BookEntrySpot, "WarehouseBook " & $a & "Assignment Number", "Error") $OutputListPrice4 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "LIST PRICE" & $a, "Error") $OutputConditionOfBook4 = IniRead($Bookinfo, $BookEntrySpot, "Warehouse" & "ConditionOfBook" & $a, "Error") ;Displays book 4 info on gui GUISetFont(20, 1000, "", $font) $OutputT1 = IniRead($Bookinfo, $BookEntrySpot, "Title", "Error") $OutputTitle1 = GUICtrlCreateLabel($OutputT1, 5, 410, 300, 70) GUICtrlCreateLabel("Assingment Number", 5, 440, 500, 70) $OutputAssingmentNumber4 = GUICtrlCreateLabel($OutputAssingmentNumber4, 400, 440, 300, 70) GUICtrlCreateLabel("Condition Of Book", 5, 470, 500, 70) $OutputConditionOfBook4 = GUICtrlCreateLabel($OutputConditionOfBook4, 400, 470, 300, 70) GUICtrlCreateLabel("List Price", 5, 500, 500, 70) $OutputListPrice4 = GUICtrlCreateLabel($OutputListPrice4, 400, 500, 300, 70) ; Load images to put under book 4 $hImage = _GUIImageList_Create(900, 4) _GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($BookToScanOutwin, 000000, 900, 4)) ; Draw images to put under book 4 $hDC = _WinAPI_GetDC($BookToScanOutwin) _GUIImageList_DrawEx($hImage, 0, $hDC, 0, 530) _WinAPI_ReleaseDC($BookToScanOutwin, $hDC) EndSelect EndSelect If $OutputCounter = $CopesOfBooksInWarehouse Then ExitLoop $a = ($a + 1) WEnd ;Displays messages on gui $Message1 = GUICtrlCreateLabel("Please select the book you are scanning out and press ok", 565, 10, 300, 70) GUICtrlSetFont($Message1, 13, 800, "", $font) GUICtrlSetColor(-1, 0xFF0000) ;Displays next pevious and ok button as well as resting the button font GUISetFont(10, 800, "", $font) $Next = GUICtrlCreateButton("Next", 5, 560, 50, 30) $Previous = GUICtrlCreateButton("Previous", 65, 560, 70, 30) $Okbutton = GUICtrlCreateButton("Ok", 800, 560, 70, 30) ;Displays "SELECT" buttons $BookSelectionOption1 = GUICtrlCreateButton("SELECT", 565, 85, 300, 30) $BookSelectionOption2 = GUICtrlCreateButton("SELECT", 565, 220, 300, 30) $BookSelectionOption3 = GUICtrlCreateButton("SELECT", 565, 355, 300, 30) $BookSelectionOption4 = GUICtrlCreateButton("SELECT", 565, 490, 300, 30) GUISetState() ; Run the GUI until the dialog is closed While 1 $msg = GUIGetMsg() Select Case $msg = $Next MsgBox(4096, "", "Next") GUIDelete() ExitLoop Case $msg = $Previous MsgBox(4096, "", "Perevious") GUIDelete() ExitLoop Case $msg = $BookSelectionOption1 GUICtrlSetColor ($BookSelectionOption1, 0xFF0000) Case $msg = $BookSelectionOption2 GUICtrlSetColor ($BookSelectionOption2, 0xFF0000) Case $msg = $BookSelectionOption3 GUICtrlSetColor ($BookSelectionOption3, 0xFF0000) Case $msg = $BookSelectionOption4 GUICtrlSetColor ($BookSelectionOption4, 0xFF0000) Case $msg = $GUI_EVENT_CLOSE GUIDelete() ExitLoop Case $msg = $Okbutton MsgBox(4096, "", "ok") GUIDelete() ExitLoop EndSelect WEnd EndFunc Here is the ini file used in the script: [40] Title=Big Bounce LIST PRICE=7.50 Numberofcopies=6 StoreLIST PRICE1=7.50 WarehouseConditionOfBook9=VERYGOOD WarehouseBook 9Assignment Number=B112 WarehouseBookTrackerNumber131=131 WarehouseLIST PRICE10=7.50 WarehouseConditionOfBook10=VERYGOOD WarehouseBook 10Assignment Number=B113 WarehouseBookTrackerNumber132=132 WarehouseLIST PRICE11=7.50 WarehouseConditionOfBook11=VERYGOOD WarehouseBook 11Assignment Number=B114 WarehouseBookTrackerNumber133=133 WarehouseLIST PRICE12=7.50 WarehouseConditionOfBook20=VERYGOOD WarehouseBook 20Assignment Number=B123 WarehouseBookTrackerNumber142=142 WarehouseLIST PRICE21=7.50 WarehouseConditionOfBook21=VERYGOOD WarehouseBook 21Assignment Number=B124 WarehouseBookTrackerNumber143=143 WarehouseLIST PRICE22=7.50 WarehouseConditionOfBook22=VERYGOOD WarehouseBook 22Assignment Number=B125 WarehouseBookTrackerNumber144=144 WarehouseLIST PRICE23=7.50 CopesOfBooksInWarehouse=5

Thanks I think that will get me going in the right direction. As for StringLen I didnt know it existed. When I dont know how to do something I usually spend a lot of time in looking in the help files and form until I find something that I can make work. Lol if you saw some of my other code it might scare you!

Im working on a book scanning program that list the title and list price when I a scan book. It works fine but I would like the list price to be aligned evenly on right when I scan a book. I thought by having the same amount of characters in the GUICtrlCreateLabel the prices would align correctly but it appears that the width of the characters are different. Anyone have anyone have any suggestions? Here is the script: #include <GUIConstantsEx.au3> #include <GuiButton.au3> #include <WindowsConstants.au3> #include <ScrollBarConstants.au3> #include <GUIEdit.au3> _Scanoutgui() Func _Scanoutgui() Global $Record,$BarCodeNumber, $BookEntrySpot, $BookEntrySpot, $BookNumber, $TextToCount, $TextToCount, $TextCharacterCounter Global $ScanningOutOfWAREHOUSE, $ScanningOutOfREPAIR, $ScanningOutOfSTORE Local $msg, $OK, $TEXT GUICreate("",900,600) GUISetState(@SW_SHOW) $OK = GUICtrlCreateButton("OK", 600, 550, 105, 25, $BS_DEFPUSHBUTTON) $DisplayEntry = GUICtrlCreateEdit($TEXT, 10, 50, 500, 400, $ES_AUTOVSCROLL +$ES_AUTOHSCROLL + $WS_VSCROLL + $ES_MULTILINE + $ES_READONLY) GUICtrlSetFont($DisplayEntry, 20) GUICtrlCreateLabel("Enter ISBN +5 Digits", 10, 520, 200) $BarCodeNumber = GUICtrlCreateInput("", 10, 540, 420, 20) GUICtrlSetState(-1, $GUI_FOCUS) $ScanningOutOfSTORE = GUICtrlCreateCheckbox(" BOOK IS BEING SCANNING OUT OF THE STORE", 550, 340, 300, 20) _GUICtrlButton_SetCheck($ScanningOutOfWAREHOUSE, $BST_CHECKED) $ScanningOutOfWAREHOUSE = GUICtrlCreateCheckbox(" BOOK IS BEING SCANNING OUT OF THE WAREHOUSE", 550, 380, 300, 20) _GUICtrlButton_SetCheck($ScanningOutOfWAREHOUSE, $BST_UNCHECKED) $ScanningOutOfREPAIR = GUICtrlCreateCheckbox(" BOOK IS BEING SCANNING OUT OF REPAIR", 550, 420, 300, 20) _GUICtrlButton_SetCheck($ScanningOutOfWAREHOUSE, $BST_UNCHECKED) While 1 $InSystem = ("Yes") While 1 $msg = GUIGetMsg() Select Case $msg = $OK $BarCodeReader = GUICtrlRead ($BarCodeNumber) $BarCodeReader = StringTrimRight ($BarCodeReader, 5) $CharacterCount=StringRegExp($BarCodeReader, "\d", 4) $CharacterCount = (UBound($CharacterCount)) If ($CharacterCount) < (13) Then Select Case ($CharacterCount) < (10) MsgBox(4096, "", "Not a Valid ISBN") ExitLoop Case ($CharacterCount) > (10) MsgBox(4096, "", "Not a Valid ISBN") ExitLoop EndSelect EndIf $Bookinfo = @ScriptDir & "\Bookinfo.ini" $BookNumber = IniRead($Bookinfo, "BookNumber", "BookNumber", "0") $BookNumber2 = (0) While 1 $Duplicatetest = IniRead($Bookinfo, $BookNumber2, "ISBN WITH NO DASHES", "Error") If $Duplicatetest = $BarCodeReader Then $BookEntrySpot = $BookNumber2 ExitLoop EndIf If $BookNumber2 = ($BookNumber+2) Then MsgBox(4096, "", "There is no copy of this book in the system") $InSystem = ("No") ExitLoop EndIf $BookNumber2 = $BookNumber2 + 1 WEnd If $InSystem = ("No") Then guictrlsetdata($BarCodeNumber,"") ExitLoop EndIf $TextToCount = IniRead($Bookinfo, $BookEntrySpot, "Title", "Error") $TEXTCharacterCount=StringRegExp($TextToCount, "\D", 4) $TEXTCharacterCount = (UBound($TEXTCharacterCount)) If $TEXTCharacterCount > 20 Then $TextCharacterCounter = 0 While 1 $TEXTCharacterCount = $TEXTCharacterCount - 1 $TextCharacterCounter = $TextCharacterCounter + 1 If $TEXTCharacterCount = 20 Then $TextToCount = StringTrimRight ($TextToCount, $TextCharacterCounter) & IniRead($Bookinfo, $BookEntrySpot, "LIST PRICE", "Error") ExitLoop EndIf WEnd EndIf If $TEXTCharacterCount < 20 Then $TextCharacterCounter = $TEXTCharacterCount While 1 $TextCharacterCounter = $TextCharacterCounter + 1 $TextToCount = ($TextToCount & ".") If $TextCharacterCounter = 20 Then ExitLoop EndIf WEnd EndIf If $TEXT = ("") then $TEXT = $TextToCount & ".............................." & IniRead($Bookinfo, $BookEntrySpot, "LIST PRICE", "Error") Else $TEXT = $TEXT & @CRLF & $TextToCount & ".............................." & IniRead($Bookinfo, $BookEntrySpot, "LIST PRICE", "Error") EndIf guictrlsetdata($BarCodeNumber,"") guictrlsetdata($DisplayEntry, $TEXT) GUICtrlSetStyle ($DisplayEntry, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL)) _GUICtrlEdit_Scroll($DisplayEntry, $SB_SCROLLCARET) Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd WEnd EndFunc The Bookinfo.ini file looks like this: [BookNumber] BookNumber=4 [2] Title=Off the Chart Author=James Hall ISBN=0312-99723-X ISBN WITH NO DASHES=9780312997236 ISBN13=978-0312-99723-6 Publisher=St Martins Pr Publish Date=St Martins Pr Binding=Paperback LIST PRICE=6.99 Numberofcopies=1 HOUR=22 MIN=59 MON=05 MDAY=02 YEAR=2009 Genre=Miscellaneous LIST PRICE1=6.99 ConditionOfBook1=VERYGOOD CopesOfBooksInStore=1 [3] Title=Target Author=Catherine Coulter ISBN=0515-12562-8 ISBN WITH NO DASHES=9780515125627 ISBN13=978-0515-12562-7 Publisher=Berkley Pub Group Publish Date=Berkley Pub Group Binding=Paperback LIST PRICE=7.99 Numberofcopies=1 HOUR=22 MIN=59 MON=05 MDAY=02 YEAR=2009 Genre=Miscellaneous LIST PRICE1=7.99 ConditionOfBook1=VERYGOOD CopesOfBooksInStore=1 [4] Title=Point Blank Author=Catherine Coulter ISBN=0515-14168-2 ISBN WITH NO DASHES=9780515141689 ISBN13=978-0515-14168-9 Publisher=Berkley Pub Group Publish Date=Berkley Pub Group Binding=Paperback LIST PRICE=7.99 Numberofcopies=1 HOUR=23 MIN=00 MON=05 MDAY=02 YEAR=2009 Genre=Miscellaneous LIST PRICE1=7.99 ConditionOfBook1=VERYGOOD CopesOfBooksInStore=1 If you enter the flowing ISBN numbers and use the Bookinfo.ini file you will see what I mean about the alignment: 978051514168950799 978051512562750750 978031299723650699 Thanks

Thanks for the suggestionsand when I have time Im going to go though that code line by line to see if I can even under stand it.

Thanks it took awhile but I got it working. This is what I ended up doing: $testfile = FileOpen("testfile.txt", 0) $lineNumber = 0 $Bookinfo = @ScriptDir & "\Bookinfo.ini" While 1 $lineNumber = ($lineNumber + 1) $line = FileReadLine($testfile, $lineNumber) If @error = -1 Then ExitLoop Select Case StringInstr($line, "TITLE: ") > 0 $title = StringReplace($line, "TITLE: ", "") IniWrite($Bookinfo, "Vars", "Title", $title) EndSelect Select Case StringInstr($line, "by ") > 0 $Author = StringReplace($line, "by ", "") IniWrite($Bookinfo, "Vars", "Author", $Author) EndSelect Select Case StringInstr($line, "ISBN: ") > 0 $ISBN = StringReplace($line, "ISBN: ", "") IniWrite($Bookinfo, "Vars", "ISBN", $ISBN) EndSelect Select Case StringInstr($line, "ISBN 13: ") > 0 $ISBN13 = StringReplace($line, "ISBN 13: ", "") IniWrite($Bookinfo, "Vars", "ISBN13", $ISBN13) EndSelect Select Case StringInstr($line, "Publisher: ") > 0 $Publisher = StringReplace($line, "Publisher: ", "") IniWrite($Bookinfo, "Vars", "Publisher", $Publisher) EndSelect Select Case StringInstr($line, "Publish Date: ") > 0 $PublishDate = StringReplace($line, "Publish Date: ", "") IniWrite($Bookinfo, "Vars", "Publish Date", $Publisher) EndSelect Select Case StringInstr($line, "Binding: ") > 0 $Binding = StringReplace($line, "Binding: ", "") IniWrite($Bookinfo, "Vars", "Binding ", $Binding) EndSelect Select Case StringInstr($line, "List Price: USD ") > 0 $ListPrice = StringReplace($line, "List Price: USD ", "") IniWrite($Bookinfo, "Vars", "List Price", $ListPrice) EndSelect FileClose("testfile.txt") Wend

Ok, so Im trying to write a peace of script that coverts some text file information on books into a usable ini file. Here is an example of some of the text in the file that I need: TITLE: How to Make Money with Myspace by Dennis Prince ISBN: 0071-54467-4 ISBN 13: 978-0071-54467-2 Publisher: McGraw-Hill Publish Date: February 2008 Binding: Paperback , 256 pages Weight: 0.8 pounds List Price: USD 21.95 Ideally after running the script my ini file would look like this: [Vars] Tile=How to Make Money with Myspace Author =Dennis Prince ISBN=0071-54467-4 ISBN13=978-0071-54467-2 Publisher=McGraw-Hill Publish Date=February 2008 Binding=Paperback ListPrice=21.95 I have tried versus combinations of StringInStr, FileReadLine and _StringBetween to get the info from the file but all with no luck. I thought _StringBetween would be my best bet but I cant seem to get it to work on any text that has spaces or returns in them. Here is what I have been trying with the _StringBetween. Any suggestions or pointers would be greatly appreciated. #include <String.au3> #include <file.au3> Dim $Result Dim $filesample local $Rtn = "" Local $fArray Local $Tile _FileReadToArray(@ScriptDir & "testfile.txt", $fArray) For $I = 1 to Ubound($fArray)-1 $Tile = _StringBetween( $fArray[$I], 'TITLE:' , 'by') $Rtn &= $Tile[0] & @CRLF Next $Bookinfo = @ScriptDir & "\Bookinfo.ini" IniWrite($Bookinfo, "Vars", "Tile", $Tile)

An example of one of the links is http://isbn.nu/0345483545 The last number changes depending on what IBSN I am looking for. Sometimes it will go right to the page I need and other times I will get the Please wait We're still waiting for a response from 5 bookstores... So the code right now looks something like this: $IBSNNumber = (0345483545) #include <IE.au3> InetGet("http://isbn.nu/" & $IBSNNumber, "C:\barcode.html", 1, 0)

Anyone? Ive read all the help files I could find as well as searching old posts. I have been working on this all day with out any luck. Any help would be greatly appreciated.

You could try using _IECreate

Apparently I'm not using the right syntax for the _IELoadWait could you give me an example of how you would use it to download an html?

I have written a small script that utilizes the InetGet function. It works great with one exception, sometimes when it saves the html file to my computer it saves the web page that loads before the one I need. It usually says something like please while this page is loading. Is there any way to stop this from happening? Thanks!

Thank You! Youre my hero thats exactly what I need!!

Hello Im new to AutoIT and would appreciate any suggestions you could give me. Im trying to write a program that can use and save information off of the internet. My idea is that I will use INetGetSource to get the source and then use AutoIT to extract the info I need. The first problem I am having is I can get INetGetSource to save to a variable but not to a file. The second problem Is I will only need a couple pieces of data off each website and there would be a lot of info to sift through once I get the html source. Im sure I could can write a program to do this but I cant help to think that some of you more expensed programmers might know a trick to just get the info off the webpage that I need. For example on one website I will be look to see if they a have a couple of books that I am looking for and if they do the only info I what to save to a file is the book authors name which changes with each new search. I could use any ideas you might have. Thanks!