• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.

VB6 Proxy Kullanımı

Konuyu Okuyan Kişiler (0)

XFQ

webmaster.tc
Katılım
1 Eyl 2012
Mesajlar
217
Beğeniler
0
#1
Kod:
Private Sub Command1_Click()
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyServer", "127.0.0.1:80"
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 'iede proxy kullanımı açıyoruz-0 yaparsanız proxy kullanımı kapanır.
WebBrowser1.Navigate2 "www.google.com"
End Sub



Private Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ")
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.RegWrite strFolder, strString, strRegType
End Sub
 

ozgunyazar

webmaster.tc
Katılım
30 Ocak 2014
Mesajlar
8
Beğeniler
0
#3
Sanırım ikinci satırın sonundaki sayılar proxy oluyor. Textx.Text yaparak textdeki proxy 'i aktarabileceğimizi umuyorum.