精华内容
下载资源
问答
  • 批量修改文件夹内的文件后缀 然后在命令行方式运行 e:\\Change.vbs e:\temp jpg e:\\Change.vbs 是你存放Change.vbs的目录 e:\temp:就是您需要修改文件的目录 jpg:是你的新的扩展名 如果您以前的文件...
  • 整人vbs文件

    2011-11-01 17:31:44
    把以下内容复制到记事本,然后把文件后缀改为:.vbs 可以自行修改内容 WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName) WScript.Echo("知道我谁不?") WScript.Echo("不知道啊,那想我吗?") WScript...

    把以下内容复制到记事本,然后把文件后缀改为:.vbs   可以自行修改内容

    WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)

    WScript.Echo("知道我谁不?")
    WScript.Echo("不知道啊,那想我吗?")
    WScript.Echo("我想你了")
    WScript.Echo("让我们幸福下去吧")
    WScript.Echo("开玩笑的啦,哈哈。")
    WScript.Echo("嘿嘿!继续按吧,孩子")
    WScript.Echo("是不是想清除我?")
    WScript.Echo("那你要点上30下哦,不过会给你惊喜滴")
    WScript.Echo("还剩29下,快点点哦")
    WScript.Echo("还剩28下,快点,小笨蛋!")
    WScript.Echo("还剩27下,对,就这样快点点!")
    WScript.Echo("还剩26下。你啊就是笨,要快哦,我先不打扰你学习了。")
    WScript.Echo("还剩25下,记得要快哦!")
    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("想结素我么?那你就再多点一次")
    WScript.Echo("想结素我么?我是不能说的秘密噢,继续点,有惊喜")
    WScript.Echo("你还真点啊?惊喜就是再点一下罗")
    WScript.Echo("哈哈,好了,不和你玩了,纯属娱乐")
    展开全文
  • (系统:Windows) 第一章第一步:创建一个TXT文件,将后缀修改vbs。(如果没有后缀名,打开“此电脑-查看-文件扩展名”即可,或者私信小编。)第二步:鼠标右击vbs文件,点击”编辑“,在弹出的窗口中选择”文件...

    最近有小伙伴私信我,说:我很好奇系统弹窗是怎么做的。那么今天小编就给大家带来其中一种:使用vbs文件制作简易弹窗。

    话不多说,一起动手操作吧!

    (系统:Windows)

         

    第一步:创建一个TXT文件,将后缀名修改为vbs。

    3d1fcaae506b634f1f06e873914adc61.png

    b6835613c6007d72184e3e9053e521c4.png

    (如果没有后缀名,打开“此电脑-查看-文件扩展名”即可,或者私信小编。)

    第二步:鼠标右击vbs文件,点击”编辑“,在弹出的窗口中选择”文件“

    3704a49347b2fafbde814bd32aab6364.png

    第三步:选择“另存为”,目录不用改,看到下面的编码,选择“ANSI”

    4f2a334b8c9faa1535cfc9c40855bf98.png

    05fd1f5dc09f64a7fc69460894d4f5f9.png

    第四步:点击“保存”,回到文档页面,输入如下代码

     msgbox"带你玩转数码科技"

    第五步:输入完成后,保存文件,打开,是不是就看到一个弹窗啦?当然,以此类推,你还可以多加几行代码。

     msgbox"带你玩转数码科技" msgbox"带你玩转数码科技" msgbox"带你玩转数码科技" #.......(以此类推)

    就这样,我们的操作就完成啦~


    你想做这种输入框吗?教你一步制作~

    第一步:重复第一章的1~3步

    第二步:在窗口中输入如下代码

    dim aa=inputbox("请输入密码!","作业之家密码管理系统 ")if a="12345" then msgbox"密码正确!" msgbox"带你玩转数码科技!"else msgbox"密码错误!" msgbox"带你玩转数码科技!"end if

    第三步:保存,运行

    初始密码:12345,可修改

    (不会修改?咨询小编)

    运行后的效果:

    9792f1380d337c12a4352f2571bd3923.png

    具体效果自己动手尝试哦~

    (字符报错解决方案:检查是否为中文编码,编译器运行方式是否正确,或咨询小编。)

    就这样,一个弹窗就大功告成啦!


        

        1.欢迎私信小编,带你玩转数码科技~

    8a580b93d46ac5252f515ac71a7d8afd.png


    欢迎关注作业之家微信公众号,带你玩转数码科技~

    5666e3fb10224d97fb4bfa266dceb3d7.png

    展开全文
  • VBS 文件设置环境变量

    千次阅读 2012-06-28 09:17:25
    新建一个文本文件,把后缀改为.vbs,然后把下面的代码复制进文件内,就可以新增和修改环境变量newPath = "C:\Program Files\MySoftware" dim wsh Set wsh = WScript.CreateObject("WScript.Shell") //新增 wsh....
    新建一个文本文件,把后缀改为.vbs,然后把下面的代码复制进文件内,就可以新增和修改环境变量
    newPath = "C:\Program Files\MySoftware"
    dim wsh
    Set wsh = WScript.CreateObject("WScript.Shell")
    //新增
    wsh.Environment("system").Item("mySoftware")= newPath
    //修改
    wsh.Environment("system").Item("Path")= wsh.Environment("system").Item("Path") + ";"+newPath 
    展开全文
  • 晚上找到的一段vba代码有2个问题一个是不能修改标签页的名字,一个是存储的json文件明带上了.xlsm的后缀修改后发上来。 一、excel 2007 创建能使用宏的xlsm文件 Sub ToJson() '创建UTF8文本文件 myrange =...

    朋友怎么把excel数据导成json,就去研究了一番。

    晚上找到的一段vba代码有2个问题一个是不能修改标签页的名字,一个是存储的json文件明带上了.xlsm的后缀。

    修改后发上来。

     

    一、excel 2007 创建能使用宏的xlsm文件

    Sub ToJson() '创建UTF8文本文件
     myrange = Worksheets(ActiveSheet.Name).UsedRange  '通过有效数据区来选择数据   ActiveSheet.Name当前sheet标签的名字
     'myrange = ActiveWorkbook.Names("schoolinfo").RefersToRange '通过定义的名称来选择数据
     'myrange = Range(Worksheets("sheet1").Range("a1").End(xlDown), Worksheets("sheet1").Range("a1").End(xlToRight)) '通过标题行的最大行最大列来选择数据
     
    Total = UBound(myrange, 1) '获取行数
    Fields = UBound(myrange, 2) '获取列数
     
         Dim objStream As Object
         Set objStream = CreateObject("ADODB.Stream")
          
         With objStream
                .Type = 2
                .Charset = "UTF-8"
                .Open
                .WriteText "{""total"":" & Total & ",""contents"":["
         
                For i = 2 To Total
                    .WriteText "{"
                    For j = 1 To Fields
                        .WriteText """" & myrange(1, j) & """:""" & Replace(myrange(i, j), """", "\""") & """"
                         If j <> Fields Then
                            .WriteText ","
                         End If
                    Next
                    If i = Total Then
                            .WriteText "}"
                    Else
                            .WriteText "},"
                    End If
                Next
     
                .WriteText "]}"
                .SaveToFile ActiveWorkbook.Path & "/" & ActiveSheet.Name & ".json", 2
         End With
         Set objStream = Nothing
    End Sub
    

    完整代码如上,

     

    代码复制进去,跟着下面的截图操作

     

    大功告成!(*^▽^*)

    展开全文
  • 修改txt文件后缀vbs在计算机的CMD窗口中运行此脚本后记,关于RPA(Robotic Process Automation) 背景 今天给大家带来一段VBS代码,模拟键盘操作,到telnet服务器上查看telnet服务器上有啥文件。 制作VBS脚本 保存...
  • VBS脚本执行exe

    2013-04-17 23:13:25
    修改文本中exe文件路径,将txt后缀改为vbs,运行即可
  • locking.vbs

    2019-12-26 23:49:50
    下载文件以后,桌面双击即可实现电脑锁屏,默认5秒钟,需要修改时间的。可以改后缀在文档里面进行修改进行修改
  • 将以下代码复制到一个文本文档中,并将文本文档的后缀修改为.vbs,直接运行即可 Set WshShell = CreateObject("Wscript.Shell")WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHideWscript.Sleep 1000sFile = ...
  • 修改txt文件后缀vbs在域中的任何一台计算机的CMD窗口中运行此脚本如果要输出到文本文件请运行下降代码。 使用VBS脚本显示域中所有用户ID、用户名、状态、创建时间、过期时间、描述 背景 假设我有一个Windows域,名...
  • 代码如下(拷贝,将文件后缀修改为.vbs即可): 注:如果在运行时包字节错误,此问题是vbs文件编码在电脑中没有。简单的解决办法就是修改文件的编码格式(用text打开,另存为,选择编码格式。这里可以挨个选择,看...
  • 修改txt文件后缀vbs在域中的任何一台计算机的CMD窗口中运行此脚本如果要输出到文本文件请运行下降代码。 背景 假设我有一个Windows域,名为mydomain.com。现在到导出这个域中的所有计算机名和计算机账号创建时间。...
  • 有时候我们常常一会要显示文件的后缀名,一会又要隐藏文件的后缀名(比如在修改大量文件的名称,又不要改到后缀时)。...只要双击这个vbs文件,刷新就可以使文件后缀名在隐藏/显示之间转换。OK!就这么简单。
  • 新建文本文件(xxx.txt),复制以下代码到文本文件,保存后将’.txt’后缀改成’.vbs’,会弹出一个对话框,点击“是”即可。然后点击修改后的文件,就能出现弹窗的效果。那么如何关闭这些弹窗呢?一般可通过任务管理...
  • vbs合集……你懂的

    千次阅读 多人点赞 2019-08-22 22:06:11
    win10可能会出现重命名修改不了后缀名,再某个盘的某个位置新建文件夹点进去,上面的菜单栏中大选项“查看”中有一个文件扩展名,对勾点上就可以了,如图所示,图中缩圈的位置,在重复上面的操作。 下面一重复发送...
  • 论看了别人抖音vbs表白后

    万次阅读 多人点赞 2018-06-29 19:06:17
    第一个、 打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它...然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。 若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【...
  • VBS病毒(爱虫病毒) 源代码

    千次阅读 2011-05-20 12:07:56
    说明:本人对某些代码进行了修改。该文件是一个完整的程序。该文件执行之后,会寻找硬盘上所有满足条件的文件,对其进行强制性...如果你的系统不支持.vbs,可以将后缀改为.vbe Dim folder, fso, foldername, ...
  • 代码很简单,两行即可,可以用来送女朋友~代码set objTTS = createobject("sapi.spvoice") objTTS.speak "您好,第一个语音程序" '粘贴代码修改后缀vbs文件然后运行即可
  • 高端又易学的vbs表白程序了解一下

    万次阅读 多人点赞 2018-07-11 17:47:42
    第一个、打开txt文件,复制以下代码粘贴...)然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。第二个、...
  • 2 修改后缀名 把.txt格式改成 .vbs格式 3 创建快捷方式 4 更换图标 获得一个正规软件的图标,比如Tim的 把原来.vbs文件的图标换成正规软件的图标即可。 总结 效果: 还有,如果要关掉,用任务管理器...
  • 回车执行(assoc命令主要用于显示或修改文件扩展名关联,该指令意在指定使用vbsfile打开.vbs后缀的文件) 继续输入下面代码 ftype vbsfile=%systemroot%\system32\wscript.exe "%1" %* 回车执行(ftype命令主要...
  • 本程序最适合资金有10亿元以上的玩家,如果是10亿元以下的朋友请自行修改代码里面的变量chajia(现价与中间价的差价)和第292行代码的值,然后将以下代码复制到文本文件中,然后修改后缀"TXT"为"VBS"就可以运行了。...
  • 将此下面的代码保存到一个.txt文件中,然后将后缀名命名为.vbs,再然后双击运行即可。 注意要修改的地方: 1.检查tomcat是否挂掉的访问路径,即下面代码中的:http://localhost:8080?a=" &amp; now 2....
  • txt改后缀弹窗表白

    千次阅读 2018-06-21 13:38:00
    one. 打开新建的文本文件,输入字符:msgbox... 保存新建的文本文件,右键重命名,修改文件的拓展名 “.txt” ==> “.vbs” 结尾 finish.. msgbox("做我女朋友好吗?") msgbox("房产证写你名字")msgbo...
  • 复制以下脚本保存后缀名为VBS,在客户端双击使用,使用前请修改红色文字为实际环境参数; 注:本脚本仅适用于WinXP,部分WIN7系统不适用。 =========================我是分隔线========================= ...
  • windows运行bat文件时隐藏命令行(黑框框):windows下...创建后缀vbs文件,写入如下代码,其中"d:\1.bat"修改成想运行的bat文件即可。 set ws=WScript.CreateObject("WScript.Shell") ws.Run "d:\1.bat",0 ...
  • 许多管理员在管理域的时候都会遇到修改hosts文件的实际需求,但是一个一个去客户端修改实在是又麻烦又很...添加hosts记录的vbs,将以下代码复制到记事本,文件后缀保存为vbs即可 Dim fso, objFile, rs,ws,fileStrin...
  • 步骤: 新建文本文档,编辑后缀名为vbs修改文档内容: CreateObject("SAPI.SpVoice").Speak"被读的文字

空空如也

空空如也

1 2 3 4
收藏数 71
精华内容 28
关键字:

vbs修改文件后缀