试图让我自己的vbscript

-1

我一直在这个vb脚本大约一个小时试图让它工作有很多skype spammer scipts，但我想做一个包括一个随机数字发生器我的脚本是这个我现在称之为“Skype_randizer_mk1”试图让我自己的vbscript

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

延迟变量的时间将需要进入另一个号码我不介意的量，如果这个程序使只有数值这就是我打算为它做

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

来源

2015-07-11 Henry Underwood

欢迎来到StackOverflow！正如目前制定的那样，你的问题不是很清楚。请包括您的问题（通过点击问题下的编辑）的细节，如：预期的代码是什么？你得到的错误是什么？你可能需要一些时间来阅读[如何提出一个好问题]（http://stackoverflow.com/help/how-to-ask）。祝你好运！ – jadhachem

下载[Windows脚本文档]（http://windows-script-documentation.software.informer.com/download/）。那里有'script56.chm'中的一些_basic_例子。 – JosefZ

你有很多你的代码的问题： -

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

来源

2015-07-13 02:18:28 joehanna

第10行是它保持生成随机数的部分，因为我打算使用这个作为一个Skype的垃圾邮件发送者，所以数量不断变化，我也改变了第二个循环为“b”，因为第一个是“我”你有要做到这一点？并有一个strshell.sendkeys，因为别人做了一个Skype的垃圾邮件发送者，但它说文本，只有你输入，而不是经常更改字符串我将如何使用If/Then/Else做同样的事情？我将在此发布另一条评论，以显示我已更改的内容，并查看它是否可行 –

试图让我自己的vbscript

回答

相关问题