php随机点名怎么做,各位大佬，怎样用vbs写一个随机点名器啊?

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

set WshShell = WScript.CreateObject("WScript.Shell")

a=inputbox("键入1随机抓阄，键入0指定抓阄","四班抓阄程序")

if a=1 then

msgbox"点击“确定”开始抓阄",vbInformation,"四班抓阄程序"

randomize

xh=int(rnd * 71 + 1)

msgbox "请"& xh &"号同学给我们背诵《黄河颂》",vbInformation,"抓阄成功"

WshShell.run"notepad"

wscript.sleep 1000*1

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"r"

wscript.sleep 1000*1

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"e"

wscript.sleep 1000*1

WshShell.sendkeys"a"

wscript.sleep 1000*1

WshShell.sendkeys"d"

wscript.sleep 1000*1

WshShell.sendkeys"y"

wscript.sleep 1000*1

WshShell.sendkeys"~"

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"g"

wscript.sleep 1000*1

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"o"

else if a=0 then

b=inputbox("请输入学号")

msgbox "请"& b &"号同学给我们背诵《黄河颂》",vbInformation,"抓阄成功"

WshShell.run"notepad"

wscript.sleep 1000*3

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"r"

wscript.sleep 1000*1

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"e"

wscript.sleep 1000*1

WshShell.sendkeys"a"

wscript.sleep 1000*1

WshShell.sendkeys"d"

wscript.sleep 1000*1

WshShell.sendkeys"y"

wscript.sleep 1000*1

WshShell.sendkeys"~"

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"g"

wscript.sleep 1000*1

WshShell.sendkeys"{CAPSLOCK}"

WshShell.sendkeys"o"

end if

end if