supadodger 0 Posted December 1, 2010 cant figure out what is making my case(s) run when the labels are not clicked. if i click go it just constantly runs through inetget... expandcollapse popup#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <ButtonConstants.au3> #include <Inet.au3> #include <String.au3> Opt("TrayIconDebug", 1) #Region ### START Koda GUI section ### Form= Local $iPrevMode = AutoItSetOption("WinTitleMatchMode", 4) Local $aTaskBar_Pos = WinGetPos("classname=Shell_TrayWnd") AutoItSetOption("WinTitleMatchMode", $iPrevMode) If IsArray($aTaskBar_Pos) Then $height = @DesktopHeight - $aTaskBar_Pos[3] $height = $height - 30 $Form1 = GUICreate("Form1", @DesktopWidth - 1, $height, 1, 1) Else ConsoleWrite("Not Found" & @CRLF) EndIf Global $label[1000], $url[1000], $torrent[1000], $name[1000] $button1 = GUICtrlCreateButton("Go", @DesktopWidth - 90, 8, -1, 21, $BS_DEFPUSHBUTTON) $Input1 = GUICtrlCreateInput("Input1", 8, 8, @DesktopWidth - 100, 21) $oIE = ObjCreate("Shell.Explorer.2") $GUIActiveX = GUICtrlCreateObj($oIE, 8, 32, @DesktopWidth / 2 - 18, $height - 40) GUICtrlSetState($GUIActiveX, $GUI_Disable) GUICtrlSetBkColor(-1, 0xFFEBE8) $lheight = 32 For $x = 1 To 25 $url[$x] = "http://www.google.com" $label[$x] = GUICtrlCreateLabel("", @DesktopWidth / 2, $lheight, @DesktopWidth / 2 - 18, 15, $SS_NOTIFY) $lheight = $lheight + 15 Next GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $oIE.navigate("http://www.imdb.com") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button1 FileDelete("tpbtemp.db") $a1 = _INetGetSource("http://thepiratebay.org/search/monster%20house/0/7/200") $torrent = _StringBetween($a1, 'class="detLink"', '<td class="vertTh">') For $x = 0 To UBound($torrent) - 1 ;GUICtrlDelete($label[$x]) FileWriteLine("tpbtemp.db", $torrent[$x]) Next $lheight = 32 $torrent = _StringBetween(FileRead("tpbtemp.db"), '<a href="', '"') $name = _StringBetween(FileRead("tpbtemp.db"), 'title="Details for ', '"') $seeders = _StringBetween(FileRead("tpbtemp.db"), '<td align="right">', '<') $leechers = _StringBetween(FileRead("tpbtemp.db"), '<a href="', '"') For $x = 1 To UBound($name) - 1 GuiCtrlSetData ($Label[$x],$name[$x] & "*** Seeds : " & $seeders[$x]) ;$label[$x] = GUICtrlCreateLabel(StringLeft($name[$x] & " ", 50) & " | Seeds : " & $seeders[$x], @DesktopWidth / 2, $lheight, @DesktopWidth / 2 - 18, -1, $SS_NOTIFY) $lheight = $lheight + 15 Next Case $label[0] InetGet($torrent[0], "\\Dellmce\e\Torrents\" & $name[0]) Case $label[1] InetGet($torrent[1], "\\Dellmce\e\Torrents\" & $name[1]) Case $label[2] InetGet($torrent[2], "\\Dellmce\e\Torrents\" & $name[2]) Case $label[3] InetGet($torrent[3], "\\Dellmce\e\Torrents\" & $name[3]) Case $label[4] InetGet($torrent[4], "\\Dellmce\e\Torrents\" & $name[4]) Case $label[5] InetGet($torrent[5], "\\Dellmce\e\Torrents\" & $name[5]) Case $label[6] InetGet($torrent[6], "\\Dellmce\e\Torrents\" & $name[6]) Case $label[7] InetGet($torrent[7], "\\Dellmce\e\Torrents\" & $name[7]) Case $label[8] InetGet($torrent[8], "\\Dellmce\e\Torrents\" & $name[8]) Case $label[9] InetGet($torrent[9], "\\Dellmce\e\Torrents\" & $name[9]) Case $label[10] InetGet($torrent[10], "\\Dellmce\e\Torrents\" & $name[10]) Case $label[11] InetGet($torrent[11], "\\Dellmce\e\Torrents\" & $name[11]) Case $label[12] InetGet($torrent[12], "\\Dellmce\e\Torrents\" & $name[12]) Case $label[13] InetGet($torrent[13], "\\Dellmce\e\Torrents\" & $name[13]) Case $label[14] InetGet($torrent[14], "\\Dellmce\e\Torrents\" & $name[14]) Case $label[15] InetGet($torrent[15], "\\Dellmce\e\Torrents\" & $name[15]) Case $label[16] InetGet($torrent[16], "\\Dellmce\e\Torrents\" & $name[16]) Case $label[17] InetGet($torrent[17], "\\Dellmce\e\Torrents\" & $name[17]) Case $label[18] InetGet($torrent[18], "\\Dellmce\e\Torrents\" & $name[18]) Case $label[19] InetGet($torrent[19], "\\Dellmce\e\Torrents\" & $name[19]) Case $label[20] InetGet($torrent[20], "\\Dellmce\e\Torrents\" & $name[20]) Case $label[21] InetGet($torrent[21], "\\Dellmce\e\Torrents\" & $name[21]) Case $label[22] InetGet($torrent[22], "\\Dellmce\e\Torrents\" & $name[22]) Case $label[23] InetGet($torrent[23], "\\Dellmce\e\Torrents\" & $name[23]) Case $label[24] InetGet($torrent[24], "\\Dellmce\e\Torrents\" & $name[24]) EndSwitch WEnd Func TPB() EndFunc ;==>TPB Func Find_Taskbar() EndFunc ;==>Find_Taskbar Share this post Link to post Share on other sites
Melba23 3,496 Posted December 1, 2010 (edited) supadodger,You have declared the $label array, but not set any of the elements. That means that they are all regarded as 0, which is what you get as a return from GUIGetMsg() when you have no messages in the queue. So it fires on the first available Case - $label[0]. As soon as you actually create the labels, everything will work normally. All clear? M23Edit: Typnig. Edited December 1, 2010 by Melba23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Share this post Link to post Share on other sites
supadodger 0 Posted December 1, 2010 (edited) supadodger, As soon as you actually create the labels, everything will work normally. All clear? arent they created right here? For $x = 1 To 25 $url[$x] = "http://www.google.com" $label[$x] = GUICtrlCreateLabel("", @DesktopWidth / 2, $lheight, @DesktopWidth / 2 - 18, 15, $SS_NOTIFY) $lheight = $lheight + 15 Next Edited December 1, 2010 by supadodger Share this post Link to post Share on other sites
supadodger 0 Posted December 1, 2010 i got it my first label is label[0] but my for $x goes 1 to 25 it should be 0 to 24 thanks Share this post Link to post Share on other sites
Melba23 3,496 Posted December 1, 2010 (edited) supadodger,Sorry, I was looking at the commented ;$label[$x] = GUICtrlCreateLabel line immediately above the Case $label[0]. However, the problem is exactly as I described - here are 2 sections from your script:; Create the labels For $x = 1 To 25 $url[$x] = "http://www.google.com" $label[$x] = GUICtrlCreateLabel("", 1,1,1,1, $SS_NOTIFY) $lheight = $lheight + 15 Next ; read the labels Case $label[0] InetGet($torrent[0], "\\Dellmce\e\Torrents\" & $name[0]) Case $label[1] InetGet($torrent[1], "\\Dellmce\e\Torrents\" & $name[1])Notice anything about the indices? What do you think is in $label[0]? M23Edit: I see you found it. Edited December 1, 2010 by Melba23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Share this post Link to post Share on other sites