Question

我正在尝试制作垃圾邮件机器人，基本功能正常但计数器却没有。它应该来自并且估算数字[i]并停在另一个[计数]并且如果计数＆lt;一世;它应该倒数。但它并没有停留在计数，它继续前进，它也不会倒退。

    set shl = createobject("wscript.shell")
    spam = inputbox("What do you want to spam?")
    if spam = "/count" then
        i = inputbox("Start at what number?")
        count = inputbox("Stop at what number?")
        wscript.sleep 2500

        if count > i then
            do while count > i
                shl.sendkeys i
                wscript.sleep 10
                shl.sendkeys "{ENTER}"
            wscript.sleep 10
            i = i + 1
            loop

         elseif count < i then
            do while count < i
                shl.sendkeys i
                wscript.sleep 10
                shl.sendkeys "{ENTER}"
                wscript.sleep 10
                i = i - 1
            loop

         else
            shl.sendkeys i
        end if

     end if
else
    count = inputbox("How many times?")
    wscript.sleep 2500
    do while count > 0
        shl.sendkeys spam
        wscript.sleep 10
        shl.sendkeys "{ENTER}"
        wscript.sleep 10
        count = count - 1
    loop
end if

我还要创建一个可以发送多行的函数。还有其他想法吗？

Answer 1

set shell = createobject ("wscript.shell")

strtext = inputbox ("Write down your message you like to spam")
strtext2 = inputbox ("Message 2")
strtext3 = inputbox ("Message 3")
strtext4 = inputbox ("Message 4")
strtext5 = inputbox ("Message 5")
strtimes = inputbox ("How many times do you like to spam? Type in 1 less than the amount of msgs you want to spam. eg; if want to spam 1000, type 999.Max no.1999")
strspeed = inputbox ("Type 1000 for 1 msg per second 100 for 10 msg per second etc type 1 for fastest")
strtimeneed = inputbox ("How many SECONDS do you need to get to your victims input box? Click where you want to spam.")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
wscript.sleep strtimeneed2
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
shell.sendkeys (strtext2 & "{enter}")
shell.sendkeys (strtext3 & "{enter}")
shell.sendkeys (strtext4 & "{enter}")
shell.sendkeys (strtext5 & "{enter}")
wscript.sleep strspeed
Next
wscript.sleep strspeed * strtimes / 10

returnvalue=MsgBox ("Want to spam again?",36)
If returnvalue=6 Then
End If
If returnvalue=7 Then
msgbox "Spambox is shutting down"
wscript.quit
End IF
strtext = inputbox ("Write down your message you like to spam")
strtimes = inputbox ("How many times do you like to spam? Type in 1 less than the amount of msgs you want to spam. eg; if want to spam 1000, type 999")
strspeed = inputbox ("Type 1000 for 1 msg per second 100 for 10 msg per second etc type 1 for fastest")
strtimeneed = inputbox ("How many SECONDS do you need to get to your victims input box? Click where you want to spam")
loop

这是我在网上找到的代码编辑，允许多行

Answer 2

我认为在您放置else if而不是Elseif的倒计时时，我也更改了一些缩进以便于阅读

如何制作vbs垃圾邮件机器人？

2 个答案: