以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  字符长度的语法出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188710)
--  作者：zhangchi96
--  发布时间：2023/10/12 22:15:00
--  字符长度的语法出错
写了一段一下代码：
\' --- 探测一下本机MAC地址\'
Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
Vars("mac地址") = nics(0).GetPhysicalAddress.Tostring        \'获得MAC地址
If HardWareInfo.Ready = False \'如果没有初始化
    HardWareInfo.Initialize \'初始化HardWareInfo,提取硬件信息
End If
With HardWareInfo.CPU
    Vars("电脑序列号") = .ProcessorId    \'CPU序列号
End With
With HardWareInfo.BaseBoard
    Vars("电脑序列号") =  Vars("电脑序列号") & .SerialNumber   \'主板序列号\'
End With
With HardWareInfo.Disk
    Vars("电脑序列号") =  Vars("电脑序列号") & .Signature       \'硬盘序列号\'
End With
With HardWareInfo.Bios
       Vars("电脑序列号") =  Vars("电脑序列号") & .SerialNumber     \'BIOS序列号\'
End With
Vars("电脑序列号") =  Vars("电脑序列号") & Vars("mac地址")
If len(Vars("电脑序列号")) > 250 Then
    Vars("电脑序列号") =  Vars("电脑序列号").Substring( 0 ,250)  \'截取左边250字符
End If

没加最后三句话时未曾发现问题，但加了最后三句话时，发布前运行没问题，发布后运行就出现提示:
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,登录窗体,AfterLoad
详细错误信息：
索引和长度必须引用该字符串内的位置。
参数名: length

请问，这可能是什么原因
--  作者：有点蓝
--  发布时间：2023/10/12 22:43:00
--  
我测试没有问题，调试看看是什么内容

……
Vars("电脑序列号") =  Vars("电脑序列号") & Vars("mac地址")
msgbox(Vars("电脑序列号"))
msgbox(len(Vars("电脑序列号")))