####################################
#   Google Parser + Mp3 Searcher   #
#       Coded By Yusuf Ozturk      #
#   http://www.yusufozturk.info    #
####################################
 
[void][System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')
 
# Search Input
$SearchInput = [Microsoft.VisualBasic.Interaction]::InputBox("Search", "Song", " ")
 
# Split to Keywords
$Keyword = $SearchInput -Replace "\s","+"    # For searching
$Keyword = $Keyword + "+rapidshare.com+mp3"  # Look for Rapidshare Links
$Keywords = $Keyword.Split("+")              # For checking purposes
 
# Where Could We Write?
$Location = "C:\Search"
 
# Lets Check Location Directory
If ((Test-Path -Path $Location) -ne $True)
{
    New-Item $Location -Type Directory
}
 
# Search Outputs
$Search = "$Location\Search.txt"
$Results = "$Location\Results.txt"
$Temp = "$Location\Temp.txt"
 
# Lets Make Google Search
$Url = "http://www.google.com.tr/search?hl=tr&source=hp&q=" + $Keyword + "&start=0"
$Webclient = New-Object System.Net.WebClient
$Webpage = $Webclient.DownloadString($Url)
$Webpage > "$Search"
 
$Url = "http://www.google.com.tr/search?hl=tr&source=hp&q=" + $Keyword + "&start=10"
$Webclient = New-Object System.Net.WebClient
$Webpage = $Webclient.DownloadString($Url)
$Webpage >> "$Search"
 
# Get Web Results and Parse Web Links
$Hostname = Select-String "$Search" -Pattern 'http://'
$Hostname = [Regex]::Matches($Hostname, '<a class="l')" href="([^">&gt; "$Location\$ID.txt"

$icerik = "umut+kaya+mevsimler+gecerken+rapidshare.com+mp3"
$parcala = $icerik.Split("+")
$search = "C:\Search\Search.txt"
$results = "C:\Search\Results.txt"
$temp = "C:\Search\Temp.txt"
$url = "http://www.google.com.tr/search?hl=tr&source=hp&q=" + $icerik + "&start=0"
$webclient = new-object System.Net.WebClient
$webpage = $webclient.DownloadString($url)
$webpage > "$search"
$url = "http://www.google.com.tr/search?hl=tr&source=hp&q=" + $icerik + "&start=10"
$webclient = new-object System.Net.WebClient
$webpage = $webclient.DownloadString($url)
$webpage >> "$search"
$url = "http://www.google.com.tr/search?hl=tr&source=hp&q=" + $icerik + "&start=20"
$webclient = new-object System.Net.WebClient
$webpage = $webclient.DownloadString($url)
$webpage >> "$search"
$Hostname = Select-String "$search" -pattern 'http://'
$Hostname = [regex]::matches($Hostname, '<a href="([^"]+)" class=l')
$id="0";
foreach ($i in $Hostname)
{
$i = [string]$i
$i = $i.Substring(9)
$i = [string]$i[0..($i.length-10)] -replace "\s",""
write-host $i
$id=[int]$id+1;
$url = "$i"
$webclient = new-object System.Net.WebClient
$webpage = $webclient.DownloadString($url)
$webpage >> "C:\Search\$id.txt"
$Status = "True"
foreach ($b in $parcala)
{
$Kontrol = Select-String "C:\Search\$id.txt" -pattern "$b"
If(!$Kontrol)
{
$Status = "False"
write-host False aldik burada
}
}
If ($Status -eq "False")
{
write-host "Eslesme yok"
}
Else
{
write-host "Eslesme var"
$webpage >> "$results"
}
}
$LinkKontrol = Select-String "$results" -pattern 'http://'
$LinkKontrol = [regex]::matches($LinkKontrol, 'href="http://rapidshare.com/files/([^"]+)"')
$rapidid="0";
foreach ($c in $LinkKontrol)
{
$c = [string]$c
$c = $c.Substring(6)
$c = [string]$c[0..($c.length-2)] -replace "\s",""
write-host $c
#Link Checker
$c = $c.Substring(7)
$files = $c.Split("/")[2]
$filenames = $c.Split("/")[3]
$url = "http://api.rapidshare.com/cgi-bin/rsapi.cgi?sub=checkfiles_v1&files=" + $files + "&filenames=" + $filenames
$webpage = $webclient.DownloadString($url)
$rapidid=[int]$rapidid+1;
$linkcheck = "C:\Search\rapid-$rapidid.txt"
$webpage > "$linkcheck"
$sonuclink = Select-String "$linkcheck" -pattern "$files"
$sonuclink = $sonuclink.get_Line()
$Status = $sonuclink.Split(",")[4]
If ($Status -eq "1")
{
add-content -path “C:\Sonuclar.txt” -value $c
}
}