使用VB獲取網上鄰居里的計算機名

2019-11-18 17:28:09

字體：大中小

來源：轉載

供稿：網友

OptionExplicit
WordAsString,ByVallpUserNameAsString,ByValdwFlagsAsLong)AsLong
PrivateDeclareFunctionWNetOpenEnumLib"mpr.dll"Alias"WNetOpenEnumA"(ByValdwScopeAsLong,ByValdwTypeAsLong,ByValdwUsageAsLong,lpNetResourceAsAny,lphEnumAsLong)AsLong
PrivateDeclareFunctionWNetEnumResourceLib"mpr.dll"Alias"WNetEnumResourceA"(ByValhEnumAsLong,lpcCountAsLong,lpBufferAsNETRESOURCE,lpBufferSizeAsLong)AsLong
PrivateDeclareFunctionWNetCloseEnumLib"mpr.dll"(ByValhEnumAsLong)AsLong
PrivateDeclareFunctionVarPtrAnyLib"vb40032.dll"Alias"VarPtr"(lpObjectAsAny)AsLong
PrivateDeclareSubCopyMemLib"kernel32"Alias"RtlMoveMemory"(lpToAsAny,lpFromAsAny,ByVallLenAsLong)
PrivateDeclareSubCopyMemByPtrLib"kernel32"Alias"RtlMoveMemory"(ByVallpToAsLong,ByVallpFromAsLong,ByVallLenAsLong)
PrivateDeclareFunctionlstrcpyLib"kernel32"Alias"lstrcpyA"(ByVallpString1AsString,ByVallpString2AsAny)AsLong
PrivateDeclareFunctionlstrlenLib"kernel32"Alias"lstrlenA"(ByVallpStringAsAny)AsLong

Submain()
ConstMAX_RESOURCES=256
ConstNOT_A_CONTAINER=-1

DimbFirstTimeAsBoolean
DimlReturnAsLong
DimhEnumAsLong
DimlCountAsLong
DimlMinAsLong
DimlLengthAsLong
DimlAsLong
DimlBufferSizeAsLong
DimlLastIndexAsLong
DimuNetApi(0ToMAX_RESOURCES)AsNETRESOURCE
DimuNet()AsNETRESOURCE_REAL
bFirstTime=True
Do
IfbFirstTimeThen
lReturn=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_ALL,ByVal0&,hEnum)
bFirstTime=False
Else
IfuNet(lLastIndex).dwUsageAndRESOURCEUSAGE_CONTAINERThen
lReturn=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_ALL,uNet(lLastIndex),hEnum)
Else
lReturn=NOT_A_CONTAINER
hEnum=0
EndIf
lLastIndex=lLastIndex 1
EndIf
IflReturn=NO_ERRORThen
lCount=RESOURCE_ENUM_ALL
Do
lBufferSize=UBound(uNetApi)*Len(uNetApi(0))/2
lReturn=WNetEnumResource(hEnum,lCount,uNetApi(0),lBufferSize)
IflCount>0Then
ReDimPreserveuNet(0TolMin lCount-1)AsNETRESOURCE_REAL
Forl=0TolCount-1
'EachResourcewillappearhereasuNet(i)
uNet(lMin l).dwScope=uNetApi(l).dwScope
uNet(lMin l).dwType=uNetApi(l).dwType
uNet(lMin l).dwDisplayType=uNetApi(l).dwDisplayType
uNet(lMin l).dwUsage=uNetApi(l).dwUsage
IfuNetApi(l).pLocalNameThen
lLength=lstrlen(uNetApi(l).pLocalName)
uNet(lMin l).sLocalName=Space$(lLength)
CopyMemByValuNet(lMin l).sLocalName,ByValuNetApi(l).pLocalName,lLength
EndIf
IfuNetApi(l).pRemoteNameThen
lLength=lstrlen(uNetApi(l).pRemoteName)
uNet(lMin l).sRemoteName=Space$(lLength)
CopyMemByValuNet(lMin l).sRemoteName,ByValuNetApi(l).pRemoteName,lLength
EndIf
IfuNetApi(l).pCommentThen
lLength=lstrlen(uNetApi(l).pComment)
uNet(lMin l).sComment=Space$(lLength)
CopyMemByValuNet(lMin l).sComment,ByValuNetApi(l).pComment,lLength
EndIf
IfuNetApi(l).pProviderThen
lLength=lstrlen(uNetApi(l).pProvider)
uNet(lMin l).sProvider=Space$(lLength)
CopyMemByValuNet(lMin l).sProvider,ByValuNetApi(l).pProvider,lLength
EndIf
Nextl
EndIf
lMin=lMin lCount
LoopWhilelReturn=ERROR_MORE_DATA
EndIf
IfhEnumThen
l=WNetCloseEnum(hEnum)
EndIf
LoopWhilelLastIndex<lMin
IfUBound(uNet)>0Then
Forl=0ToUBound(uNet)
SelectCaseuNet(l).dwDisplayType
CaseRESOURCEDISPLAYTYPE_DIRECTORY&
Debug.Print"Directory...",
CaseRESOURCEDISPLAYTYPE_DOMAIN
Debug.Print"Domain...",
CaseRESOURCEDISPLAYTYPE_FILE
Debug.Print"File...",
CaseRESOURCEDISPLAYTYPE_GENERIC
Debug.Print"Generic...",
CaseRESOURCEDISPLAYTYPE_GROUP
Debug.Print"Group...",
CaseRESOURCEDISPLAYTYPE_NETWORK&
Debug.Print"Network...",
CaseRESOURCEDISPLAYTYPE_ROOT&
Debug.Print"Root...",
CaseRESOURCEDISPLAYTYPE_SERVER
Debug.Print"Server...",
CaseRESOURCEDISPLAYTYPE_SHARE
Debug.Print"Share...",
CaseRESOURCEDISPLAYTYPE_SHAREADMIN&
Debug.Print"ShareAdmin...",
EndSelect
Debug.PrintuNet(l).sRemoteName,uNet(l).sComment
Nextl
EndIf
EndSub->

上一篇：基于Win95的VB5串口通信程序

下一篇：用VB設計聚焦框程序