关于使用winsock的疑惑,为何表单中加入控件可以,可是用代码创建就不行呢?
我用以下代码创建winsock对象,在开发的机器上一切正常,但是将程序放在没有安装vfp的机器上,运行时失败
ox=Createobject("MSwinsock.Winsock")
失败的提示是授权原因,具体的提示我记不清了,反正是未授权的意思。
我怀疑是控件注册的问题,将winsock重新注册,也不行,看来不是注册的问题了。
我再次回到装有vfp的机器上,将代码创建winsock对象的方法去除,在表单上放上一个winsock控件,编译成exe再放到另一台机器上(就是刚才报错的机器上)运行,却成功执行了。这也证明,那台机器上的winsock控件的注册是一点问题也没有的。
我不明白这是为什么?
我又想到另一种测试办法,我测试vbs文件能否正常执行,发现,那台机器上,无法正常执行下面的代码,就是vbs文件中的代码:
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
IPAddress=WS.LocalIP
MsgBox "Local IP=" & IPAddress
MsgBox "Local IP=" & ws.localhostname