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)

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

2 个答案: