Question

这个VBScript应该得到1到3之间的随机数，然后根据数字键入字母并将其输入打开的记事本然后转到下一行，但由于某种原因它不会进入信件。有人可以向我解释这个问题吗？这是代码：

Set ws = CreateObject("WScript.Shell")
ws.Run "notepad.exe"
Wscript.Sleep 100

do

RAND = Int((3 - 1 + 1) * Rnd + 1)

if RAND=1 Then
    key = a
elseif RAND=2 Then
    key = b
elseif RAND=3 Then
    key = c
end if

ws.SendKeys key
ws.SendKeys "{ENTER}"
Wscript.sleep 1000

loop

Answer 1

Option Explicit

将-I "c:\Program Files (x86)\Windows Kits\8.1\Include\shared" -I "c:\Program Files (x86)\Windows Kits\8.1\Include\winrt" -I "C:\Program Files (x86)\Microsoft Visual Studio 12.0\VC\include"作为文件的第一行，您将看到您正在尝试分配未定义的变量而不是字符串文字

Answer 2

您是否定义了a，b，c？

也许你的意思是：

if RAND=1 Then
    key = "a"
elseif RAND=2 Then
    key = "b"
elseif RAND=3 Then
    key = "c"
end if

有人可以检查我的编码吗

2 个答案: