javad2000
چهارشنبه 09 خرداد 1386, 18:12 عصر
سلام
لطفاً این نمونه کد رو نگاه کنید، خط هایی که دستور Memory در آنها به کار رفته (با فلش مشخص کرده ام) این ارور را می دهند:
Name 'Memory' is not declared
باید چکار کنم؟
(در ضمن لطفاً از اشتباهاتی که در کد زیر به دلیل دستکاری ویرایشگر تالار ایجاد شده، مثل چسبیدن بعضی کلمات به هم چشمپوشی کنید)
PrivateStructure RASCONN
Dim dwSize AsInteger
Dim hRasCon As IntPtr
Dim szEntryName() AsChar
EndStructure
<DllImport("coredll.dll", SetLastError:=True)> _
PrivateSharedFunction RasEnumConnections(ByVal lpRasCon As IntPtr, ByRef lpCb AsInteger, ByRef lpcConnections AsInteger) AsInteger
EndFunction
PublicSharedFunction EnumerateConnections() AsBoolean
Dim structPtr As IntPtr
Dim size, lpCb, lpcConn AsInteger
Dim rasConn AsNew RASCONN
size = Marshal.SizeOf(rasConn) + (20 * Marshal.SystemDefaultCharSize)
rasConn.dwSize = size
ReDim rasConn.szEntryName(20)
lpCb = size
'--------------------->
structPtr = memory.AllocHLocal(size)
Marshal.StructureToPtr(rasConn, structPtr, False)
If (RasEnumConnections(structPtr, lpCb, lpcConn) = 0) Then
For i AsInteger = 0 To lpcConn - 1
rasConn = CType(Marshal.PtrToStructure(structPtr, GetType(RASCONN)), RASCONN)
Next
Else
ReturnFalse' failure
EndIf
'--------------->
Memory.FreeHLocal(structPtr)
ReturnTrue' success
EndFunction
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Me.EnumerateConnections)
EndSub
لطفاً این نمونه کد رو نگاه کنید، خط هایی که دستور Memory در آنها به کار رفته (با فلش مشخص کرده ام) این ارور را می دهند:
Name 'Memory' is not declared
باید چکار کنم؟
(در ضمن لطفاً از اشتباهاتی که در کد زیر به دلیل دستکاری ویرایشگر تالار ایجاد شده، مثل چسبیدن بعضی کلمات به هم چشمپوشی کنید)
PrivateStructure RASCONN
Dim dwSize AsInteger
Dim hRasCon As IntPtr
Dim szEntryName() AsChar
EndStructure
<DllImport("coredll.dll", SetLastError:=True)> _
PrivateSharedFunction RasEnumConnections(ByVal lpRasCon As IntPtr, ByRef lpCb AsInteger, ByRef lpcConnections AsInteger) AsInteger
EndFunction
PublicSharedFunction EnumerateConnections() AsBoolean
Dim structPtr As IntPtr
Dim size, lpCb, lpcConn AsInteger
Dim rasConn AsNew RASCONN
size = Marshal.SizeOf(rasConn) + (20 * Marshal.SystemDefaultCharSize)
rasConn.dwSize = size
ReDim rasConn.szEntryName(20)
lpCb = size
'--------------------->
structPtr = memory.AllocHLocal(size)
Marshal.StructureToPtr(rasConn, structPtr, False)
If (RasEnumConnections(structPtr, lpCb, lpcConn) = 0) Then
For i AsInteger = 0 To lpcConn - 1
rasConn = CType(Marshal.PtrToStructure(structPtr, GetType(RASCONN)), RASCONN)
Next
Else
ReturnFalse' failure
EndIf
'--------------->
Memory.FreeHLocal(structPtr)
ReturnTrue' success
EndFunction
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Me.EnumerateConnections)
EndSub