lazenes1 Posted December 8, 2011 Share Posted December 8, 2011 Daha Önce Farklı Bir Şekilde Konu Olarak Açmıştım Fakat Kullanmak İstediğim Yöntem İşe Yaramadı Bu arada İlgisinden Dolayı blue_life'e TeşekkürlerŞimdi Tekrar Bir İstekde Bulunmak istiyorum Ama Lütfen yardımcı Ola Bilecek Arkadaşlar varsa Yardım Etsin Lütfen AutoIT Premium Link Üretici YapMAK istiyorum Fakat Kod Kısmına Gelince Bir Türlü Programı İşleyecek Şekilde Çalıştıramadım Yardım Ede Bilir Misiniz Acaba? Proje Form Linki [code]http://www.mediafire.com/?xn8pazybslne5pe[/code] [img]http://www.tnctr.com/uploads/imgs/pre_1323245603__plgwu.jpg[/img] [color="#FF0000"][font="Arial Black"][size="3"][b]Çalışma Prensibi:[/b][/size][/font][/color] wupload.com Sitesine Kullanıcı Adı ve Şifreile Birlikte Giriş Yaptıra Bilcembir Kodlazım (Buraya Kadar Tamam) Yani Şöyle: Butona Basınca Wupload.Com a Kullanıcı Girişi Yapıcak Ve Edit1 Deki Linkleri Direkt linke Çevirerek Edit2 ye Aktaracak Yani Edit1 dekİ Url ler http://www.wupload.com/file/653351386 http://www.wupload.com/file/123456768 olsun Butona Basınca http://kullanıcıadi:[email protected]/file/653351386 http://kullanıcıadi:[email protected]/file/123456768 Olarak Değişecek Ve Program Bu adreslere Gönderilecek Sitede Otomatikman Direklink Verecek Verdiği Linkleri Program Edit2 ye Teker Teker Yazacak Bu mantıkla Bir Program Daha Biliyorum Fakat Şuan Çalışmadığı İçin Yeni Bir Tane Yapma İhtiyacı Duydum Quote Link to comment Share on other sites More sharing options...
Mehmet Posted December 8, 2011 Share Posted December 8, 2011 belirlediğin kullanıcı adı ve şifre Premium link üretmez öyle biliyorum buna benzer şöyle birşey yapabilirsin belli bir premium kullanıcı adı şifresi varsa wupload sitesine giriş yaptırabilirsin veya senin yukarıda gösterdiğin örnekte url ekle kısmına link eklendiğinde çevir butonuna tıklanınca arkaplanda giriş yapıp aynı andada linkdeki dosyayı indirtirsin ama senin yukarıda belirtiğin leech sitelerinde link yapıştırınca o linki premium'a çeviren yöntem farklı bir durum Benim fikrime göre bir örnek verecek olursak çok basit bir örnek vereyim Case $Button1 yani çevir butonuna tıklayınca aşağıda işlemleri yapsın [codebox] #include<IE.au3> Local $mailtxt = "e-mail" Local $passtxt = "password" $Mail = $mailtxt $Pass = $passtxt $oIE = _IECreate("http://www.wupload.com/account/login") $oForm = _IEFormGetObjByName($oIE, "login active") $oQuery = _IEFormElementGetObjByName($oForm, "email") $o_Query = _IEFormElementGetObjByName($oForm, "password") $oSubmit = _IEFormElementGetObjByName($oForm, "controls-submit") _IEFormElementSetValue($oQuery, $Mail) _IEFormElementSetValue($o_Query, $Pass) _IEAction($oSubmit, "click") Sleep(3000) DirCreate(@DesktopDir & "\İndir") InetGet("http://www.wupload.com/file/653351386/Immortals.2011.720p.BluRay.x264-UNTOUCHABLES.mkv", @DesktopDir & "\İndir\Immortals.2011.720p.BluRay.x264-UNTOUCHABLES.mkv", 1) [/codebox] yinede bu konuda daha iyi olan arkadaşlar daha tetaylı yardımcı olacaklarını umuyorum Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted December 8, 2011 Author Share Posted December 8, 2011 Login Olmuyor Kardeş Quote Link to comment Share on other sites More sharing options...
Mehmet Posted December 8, 2011 Share Posted December 8, 2011 login olması gerekmiyor zaten sadece örnek vereyim dedim çünki formdaki isimleri bulamadım Quote Link to comment Share on other sites More sharing options...
lazenes1 Posted December 8, 2011 Author Share Posted December 8, 2011 (edited) Yöntemi Biraz Değişelim Ozaman Form'a 1 Label Ekleyerek input1 e Girilen Urlden Yani(http://www.wupload.com/file/653351386/Immortals.2011.720p.BluRay.x264-UNTOUCHABLES.mkv) HTTP:// Kısmını Silip Yerine http://kullnıcıadı:şifre@ şeklinde değiştirecek ve Aşağıdaki Formda Yer Alan İndir Labeline aktarılacak Kullanıcı Labele Tıklayınca Browser Otomatik Linki Çevirecek Fakat Sabah Tan Beri Deni Yorum Bir Gıdım İlerleye medim Bide bunu Denesek Diye Düşündüm [code]#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 623, 442, 192, 124) $Button1 = GUICtrlCreateButton("Çevir", 472, 144, 75, 25) $Input1 = GUICtrlCreateInput("Input1", 144, 146, 313, 21) $Label1 = GUICtrlCreateLabel("İndirme Linki", 72, 148, 63, 17) $Label2 = GUICtrlCreateLabel("İndir", 272, 232, 45, 28) GUICtrlSetFont(-1, 14, 800, 4, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) $Pic1 = GUICtrlCreatePic(@ScriptDir&"\Wupload-logo-500x500.jpg", 0, 0, 620, 132) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd [/code] Tarayıcı Yerine IDM göndere Bilirmiyiz acaba Tarayıcı İle Çalışmıyormuş (URL Gir Kısmına) Edited December 8, 2011 by lazenes1 Quote Link to comment Share on other sites More sharing options...
MostWanted Posted December 8, 2011 Share Posted December 8, 2011 İlk sorun için bir şey demedik fakat şu anda yaptığın projeni bize yaptırmak oluyor.En üstüne by Lazeness koyup forumlarda adını duyarabilirsin ama hiç bi zaman bu senin projen olmaz.Şimdi burası proje yaptırma yeri değil bir daha söyleyelim.Tek bir satır kod bile yazmamışsın.Uğraş ve takıldığın yerleri bize sor.Şu şuraya bu buraya aktarılacak demekle olmuyor işte. 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.