Flamingwolf Posted February 20, 2009 Share Posted February 20, 2009 (edited) Wrote this a year or two ago, updated it because it was /really/ badly written. [Probably still is, but it's better than it was.] Well, have fun! [This uses the same search string g2p.org uses] expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #NoTrayIcon Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= $FORM1 = GUICreate(".:[ Google MP3 Finder ]:.", 231, 67, 595, 479, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) $INPUT1 = GUICtrlCreateInput('Search Term', 8, 8, 217, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL)) $BUTTON1 = GUICtrlCreateButton("Search", 64, 36, 113, 25, 0) GUICtrlSetState($BUTTON1, $GUI_DEFBUTTON) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlSetOnEvent($BUTTON1, "findmp3s") GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents") Func FINDMP3S() $INPUTT = StringSplit(GUICtrlRead($INPUT1), ' ') $SEARCH = '' $INPUTT2 = $INPUTT[0] - 1 For $I = $INPUTT2 To 0 Step -1 $TEMP = $INPUTT[0] - $I $SEARCH &= $INPUTT[$TEMP] If $I <> 0 Then $SEARCH &= '+' EndIf Next $FINAL = "http://www.google.com/search?hl=en&q=intitle:index.of%20%2B%22last modified%22%20%2B%22parent directory%22%20%2B(mp3|wma|ogg)%20%2B%22" $FINAL &= $SEARCH $FINAL &= "%22%20-htm%20-html%20-php%20-asp&meta=" ShellExecute($FINAL) EndFunc Func SPECIALEVENTS() Select Case @GUI_CtrlId = $GUI_EVENT_CLOSE Exit EndSelect EndFunc While 1 Sleep(10000) WEnd Edited February 22, 2009 by Flamingwolf Link to comment Share on other sites More sharing options...
A. Percy Posted February 20, 2009 Share Posted February 20, 2009 Só o que posso lhe dizer, bom é quando faz mal!My work:Au3Irrlicht - Irrlicht for AutoItMsAgentLib - An UDF for MSAgentAu3GlPlugin T2 - A 3D plugin for AutoIt...OpenGl Plugin - The old version of Au3GlPlugin.MAC Address Changer - Changes the MAC AddressItCopter - A dragonfly R/C helicopter simulator[center]VW Bug user[/center]Pinheiral (Pinewood) city: http://pt.wikipedia.org/wiki/Pinheiral Link to comment Share on other sites More sharing options...
fmen Posted February 20, 2009 Share Posted February 20, 2009 I love it. Thanks for posting script Link to comment Share on other sites More sharing options...
crapmail Posted February 21, 2009 Share Posted February 21, 2009 good job. Curently writing a autoit installerAutoit installer 83 and 2 thirds%-template 100%-script syntax 100%-script parser 50%--error checking 100%--actual parsing 50%--combining template and parsed crap 0%Template.au3 - 4.15kbparser.au3 - 1.94kb Link to comment Share on other sites More sharing options...
RomanK Posted February 21, 2009 Share Posted February 21, 2009 Doesn't work for me. It just openes up google's main page iGoogle. [font="Courier New"]http://RomanK.hondadesigns.com[/font] Link to comment Share on other sites More sharing options...
Flamingwolf Posted February 21, 2009 Author Share Posted February 21, 2009 Doesn't work for me. It just openes up google's main page iGoogle. Hmm...Could you tell me where this link brings you? Link to comment Share on other sites More sharing options...
ptrex Posted February 22, 2009 Share Posted February 22, 2009 (edited) @RomanK Maybe this can get you going. expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ;#include <IE.au3> #NoTrayIcon Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= $FORM1 = GUICreate(".:[ Google MP3 Finder ]:.", 231, 67, 595, 479, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) $INPUT1 = GUICtrlCreateInput("Search Term", 8, 8, 217, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL)) $BUTTON1 = GUICtrlCreateButton("Search", 64, 36, 113, 25, 0) GUICtrlSetState($BUTTON1, $GUI_DEFBUTTON) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlSetOnEvent($BUTTON1, "findmp3s") GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents") Func FINDMP3S() $SEX = StringSplit(GUICtrlRead($INPUT1), " ") $SEARCH = "" $SEX2 = $SEX[0] - 1 For $I = $SEX2 To 0 Step -1 $TEMP = $SEX[0] - $I $SEARCH &= $SEX[$TEMP] If $I <> 0 Then $SEARCH &= "+" EndIf Next ;_IECreate('http://www.google.com/search?hl=en&q=intitle:index.of+last+modified+parent+directory+(mp3|wma|ogg)+";' & $SEARCH & '"+-htm+-html+-php+-asp') ShellExecute('http://www.google.com/search?hl=en&q=intitle:index.of+last+modified+parent+directory+(mp3|wma|ogg)+";' & $SEARCH & '"+-htm+-html+-php+-asp') EndFunc Func SPECIALEVENTS() Select Case @GUI_CtrlId = $GUI_EVENT_CLOSE Exit EndSelect EndFunc While 1 Sleep(100) WEnd Regards ptrex Edited March 9, 2009 by ptrex Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New Link to comment Share on other sites More sharing options...
Flamingwolf Posted February 22, 2009 Author Share Posted February 22, 2009 Here's an updated version, the URL I used at first was probably an old one [ ...google.com/#... vs ...google.com/search?... ] Hopefully this will work for you, RomanK! Link to comment Share on other sites More sharing options...
Flamingwolf Posted February 25, 2009 Author Share Posted February 25, 2009 RomanK: Have you had a chance to try the new version and see if it works? I'd like to get this working for everyone, so that way I can have it everywhere. Link to comment Share on other sites More sharing options...
RomanK Posted February 26, 2009 Share Posted February 26, 2009 Sorry that I didn't reply so far. Your link brought me to www.google.de While your updated version doesn't work, ptrex' one works. [font="Courier New"]http://RomanK.hondadesigns.com[/font] Link to comment Share on other sites More sharing options...
Flamingwolf Posted February 27, 2009 Author Share Posted February 27, 2009 Sorry that I didn't reply so far. Your link brought me to www.google.de While your updated version doesn't work, ptrex' one works. Dang, I was hoping that updating the link would work. The reason I don't want to use ptrex's version is because that creates a window in IE, and some people [read: I] don't like using IE. =/ Ahh well, I guess if it only works for you with _IECreate... Link to comment Share on other sites More sharing options...
RomanK Posted February 27, 2009 Share Posted February 27, 2009 But Google is doing really much with the links, so maybe you will find a better way [font="Courier New"]http://RomanK.hondadesigns.com[/font] Link to comment Share on other sites More sharing options...
computergroove Posted March 9, 2009 Share Posted March 9, 2009 ummm... www.g2p.org for the same end result. Get Scite to add a popup when you use a 3rd party UDF -> http://www.autoitscript.com/autoit3/scite/docs/SciTE4AutoIt3/user-calltip-manager.html Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted March 9, 2009 Share Posted March 9, 2009 ummm... www.g2p.org for the same end result.Was there a point in that? There are already people that are older than you on this planet, are you gonna stop your aging process? Are you gonna stop breathing just because someone else did it before you? .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now