📄 18635.html
字号:
<html> <head> <title>Re: 如何用VB得知区域网路所有线上电脑的IP和Name</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 如何用VB得知区域网路所有线上电脑的IP和Name</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:laigs@yammail.com">Smith</a> on September 08, 1999 at 09:47:09:<p>In Reply to: <a href="18574.html">Re: 如何用VB得知区域网路所有线上电脑的IP和Name</a> posted by 琏琏 on September 07, 1999 at 12:28:30:<p>首先谢谢您的指导!!!<br>我是这么作的，当我读到第一个群组时，即进入递回呼叫,<br>但我为了避免麻烦我另外开了个sub ，内容如下<br>Dim nr1 As NETRESOURCE //避免和Form_Load 的重复<br>Dim hEnum As Long<br>Dim lpBuff As Long<br>Dim cbBuff As Long, cCount As Long<br>Dim p As Long, res As Long, i As Long<br>nr1.dwUsage = RESOURCEUSAGE_CONTAINER //我想群组应还是 收纳器<br>nr1.lpRemoteName = nr.lpRemoteName //这个很奇怪在*.bas 宣告为String而在api 中却是pointer 传回<br>res = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nr1, hEnum) //nr1 中的lpRemoteName 应是群组名<br> If res = 0 Then<br> lpBuff = GlobalAlloc(GPTR, cbBuff)<br> res = WNetEnumResource(hEnum, cCount, lpBuff, cbBuff) //这里的cCount 却仍是0"null"传回<br> If res = 0 Then<br> p = lpBuff<br> For i = 1 To cCount<br> CopyMemory nr, ByVal p, LenB(nr)<br> p = p + LenB(nr)<br> Next i<br> End If<br> End If<p>而我的想法递回呼叫应是重新执行WNetOpenEnum,WNetEnumResource<br>这两个函数，所传的参数在递回呼叫应会重新refresh，不知这个想<br>法是那里有错，请您多多指教!!!谢谢!!!<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18635--><!--top: 18689--><li><a href="18689.html"> 如何用VB得知区域网路所有线上电脑的IP和Name!!己找到问题了!!!</a> <b>smith</b> <i>08:36:48 9/09/99</i>(<!--responses: 18689-->0)<ul><!--insert: 18689--></ul><!--end: 18689--></ul><!--end: 18635--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -