mkmcst

Hello seems i have a problom with this script i have been working on the script is search google and display urls in my program my problom is it will only show me the first page of the search cant fig out how to get the script to go to page two of the google search ? For $i = 0 To 1000 $success = $spider.CrawlNext() If ($success = 1) Then ; Show the URL of the page just spidered. GUICtrlSetData($Edit1,$spider.LastHtmlTitle&@CRLF&$spider.LastHtmlKeywords&@CRLF& $spider.GetOutboundLink($i)& @CRLF,1) ; The HTML is available in the LastHtml property Else ; Did we get an error or are there no more URLs to crawl? If ($spider.NumUnspidered = 0) Then Else MsgBox (0,'',$spider.LastErrorText) EndIf EndIf ; Sleep a second before spidering the next URL. $spider.SleepMs(1000) Next

hi thank you for the help but i could not get that AdlibRegister () to work in my script but thank you for pointing that out to me i could of used that in other scripts learn something new everyday it seems i need to learn more on Global dims etc but i took your Global moved it a few times and poof its working for me so i thought i would post my simple server script thanks again for the code bits michael #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <GuiEdit.au3> Opt('MustDeclareVars', 1) Local $szIPADDRESS = @IPAddress1 Local $nPORT = 33892 Local $MainSocket,$ConnectedSocket, $szIP_Accepted Local $msg, $recv dim $Form1,$Server,$Chat,$Edit,$senput,$Send,$Icon1,$Admin,$Nick,$nnnn,$Start,$Stop,$Status,$Conected,$Isp,$Statu,$Icon2,$n #Region ### START Koda GUI section ### Form=C:\Users\creepy\Desktop\mikes fast blast chat\Server.kxf $Form1 = GUICreate("Michaels Fast Blast msg Server (beta)", 552, 513, 225, 158) $Server = GUICtrlCreateTab(0, 0, 545, 505, $TCS_BOTTOM) $Chat = GUICtrlCreateTabItem("Chat") $Edit = GUICtrlCreateEdit("", 8, 8, 529, 377 ,BitOR($ES_MULTILINE, $ES_READONLY,$WS_VSCROLL, $WS_BORDER)) _GUICtrlEdit_LineScroll($Edit, 0, _GUICtrlEdit_GetLineCount($Edit)) $senput = GUICtrlCreateInput("Input1", 8, 399, 401, 21) $Send = GUICtrlCreateButton("Send", 424, 398, 75, 25) $Icon1 = GUICtrlCreateIcon("C:\Users\creepy\Desktop\mikes fast blast chat\irc_protocol.ico", -1, 224, 432, 50, 40) $Admin = GUICtrlCreateTabItem("Admin") GUICtrlSetState(-1,$GUI_SHOW) $Nick = GUICtrlCreateLabel("Nick", 72, 104, 26, 17) $nnnn = GUICtrlCreateInput("Input2", 104, 104, 161, 21) $Start = GUICtrlCreateButton("Start", 440, 424, 75, 25) $Stop = GUICtrlCreateButton("Stop", 360, 424, 75, 25) $Status = GUICtrlCreateLabel("Status", 40, 376, 126, 17) $Conected = GUICtrlCreateLabel("Conected", 40, 392, 126, 17) $Isp = GUICtrlCreateLabel("Isp", 41, 410, 126, 17) $Statu = GUICtrlCreateGroup("Statu", 18, 348, 185, 105) GUICtrlCreateGroup("", -99, -99, 1, 1) $Icon2 = GUICtrlCreateIcon("C:\Users\creepy\Desktop\mikes fast blast chat\applications_internet.ico", -1, 418, 33, 79, 64) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### dim $recv,$ConnectedSocket,$MainSocket ;-------------------------server connect--------------------------------------- Global $MainSocket = $ConnectedSocket While 1 $Msg = GUIGetMsg() If $Msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $Send Then sendd() If $msg = $Start Then startt() If $msg = $Stop Then diss() $recv = TCPRecv($ConnectedSocket,2048) If $recv <> "" Then GUICtrlSetData($edit, $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit)) WEnd ;--------------------send-------------------------- Func sendd() dim $eeeeee $n=GUICtrlRead($nnnn) $eeeeee=GUICtrlRead($senput) GUICtrlSetData($Edit,$eeeeee&">"&$n&@CRLF,1) TCPSend( $ConnectedSocket,$eeeeee&">"&$n&@CRLF) EndFunc ;-------------start server---------------------------- Func startt() TCPStartup() $MainSocket = TCPListen($szIPADDRESS, $nPORT) If $MainSocket = -1 Then Exit $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 return EndFunc

this is my mess lol i have had a real hard time scripting a simple server the client was easy heres what i'm trying to do click a button server starts that part is fine but when i try to recv the only way i got it to work was to use a while loop witch is not good for what i'm trying to do i'm just not understanding the way to script a server its very basic i lookd at other posts evrything i have tryd to do will not work anyone have a hint that mite send me down the right path thank you $Conected = GUICtrlCreateLabel("Conected", 40, 392, 126, 17) $Isp = GUICtrlCreateLabel("Isp", 41, 410, 126, 17) $Statu = GUICtrlCreateGroup("Statu", 18, 348, 185, 105) GUICtrlCreateGroup("", -99, -99, 1, 1) $Icon2 = GUICtrlCreateIcon("C:\Users\creepy\Desktop\mikes fast blast chat\applications_internet.ico", -1, 418, 33, 79, 64) GUICtrlCreateTabItem("") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;---------------dim---------------------------------------------------- dim $recv,$ConnectedSocket While 1 $Msg = GUIGetMsg() If $Msg = $GUI_EVENT_CLOSE Then ExitLoop If $msg = $Send Then sendd() If $msg = $Start Then startt() If $msg = $Stop Then diss() WEnd ;--------------------send-------------------------- Func sendd() $n=GUICtrlRead($nnnn) $eeeeee=GUICtrlRead($senput) GUICtrlSetData($Edit,$eeeeee&">"&$n&@CRLF,1) TCPSend( $ConnectedSocket,$eeeeee&">"&$n&@CRLF) EndFunc ;-------------start server---------------------------- Func startt() Local $szIPADDRESS = @IPAddress1 Local $nPORT = 33891 Local $MainSocket,$ConnectedSocket, $szIP_Accepted Local $msg, $recv TCPStartup() $MainSocket = TCPListen($szIPADDRESS, $nPORT) If $MainSocket = -1 Then Exit $ConnectedSocket = -1 Do $ConnectedSocket = TCPAccept($MainSocket) Until $ConnectedSocket <> -1 ;--------------------socket recive-------------------------------------- while 2 ;------------this is my main prob can this be done without a loop? $recv = TCPRecv($ConnectedSocket,2048) If $recv <> "" Then GUICtrlSetData($edit, _ $szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit)) WEnd EndFunc

hi all can we use color in a tab control i try GUICtrlSetColor(-1, 0xff0000) but dont seem to have much luck thank you

thank you guys works good

hi all i'm stuck hate when i get stuck lol but i have a editbox when its filled with text the bar scrolls up to the top i need the scroll bar to stay on the bottom cant fig it out i need the scoll bar not to move when the editbox has new text but seems it wants to always go to the top of the editbox thank you

thank you i got it fig out

Hi all looking for some help if i may ask i have been looking under topics for drag n drops cant seem to find what i'm looking for is there a smimple way to drag a text file to a exe and get the full path of the file i would be thankfull i got a autoit exe i need to drag a text file to it and get the path of the file if someone could point me in the right path in doing this thank you

ok thank you guys for the replys i'll see what i can do i'm sure i'll fig it out one way or the other might take me a few days lol

i was wondering what the -1 ment in the GUICtrlSetData something to do with error ?? GUICtrlSetData(-1, , ) i cant seem to fig out how to fill the listbox with the GUICtrlSetData hmmmmmm

hi i have a Question i'm doing a scan and i was trying to put the results on the scan in a listbox i thought we use the GUICtrlSetData ? but it dose not to seem to work for me or it could be i'm just not understanding how to use it the right way i would like to fill the listbox with the _ArrayDisplay ($aResults) but know luck yet func scann() $spath = "c:\" $sRequest = "*.txt" $aResults = _FileSearch($sPath, $sRequest, 1, 0) If @error Then MsgBox(48, "Attention!", "No files found.") Else GUICtrlSetData($Llist ,$aResults) _ArrayDisplay ($aResults) EndIf endfunc

yes thank you 99ojo thank you for changing that for me i could not get it to work i will study the new code and learn from it thanks so much and im sorry about the post i understand i fixed it mike

Hi all i got this nice script off the forum its a nice and fast Search Function very nice script i'm trying to use it in my own script i'm trying to rid its GUI so i can use it in just a script with no gui but everytime i try to take its gui out seems it wont work for me i'm not understanding how to use the search part without the gui can this be done? #include <GuiConstantsEx.au3> #include <ListViewConstants.au3> $GUI = GUICreate("Files Search Demo!", 500, 420) GUICtrlCreateLabel("Path to search:", 20, 5, -1, 15) $Path_Input = GUICtrlCreateInput("C:\", 20, 20, 460, 20) GUICtrlCreateLabel("Search request:", 20, 55, -1, 15) $Request_Input = GUICtrlCreateInput("*.txt", 20, 70, 460, 20) $Search_Button = GUICtrlCreateButton("Search", 20, 100, 60, 20) $ListView = GUICtrlCreateListView("Results", 20, 130, 460, 250) $SearhInfo_Label = GUICtrlCreateLabel("", 110, 105, 370) $SearhStatus_Label = GUICtrlCreateLabel("", 20, 383, 450, 40) GUISetState(@SW_SHOW, $GUI) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $Search_Button $sPath = GUICtrlRead($Path_Input) $sRequest = GUICtrlRead($Request_Input) GUICtrlSendMsg($ListView, $LVM_DELETEALLITEMS, 0, 0) GUICtrlSetData($SearhInfo_Label, "Please wait, seaching...") $aResults = _FileSearch($sPath, $sRequest, 1, 0, $SearhStatus_Label) If @error Then MsgBox(48, "Attention!", "No files found.", 0, $GUI) Else For $i = 1 To UBound($aResults)-1 GUICtrlCreateListViewItem($aResults[$i], $ListView) Next GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, -1) EndIf GUICtrlSetData($SearhStatus_Label, "") GUICtrlSetData($SearhInfo_Label, StringFormat("Done: %i files found.", UBound($aResults)-1)) EndSwitch WEnd ;================================================================================ ;Flag = 1 search with recurse ;Flag <> 1 search without recurse ; ;$iRet = 1 return parent directory of the file path ;$iRet <> 1 return full file path ; ;$iStatus_CtrlID - If this is an id of the label control, the function will set the current status of the search ; ;On Failure set @error as following: ; 1 - $sPath is not a dir or it not exists (in this case returned -1). ; 2 - $sPath is empty dir. ; 3 - No files found in $sPath dir. ; ;On Seccess return an array with found files. ;================================================================================ Func _FileSearch($sPath, $sMask, $iFlag=0, $iRet=0, $iStatus_CtrlID=0) If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, -1) Local $aRetPathArr[1], $sFindNextFile, $sCurrentPath, $aSubDirFindArr If StringInStr($sMask, "*") Then $sMask = StringReplace($sMask, "*.", "") $sPath = StringRegExpReplace($sPath, '\\+ *$', '\') Local $hSearch = FileFindFirstFile($sPath & "\*.*") If @error = 1 Then Return SetError(2, 0, 0) If $hSearch = -1 Then Return SetError(3, 0, 0) While 1 $sFindNextFile = FileFindNextFile($hSearch) If @error = 1 Then ExitLoop If $iStatus_CtrlID Then _GUICtrlSetData($iStatus_CtrlID, $sPath) $sCurrentPath = $sPath & "\" & $sFindNextFile If $iFlag = 1 And StringInStr(FileGetAttrib($sCurrentPath), "D") Then $aSubDirFindArr = _FileSearch($sCurrentPath, $sMask, $iFlag, 0, $iStatus_CtrlID) If @error Then ContinueLoop For $i = 1 To $aSubDirFindArr[0] $aRetPathArr[0] += 1 ReDim $aRetPathArr[$aRetPathArr[0]+1] $aRetPathArr[$aRetPathArr[0]] = $aSubDirFindArr[$i] If $iRet = 1 Then _ $aRetPathArr[$aRetPathArr[0]] = StringRegExpReplace($aRetPathArr[$aRetPathArr[0]], "\\[^\\]*$", "") If $iStatus_CtrlID Then _GUICtrlSetData($iStatus_CtrlID, $aSubDirFindArr[$i]) Next Else If $sMask = "*" Or $sFindNextFile = $sMask Or StringRegExpReplace($sCurrentPath, '^.*\.', '') = $sMask Then $aRetPathArr[0] += 1 ReDim $aRetPathArr[$aRetPathArr[0]+1] $aRetPathArr[$aRetPathArr[0]] = $sCurrentPath If $iRet = 1 Then $aRetPathArr[$aRetPathArr[0]] = $sPath EndIf EndIf WEnd FileClose($hSearch) If $aRetPathArr[0] = 0 Then Return SetError(3, 0, 0) Return $aRetPathArr EndFunc Func _GUICtrlSetData($iCtrlID, $sData) If GUICtrlRead($iCtrlID) <> $sData Then GUICtrlSetData($iCtrlID, $sData) EndFunc[/quote]

would anyone no if ican zip or unzip files with just autoit i seen a old post from 05 that said i couldnt i have a dll to use was just wondering if i can do this with autoit alone or maybe use the windows api zip ? thank you michael

ok thank you i'll give them a shot thanks for the help