LifeSux Posted October 1, 2011 Share Posted October 1, 2011 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... Quote Link to comment Share on other sites More sharing options...
Xeon Posted October 1, 2011 Share Posted October 1, 2011 torrent sitelerinden film indirmek için bot yerine rss kullanabilirsiniz uzantı ayarları ile takip edilen film dizi vs kendisi otomatik olarak indirmeye başlar Quote Link to comment Share on other sites More sharing options...
LifeSux Posted October 1, 2011 Author Share Posted October 1, 2011 @xenon biraz daha açabilir misin ? Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted October 1, 2011 Share Posted October 1, 2011 [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] Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted January 11, 2012 Share Posted January 11, 2012 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] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 11, 2012 Share Posted January 11, 2012 [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 Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted January 12, 2012 Share Posted January 12, 2012 İş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 Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted January 12, 2012 Share Posted January 12, 2012 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] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 12, 2012 Share Posted January 12, 2012 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] Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted January 13, 2012 Share Posted January 13, 2012 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.