Bilgisayarda Modeme Dokunmadan Reset Atma :) Tamamen Kendi Yapımımdır :)

efsndrftc' Alıntı:

Selam 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)

Genişletmek için tıkla ...

mrt697' Alıntı:

Yapamadım yardım olursan sevinirim bu ip adresinimi yeniliyor

Genişletmek için tıkla ...

Sailfish' Alıntı:

Bu gençlik bu kadar üşengeç ise vay gelecek nesilin haline.
Bu kadar da üşengeç olmayın.

Genişletmek için tıkla ...

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

tgrl5000' Alıntı:

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.

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

Bir adet webbrowser ekleyin forma yeter.Windows Form Application olmalı.Şifre yerini falan editlersiniz kendinize göre.
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ız

referans gösterilerek paylaşılabilir.

Genişletmek için tıkla ...

Sailfish' Alıntı:

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.

Genişletmek için tıkla ...

tgrl5000' Alıntı:

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.

Genişletmek için tıkla ...

kadsamuy' Alıntı:

bu program işe yaramadı resetlıyor ancak yıne hotfıle ve benzerı sıtelerde bekleme yapıyor...

Genişletmek için tıkla ...