Proxy Funktion

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von B0B, 26. Juli 2006 .

Schlagworte:
  1. 26. Juli 2006
    Hi, hab jetzt schon sehr lange gegoogelt aber hab nix gefunden!

    will wissen wie man nen proxy in vb eingeben kann, sodass der browser damit surft!

    wäre nett, wenn mir jemand helfen würde (bin VB Neuling^^)

    Danke
     
  2. 26. Juli 2006
    da du warscheinlich mit dem ms webbrowser arbeitest solltest du wissen das das ganze auf dem IE basiert, d.h. du musst die proxy-einstellungen des IEs ändern, wie genau du das machst kann dir google sicher verraten

    edit:
    VB 5/6-Tipp 0514: Proxyserver des Internet Explorer einstellen - ActiveVB

    da direktlink
     
  3. 29. Juli 2006
    ok ich hab mir jetzt nen code gemacht, mit dem ich dir registry bearbeiten kann, und somit den proxy an oder ausschalten kann,bzw die proxy IP eingeben kann!

    Nur das Problem ist jetzt, dass ich erst den Internet Explorer neu starten muss (Alle schließen + IE wieder öffnen), damit der Proxy drin is und verwendet wird. Das ist aber blöd, kann man das nicht anders machen, dass er gleich verwendet wird?

    Mein bisheriger code:



    Public Function RegWrite(ByVal Path As String, _
    ByVal Value As String, _
    Optional ByVal Typ As String = "REG_SZ") As Boolean

    Dim ws As Object

    On Error GoTo ErrHandler
    Set ws = CreateObject("WScript.Shell")
    ws.RegWrite Path, Value, Typ
    RegWrite = True
    Exit Function

    ErrHandler:
    RegWrite = False
    End Function

    ' Proxy Eintragen
    Private Sub Command1_Click()

    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", Proxy.Text
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", "1", "REG_DWORD"

    End Sub

    'Proxy rausmachen
    Private Sub Command2_Click()

    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", "0", "REG_DWORD"

    End Sub

    'Checken ob Proxy verwendet wird
    Private Sub Command3_Click()

    Dim IeAppli As Object
    Set IeAppli = CreateObject("InternetExplorer.Application")

    IeAppli.Visible = True
    IeAppli.Navigate2 "http://www.wieistmeineip.de"

    browser.Navigate "http://www.wieistmeineip.de"

    End Sub



    Wäre nett, wenn mir da jmd helfen kann! Danke!
     
  4. 29. Juli 2006
    Hi,

    schau dir mal diese Klasse an:
    http://www.activevb.de/rubriken/klassen/kat26.html

    Ich hab sie selber noch nicht angeschaut, aber vllt. kannst du deinen Eigene Anwendung da durch leiten..

    Gruß SR
     
  5. 8. August 2006
    hmm..

    Hallo,

    was sind das den für aussagen - proxys sind sofern man ne richtig gute liste hat von vorteil

    Muss ja nicht grad faKen sein , oder ??

    Auserdem tools wie steganos secuirity internet , wechseln auch alle X sekunden den proxy ohne das man neustarten muss egal ob ie oder ff.

    Liebe grüße
     
  6. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.