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.

    chrisje255

    Members
    • Posts

      44
    • Joined

    • Last visited

    Posts posted by chrisje255



    1. 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.

    ×
    ×
    • Create New...