Uydunet Otomatik Ip Değiştirme

[3310]

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