Proxy Değiştirme Kodu

trh911

trh911

Yeni üye
11 Ağu 2007
15
1
Imports Microsoft.Win32
Public Class Form1
Dim i = "1"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If i = ListBox1.Items.Count Then
i = "1"
ListBox1.SelectedIndex = "1"
Else
ListBox1.SelectedIndex = i
i = i + 1
ProxyDegistir(ListBox1.SelectedItem)
End If
End Sub
Public Sub ProxyDegistir(ByVal Proxy As String)
Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
RegKey.SetValue("ProxyServer", Proxy)
RegKey.SetValue("ProxyEnable", 1)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.SelectedIndex = "1"
End Sub
End Class

Bir timer ve listbox gerekli. Otomatik hallediyor, timerin kodlarını bir butona vs. koyabilirsin.

DÜZENLEME: Proxy program kapandıktan sonra da aktif kalacaktır, onun için şu kodları ekle ki program kapanırken proxy de otomatik kapansın:

Public Sub ProxyKapat()
Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
RegKey.SetValue("ProxyEnable", 0)

End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
ProxyKapat()
End Sub

Alıntıdır..

işini görür umarım..
 
P@cth

P@cth

Analist
22 Tem 2013
888
13
trh911' Alıntı:
Imports Microsoft.Win32
Public Class Form1
Dim i = "1"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If i = ListBox1.Items.Count Then
i = "1"
ListBox1.SelectedIndex = "1"
Else
ListBox1.SelectedIndex = i
i = i + 1
ProxyDegistir(ListBox1.SelectedItem)
End If
End Sub
Public Sub ProxyDegistir(ByVal Proxy As String)
Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
RegKey.SetValue("ProxyServer", Proxy)
RegKey.SetValue("ProxyEnable", 1)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.SelectedIndex = "1"
End Sub
End Class

Bir timer ve listbox gerekli. Otomatik hallediyor, timerin kodlarını bir butona vs. koyabilirsin.

DÜZENLEME: Proxy program kapandıktan sonra da aktif kalacaktır, onun için şu kodları ekle ki program kapanırken proxy de otomatik kapansın:

Public Sub ProxyKapat()
Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
RegKey.SetValue("ProxyEnable", 0)

End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
ProxyKapat()
End Sub

Alıntıdır..

işini görür umarım..
Genişletmek için tıkla ...
kodlar işe yaramıyo
 
Hesap Askıda

Hesap Askıda

Uzman üye
12 May 2013
1,212
0
Kod: 
  [COLOR="yellow"]Vb.net için[/COLOR]
 [COLOR="Plum"] Public Sub ProxyDegistir()
        Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
        Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
        RegKey.SetValue("ProxyServer", "21.21.21:80")
        RegKey.SetValue("ProxyEnable", 1)
    End Sub[/COLOR]

[COLOR="Yellow"]C# için[/COLOR]
[COLOR="RoyalBlue"]public voi.d ProxyDegistir()
    {
        string proxykey = "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings";
        RegistryKey RegKey = Registry.CurrentUser.OpenSubKey(key, true);
        RegKey.SetValue("ProxyServer", "21.21.21:80");
        RegKey.SetValue("ProxyEnable", 1);

    }[/COLOR]
21.21.21:80 yazan yere kendi proxy'nizi yazın
 
P@cth

P@cth

Analist
22 Tem 2013
888
13
mantık

tgrl5000' Alıntı:
Kod: 
  [COLOR=yellow]Vb.net için[/COLOR]
 [COLOR=Plum] Public Sub ProxyDegistir()
        Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
        Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
        RegKey.SetValue("ProxyServer", "21.21.21:80")
        RegKey.SetValue("ProxyEnable", 1)
    End Sub[/COLOR]

[COLOR=Yellow]C# için[/COLOR]
[COLOR=RoyalBlue]public voi.d ProxyDegistir()
    {
        string proxykey = "Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings";
        RegistryKey RegKey = Registry.CurrentUser.OpenSubKey(key, true);
        RegKey.SetValue("ProxyServer", "21.21.21:80");
        RegKey.SetValue("ProxyEnable", 1);

    }[/COLOR]
21.21.21:80 yazan yere kendi proxy'nizi yazın
Genişletmek için tıkla ...
butona tıklayınca nasıl değiştirck ?
 
P@cth

P@cth

Analist
22 Tem 2013
888
13
tgrl5000' Alıntı:
Önemli değil kardeşim ne zaman yardıma ihtiyacınız olursa 1 öm ile yanınızdayım :D
Genişletmek için tıkla ...
tabi nedemek ayyrıca aktif olduğun zamanlarda yanımızdasın
icon10.gif
icon14.gif
icon10.gif
 
Xxhacker19xX

Xxhacker19xX

Üye
4 Nis 2013
200
0
İstanbul
arkadaşalar merhaba ben Xxhacker19xX visual basic'de proxy deiştirmeyi anlatıyorum. Kodları da verdim. Proje;

Gerekli Araçlar;
Bir timer, bir listbox
Bir timer ve listbox gerekli. Otomatik hallediyor, timerin kodlarını bir buton içersinde yazarsanız da olabilir. (Forum içindeki tüm kodları silin ve yapıştırın.)

Kod: 
[COLOR="DarkGreen"]Imports Microsoft.Win32
Public Class Form1
    Dim i = "1"
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If i = ListBox1.Items.Count Then
            i = "1"
            ListBox1.SelectedIndex = "1"
        Else
            ListBox1.SelectedIndex = i
            i = i + 1
            ProxyDegistir(ListBox1.SelectedItem)
        End If
    End Sub
    Public Sub ProxyDegistir(ByVal Proxy As String)
        Dim proxykey As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

        Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(proxykey, True)
        RegKey.SetValue("ProxyServer", Proxy)
        RegKey.SetValue("ProxyEnable", 1)

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.SelectedIndex = "1"
    End Sub
End Class[/COLOR]

İşinize yaradıysa bir teşekkür etemeniz yeterli...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.