TeşekkürlerSelam Arkadaşlar Bilgisayarda Modeme Dokunmadan Reset Atma Programı..
Bu program Ne İşe yarıyor?
Modemi Resetleyip Ne Yapıcaz!!! Diyen Arkadaşlar Olabilir
Yada Resetliceksek Kapatıp Açarız Diyen Arkadaşlarda Olucaktır Ancak bu Kadar Hızlı olamaz
Programın Amacı Rapidshare Hotfile Gibi Sunuculardan Part Halinde Dosya İndiriyorsanız
Bekleme Problemi Olamayacaktır Her Dosya İndirdiğinizde Programı Çalıştırmanız Yeterlidir...
SAYGILARIMLA
Burak GÜZEL (efsndrftc)
ip adresinin değişip değişmediğini göre bilirsin googlede aratıpYapamadım yardım olursan sevinirim bu ip adresinimi yeniliyor
saatte 4-5 kez sen de atamazsın biyerden sonra bırakıp onun devam etmesini sende diğer işlerini yapmak istersin.Arama motoru kullanıyorum bazı illegal işler için google ban atıyor daha sonra otomatik olarak değiştirmek istiyorum.Her neyse kendim için vb.net ile basit bir şey yaptım kodlarıda atıyım isteyen olursa kullanır.Bu gençlik bu kadar üşengeç ise vay gelecek nesilin haline.
Bu kadar da üşengeç olmayın.
Imports System.Threading.Thread
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://192.168.2.1/loginmain.html")
'modem arayüzüne git
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
' Yüklendikten Sonra
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("user").Item(0).SetAttribute("value", "admin")
'Kullanıcı Adı
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password").Item(0).SetAttribute("value", "ttnet")
'Şifre
WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("gonder").Item(0).InvokeMember("click")
'Butona Tıkla
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
Sleep(1000)
' Yüklendikten Sonra
resetle()
End Sub
Private Sub resetle()
WebBrowser1.Navigate("http://192.168.2.1/tools/wait_reboot.html?status_modem=restart_modem")
While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
Sleep(1500)
Me.Close()
End Sub
End Class
saatte 4-5 kez sen de atamazsın biyerden sonra bırakıp onun devam etmesini sende diğer işlerini yapmak istersin.Arama motoru kullanıyorum bazı illegal işler için google ban atıyor daha sonra otomatik olarak değiştirmek istiyorum.Her neyse kendim için vb.net ile basit bir şey yaptım kodlarıda atıyım isteyen olursa kullanır.
Bir adet webbrowser ekleyin forma yeter.Windows Form Application olmalı.Şifre yerini falan editlersiniz kendinize göre.Kod:Imports System.Threading.Thread Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://192.168.2.1/loginmain.html") 'modem arayüzüne git While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While ' Yüklendikten Sonra WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("user").Item(0).SetAttribute("value", "admin") 'Kullanıcı Adı WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("password").Item(0).SetAttribute("value", "ttnet") 'Şifre WebBrowser1.Document.GetElementsByTagName("input").GetElementsByName("gonder").Item(0).InvokeMember("click") 'Butona Tıkla While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While Sleep(1000) ' Yüklendikten Sonra resetle() End Sub Private Sub resetle() WebBrowser1.Navigate("http://192.168.2.1/tools/wait_reboot.html?status_modem=restart_modem") While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While Sleep(1500) Me.Close() End Sub End Class
Not: airties ttnet paneline göre yapılmıştır.Eğer farklı bir modeminiz varsa input namelerini,ip ve giriş adreslerini değiştirerek kullanabilirsiniz.Tamamen tarafımdan kodlanmıştır.
Kodlar:Linkleri görüntülemek için kayıt olmalısınızreferans gösterilerek paylaşılabilir.
Bahsettiğim bir program.Direk google üzerinden yapmıyorum bu işlemleri.yaklaşık 100 kadar kelime aratıyorum ve bunların otomatik olarak listesini alıyorum.Bu tekrarladığım işlemleri kendi elimle yapsaydım bilgisayardan kalkıcak zamanım olmazdı.Birde şunu düşünsene sonsuza dek düğmeye basacağıma bir kez kod yazarım.Bu üşengeçlik değildir.Bu insanın en önemli yeteneklerinden biri olan alet kullanma yetenekleridir.Emin ol atarım.
Sizler kadar üşengeç değilim, planlı hareket etmesini bildikten sonra her işe yetişirsin.
2 satır kod yazacağın kadar bas düğmeye gitsin.
O bir yana, kullanmasını bildikten sonra ban yemezsin.
Bahsettiğim bir program.Direk google üzerinden yapmıyorum bu işlemleri.yaklaşık 100 kadar kelime aratıyorum ve bunların otomatik olarak listesini alıyorum.Bu tekrarladığım işlemleri kendi elimle yapsaydım bilgisayardan kalkıcak zamanım olmazdı.Birde şunu düşünsene sonsuza dek düğmeye basacağıma bir kez kod yazarım.Bu üşengeçlik değildir.Bu insanın en önemli yeteneklerinden biri olan alet kullanma yetenekleridir.
Yapmaz tabii ki de. Bu modemi resetlemiyor. Sadece DNS önbelleğinizi temizliyor ve size modemden yeni bir ip veriyor. Modem resetlenmediği için de modemin internetten aldığı ip aynı kalıyor. Modemin resetlenmesi için kullanıcı adı ve şifresinin de girildiği bir program gerekir.bu program işe yaramadı resetlıyor ancak yıne hotfıle ve benzerı sıtelerde bekleme yapıyor...