如何解决如何移动msgboxvbs随机位置
这是我的第一篇文章。我只将vb用于恶作剧,测试等。
我想为恶作剧制作一个自我复制的msgbox。由于我希望它在任意位置弹出,因此我查看了与此相关的其他问题。帖子在这里: How can I make a VBS Message Box appear in a random place? 我复制了代码,并意识到它是用于输入框的,因为它对msgbox无效。
这是我谈论的代码
dim r
set object = wscript.CreateObject("wscript.shell")
do
randomize
r = int(rnd*500) + 1
r2 = int(rnd*1500) + 1
r3 = int(rnd*4)
r4 = int(r3*16)
msgbox"haha",r3,r4,XPos,YPos
XPos = r
YPos = r2
object.run"error.vbs"
msgbox"lol",YPos
randomize
r = int(rnd*500) + 1
r2 = int(rnd*1500) + 1
XPos = r
YPos = r2
loop
现在,我可以按顺序弹出它。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。