Sub OnClick(Byval Item)


Dim NetVideoActiveX231
Dim NetVideoActiveX232


Set NetVideoActiveX231=ScreenItems("Control1").login("192.168.1.64",8000,"admin","12345")


Set NetVideoActiveX232=ScreenItems("Control1").StartRealPlay(0,0,0)


End Sub

我的代码动作这样写,还是不能打开视频流.类似的在其他组态软件就可以打开.
Control1是控件名称