Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
改为:
Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Integer