api - UFT API 测试：如何为请求中的元素生成数字

Question

我有以下（部分）请求：

<s:Body xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
    <StartProcesRequest>
        <caseID>case1</caseID>
        <requestNR>123456789</requestNR>
        <custID>cust123</custID>
    </StartProcesRequest>
</s:Body>

第一次发送请求时，我得到了正确的响应。第二次发送消息时，必须更改 requestNR，否则会出现重复错误。

如何让 UFT 为 requestNR 生成一个随机的 9 位数字？

先感谢您。

Answer 1

生成随机数并保存到文件：

Dim RandNumber, Fo, f, file
RandNumber = RandomNumber(100000000,999999999)

Set file = CreateObject("Scripting.FileSystemObject")
If file.FileExists("T:\Inkomen\XMLBerichten\vbtest1.txt") Then
file.DeleteFile "T:\Inkomen\XMLBerichten\vbtest1.txt"
End If

Set Fo = createobject("Scripting.FilesystemObject")
Set f = Fo.openTextFile("T:\Inkomen\XMLBerichten\vbtest1.txt",8,true)
f.Write (RandNumber)
f.Close

读取文件以获取编号并在 xml 消息中使用。