[RESOLVED] error on proxy

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

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.

vb Code:

' 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

Can you please re size your picture?

how u mean pc_not_Mac

Quote:

---

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.

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