Clever1mba

i trying this but its just scrolling with no result #include <Array.au3> #include <GUIConstants.au3> GUICreate("TEST SEARCH") $myedit=GUICtrlCreateEdit (""& @CRLF, 1,50,400,300,$ES_AUTOVSCROLL+$WS_VSCROLL) GUISetState () Dim $DLine $Loc = @HomeDrive & "\*.html" RunWait(@ComSpec & ' /c ' & 'dir "' & $Loc & '" /a :h /b /s' & ' > "' & @TempDir & '\dir.txt"', '', @SW_HIDE) Sleep(2000) $NFile = FileOpen(@TempDir & "\dir.txt", 0) If $NFile = -1 Then MsgBox(0, "Error", "Unable to open file.") EndIf Dim $Data_[101], $newID="" While 1 $NLine = FileReadLine($NFile) If @error = -1 Then ExitLoop If $NLine <> "" Then EndIf WEnd FileClose($NFile) While 1 Call("HTML_Search") $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Func HTML_Search() $L_loc = StringInStr($NLine, "http") $result = StringTrimLeft( $NLine, $L_loc -1) $R_loc = StringInStr($result, ".com", 0, -1) $result_2 = StringLeft( $result, $R_loc +3) GUICtrlSetData( $myedit, $result_2 & @CRLF,1) EndFunc

i did'nt get somthing at url have any example of multiple file search then plz share it

okay valuater i add this code and results much better now but lots of duplicate copies one more thing i want to search now multiple file like *.htm *.php *.asp im mean if folder contain lots off html asp and php file can we search all of them and get results if yes plz tell me wat exact code would be THANKS

opps man its not necessary it just example xxxxxxhttp://domainxxxxx myfile.html contain links but we donno how much text contain at left and right i have simple question that how can result be neat if html contain url link we donno myfile.htm contain how many links we just want to extract with clean results just simply do path one html file contain few webiste links and chk ur self with code and notice result are not clean and clear i hope u get my point

hello Valuater okay chk now and tell how to use StringRegExp in code #include <Array.au3> #include <GUIConstants.au3> GUICreate("TEST SEARCH") $myedit=GUICtrlCreateEdit (""& @CRLF, 1,50,400,300,$ES_AUTOVSCROLL+$WS_VSCROLL) GUISetState () Dim $DLine $Text = "myfile.htm" $NFile = FileOpen($Text, 0) If $NFile = -1 Then MsgBox(0, "Error", "Unable to open file.") EndIf Dim $Data_[101], $newID="" While 1 $NLine = FileReadLine($NFile) If @error = -1 Then ExitLoop If $NLine <> "" Then if StringInStr( $NLine , 'www' ) Then $DLine1 = StringReplace($NLine, " ", @CRLF) $DLine2 = StringReplace($DLine1, ">", @CRLF) $DLine3 = StringReplace($DLine2, "<", @CRLF) $DLine4 = StringReplace($DLine3, "http", @CRLF) $DLine5 = StringReplace($DLine4, "," , @CRLF) $DLine6 = StringReplace($DLine5, "/" , @CRLF) $DLine7 = StringReplace($DLine6, "\" , @CRLF) $DLine8 = StringReplace($DLine7, ";" , @CRLF) $DLine9 = StringReplace($DLine8, ":" , @CRLF) $DLine10 = StringReplace($DLine9, "[" , @CRLF) $DLine11 = StringReplace($DLine10, "]" , @CRLF) $DLine12 = StringReplace($DLine11, "}" , @CRLF) $DLine13 = StringReplace($DLine12, "{" , @CRLF) $DLine14 = StringReplace($DLine13, "%" , @CRLF) $DLine15 = StringReplace($DLine14, "+" , @CRLF) $DLine16 = StringReplace($DLine15, "=" , @CRLF) $DLine17 = StringReplace($DLine16, ")" , @CRLF) $DLine18 = StringReplace($DLine17, "(" , @CRLF) $DLine19 = StringReplace($DLine18, "-" , @CRLF) $DLine20 = StringReplace($DLine19, "'" , @CRLF) $DLine21 = StringReplace($DLine20, '"' , @CRLF) GUICtrlSetData( $myedit, $DLine21 & @CRLF,1) EndIf EndIf WEnd FileClose($NFile) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend

hello i try to put some filter and it give result much better now but lots of extrat text with result i just want result like this www.domain1.com www.domain2.com www.domain3.com www.domain4.com www.domain5.com www.domain6.com www.domain7.com www.domain8.com www.domain9.com www.domain10.com any one like to help build this proper #include <Array.au3> #include <GUIConstants.au3> GUICreate("TEST SEARCH") $myedit=GUICtrlCreateEdit (""& @CRLF, 1,50,400,300,$ES_AUTOVSCROLL+$WS_VSCROLL) GUISetState () Dim $DLine $Text = "myfile.htm" $NFile = FileOpen($Text, 0) If $NFile = -1 Then MsgBox(0, "Error", "Unable to open file.") EndIf Dim $Data_[101], $newID="" While 1 $NLine = FileReadLine($NFile) If @error = -1 Then ExitLoop If $NLine <> "" Then if StringInStr( $NLine , 'www' ) Then $DLine1 = StringReplace($NLine, " ", @CRLF) $DLine2 = StringReplace($DLine1, ">", @CRLF) $DLine3 = StringReplace($DLine2, "<", @CRLF) $DLine4 = StringReplace($DLine3, "http", @CRLF) $DLine5 = StringReplace($DLine4, "," , @CRLF) $DLine6 = StringReplace($DLine5, "/" , @CRLF) $DLine7 = StringReplace($DLine6, "\" , @CRLF) $DLine8 = StringReplace($DLine7, ";" , @CRLF) $DLine9 = StringReplace($DLine8, ":" , @CRLF) $DLine10 = StringReplace($DLine9, "[" , @CRLF) $DLine11 = StringReplace($DLine10, "]" , @CRLF) $DLine12 = StringReplace($DLine11, "}" , @CRLF) $DLine13 = StringReplace($DLine12, "{" , @CRLF) $DLine14 = StringReplace($DLine13, "%" , @CRLF) $DLine15 = StringReplace($DLine14, "+" , @CRLF) $DLine16 = StringReplace($DLine15, "=" , @CRLF) $DLine17 = StringReplace($DLine16, ")" , @CRLF) $DLine18 = StringReplace($DLine17, "(" , @CRLF) $DLine19 = StringReplace($DLine18, "-" , @CRLF) $DLine20 = StringReplace($DLine19, "'" , @CRLF) $DLine21 = StringReplace($DLine20, '"' , @CRLF) GUICtrlSetData( $myedit, $DLine21 & @CRLF,1) EndIf EndIf WEnd FileClose($NFile) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend

hello StringReplace($NLine, " " ", @CRLF) i want to replace " with @Crlf but i get error is there any way

Hello i got one command line tool that extract Websites FROM any file but it extract websites to Only one file at time and save them in text file like this i want to know is it possible to using this tool with autoit it search all drives and multiple file like text, doc , html , htm help me if u have idea thanksssss

hello thanks but still results r not good i get some extra text with result xxxxxxhttp://domain.comxxxxxxx how to trim that extra text to get clean resutls

Hello here is code for search websites in txt file but have lot possibilty to improve problem in this code it search http:// but if text file contain website link like this http://domain1.com http://domain2.com it should be spreated to other line like this http://domain1.com http://domain2.com if some one have littile time and trick plz improve that code for all cheerzzzzzzzz

hello i want to know how to make voice chat communication server client application i know we need to open Port and connect to port but how to detect sound and communicate with each other through voice chat is there any way to make it if yes then plz share some info about it

Hello is there any way to search websites in all a - z drives search multiple file txt html and doc if any one have solution plz share it

OKAY i have solution try steps now compile ur script without UPX no antivirus detect any virus or trojan try it then try this site http://virusscan.jotti.org/ ---------------------------------------

its all about UPX packer autoit need to change packer bec most of virus and trojan compress with upx autoit need to use Upack mew fsg or other one i hope u guyzz understand

hello i want to decompress my file to upx but i got error msg autoit cannt run script im using diffrent decompressor but after using UPX -D exe file currpted any one have solution plz share it im using latest beta Autoit