试着制作我自己的vbscript

Question

我一直在研究这个vb脚本大约一个小时试图让它工作有很多skype垃圾邮件发送者scipts但我想制作一个包含随机数生成器我的脚本是我现在称之为＆ ＃34; Skype_randizer_mk1＆＃34;

如果有人能够看一眼，我将不胜感激。 当我发布这个网站说我不得不缩进这个，所以它可能看起来有点奇怪

延迟变量是输入另一个数字所需的时间 我不介意这个程序只生成我打算做的数值

set shell = createobject ("wscript.shell")
dim max
dim min
dim delay
max = 100
min = 1
delay = 0.00000001
for i = 1 to 5
    randomize
    intnumber = int((max - min + 1) * rnd + min )
    wscript.echo intnumber
    Next
for b=1 to delay 
    shell.sendkeys (intnumber)
    wscript.sleep(delay)
if not isnumeric(delay) then
wscript.quit
end if
msgbox "You have 5 seconds to get to your inputbox."    
wscript.sleep ( 5000 )
Next

Answer 1

您的代码存在很多问题： -

1. 您应该始终使用Dim声明变量：例如： Dim shell
2. 您错过Next循环
的For
3. 10号线没有多大意义。它说：for b=1 to delay，但延迟= 0.00000001，所以你的循环永远不会运行。另外，为什么这一部分甚至需要循环？我想你可能只想要一个If / Then / Else
4. 第11行应该说shell.SendKeys，而不是strshell.sendkeys，因为这是一个未初始化的变量
5. 第13行正在检查数字delay值。当你在第4行分配0.00000001的值并且它永远不会改变时，它将如何成为除数字以外的任何东西。因此，在第5行的for循环执行5次之前，您不会退出脚本。