VB中提示无效的外部过程怎么办

Private FUNCTINOGetHostName() As String
Dim BUFF() As Byte
Dim CBREQUIRED As Long
Dim NSTRUCTSIZE As Long
Dim INFO As FIXED_INFO
 
Call GETNETWORKPARAMS(ByVal 0&, CBREQUIRED)
If CBREQUIRED > 0 Then
   ReDim BUFF(0 To CBREQUIRED - 1) As Byte
   If GETNETWORKPARAMS(BUFF(0), CBREQUIRED) = ERROR_SUCCESS Then
   COPYMEMORY INFO, ByVal VarPtr(BUFF(0)), LenB(INFO)
   GetHostName = TRIMNULL(StrConv(INFO.HOSTNAME, vbUnicode))
   End If
 End If
End Sub
 
 
这句里的“Call GETNETWORKPARAMS(ByVal 0&, ”0&提示的错误

其他：这个语句不能放到函数里面，应该放到外面，而且也不是这个语法，应该如：
Public Declare Function GETNETWORKPARAMS(ByVal x&, y as integer) As Integer

另外，你这一个是函数，应该End Function结束，并且，应该要给这个函数提供返回值啊。 Call GETNETWORKPARAMS(ByVal 0&, CBREQUIRED)
 
请注意这里的Call，它的意思是调用一个过程，按提示的说法就是你的文件中没有定义这个过程
 
请在代码中找 Sub GETNETWORKPARAMS(ByVal ....这样的代码
或者说这应该是个API函数 

上一个：VB，高分,有没有什么方法可以把TXT中的某些数据提到EXCEL中去，我给大家上图，谢谢了哦
下一个：如何用vba做下面这个图？