search
Categories
Sponsors
VirtualMetric Hyper-V Monitoring, Hyper-V Reporting
Archive
Blogroll

Badges
MCSE
Community

Cozumpark Bilisim Portali
Posted in Windows Powershell | 1 Comment | 5,155 views | 24/10/2009 15:19

Could you imagine what can you do with Powershell? I imagined to create a search engine with Powershell. I used Google for Search and filtered results. Looking codes would be helpful you to have an idea about Google Parsing.

I search for Dressy Bessy – New Song:

Capture1

Did it match with Keywords?

Capture2

You can see my Powershell script. Default search is a Turkish Music Group “Gece” and their Album “Icinde Sakli”. You can change default search parameters from script. Also adding more Google page would be increase accurate.

Preview of Script:

####################################
#   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"

Download Google Parser Script

I used Google.com.tr to Search Mp3. I hope Google will get banned by ASCAP :D

As always: Go to Hell Google!

Please use Bing for a better future.


Posted in Hayattan | No Comment | 2,028 views | 06/10/2009 22:20

Bu hafta çok işim var..

1) 5 adet DC kurulacak. (Windows Server 2008 R2)
2) 35 sanal sunucu transfer edilecek. (35 x 40 GB)
3) 2 adet System Center Virtual Machine Manager 2008 R2 kurulacak, ayarlanacak ve VM eklenecek.
4) Powershell scriptleri, SCVMM 2008’den SCVMM R2’ye göre düzenlenecek.
5) 4 adet Exchange Server 2010 Beta kurulacak.
6) Altyapı, olduğu gibi R2’ye taşınacak. Yapı, Forest’lara ayrılacak.
7) Gerisini sayacak enerjim kalmadı..

Hadi bakalım neler olacak bu bir hafta göreceğiz :D


Posted in Exchange Server | No Comment | 2,359 views | 02/10/2009 12:54

ibm-lotus

Google’ın kullanıcı başına yıllık 50$ istediği Gmail servisine, IBM’den yıllık 36$’a karşılık geldi. IBM’in yeni çıkardığı Webmail olan LotusLive iNotes, aylık 3$’a kullanım imkanı buluyor. Uzun yıllar Beta’da kalan Gmail, Beta’dan çıkar çıkmaz servisi için yıllık üyelik bedeli istemeye başlamıştı. Bu nedenle Gmail’i bırakmaya hazırlanan kurumsal müşterileri kapabilmek için IBM LotusLive’i 3$ gibi bir fiyattan kullanıma sunmuş olabilir. Yalnız servis karşılaştırması yaptığımızda, Gmail hala önde gözüküyor. Kapasite ve servis seçenekleri bakımından IBM, Google’ın gerisinde kalmış durumda.

exchange2010

Fakat ümitsizliğe kapılmamak lazım. Microsoft Exchange Server 2010, Google ya da IBM’in size sunamayacağı bir çok servis ile birlikte geliyor. Özellikle kurumsal şirketlerin, Webmail ile işlerini bir yere kadar götürebileceklerini biliyoruz. Outlook için yapılan sync tool’lar da Gmail’i hiç bir zaman Exchange’in seviyesine getiremeyecektir. Microsoft Exchange Server 2010’u, çok uygun fiyatlarla, Aralık ayında hosting firmalarından satın alabileceksiniz. Kısacası eli yüzü düzgün bir hizmet için, bir kaç ay daha beklemek zorunda kalacaksınız.


Posted in Exchange Server | No Comment | 3,953 views | 22/09/2009 12:50

Microsoft Exchange Server 2010 için RTM tarihi henüz açıklanmadı fakat gelecek ay çıkması söylentiler arasında. Zaten uzun bir süredir Beta olarak indirilebilir durumda olan Exchange’in RTM’e geçmemesi için hiç bir neden göremiyorum. Hosted Exchange için tercih sebebi olabilecek Exchange Server 2010 için benim ön gördüğüm bir tarih var: 20.10.2009 :) Gelecek ay çıkacağını biliyoruz. O halde 2010 şeklinde bir tarih olması, Exchange için çok hoş olur diye düşünüyorum. Eğer 20.10.2009’da ürün çıkacak olursa, artık Microsoft tarafından bana bir Zune HD hediye edilir galiba :P


Posted in Windows Powershell | No Comment | 2,687 views | 22/09/2009 02:10

Bugün bu sorunun cevabını aramak için oturdum Powershell ISE karşısına. Bildiğiniz gibi Windows 7 ile birlikte Powershell ISE yüklü olarak geliyor ve Powershell üzerinde uygulama yapabilmenize olanak sağlıyor. Peki neden Powershell ile MP3 arama motoru yapmak istediğimi biliyor musunuz? Hemen söyleyeyim, Mü-Yap yüzünden.

Bilmiyorum farkında mısınız ama bugün Myspace ve Last.FM, Mü-Yap tarafından açılmış bir dava nedeniyle Türkiye içinden erişime kapatıldı. Ben de bu yüzden insanların MP3’leri daha kolay bulabilmesi ve erişebilmesi için bu arama motorunu yaptım. Tüm sonuçlar Google arama motoru üzerinden bulunarak size sunuluyor. Eğer Mü-Yap insanların MP3’lere kolay ulaşmalarını engellemek istiyorsa, buyursun Google’ı kapatsın!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
$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
}
}

Görebileceğiniz gibi en üstte arama yapmak istediğim kelimeleri, aralarında + olacak şekilde giriyorum. Arama kelimeleri içine rapidshare.com ve mp3 yazmayı unutmuyorum. Böylece sadece rapidshare linklerine sahip sitelerin arama sonucu olarak çıkmasını sağlıyoruz. Dikkat etmeniz gereken, C:\ içersinde Search isimli bir klasör yaratmış olmanız ve C:’ye erişim yetkinizin olması. Her arama sonrası, yaratılan .txt içersini boşaltmanızda fayda var. Ayrıca dikkat ettiyseniz, çıkan sonuçları Rapidshare API’si kullanarak, aktif olup olmadığını kontrol ederek, Sonuclar.txt içersine atıyorum. Böylece sonuçlar arasında ölü link bulunması gibi bir ihtimal olmuyor.


Posted in Hayattan | No Comment | 3,768 views | 13/09/2009 22:20

Beklenen gün geldi çattı.. Yine bir ders seçim gecesi, yine bir Usis macerası..

Belki de Messenger’da hiç görmediğiniz arkadaşlarınızın online olduğu gün bugün. Herkes tek bir amaç için bilgisayar başında ve online. Herkes Usis’ten ders seçme ümidi ile gece 12’yi bekliyor. Messenger listeme baktığım an, bir çok kişinin Usis heyecanının iletilerine yansıdığını görüyorum.

usis

Ben de Usis’i Offline olarak bekleyen öğrencilerdenim. Eminim bir çok kişi benim gibi Offline olarak bekleyişini sürdürüyor ve ders programları üzerindeki son düzenlemeleri yapıyorlar. Bir çok kişi yine her zaman olduğu gibi “Bu ders hangi hocadan alınır?” sorularıyla dolduruyorlar öğrenci forumlarını.

usis2

Bu yazıyı yazarken Usis’in ders seçimi yapılabilir hale gelmesine 45 dk vardı fakat şuan ne Yıldız Teknik Üniversitesi resmi sitesi, ne de Usis ulaşılabilir durumda değil. Yıllardır Usis rezilliği yaşayan YTÜ öğrencileri, görüldüğü üzere bu sene de rezillik yaşamaktalar. Yine yıllardır uyuyan Bilgi işlem, bu yıl da uyumaya devam etmekte..

Bak çok sinirlendim yine. Go to hell Google!


Posted in Hayattan | No Comment | 1,935 views | 06/09/2009 23:25
zunehd Microsoft tarafından IPOD Touch’a rakip olarak çıkartılacak olan ZuneHD çok kısa bir süre sonra vitrinlerdeki yerini almış olacak. Microsoft Store ve Amazon’dan Pre-Order ile satın alabildiğiniz ZuneHD’nin uluslararası gönderimi bulunmadığı için Türkiye’ye gelmesini bir süre bekleyeceğiz. 16 gb Black ve 32 gb Platinum olmak üzere iki farklı modeli bulunan ZuneHD’de IPOD’da bulunan bir çok özelliğin yanı sıra, geliştirilmiş Nvidia Tegra çipi sayesinde kullanıcılara daha iyi bir görüntü kalitesi ve hız garanti ediyor.

ZuneHD’nin 16 gb ve 32 gb sürümlerinin fiyatları aşağıdaki gibi belirlenmiş:

ZuneHD 16 GB Black: 220$
ZuneHD 32 GB Platinum: 290$

ZuneHD’nin official web sitesine aşağıdaki bağlantıdan ulaşabilirsiniz:
http://www.zune.net/zunehd

Türkiye’ye gelir gelmez bir tane almayı düşünüyorum bunlardan.