Jump to content
Welcome, Guest
Existing user? Sign In

Sign In



Sign Up
The MatriX
  • Welcome To Ghbsys
  • CS GO Streaming Version is released. Have fun streaming while cheating!
  • Have a Payment Issue? Send us a Support ticket.
  • Make a thread if you need support or join our discord for live support.
  • Have Suggestions? Make a thread and you'll earn Ghbsys Points for implemented suggestions.
  • Join our discord to stay well connected! Don't forget to integrate your discord to the site
  • Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

    Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum, like most online communities you must register to view or post in our community, but don't worry this is a simple free process that requires minimal information for you to signup. Be apart of [GHB] - GAmEhAcKbAsTaRdS Forum by signing in or creating an account.
    • Start new topics and reply to others
    • Subscribe to topics and forums to get email updates
    • Get your own profile page and make new friends
    • Send personal messages to other members.

    Web-Browser Proxy using code


    chrisje255
     Share

    Recommended Posts



    it is just an video, i hope this isnt against the rules?

    the proxy code is:
        #Region "Proxy"
           <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
             Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
           End Function
    
           Public Structure Struct_INTERNET_PROXY_INFO
               Public dwAccessType As Integer
               Public proxy As IntPtr
               Public proxyBypass As IntPtr
           End Structure
    
           Private Sub Proxy(ByVal strProxy As String)
               Const INTERNET_OPTION_PROXY As Integer = 38
               Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
    
               Dim struct_IPI As Struct_INTERNET_PROXY_INFO
    
               struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
               struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
               struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
    
               Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
    
               Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
    
               Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
           End Sub
       #End Region
    



    Thanks to: Me, i'm skilbyte @ youtube.

    Link to comment
    Share on other sites

    Guest
    This topic is now closed to further replies.
     Share

    • Recently Browsing   0 members

      • No registered users viewing this page.
    ×
    ×
    • Create New...