3310 Posted October 12, 2010 Share Posted October 12, 2010 Arkadaşlar malumunuz adsl kullananlar için IP değiştirmek pek bir kolayken uydunet için pekte kolay değil. IP değiştirmek mümkün olsa da ( pc mac adresi değiştirerek ) bunu jdownloader vb. için otomatik olarak yapan bir uygulama-script vb nette henüz görmedim. internete router üzerinden bağlananlar için zaten hep IP değiştirme işi "olmaz" denmiş e haliyle iş başa düştü ve autoit kullanarak bir script yaptım sonunda jdownloader ile otomatik olarak IP değiştirebiliyorum. ( uydunet bize 2 IP hakkı tanıyor. değiştirmek ile kastım kullandığım IP'yi bırakıp diğer IP'ye geçmek. aynı 2 IP arasında gezmiş oluyorum yani. ve bu benim işimi görüyor ) internete direk modemden değil kablosuz router üzerinden bağlanıyorum (ben scientific atlanta 1 port modem + tp-link wr841nd router kullanıyorum. bunu uygulayabilmek için ya benim gibi router üzerinden bağlanmalı , yada "mac adresi klonlama" özelliği olan bir uydunet modem kullanmalısınız ) bu script'i direk olarak kullanamazsınız , bunu örnek alarak kendiniz için bir script yapabilirsiniz. en fazla 10 dakikanızı alır bu iş script'in mantığı şöyle ; -router arayüzüne gir -mevcut IP'yi serbest bırak -router'ın mac adresini değiştir (eğer router orjinal mac adresini kullanıyorsa pc'nin mac adresini kullan, pc'nin mac adresini kopyalıyorsa orjinal adresi kullan ) -tekrar IP al ( ve diğer IP'ye geçtik ) --------------------------------------- script şu ; ; xx-xx-xx-xx-xx-xx yerine router'ın gerçek mac adresi yazılacak ; aaaaaa yerine router kullanıcı adı yazılacak ; bbbbbb yerine router şifresi yazılacak ; 192.168.100.100 yerine router'ınızın ip adresi ne ise onu yazın #include <ClipBoard.au3> Dim $MevcutMac Dim $RouterMac $RouterMac = "xx-xx-xx-xx-xx-xx" Run ("C:\Program Files\Opera\opera.exe 192.168.100.100") ; Opera'yı çalıştır ve router'a bağlan Sleep (20000) ; oeranın ekrana gelmesi için 20 saniye bekle. Send ("aaaaaa{tab}") ; kullanıcı adını yaz ve tab ile alt satıra geç Sleep (200) ; pc geç tepki verebilir diyerek bolca bekleme koyuyorum Send ("bbbbbb") ; şifreyi yaz Send ("{enter}") ; enter'a baz Sleep (500) MouseMove ( 36,314) ; "Network" butonunun aktifleşmesi için fareyi oynat Sleep (200) MouseClick ("", 46, 314) ; "Network" a tıkla Sleep (200) MouseClick ("", 43 ,361) ; "Wan" a tıkla Sleep (200) MouseClick ("",504 ,456) ; "Release" e tıkla *** IP serbest bırakıldı Sleep (200) MouseClick ("",60, 386) ; "MAC Clone" a tıkla Sleep (200) MouseClick ("",450,324,3) ; Mevcut MAC adresinin yazılı olduğu kutuya 3 kez tıkla ve seç Sleep (200) Send ("^c") ; ctrl+c ile Mac adresini hafızaya kopyala Sleep (200) $MevcutMac = ClipGet() ; hafızadaki mac adresini değişkene at Sleep (200) If $MevcutMac = $RouterMac Then ; şu anki mac adresi router'ın kendi adresiyse MouseClick ("",613, 351) ; "Clone MAC Adress" tıkla , yani pcnin mac adresini router'a ver Else ; eğer pcnin mac adresini kullanıyorsa MouseClick ("",613, 325) ; "Restore Factory MAC" tıkla , yani orjinal mac adresine dön EndIf Sleep (200) MouseClick ("",413, 410) ; "Save" e tıkla *** Ayar kaydedildi Sleep (5000) ; burada biraz fazla beklemek gerekiyor MouseClick ("",61, 651) ; "System Tools" a tıkla Sleep (200) MouseClick ("",172, 685) ; "System Tools" un alt menüsünün kaydırma çubuğunu aşağı indir Sleep (200) MouseClick ("",50, 636) ; "Reboot" menüsüne tıkla Sleep (200) MouseClick ("",414, 352) ; "Reboot" düğmesine tıkla Sleep (200) Send ("{enter}") ; "yeniden başlasın mı" sorusunu onayla Sleep (5000) ; 5 saniye bekle Send ("^{F4}") ; Sekme'yi kapat Sleep (200) Send ("!{F4}") ; Opera'yı kapat --------------------------------------- ilk kez autoit kullandım. daha önce kullanmış olanlar sanırım kolayca anlayacaklardır umarım işinize yarar... copyright tnctr.com Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.