简体   繁体   English

使用元帅vb.net Visual Studio 2012

[英]Using marshal vb.net Visual Studio 2012

It says marshal cannot be used, because it's protection level or the variable is been used before and it's been assigned to another value. 它说不能使用元数据,因为它是保护级别,或者之前已使用过该变量并将其分配给另一个值。

//code:
Imports System.Text.RegularExpressions
Imports System.Runtime.InteropServices
Public Class Form1
Dim int As Integer = 0
Public WithEvents Browser As WebBrowser
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort

#Region "Using 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

Public Sub UseProxy(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
    Dim Marshal
    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

Marshal is a reserved word; Marshal是一个保留字; you cannot give a variable this name. 您不能给变量命名。 Remove the Dim Marshal statement. 删除Dim Marshal语句。

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 无法在Visual Studio 2012(VB.NET)中设置启动表单 - Unable to Set Startup Form in Visual Studio 2012 (VB.NET) 相当于visual studio 2012 vb.net中的getobjectcontext()? - Equivalent for getobjectcontext() in visual studio 2012 vb.net? 在Visual Studio(2012)VB.net项目中添加对WorkBook的引用 - Add a reference to WorkBook in Visual Studio (2012) VB.net Project MySQL查询-使用前后的通配符和输入参数进行搜索。 Visual Studio 2012-VB.NET - MySQL Query - Search using wildcards at front and rear and an input parameter. Visual Studio 2012 - VB.NET 在Visual Studio vb.net中使用SOAPContext - Using SOAPContext in Visual Studio vb.net 提交时打印文本 - VB.NET 2012,MVC 4,Visual Studio 2012 - Print Text on Submit - VB.NET 2012, MVC 4, Visual Studio 2012 Visual Studio 2008 —使用VB.Net在表中插入数据 - Visual Studio 2008 — inserting data in table using VB.Net 使用Visual Studio 2015的VB.NET安装程序包 - VB.NET Installer Package using Visual Studio 2015 使用Visual Studio 2015更新Access数据库-VB.net - Update Access database using Visual Studio 2015 - VB.net 在VB.NET/Visual Studio 2008中使用GetUserName进行访问冲突 - Access Violation using GetUserName in VB.NET / Visual Studio 2008
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM