0

我有以下(部分)请求:

<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 位数字?

先感谢您。

4

1 回答 1

0

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

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 消息中使用。

于 2020-12-17T13:11:39.330 回答