[RESOLVED] error on proxy

[TetovaBoy]

struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
struct_IPI.proxy = System.Runtime.InteropServices.Marshal.StringToHGl obalAnsi(strProxy)
struct_IPI.proxyBypass = System.Runtime.InteropServices.Marshal.StringToHGl obalAnsi("local")

' Allocating memory
Dim intptrStruct As IntPtr = System.Runtime.InteropServices.Marshal.AllocCoTask Mem(System.Runtime.InteropServices.Marshal.SizeOf( struct_IPI))

' Converting structure to IntPtr
System.Runtime.InteropServices.Marshal.StructureTo(Ptr(struct_IPI, intptrStruct, True))
Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(stru ct_IPI))
End Sub

#End Region

Where here i have the mistake because makes it error here in image that shows the error...

[cicatrix]

You have many typos here. But in case you need it, here's an example of marshaling structures into byte array and back:
If you only need a pointer then do not perform Marshal.Copy.

And don't forget to release the memory once you've done or it leaks.

In order to have a 'serializable' structure it should have:
a) <StructLayout(LayoutKind.Sequential> attribute and you must provide Charset (if you have strings Ansi/Unicode).
b) Each string value should be of 'fixed length' which is declared using <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=xx)> where xx is the length of the string.

' This is our 'Test' structure
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)>
    Structure Test
        Dim A As Integer
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> Dim B As String ' 32 bytes
    End Structure ' Length = 32 + 4 = 40 bytes
 
    ' This will convert a structure into a byte array:
    Function StrToByteArray(ByVal Struct As Test) As Byte()
        Dim datalen As Integer = Marshal.SizeOf(Struct)
        Dim ptr As IntPtr = Marshal.AllocHGlobal(datalen)
        Dim bytearray(datalen - 1) As Byte
        Marshal.StructureToPtr(Struct, ptr, False)
        Marshal.Copy(ptr, bytearray, 0, datalen)
        'Important:
        Marshal.FreeHGlobal(ptr)
        Return bytearray
    End Function
 
    ' This will convert a byte array into a structure:
    Function ByteArrayToStr(ByVal bytearray() As Byte) As Test
        Dim gch = GCHandle.Alloc(bytearray, GCHandleType.Pinned)
        Dim ptr As IntPtr = gch.AddrOfPinnedObject
        Dim struct As Test = CType(Marshal.PtrToStructure(ptr, GetType(Test)), Test)
        'Important:
        gch.Free()
        Return struct
    End Function

[Pc_Not_Mac]

Can you please re size your picture?

[TetovaBoy]

how u mean pc_not_Mac

[Pc_Not_Mac]

how u mean pc_not_Mac

I think by showing us the errors.
And showing us the code.
Helps us more then just a picture.

[TetovaBoy]

sorry i just wanted to show which parts are showing the error