Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

Imdb Film Arama


blackman12
 Share

Recommended Posts

IMDB sitesinin kendi apisi maalesef yok fakat farklı siteler bu büyük eksiklik için seçenekler sunmuş bunlardan biri de http://imdbapi.poromenos.org sitesi, bende bu siteyi kullanarak imdbden film aramamızı sağlayan ufak bir script yazdım. Elimde bir kaç tane daha site var onlarında verilerini kullanarak güzel bir imdb udf si yapıcam vaktim olduğunca

[code]#include <string.au3>
#include <Array.au3>

$arat = InputBox("aranacak kelimeyi girin","film adı içindeki bir kelimeyi girin")
if not @error then
$film = _IMDBFilmBul($arat)
if @error Then
MsgBox(0,"Hata: "&@error,$film)
Else
_ArrayDisplay($film)
EndIf
endif

Func _IMDBFilmBul($aranacakkelime)
Local $sonuc[1][2] = [[0,0]]
$aramasonucu= BinaryToString(InetRead("http://imdbapi.poromenos.org/js/?name=%"&$aranacakkelime&"%",1))
if not @error Then
$basla = StringInStr($aramasonucu,"[")
$son = StringInStr($aramasonucu,"]")
$filmler = StringMid($aramasonucu,$basla+1,$son-12)
$filmler = _StringBetween($filmler,"{","}")
ReDim $sonuc[UBound($filmler)+1][2]
$sonuc[0][0] = UBound($filmler)
$sonuc[0][1] = UBound($filmler)
for $i = 0 to UBound($filmler)-1
$filmiayir = StringSplit($filmler[$i],'"')
$sonuc[$i+1][0] = $filmiayir[4]
$sonuc[$i+1][1] = StringReplace($filmiayir[$filmiayir[0]],": ","")
Next
_ArraySort($sonuc, 1, 1, 0, 1)
Return $sonuc
Else
SetError(1)
Return "Bağlantı Yok"
EndIf
EndFunc[/code] Edited by MostWanted
Link to comment
Share on other sites

  • 4 ay sonra...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...