//单个摄像头进入并阅览保存
Sub OnOpen() 
Dim cam,msg,msg2,msg3
Set cam=ScreenItems("控件1")
msg=cam.Login("192.168.1.64",8000,"admin","kmzn2020")
If msg=0 Then
msg2=cam.StartRealPlay(0,0,0)
msg3=cam.StartRecord("D:\viedo")
End If
End Sub

//两个摄像头进入并阅览保存
Sub OnOpen()            
Dim cam,msg,msg2,msg3,cam1,msg4,msg5,msg6
Set cam=ScreenItems("控件1")
Set cam1=ScreenItems("控件2")
msg=cam.Login("192.168.1.64",8000,"admin","kmzn2020")
msg4=cam1.Login("192.168.1.65",8000,"admin","kmzn2020")
If msg=0 Then
msg2=cam.StartRealPlay(0,0,0)
msg3=cam.StartRecord("D:\viedo")
End If
If msg=0 Then
msg5=cam1.StartRealPlay(0,0,0)
msg6=cam1.StartRecord("D:\viedo")
End If
End Sub

//点击按钮登陆摄像头
Sub OnClick(ByVal Item)
Dim cam,msg
Set cam=ScreeItems("控件1")
msg=cam.Login ("192.168.1.64",8000,"admin","kmzn2020")
Msgbox "登陆返回:"& msg
End Sub

//一键登录所有摄像头
Sub OnClick(ByVal Item)          
Dim cam,msg,msg1,cam1,msg2,msg3
Set cam=ScreenItems("控件1")
Set cam1=ScreenItems("控件2")
msg=cam.Login("192.168.1.64",8000,"admin","kmzn2020")
msg2=cam1.Login("192.168.1.65",8000,"admin","kmzn2020")
If msg>=0 Then
msg1=cam.StartRealPlay(0,0,0)
msg3=cam1.StartRealPlay(0,0,0)
End If
End Sub

//一键退出所有摄像头
Sub OnClick(ByVal Item)    
Dim cam,msg,cam1,msg1
Set cam=ScreenItems("控件1")
Set cam1=ScreenItems("控件2")
msg=cam.Logout
msg=cam.StopRealPlay
msg1=cam1.Logout
msg1=cam1.StopRealPlay
End Sub

//一键登录所有摄像头带保存功能
Sub OnClick(Byval Item)           
Dim cam,msg,msg1,cam1,msg2,msg3,msg4,msg5
Set cam=ScreenItems("控件1")
Set cam1=ScreenItems("控件2")
msg=cam.Login("192.168.1.64",8000,"admin","kmzn2020")
msg2=cam1.Login("192.168.1.65",8000,"admin","kmzn2020")
If msg>=0 Then
msg1=cam.StartRealPlay(0,0,0)
msg3=cam1.StartRealPlay(0,0,0)
msg4=cam.StartRecord("E:\q")
msg5=cam1.StartRecord("E:\q")
End If
End Sub