Film İndirme Botu ?

[LifeSux]

Film arşivi yapmayı düşünüyorum. Bunun için autoit ile zamunda.net den film çekebileceğimiz bir bot yapabilir miyiz ? yani belirlenen film adlarını aramaya yazıp indiricek...

[Xeon]

torrent sitelerinden film indirmek için bot yerine rss kullanabilirsiniz uzantı ayarları ile takip edilen film dizi vs kendisi otomatik olarak indirmeye başlar

[LifeSux]

@xenon

biraz daha açabilir misin ?

[DivaneTR]

[center][b]Konudaki Çalışmayı Kendine Göre Düzenlersen Olabilir.[/b][/center]

[center][member=MostWanted][/center]
[center][code]http://www.tnctr.com/topic/141483-tnctr-limewire-10/[/code][/center]

[lazenes1]

Arkadaşlar Bende Bole Bir Şey Yapıyorum sadece Siteye Giriş Yapıp Sonra http://www.tnctr.com/topic/141483-tnctr-limewire-10/ Scripth ini EdiTledim Fakat Bir Türlü Listbox'a Eklemiyor
Aklım Da Bir Düşünce Daha Var Fakat Scripth de Kullandığım hesap(Zamundaüyeliğim) tehlikede oluyor Yani Otomatik Giriş Yaptır Dığım Hesaba Kullanıcı Sitede Bulunan Profile Alanında Hesap Bilgilerini Değiştire Biliyor Bende Aşşağıdakı Alanı Gizleye Bileceğim Bir Kod Arı Yorum Fakat Halan Daha Bulamadım Belki Yardım Ede Bilecek Arkadaş vARMI?
[img]http://www.tnctr.com/uploads/imgs/pre_1326286798__yardm.jpg[/img]

[blackman12]

[code] $deneme = InputBox("aranacak kelime","aranacak kelimeyi girin","")
if @error Then
Exit
Else
$oku = BinaryToString(InetRead("http://zamunda.net/browse.php?search="&$deneme&"&cat=0&incldead=1",1))
$linklerial = _AraGetir($oku,'<a href="download.php/','"><img src=http://img.zamunda.net/pic/download.gif')
for $i = 0 to UBound($linklerial) - 1
$linklerial[$i] = 'http://zamunda.net/download.php/' & $linklerial[$i]
MsgBox(0,"",$linklerial[$i])
Next
EndIf

func _AraGetir($text,$basla= "</strong>:",$son="</p>")
Local $getirelecek
if $text = "" then Return
$basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3)
Return $getirelecek
EndFunc
[/code]

Çok basit şekilde bir örnek hazırladım, senin eklemen gereken şeyler:

- İnternet Explorer cookiesi olmayınca download linklerini gelmez, cookieyi kendin yazdırırsın, ya da autoitle login edersin
- Birden fazla sayfa varsa sayfa linkini alıp onu da inetreadle okutup linkleri almalısın
- Linkin sonundaki "cat=0&incldead=1" gibi id leri checkboxlara bağlayabilirsin

[lazenes1]

İşte Bende Bu Yöntemi Deneyerek List Boxa Aktarı Yorum Fakat Torrent Adı Kısmına URL Geli Yor Torrent URL Kısmı Boş Kalı yor Onu Halletim Diyelim Fakat Bir Türlü Url ye Tıklayınca Download Ede miyorum Ben Bir Kaç AramadaHa Yapayımda Sonucu Paylaşayım

[lazenes1]

Sonunda Bir Şeyler Yaptım Ama Bir Türlü Tıklayınca İndirme İşlemini Başlatamadım
Birde Arat Butonuna Basınca Listwiev Sürekli temizlenmesi lazım Çok Azkaldı Yardım

[code]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

;$deneme = InputBox("aranacak kelime","aranacak kelimeyi girin","")

GUICreate("Zamunda Torrent Seacher", 514, 441, 192, 124, BitOr($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX), $WS_EX_ACCEPTFILES);x il drag & drop
$listview = GUICtrlCreateListView("Torrent URL|Torrent İsim", 0, 80, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT, $LVS_SINGLESEL))
$deneme = GUICtrlCreateInput("",4, 40, 280, 26)
$button1 = GUICtrlCreateButton("Arat",300, 40, 80, 30)
$button = GUICtrlCreateButton("Seçileni İndir",390, 40, 80, 30)
GUISetState()

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
if $msg = $button Then
msgbox (0, "Seçileni İndir", GUICtrlRead(GUICtrlRead($listview)) )
EndIf
Case $GUI_EVENT_CLOSE
Exit

Case $button1
if @error Then
Exit
Else
$oku = BinaryToString(InetRead("http://zamunda.net/browse.php?search="&GUICtrlRead($deneme)&"&cat=0&incldead=1",1))
$linklerial = _AraGetir($oku,'<a href="download.php/','"><img src=http://img.zamunda.net/pic/download.gif')
for $i = 0 to UBound($linklerial) - 1
$linklerial[$i] = 'http://zamunda.net/download.php/' & $linklerial[$i]
;MsgBox(0,"",$linklerial[$i])
_GUICtrlListView_AddItem($listview, $linklerial[$i], 1)

Next
EndIf

func _AraGetir($text,$basla= "</strong>:",$son="</p>")
Local $getirelecek
if $text = "" then Return
$basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3)
Return $getirelecek
EndFunc

EndSwitch
WEnd

[/code]

[blackman12]

Kodlamayı bildiğine emin değilim, yazdıklarını hiç denememişsin belliki, yazdıklarını çalıştırabilmek için şöyle düzenlemen gerek:

[code]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>

;$deneme = InputBox("aranacak kelime","aranacak kelimeyi girin","")

GUICreate("Zamunda Torrent Seacher", 514, 441, 192, 124, BitOr($WS_SIZEBOX, $WS_SYSMENU, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX), $WS_EX_ACCEPTFILES);x il drag & drop
$listview = GUICtrlCreateListView("Torrent URL|Torrent İsim", 0, 80, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_REPORT, $LVS_SINGLESEL))
$deneme = GUICtrlCreateInput("",4, 40, 280, 26)
$button1 = GUICtrlCreateButton("Arat",300, 40, 80, 30)
$button = GUICtrlCreateButton("Seçileni İndir",390, 40, 80, 30)
GUISetState()

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
;case $button Then
; msgbox (0, "Seçileni İndir", GUICtrlRead(GUICtrlRead($listview)) )
Case $GUI_EVENT_CLOSE
Exit
Case $button1
if @error Then
Exit
Else
$oku = BinaryToString(InetRead("http://zamunda.net/browse.php?search="&GUICtrlRead($deneme)&"&cat=0&incldead=1",1))
$linklerial = _AraGetir($oku,'<a href="download.php/','"><img src=http://img.zamunda.net/pic/download.gif')
for $i = 0 to UBound($linklerial) - 1
$linklerial[$i] = 'http://zamunda.net/download.php/' & $linklerial[$i]
MsgBox(0,"",$linklerial[$i])
_GUICtrlListView_AddItem($listview, $linklerial[$i], 1)
Next
EndIf
EndSwitch
WEnd

func _AraGetir($text,$basla= "</strong>:",$son="</p>")
Local $getirelecek
if $text = "" then Return
$basla = StringRegExpReplace($basla, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$son = StringRegExpReplace($son, "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)", "\\$1")
$getirelecek = StringRegExp($text, "(?s)(?i)" & $basla & "(.*?)" & $son, 3)
Return $getirelecek
EndFunc[/code]

[lazenes1]

Ben Sadece Bir Örnek Olarak Yaptım Yani Bu Şekilde nasıl çalışır veya Olurmu hasabı biz de çalıştırırken hata verdiğini biliyoruz