Free MySpace search tool by a Freelancer

I am tired doing programs for a freelance site and not choosing me.

Instead of it, I will publish here for free download some of my programs – most of them are ebay, myspace tools, scrappers and data mining. Also have forum posters, translators-dictionary, and all the Internet stuff that can be automated.

If you have ideas, questions or found bugs – please leave a short comment to let me know.

Soon will start my Autoit tutorial also.

The first program I want to give out for free is MySpace search tool: http://craigmaster.freehostia.com/MsTool.rar

No need to install – just run and type your search words, space separated:

for example: Seattle T-mobile phone, or  Clay Aiken, Dallas yoga or Ohio Google phone or California restaurant or Vegas casino, etc.

Wait program to do the search. Three files are created : the “ms.csv” – results and two temp files – you can delete them.

To terminate program use ESC.

At the end there are all friendIDs found for your search /clay aiken in example./

Soon will post second program which uses that friendID to extract more data from user profiles, even theyr MySpace layout.

Here is the source:

#include<ie.au3>
#include<inet.au3>
#include<array.au3>
#include<file.au3>
Dim $a, $aa
HotKeySet(“{ESC}”, “Terminate”)
$f = FileOpen(‘ms.csv’, 2)
$search0 = InputBox(“searcg box”, “Please type the search words separated by space”)
$search = StringReplace($search0, ‘ ‘, ‘%20′)
$u = “http://searchservice.myspace.com/index.cfm?fuseaction=sitesearch.results&qry=” & $search & “&type=AllMySpace”
InetGet($u, ‘temp.txt’)
_FileReadToArray(‘temp.txt’, $a)
For $ar = 100 To 300
 If StringInStr($a[$ar], ‘ results for’) Then
  $br = SttringBetween($a[$ar], ’span>’, ‘ results for’)
  ;ConsoleWrite($br & @CR)
  ExitLoop
 EndIf
Next
$br = StringReplace($br, ‘,’, ”)
$br = StringReplace($br, ‘of’, ”)
$br = StringReplace($br, ‘ ‘, ”)
FileWriteLine($f, ‘Found:’ & $br & ‘ results for ‘ & $search0)
$br = Number($br)
For $i = 1 To round($br/10)
 HotKeySet(“{ESC}”, “Terminate”) 
 $u1 = “http://searchservice.myspace.com/index.cfm?fuseaction=sitesearch.results&qry=” & $search & “&type=AllMySpace&searchid=f6309e4f-39f2-43c6-9b59-5adef4eaa395&pg=” & $i
 InetGet($u1, ‘temp1.txt’)
 _FileReadToArray(‘temp1.txt’, $aa)
 $lines =$aa[0]
 $rold=”
 For $j = 100 To $lines
  HotKeySet(“{ESC}”, “Terminate”)
  If StringInStr($aa[$j], ‘friendid=’) Then
   $r = SttringBetween($aa[$j], ‘friendid=’, ‘”‘)
   if $r=$rold then continueloop
   if stringlen($r)<9 then
   FileWriteLine($f, $r)
      EndIf
   $rold=$r
  EndIf
 Next
Next
MsgBox(0, ‘READY!’, ‘You can see results in ms.csv file’)
FileClose($f)

Func Terminate()
 FileClose($f)
 Exit 0
EndFunc   ;==>Terminate

Func SttringBetween($s, $from, $to)
 $x = StringInStr($s, $from) + StringLen($from)
 $y = StringInStr(StringTrimLeft($s, $x), $to)
 Return StringMid($s, $x, $y)
EndFunc   ;==>SttringBetween

===========================================================

In next post I will upload source code file in .Au3 format /Autoit/ with comments.

You will be able to compile it, change it and add more features.

How To Show Hidden Folders

Some of system files and folders in Windows are hidden by default. This is with idea users not to delete some important files by mistake.

If you want to see the hidden folders, go to Control Panel – Folder Options – View and check the ‘Show hidden files and folders’ radio button.

Here is a program to do this for you: http://obama.110mb.com/programs/show_hidden_folders.zip

And Autoit Sourcecode: http://obama.110mb.com/programs/show_hidden_folders.au3 

You can easy learn Autoit by examples.

To make .exe file you need to download AutoIt compiler – Free : http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe  

and  also need SciTEeditor to edit the source: http://www.autoitscript.com/autoit3/scite/downloads.shtml

Here is the sourcecode of the program ‘Show hidden files and folders’

Send(“#r”) ;Opens Run window. Same as start button –> Run
WinWaitActive(“Run”) ;waits Run window to appear
Send(“control folders”) ; same as typing this text in the box
ToolTip(“Now will run ‘control folders’ command to change folder attributes to VIEW HIDDEN FOLDERS” & @CRLF & @CRLF, 200, 200) ;A explanatory Tooltip appears with coordinates 200×500
Sleep(8000) ;program paused for 8 seconds to read the tooltip
ToolTip(”) ; Removes tooltip
Send(“{Enter}”) ;same as pressing OK button or press Enter from keyboard
winwait(‘Folder Options’)
Sleep(4000)
send(“^{tab}”)
Sleep(2000) ;
ToolTip(“READY!” & @CRLF & @CRLF&’Now you have to check the “Show Hidden Folders” Radio buton’, 200, 350)
Sleep(13000)
ToolTip(”)
Exit

Autoit source code of “open search instead of folder” program

In my post  http://zlatipln.wordpress.com/wp-admin/post.php?action=edit&post=138 I had explained how to manually change registry HKEY_CLASSES_ROOT\Directory\shell in order to resolve the “double click opens search instead of folder”

The program is : http://obama.110mb.com/programs/search_insteadof_open.zip

Here is the AutoIt source code:

;code STARTS here

HotKeySet(“{esc}”, “Terminate”) ;use ESC key to stop the program

Send(“#r”) ;Opens Run window. Same as start button –> Run
WinWaitActive(“Run”) ;waits Run window to appear
Send(“regedt32″) ; same as typing this text in the box
ToolTip(“Now will open Registry Editor” & @CRLF & @CRLF, 200, 500) ;A explanatory Tooltip appears with coordinates 200×500
Sleep(8000) ;program paused for 8 seconds to read the tooltip
ToolTip(”) ; Removes tooltip
Send(“{Enter}”) ;same as pressing OK button or press Enter from keyboard
ToolTip(“Now will search for HKEY_CLASSES_ROOT registry class” & @CRLF & @CRLF, 200, 500)
Sleep(3000)
ToolTip(”)
Send(“+{Home}”) ;in registry editor window, sends Shift+Home key – it is same as going at the begining of registry list to start searching from the root.
ToolTip(“To search for HKEY_CLASSES_ROOT registry class” & @CRLF & @CRLF & “open ‘Edit’ menu –>select ‘Find’ and type HKEY_CLASSES_ROOT”, 500, 200)
Sleep(5000)
Send(“^f”) ;This combination /CTRL + F/ opens Find submenu from Edit menu
Sleep(3000)
Send(“HKEY_CLASSES_ROOT”)
Sleep(2000)
Send(“{Enter}”)
ToolTip(”)
ToolTip(“Now it is searching for HKEY_CLASSES_ROOT registry class” & @CRLF & @CRLF & “Please wait or press ESC to exit”, 200, 500)
While WinExists(‘Find’)  ;checks if Find window appears
 Sleep(10)
WEnd
ToolTip(”)
$fl = 0
$br = 1
While 1
 If $br = 1 Then
  Sleep(4000)
  Send(“^f”)
  Sleep(4000)
  Send(“Directory”)
  ToolTip(“Now it is searching for Directory key” & @CRLF & @CRLF & “Please wait or press ESC to exit”, 200, 500)
  $br += 1
  Sleep(4000)
  Send(“{Enter}”)
  While WinExists(‘Find’)
   Sleep(10)
  WEnd
  ToolTip(”)
  $t = WinGetText(“Registry Editor”)
  If StringInStr($t, ‘HKEY_CLASSES_ROOT\Directory’) Then
   ExitLoop
  Else
   ContinueLoop
  EndIf
 Else
  Sleep(1000)
  Send(“{f3}”)
  ToolTip(“Now it is searching for Directory key” & @CRLF & @CRLF & “Please wait or press ESC to exit”, 200, 500)
  Sleep(500)
  While WinExists(‘Find’)
   Sleep(10)
  WEnd
  $t = WinGetText(“Registry Editor”)
  If StringInStr($t, ‘HKEY_CLASSES_ROOT\Directory’) Then
   ExitLoop
  Else
   ContinueLoop
  EndIf
 EndIf
 If $br > 90 Then Exit
WEnd
$br = 1
While 1
 If $br = 1 Then
  Sleep(4000)
  Send(“^f”)
  Sleep(4000)
  Send(“shell”)
  $br += 1
  ToolTip(“Now it is searching for ’shell’ key” & @CRLF & @CRLF & “Please wait or press ESC to exit”, 200, 500)
  Sleep(4000)
  Send(“{Enter}”)
  While WinExists(‘Find’)
   Sleep(10)
  WEnd
  $t = WinGetText(“Registry Editor”)
  If StringInStr($t, ‘HKEY_CLASSES_ROOT\Directory\shell’) Then
   $fl = 1
   ExitLoop
  Else
   ContinueLoop
  EndIf
 Else
  Sleep(1000)
  Send(“{f3}”)
  ToolTip(“Now it is searching for ’shell’ key” & @CRLF & @CRLF & “Please wait or press ESC to exit”, 200, 500)
  Sleep(1000)
  While WinExists(‘Find’)
   Sleep(10)
  WEnd
  ToolTip(”)
  $t = WinGetText(“Registry Editor”)
  If StringInStr($t, ‘HKEY_CLASSES_ROOT\Directory\shell’) Then
   $fl = 1
   ExitLoop
  Else
   ContinueLoop
  EndIf
 EndIf
 If $br > 20 Then Exit
WEnd
If $fl = 1 Then
 MsgBox(0, ‘Registry key found’, ‘please check if “HKEY_CLASSES_ROOT\Directory\shell” value is “none”‘)
Else
 ToolTip(”)
 MsgBox(0, ‘Exit’, ‘Not found. Will exit’)
 WinClose(‘Registry Editor’)
 Exit
EndIf
Func Terminate()
 Exit 0
EndFunc

;END of Code

AutoIt is a very simple language, similar to Basic.

It is used mainly to automate mouse and keyboard actions.

To make an .exe file from the source text above, you have to download and install the AutoIt compiler

http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe

 and Scite editor:  http://www.autoitscript.com/autoit3/scite/downloads.shtml

They both are small and don’t takee too much place.

Then copy paste the source in Scite editor. Autoit source files have .au3 extension.

Here is the source of my program: http://obama.110mb.com/programs/search_insteadof_open.au3

First save it as somename.au3 then run it from TOOLS meny – run.

If no errors found, you can build an  .exe file from TOOLS menu – Build.

The new .exe has the same name as .au3 file and is found in same folder.