如何让VBS消息框出现在随机位置？

Question

在VBS脚本中，我创建了一个简单的消息框应用程序。它目前停留在所有窗口的前面，直到用户响应并使用非常简单的编码

    X=MsgBox("Test Text" ,1+4069, "Test Title")

但它总是出现在同一个地方。有什么办法让它出现在屏幕上的随机位置吗？请帮忙！

Answer 1

有一种类型的框允许您将其放置在屏幕上：InputBox

Title = "Hello"
DefaultValueText = "Hello Stackoverflow !"
message = "Type something here"
XPos = 0
YPos = 0
Text = InputBox(message,Title,DefaultValueText,XPos,YPos)
XPos = 3000
YPos = 800
Text = InputBox(message,Title,DefaultValueText,XPos,YPos)

Answer 2

@Hackoo 就快到了， 我用了他的，这是我用它做的。

dim r
randomize
r = int(rnd*500) + 1
r2 = int(rnd*1500) + 1
Title = "Hello"
DefaultValueText = "Hello!"
message = "Type something here!"
XPos = r
YPos = r2
Text = InputBox(message,Title,DefaultValueText,XPos,YPos)