netbios的用法

hzc1 2001-04-26 09:16:00
谢谢!
请问怎么使用netbios,为什么我一使用就出错,报告Byref参数类型不符。我要如何做呢?
...全文
146 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
hzc1 2001-04-28
  • 打赏
  • 举报
回复
up!
Jackyin 2001-04-26
  • 打赏
  • 举报
回复
gz
hzc1 2001-04-26
  • 打赏
  • 举报
回复
to dingming(丁叮) :谢谢!
我运行了,但又提示dim udtastat   as astat 未定义。
我用我的那个出了个结果是3,不知为何物??
dingming 2001-04-26
  • 打赏
  • 举报
回复
你看看下面的程序,它用来得到网卡地址:
private function ethernetaddress(lananumber as long) _
as string

 dim udtncb    as ncb
 dim bytresponse as byte
 dim udtastat   as astat
 dim udttempastat as astat
 dim lngastat   as long
 dim strout    as string
 dim x      as integer

 udtncb.ncb_command = ncbreset
 bytresponse = netbios(udtncb)
 udtncb.ncb_command = ncbastat
 udtncb.ncb_lana_num = lananumber
 udtncb.ncb_callname = "* "
 udtncb.ncb_length = len(udtastat)
 lngastat = heapalloc(getprocessheap(), _
heap_generate_exceptions or heap_zero_memory, udtncb.ncb_length)

 strout = ""
 if lngastat then
  udtncb.ncb_buffer = lngastat
  bytresponse = netbios(udtncb)
  copymemory udtastat, udtncb.ncb_buffer, len(udtastat)
   with udtastat.adapt
   for x = 0 to 5
    strout = strout & right$("00" & hex$(.adapter_address(x)), 2)
   next x
  end with
  heapfree getprocessheap(), 0, lngastat
 end if
 ethernetaddress = strout
end function


hzc1 2001-04-26
  • 打赏
  • 举报
回复
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32

Private Type NCB
ncb_command As Integer
ncb_retcode As Integer
ncb_lsn As Integer
ncb_num As Integer
ncb_buffer As Long 'String
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte 'Integer
ncb_sto As Byte ' Integer
ncb_post As Long
ncb_lana_num As Byte 'Integer
ncb_cmd_cplt As Byte 'Integer
ncb_reserve(9) As Byte ' Reserved, must be 0
ncb_event As Long
End Type
Private Declare Function Netbios Lib "netapi32.dll" _
(pncb As NCB) As Byte

Private Sub Form_Load()
NC = Space(30)
Text1.Text = Netbios(NC.ncb_num)'不知是不是这样调用?
End Sub
dingming 2001-04-26
  • 打赏
  • 举报
回复
把你的程序写出来看看
QQh1 2001-04-26
  • 打赏
  • 举报
回复
gz!!!!!!
服务器主机安全规范全文共7页,当前为第1页。服务器主机安全规范全文共7页,当前为第1页。服务器主机安全规X 服务器主机安全规范全文共7页,当前为第1页。 服务器主机安全规范全文共7页,当前为第1页。 启用防火墙 阿里云windows Server 2008 R2默认居然没有启用防火墙.2012可能也是这样的,不过这个一定要检查! 补丁更新 启用windows更新服务,设置为自动更新状态,以便与时打补丁. 阿里云windows Server 2008 R2默认为自动更新状态,2012可能也是这样的,不过这个一定要检查! 账号口令 优化账号 操作目的 减少系统无用账号,降低风险 加固方法 "Win+R〞键调出"运行〞->compmgmt.msc〔计算机管理〕->本地用户和组. 1、删除不用的账号,系统账号所属组是否正确.云服务刚开通时,应该只有一个administrator账号和处于禁用状态的guest账号; 2、确保guest账号是禁用状态 3、买阿里云时,管理员账户名称不要用administrator 备注 口令策略 操作目的 增强口令的复杂度与锁定策略等,降低被暴力破解的可能性 加固方法 "Win+R〞键调出"运行〞->secpol.msc 〔本地安全策略〕->安全设置 1、账户策略->密码策略 密码必须符合复杂性要求:启用 密码长度最小值:8个字符 服务器主机安全规范全文共7页,当前为第2页。服务器主机安全规范全文共7页,当前为第2页。密码最短使用期限:0天 服务器主机安全规范全文共7页,当前为第2页。 服务器主机安全规范全文共7页,当前为第2页。 密码最长使用期限:90天 强制密码历史:1个记住密码 用可还原的加密来存储密码:已禁用 2、本地策略->安全选项 交互式登录:不显示最后的用户名:启用 备注 "Win+R〞键调出"运行〞->gpupdate /force立即生效 网络服务 优化服务〔1〕 操作目的 关闭不需要的服务,减小风险 加固方法 "Win+R〞键调出"运行〞->services.msc,以下服务改为禁用: Application Layer Gateway Service〔为应用程序级协议插件提供支持并启用网络/协议连接〕 Background Intelligent Transfer Service〔利用空闲的网络带宽在后台传输文件.如果服务被停用,例如Windows Update 和 MSN Explorer的功能将无法自动下载程序和其他信息〕 Computer Browser〔维护网络上计算机的更新列表,并将列表提供给计算机指定浏览〕 DHCP Client Diagnostic Policy Service Distributed Transaction Coordinator DNS Client Distributed Link Tracking Client Remote Registry〔使远程用户能修改此计算机上的注册表设置〕 Print Spooler〔管理所有本地和网络打印队列与控制所有打印工作〕 Server〔不使用文件共享可以关闭,关闭后再右键点某个磁盘选属性,"共享〞这个页服务器主机安全规范全文共7页,当前为第3页。服务器主机安全规范全文共7页,当前为第3页。面就不存在了〕 服务器主机安全规范全文共7页,当前为第3页。 服务器主机安全规范全文共7页,当前为第3页。 Shell Hardware Detection TCP/IP NetBIOS Helper〔提供 TCP/IP  服务上的NetBIOS 和网络上客户端的NetBIOS 名称解析的支持,从而使用户能够共享文件、打印和登录到网络〕 Task Scheduler〔使用户能在此计算机上配置和计划自动任务〕 Windows Remote Management<47001端口,Windows远程管理服务,用于配合IIS管理硬件,一般用不到> Workstation〔创建和维护到远程服务的客户端网络连接.如果服务停止,这些连接将不可用〕 备注 用服务需谨慎,特别是远程计算机 优化服务〔2〕 在"网络连接"里,把不需要的协议和服务都移除 ² 去掉Qos数据包计划程序 ² 关闭Netbios服务〔关闭139端口〕 网络连接->本地连接->属性->Internet协议版本 4->属性->高级->WINS->禁用TCP/IP上的NetBIOS. 说明:关闭此功能,你服务器上所有共享服务功能都将关闭,别人在资源管理器中将看不到你的共享资源.这样也防止了信息的泄露. ² Microsoft网络的文件和打印机共享 网络连接->本地连接->属性,把除了"Internet协议版本 4〞以外的东西都勾掉. ² ipv6协议 先关闭

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧