精华内容
下载资源
问答
  • vbs关机脚本

    千次阅读 2008-07-01 17:13:00
    代码:Dim mytime,myout1,myout2 mytime=null mytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx可以马上关机"&vblf&"退出点‘取消...

    代码:

    Dim mytime,myout1,myout2  
    
    mytime=null  
    
    mytime=InputBox("请输入定时时间(格式20:10:05)"&vblf&"如果想倒计时关机,请输入倒计时时间"&vblf&"(单位/分钟)"&vblf&"输入‘xxx'可以马上关机"&vblf&"退出点‘取消'","定时关机","1")  
    
    Set wshshell=wscript.createobject("wscript.shell")  
    
    If IsNumeric(mytime)=False Then  
    
    If IsDate(mytime)=True Then  
    
    wshshell.run "at "&mytime&" shutdown -s" '定时关机在任务列表中  
    
    myout1=MsgBox("定时成功!电脑将在"&mytime&"关机!放弃关机请点‘取消'!",vbokcancel,"定时关机")  
    
    If myout1=vbcancel Then  
    
    wshshell.run "at /delete /y"  
    
    MsgBox "关机已取消!",64,"定时关机"  
    
    End If  
    
    Else  
    
    If mytime="xxx" Then  
    
    wshshell.run "shutdown -s -t 0"  
    
    End If  
    
    MsgBox "输入错误!请重新输入!",64,"定时关机"  
    
    End If  
    
    Else  
    
    If mytime>600 Or mytime<=0 Then  
    
    MsgBox "输入错误!倒计时不能多于10小时(600分钟)!",64,"定时关机"  
    
    wscript.quit  
    
    End If  
    
    wshshell.run "shutdown -s -t "&mytime*60  
    
    myout2=MsgBox("设置成功!电脑将在"&mytime&"分钟后关机!放弃关机请点‘取消'!",vbokcancel,"定时关机")  
    
    If myout2=vbcancel Then  
    
    wshshell.run "shutdown -a"  
    
    MsgBox "关机已取消!",64,"定时关机"  
    
    End If  
    
    End If 

     

     

    第二段:

     

    set diaolei=createobject("wscript.shell")  dim shijian,guanji,hua  shijian=time  hua=inputbox("请输入你要用什么单位关机 1 代表分钟 2 代表小时 3 代表天")  if hua=1 then  guanji=inputbox("请输入你要几分钟后关机")  if datediff("m",shijian,time)>=guanji then  diaolei.run "rundll32.exe user.exe,exitwindows"  diaolei.run "shutdown -s -t 0"  elseif hua=2 then  guanji=inputbox("请输入你要几小时后关机")  if datediff("h",shijian,time)>=guanji then  diaolei.run "rundll32.exe user.exe,exitwindows"  diaolei.run "shutdown -s -t 0"  elseif hua=3 then  guanji=inputbox("请输入你要几天后关机")  if datediff("d",shijian,time)>=guanji then  diaolei.run "rundll32.exe user.exe,exitwindows"  diaolei.run "shutdown -s -t 0"  endif

    展开全文
  • 后来想想通用性不好,比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出,所以还是改为异步执行,脚本调用bat后自行退出。考虑到还原原文件的完整性末尾添加自删除也打消了想法。压缩包...

    下面代码稍有修改,原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat,本意是不遗留临时文件。后来想想通用性不好,比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出,所以还是改为异步执行,脚本调用bat后自行退出。考虑到还原原文件的完整性末尾添加自删除也打消了想法。压缩包暂未更新。

    'bat2vbs.vbs by baomaboy

    Dim WshSHell,FSO

    On Error Resume Next

    Set WshSHell = WScript.CreateObject("WScript.Shell")

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set WinVer = WshSHell.Environment("Process")

    Set Args = WScript.Arguments

    CloseTime = 5

    FileName = WScript.ScriptName

    FileFullName = WScript.ScriptFullName

    FilePath = FSO.GetParentFolderName(FileFullName)

    InsPath = FSO.GetSpecialFolder(1)

    InsFullName = FSO.BuildPath(InsPath ,FileName)

    LnkPathNT = WshSHell.SpecialFolders(2)

    LnkPath9X = WshSHell.SpecialFolders(14)

    LnkPathAll = WshSHell.SpecialFolders("SendTo")

    OtherFileName="Manage_New.txt"

    OtherFilePath=FSO.GetSpecialFolder(2)

    TemFileName="无标题"

    TemFilePath=FSO.GetSpecialFolder(2)

    Copyright="玲珑科技"

    QQ="QQ:25926183"

    Email="Email:fty1995@163.com"

    InsTitle="Bat2Vbs by baomaboy"

    InsAnswer="Bat2Vbs by baomaboy"

    RegPath1="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\"

    RegValue1="BAT转VBS脚本文件"

    RegForm1="REG_SZ"

    RegPath2="HKEY_CLASSES_ROOT\batfile\shell\BatToVbs\command\"

    RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)

    RegForm2="REG_SZ"

    IF FileFullName <> InsFullName then

    intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单,"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)

    If intAnswer = vbYes Then

    WshSHell.RegWrite RegPath1,RegValue1,RegForm1

    WshSHell.RegWrite RegPath2,RegValue2,RegForm2

    FSO.GetFile(FileFullName).Copy(InsFullName)

    WshSHell.popup _

    "添加脚本文件:"+chr(10)+InsFullName+chr(10)+chr(10)+ _

    "添加注册表项:"+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _

    chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _

    chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _

    , CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64

    end if

    If intAnswer = vbNo Then

    WshSHell.RegDelete RegPath2

    WshSHell.RegDelete RegPath1

    FSO.DeleteFile InsFullName

    WshSHell.popup _

    "删除脚本文件:"+chr(10)+InsFullName+chr(10)+chr(10)+ _

    "删除注册表项:"+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _

    chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _

    chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _

    , CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64

    end if

    If intAnswer = vbCancel Then

    end if

    ELSE

    if Args.count=0 then wscript.quit

    Set ReadFile = FSO.OpenTextFile(Args(0), 1)

    ReadAllText = ReadFile.ReadAll

    ReadFile.Close

    For i=1 To Len(ReadAllText)

    TempNum = Asc(Mid(ReadAllText,i,1))

    if TempNum = 34 Then

    TempNum = 18

    elseIf TempNum = 13 Then

    TempNum = 28

    ElseIf TempNum = 10 Then

    TempNum = 29

    end if

    ThisText1 = ThisText1 & chr(TempNum)

    Next

    Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)

    WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Bat2Vbs="""& ThisText1 &"""")

    WriteFile.WriteLine("Execute(""For i=1 To Len(Bat2Vbs)""&vbCrLf&""TempNum = Asc(Mid(Bat2Vbs,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next"")")

    WriteFile.WriteLine("Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.bat""),1,false")

    WriteFile.Close

    end if

    Set WshSHell = Nothing

    Set FSO = Nothing

    Set Args = Nothing

    WScript.Quit(0)

    展开全文
  • VBS是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,更不需要配置环境,只用windows自带的记事本就可以进行开发,简单粗暴。右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->...

    VBS是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,更不需要配置环境,只用windows自带的记事本就可以进行开发,简单粗暴。

    右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。

    接下来就是代码了:

    1.最简单的一行代码

    msgbox "你个猪头!"
    d521dbb9bc81083beef055ce47bdd741.png
    e5b182dfd43b59ebfa65b79c36ba96da.png

    当然你还可以多写几行其他有趣的文字,程序将会一行一行运行。

    2.死循环恶搞

    上个代码点完“确定”就运行结束了,想要整人还是不够,那我们可以加一个死循环,点击确定和关闭按钮之后,会再一次弹出窗口,如此循环,无法正常关闭。

    domsgbox "你个猪头!"loop

    那怎么才能关闭呢?只有打开任务管理器(快捷键Ctrl+Alt+Delete)找到wscript.exe进程冰右键结束任务。windows7系统wscript.exe在”进程“中,windows10系统wscript.exe在”详细信息“中。

    007d34fbca39617fe93aefc39475e11d.png

    结束wscript.exe进程

    3.无限英文报数从1到无穷大,关闭方法同上

    Set s = CreateObject("sapi.spvoice")i=0do s.speak i i=i+1loop

    4.无限刷新(慎用!!!)刷新难以打开任务管理器,只能强行关机

    set ws=createobject("wscript.shell")do ws.sendkeys "{f5}"loop

    5.QQ连续发送信息骚扰好友

    打开QQ,准确记下好友的备注,代码里的”菜鸡“替换为你的好友备注,数字”30“替换为你想要发送的次数,复制好你准备发送的消息,双击运行vbs。

    On Error Goto 0 Dim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 30wscript.sleep 100 wsh.AppActivate("菜鸡") wsh.sendKeys "^v"wsh.sendKeys "%s" next wscript.quit
    01048fc5dd78f07012e090d9b2b0d1a0.png

    QQ骚扰好友

    6.表白代码

    其中用到了定时关机,但是后面会取消的。

    Set Seven = WScript.CreateObject("WScript.Shell")strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "Seven.url") oShellLink.Savese_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 
    展开全文
  • 知识点 判断文件是否存在 if Not objFso.FileExists(szSessionsFile) then ‘如果txt文件不存在,就报错并退出sub crt.Dialog.MessageBox “Session list file not found:” & vbcrlf & _ vbcrlf & _ szSessionsFile...

    常用语句:

    1.CRT命令

    ‘发送命令

    crt.Screen.Send “whyy@dsl-vty” &

    chr(13)

    ‘等待字符串出现

    crt.Screen.WaitForString “Password:”

    ‘等待字符串出现,等待1秒钟

    crt.Screen.WaitForString

    (“Password:”,1)

    ‘开启同步

    crt.Screen.Synchronous = True

    ‘判断指针1秒内不移动,用于确定安全连接可以进行后续代码输入操作

    Do

    bCursorMoved =

    crt.Screen.WaitForCursor(1)

    Loop until bCursorMoved = False

    ‘判定是否已经连接到设备

    if crt.Session.Connected = true then

    ‘断开连接

    crt.session.disConnect

    ‘激活窗口 用于多tab页面

    crt.Activate

    ‘连接到指定设备

    crt.session.Connect(“/telnet ” &

    b(n))

    ‘延时1秒

    crt.Sleep 1000

    2.vbScript语句

    a.文件操作

    Set fso = CreateObject(“Scripting.FileSystemObject”)

    ‘创建文件对象

    Set file1 = fso.OpenTextFile(“c:\test.txt”,1, False) ‘设置文件对象 1

    只读模式;2 写模式;8 在文件末尾进行写操作

    objFso.FileExists(“文件路径”)

    ‘判定文件是否存在,存在返回trus,否则返回false

    file1.AtEndOfStream <> True

    ‘如果文件末尾无数据返回true,否则返回false

    line = file1.ReadLine

    ‘读取第一行文本数据,并将读取位移动到下一行

    params = Split (line) ‘分割读取的行数据,用空格符分割

    file1.Close ‘关闭文件

    b.系统文档操作

    ‘创建shell对象,对系统特殊文档操作

    Set objShell = CreateObject(“WScript.Shell”)

    ‘返回”我的文档”的路径给变量szMyDocs,可以动态的返回”我的文档”的路径

    szMyDocs = objShell.SpecialFolders(“MyDocuments”)

    ‘设置文件路径到变量中

    szSessionsFile = szMyDocs & “\SessionList.txt”

    3.知识点

    <1.判断文件是否存在

    if Not objFso.FileExists(szSessionsFile) then

    ‘如果txt文件不存在,就报错并退出sub

    crt.Dialog.MessageBox “Session list file not found:” & vbcrlf

    & _

    vbcrlf & _

    szSessionsFile & vbcrlf & vbcrlf &

    _

    “Create a session list file as described in the description of ”

    & _

    “this script code and then run the script

    again.”

    exit sub

    end if

    <2.容错机制

    On Error Resume Next ‘后面代码错误会继续执行

    crt.Session.Connect “/telnet ” &

    vSessionsArray(0)

    szError = Err.Description

    ‘将错误表述信息放入变量szError中

    On Error Goto 0 ‘关闭容错机制

    <3.判断是否安全连接

    ‘判断是否连接正常

    if crt.Session.Connected then

    crt.Screen.Synchronous = True ‘同步显示

    ‘第一次连接时的安全检测

    Do

    bCursorMoved =

    crt.Screen.WaitForCursor(1)

    Loop until bCursorMoved = False

    ’ 一旦光标在一秒内停止移动,我们就认为他已经安全的连接上了远程设备

    end if

    <4.安全关闭连接

    ’ 断开连接

    crt.session.disconnect

    ’ 等待连接关闭

    Do

    crt.Sleep 100

    Loop While crt.Session.Connected = True ‘每100毫秒判断连接是否断开

    <5.说明:

    1.CRT默认tab的index为1

    2.要创建第二个标签页tab,必须使用函数set newtab =

    objCurrentTab1.Clone()复制标签页为新的tab页面

    否则报错tab 2 超出index范围rang

    函数:

    Set objCurrentTab1 = crt.GetTab(1)

    ‘创建标签页1

    objCurrentTab1.session.disConnect

    ‘断开标签页1的当前连接

    objCurrentTab1.Activate ‘激活标签页1

    objCurrentTab1.session.Connect(“/telnet 172.16.205.1” )

    ‘标签页1连接设备172.16.205.1

    set newtab = objCurrentTab1.Clone() ‘复制标签页1到新标签页

    示例:【示例一】

    【示例二】

    config.txt文本文件为事先编辑好的 格式如: 192.168.1.1 cisco cisco 192.168.1.254 cisco cisco 前面是IP地址,后面是telnet密码,最后是enable密码

    【示例三】批量添加静态arp:

    arp.txt如下:

    公司名称:北京哲想软件有限公司

    北京哲想软件官方网站:www.cogitosoft.com

    北京哲想软件微信公众平台账号:cogitosoftware

    北京哲想软件微博:哲想软件

    北京哲想软件邮箱:sales@cogitosoft.com

    销售(俞先生)联系方式:+86(010)68421378

    微信:18610247936 QQ:368531638

    展开全文
  • VBS脚本:关机恶作剧

    2014-08-19 16:00:00
    一、关于脚本 1)本文中的脚本完成以下功能: 随机生成3道二位数加法题,如果答题错误则在60秒后...2)在脚本运行过程中,退出脚本的方法为: 在任务管理器中找到wscript.exe,选择结束进程即可(如下图) ...
  • 利用VBS脚本让qq永远在线 2011年06月07日  让QQ"永远"运行  自从QQ出现了等级制度之后,现在有不少人都开始了疯狂挂级,希望在联机状态下始终运行QQ,即便被人关闭也能自动启动登录,而且还要防止因...
  •  [b] 新建文本文档,把下面我编写下的脚本输进去,退出,保存。重命名把扩展名改为.vbs如“二分法.vbs”(没“”)下面是脚本,使用起来可能比较麻烦点,见谅~!![/b][b]  Dim x1, x2, y1, y2, a, b, c, d, e ,...
  • oOut = 1 '1复制完毕后退出,0复制完毕后不退出,继续循环 二、保存后运行 会出现安装成功对话框,如果不希望出现该对话框,可以将“Msgbox "安装成功"”注释掉。 此时脚本已经在循环监测U盘的插入 三、插入U盘 ...
  • 下面的脚本是在SecureCRT下运行的,采用vbs语言编写。把所有的配置命令放在一个文本文件中,然后使用测试脚本来执行这些命令,简化测试过程中的配置过程。这个脚本在SecureCRT Version 4.0 (build 358)上调试通过。...
  • 如果您不知道此操作对计算机有什么影响,请自觉退出。',48,"Microsoft Windows" msgbox '如果您知道您在做什么和此操作所带来的影响并承担对应的后果,则点击确定。',48,"...
  • 功能:3次登录设备,不成功则退出,成功则执行巡检动作并保存到日志、结果文件。 在程序最后,列出登录不成功的设备IP。 #$language = "VBScript" #$interface = "1.0" 'created by tcy02, 2018-7-2 crt.Screen...
  • 双击运行即可今天给大家带来两个整人的VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把它发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是3分钟 只要输入就...
  • 于是自己写了个vbs脚本,监听某目录下所有coffee文件,如有变化自动编译成js。 原理是无限循环扫描目录,比对coffee文件MD5值是否变化,不等则执行dos命令编译。退出需删除进程。 需要的人可以改写成监听其它类型...
  • ​步骤很简单:新建一个txt文本将代码复制上去,保存退出将文档后缀名“txt”改为“vbs”双击运行就可VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为...
  • vbs打开文件

    千次阅读 2013-11-16 14:45:00
    set ws=createobject("wscript.shell")ws.run"...缺省的话表示正常运行第三个参数:是表示这个脚本是等待还是继续执行,如果设为了True,脚本就会等待调用的程序退出后再向后执行。 ...
  • 如何做一个自动重复发消息的脚本

    千次阅读 多人点赞 2020-04-15 18:01:39
    我们可以使用vbs来写一个自动重复发送消息的脚本VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual ...只要我们将下面这段代码放在记事本里,然后保存退出将记事本重命名为.vbs后缀的文件就可以了。
  • vbs Run方法和Exec方法

    千次阅读 2011-03-01 09:37:00
    缺省的话表示正常运行 第三个参数是表示这个脚本是等待还是继续执行,如果设为了True,脚本就会等待调用的程序退出后再向后执行。 例1: Set ws = CreateObject("WScript.Shell") ws.Run ...
  • '拖放txt文件到本vbs脚本文件上,即可阅读txt文件中的英语. '制作整理: 540784089 set oSpeech = CreateObject("SAPI.SpVoice") set oFSO = CreateObject("Scripting.FileSystemObject") set oFile = oFSO....
  • 各种不同版本的标准DLL试了几十个, 有的只能执行VB的简单算法,那还用什么DLL,直接调用一下vbs脚本都是一样。 想要在DLL中显示窗体或者调用API时涉及到读取COM对象等类型,VB的内存回收机制,他不会自动完美清...
  • 当初为了提高在自动化测试工具市场的竞争力,通过vbs脚本语言讨好自动化测试(专指脚本开发人员)工程师,通过关键字视图讨好业务(这里主要是指对自业务很熟,能找出问题的人员)测试人员。 自动化测试...
  • 当初为了提高在自动化测试工具市场的竞争力,通过vbs脚本语言讨好自动化测试(专指脚本开发人员)工程师,通过关键字视图讨好业务(这里主要是指对自业务很熟,能找出问题的人员)测试人员。 自动化测试...
  • 如果如果执行脚本时跟了参数 yes,则在脚本执行完成后不会直接退出,也不会关闭WSL "转发端口到WSL容器.cmd" 用于转发本机端口到WSL端口,便于通过本机IP:端口的组合访问WSL.文件getIp.sh为获取WSL当前IP的脚本,需放到...
  • 3、手把手教你vbs脚本制作 4、强大的 IDEA编程利器 5、经典常见的 面试题目技巧 Java工程师面试题之Linux(含答案)学习目标Linux怎么查看当前进程?怎么执行退出?怎么查看当前路径?Linux绝对路径用什么符号表示...

空空如也

空空如也

1 2 3
收藏数 41
精华内容 16
关键字:

vbs退出脚本