我的要求是根据html页面中给出的输入执行UFT脚本。我从一些博客中了解到,微软已经在html中停止了vbs脚本的使用。因此我想使用java脚本调用qtp脚本。我搜索了相同的内容并没有找到太多信息。如果任何人都可以在javascript中提供相同的代码将是有帮助的。由于客户端演示已接近,我没时间进行实验。
Dim objQtpApp
Set objQtpApp=Createobject("QuickTest.Application")
objQtpApp.Launch
objQtpApp.Visible=False 'True
varUserName=document.getElementsByName('Username').value
varPassword=document.getElementsByName('Password').value
call QC_Connect(varUserName,varPassword)
Sub QC_Connect(varUserName,varPassword,varCustomsON)
'
objQtpApp.TDConnection.Connect "http://dddd.fed.test.com:7117/qcbin", "Domain", "Project", varUserName, varPassword,False
If objQtpApp.TDConnection.IsConnected Then
objQtpApp.Open "[QualityCenter] Subject\Automated Test Case Development\Test",False
objQtpApp.Test.Environment.Value("varUserName")=varUserName
objQtpApp.Test.Environment.Value("varPassword")=varPassword
objQtpApp.Test.Environment.Value("varCustomsON")=varCustomsON
objQtpApp.Test.Run
objQtpApp.Quit
Else
MsgBox "Cannot connect to Quality Center"
End If
End Sub
谢谢, 勒凯什
答案 0 :(得分:2)
你的主要问题是JavaScript doesn't have an equivalent of CreateObject
。
支持Microsoft的另一种选择(new ActiveXObject("...")
)的唯一浏览器是IE(而非Edge),它也支持VBScript,因此将代码移植到JavaScript没有任何意义。