Autoıt Premium Link Generator Yapımı

[lazenes1]

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

[Mehmet]

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

[lazenes1]

Login Olmuyor Kardeş

[Mehmet]

login olması gerekmiyor zaten sadece örnek vereyim dedim çünki formdaki isimleri bulamadım

[lazenes1]

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

[MostWanted]

İ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.