VBScript determines whether the client needs to download the control:
<Script language = "VBScript">
Sub windo (IP, port, loginname, pass, contact, initiator)
Dim websetupobj2
On Error resume next
Set websetupobj2 = Createobject ("webstarter. webengine2 ")
If websetupobj2 is nothing then
Dim websetupobj
On Error resume next
Set websetupobj = Createobject ("webstarter. webengine ")
If websetupobj is nothing then
If msgbox ("No client is installed locally. ClickOKAnd then download it automatically!", Vbyesno," 8Minute Video") = Vbyes then
Window. Open ("To downloadProgramAddress and program name")
End if
Else
If msgbox ("The client has undergone major changes. To continue, you must reinstall the client. Do you want to download and install the client?", Vbyesno," 8Minute Video") = Vbyes then
Window. Open ("Address and name of the program to be downloaded")
End if
End if
Set websetupobj = nothing
Else
Websetupobj2.addupdateparam"ServerIP ","Port","/Messenger /"
Websetupobj2.updatefileversion "videochat.exe", "1.0.0.20"
Websetupobj2.updatefileversion "a.wav", "nover"
If websetupobj2.startupdate then
Websetupobj2.addserverparam IP, Port
Websetupobj2.adduserparamLoginname, pass, contact, initiator
Websetupobj2.startexe "videochat.exe"
Else
If msgbox ("Failed to upgrade program. ClickOKAnd then download again!", Vbyesno," 8Minute Video") = Vbyes then
Window. Open ("Address and name of the program to be downloaded")
End if
End if
End if
Set websetupobj2 = nothing
End sub
</SCRIPT>