How can I make a VBS Message Box appear in a random place?

Question

In VBS script, I have created a simple message box application. It currently stays in front of all windows until the user responds and uses very simple coding

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

But it always appears in the same place. Is there any way of making it appear in a random place on the screen? Please help!

Possible duplicate of [MSGBOX position in WSH/VBS](http://stackoverflow.com/questions/2990022/msgbox-position-in-wsh-vbs) — user692942, May 09 '16 at 11:51
It isn't exactly a duplicate. That was a set position. I want it to be a RANDOM position. — not even slightly a pc god, May 16 '16 at 08:25

score 0 · Answer 1 · answered May 09 '16 at 11:46

0

There is one type of box which allows you to position it on the screen: 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)

answered May 09 '16 at 11:46

Hackoo

18,337
3
40
70

So, should I put * for random? – not even slightly a pc god May 13 '16 at 14:03

score 0 · Answer 2 · answered Aug 15 '20 at 07:55

0

@Hackoo was almost there, I used his and here is what I made out of it.

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)

answered Aug 15 '20 at 07:55

ThisIsACoolBoy

21
5

Oh also, you wont see much difference, if you spam it, you will see something short. – ThisIsACoolBoy Aug 15 '20 at 08:00

How can I make a VBS Message Box appear in a random place?

2 Answers2