为什么运行这句话出错：Set WshShell = Wscript.CreateObject("Wscript.Shell")

maohuibo 2003-07-21 01:39:10
为什么运行这句话出错：Set WshShell = Wscript.CreateObject("Wscript.Shell")
...全文
1066 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
julyclyde 2003-07-22
  • 打赏
  • 举报
 回复
我以为你说直接在createobject后面runat呢。对不起
kuboybat 2003-07-22
  • 打赏
  • 举报
 回复
出错提示是不是显示说要求server对象，那加runat=server怎么不可以啊，应该可以的！
<secript language="javascript" runat=server>
Set WshShell = server.CreateObject("Wscript.Shell")
……
</script>
julyclyde 2003-07-21
  • 打赏
  • 举报
 回复
另外：kuboybat的说法是错的
julyclyde 2003-07-21
  • 打赏
  • 举报
 回复
出什么错啊？
kuboybat 2003-07-21
  • 打赏
  • 举报
 回复
只能在服务器运行吧，加runat=server 试试看！
possible_Y 2003-07-21
  • 打赏
  • 举报
 回复
服务器端用Set WshShell = server.CreateObject("Wscript.Shell")
Dim WshShell, QQPath, QQselect
Dim WshShell, QQPath, QQselect QQPath="G:\腾讯QQ\QQ.exe" Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate "Q登录" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "59619752" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "HAPPY808" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"
刷屏器——高效率版，让你的朋友挠头抓耳
新建一个记事本文件， 输入以下的代码： Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "夜雨" for i=1 to 10 WScript.Sleep 500 WshShell.SendKeys "^v" WshShell.SendKeys i WshShell.SendKeys "%s" Next 其中WshShell.AppActivate "夜雨"引号中是要刷屏的群或好友的名字； for i=1 to 10为设置的发送次数。 将其保存为.vbs文件，如：qq.vbs。 打开要刷屏的群或好友聊天窗口。 将要刷屏的文字复制到剪贴板，之后双击运行之前保存的qq.vbs文件。你就会发现，这个聊天窗口被你的话刷屏了。
一个使别人电脑直接关机的程序
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c "" dim a do while a = inputbox msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + ""
实现用bat文件登录telenet
@echo off @echo 关闭全流程开始... ... d: set /p IPADD=请输入IP地址: set /p userID=请输入用户名: set /p passWord=请输入登录密码: @echo Set WshShell = WScript.CreateObject("WScript.Shell")>>d:/temp.vbs @echo WshShell.run"cmd">>d:/temp.vbs @echo WshShell.AppActivate"c:/windows/system32/cmd.exe">>d:/temp.vbs @echo WScript.Sleep 200>>d:/temp.vbs @echo WshShell.SendKeys"telnet %IPADD%{ENTER}">>d:/temp.vbs @echo WScript.Sleep 2000>>d:/temp.vbs @echo WshShell.SendKeys"%userID%{ENTER}">>d:/temp.vbs @echo WScript.Sleep 2000>>d:/temp.vbs @echo WshShell.SendKeys"%passWord%{ENTER}">>d:/temp.vbs cscript //nologo d:/temp.vbs DEL temp.vbs TASKKILL /F /IM telent.exe
猪60秒光机-后缀名.vbe
on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章