VBS批量修改文件名

Posted 2023-04-16 MrFlySand_飞沙

vbs批量修改文件后缀名

源码

\'批量修改文件后缀名
Function GetScriptPath()
  GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function

Dim before : before = InputBox("请输入要修改的文件后缀名:","用户输入") \'获取用户输入的前缀
Dim suffix : suffix = InputBox("请输入修改后的文件后缀名:","用户输入") \'获取用户输入的后缀

Dim getReturn 
getReturn = MsgBox("确定要更改名称？", vbInformation + vbOKCancel, "警告提示")

if getReturn = vbOK then	
 	\'复制文件夹
	set ws=wscript.createobject("wscript.shell")
	Dim path :path = GetScriptPath()
	ws.run"cmd " & path
	\'修改后缀
	ws.run "cmd /c ren *." & before  & " *." & suffix 
	dim word : word = "exit %s"
	CreateObject("WScript.Shell").Run "taskkill /f /im cmd.exe", 0
end if

MsgBox("关注公众号【小知识酷】，获取更多内容~")

VBS关闭应用程序

• 格式：CreateObject("WScript.Shell").Run "taskkill /f /im 文件名", 0
• 关闭cmd窗口：CreateObject("WScript.Shell").Run "taskkill /f /im cmd.exe", 0

批量登陆是啥意思

参考技术A 问题一：QQ批量自动登陆 功能：从指定的QQ号码和密码文件中读取信息，分别登录，也就是批量QQ号码自动登录。
操作：
1、把QQ号和密码写在一个叫QQ.ini的文件中，格式为QQ号码|密码，如88480666|12345678，其中|为号码和密码的分隔符。
2、把下面的脚本拷贝放到一个文本文件中，改名了XXX.vbs，XXX你自己任意定。
3、修改你的QQ所在的绝对路径，本例为T:/QQ2009/bin/QQ.exe。
4、双击XXX.vbs，开始自动登录。
说明：如果你有上百个QQ，恐怕开这么多QQ实例你的机器吃不消，就把'Close_Process(QQ.exe)前的'去掉。也就是说，每登录一个退出再登录另一个。
存在的问题：目前登录一个退出一个采用的是结束QQ进程的方法，这样不好，每次都要重新启动QQ实例，浪费时间，如果能注销刚才登录的QQ，再选择另一个号码登录最佳，但本人没有解决这个问题，也没时间。
VBS脚本代码如下：
'Option Explicit
Set objFSO = CreateObject(Scripting.FileSystemObject)
Set objTextFile = objFSO.OpenTextFile(QQ.ini,1)
Do Until objTextFile.AtEndOfStream
Dim strNextLine
Dim spIndex,qqnumber,pwd
Dim WshShell, QQPath, QQselect
strNextLine = objTextFile.Readline
spIndex=InStr(strNextLine,|)
qqnumber=Mid(strNextLine,1,spIndex-1)
pwd=Mid(strNextLine,spIndex+1,Len(strNextLine))
'MsgBox qqnumber&:&pwd
QQPath=T:/QQ2009/bin/QQ.exe
Set WshShell=WScript.CreateObject(WScript.Shell)
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate Q登录
WshShell.SendKeys +TAB
WshShell.SendKeys qqnumber
WScript.Sleep 200
WshShell.SendKeys TAB
WshShell.SendKeys pwd
WScript.Sleep 200
WshShell.SendKeys ENTER
WScript.Sleep 5000 '等5秒再换下一个号码登录
'如果QQ太多，机器吃不消，就用这种方法，登录一个，然后下线换另一个
'Close_Process(QQ.exe)
Loop
objTextFile.Close
'下面是关闭某个进程的过程
sub Close_Process(Pr......>>

问题二：批量登录qq的软件，都有什么 我也求过的，看下我贴吧的帖子，我现在在用，挂130个左右
tieba.baidu/p/2742781421?pid=42593071537&cid=0#42593071537

问题三：批量登陆网站的办法 用无忧登陆 这个软件，可以批量登陆，挺好的。不过对于淘宝这些重要的信息最好辛苦点自己登陆，不管什么软件都有一定的风险，希望慎思。

问题四：那个有没软件可以实现多账号批量登录的，批量点击操作？ 有这种的，就是脚本模拟软件的，那个现在很多人都是用《超强点击猫》，因为超强点击猫这款软件是支持批量动作操作，而且能灵活设置点击坐标、按键位置！

问题五：QQ如何批量登入 就上qq那个页面左下角有添加的标志，那里点一下添加号，然后再又登入

问题六：谁知道有个软件可以批量登陆的，然后可以添加任意网站，几个登陆的号同步操作的，如果有的话联系我 100分 可以这样啊，你去下载《无敌点击狗》这个软件就能做，无敌点击狗是支持多帐号批量操作，批量登陆添加这些功能，很强大灵活设置的！

问题七：CMD批量登陆3389 打开3389端口的5种方法:
1，打开记事本，编辑内容如下：
echo [ponents] > c:\sql
echo TSEnable = on >> c:\sql
sysocmgr /i:c:\winnt\inf\sysoc.inf /u:c:\sql /q
编辑好后存为BAT文件，上传至肉鸡，执行。这里值得注意的是要确定winnt是否在c盘，如果在其他盘则需要改动。
2 (对xp\2000都有效) 脚本文件 本地开3389 工具:rots1.05
使用方法：
在命令行方式下使用windows自带的脚本宿主程序cscript.exe调用脚本，例如：
c:\>cscript ROTS.vbs [服务端口] [自动重起选项]
服务端口： 设置终端服务的服务端口。默认是3389。
自动重起选项： 使用/r表示安装完成后自动重起目标使设置生效。
使用/fr表示强制重起目标。（如果/r不行，可以试试这个）
使用此参数时，端口设置不能忽略。
比如扫描到了一个有NT弱口令的服务器，IP地址是222.222.222.222，管理员帐户是administrator，密码为空
运行CMD（2000下的DOS），我们给它开终端！
命令如下！
cscript reg.vbe 222.222.222.222 administrator 3389 /fr
上面的命令应该可以理解吧？cscript reg.vbe这是命令，后面的是IP，然后是管理员帐户，接这是密码，因为222.222.222.222 这台服务器的管理员密码是空的，那就用双引号表示为空，再后面是端口，你可以任意设置终端的端口，/fr是重启命令（强制重启，一般我都用这个，你也可以 /r，这是普通重启）
脚本会判断目标系统类型，如果不是server及以上版本，就会提示你是否要取消。
因为pro版不能安装终端服务。
如果你确信脚本判断错误，就继续安装好了。
如果要对本地使用，IP地址为127.0.0.1或者一个点（用.表示），用户名和密码都为空（用表示）。
脚本访问的目标的135端口，如果目标135端口未开放，或者WMI服务关闭，那么脚本就没用了。
3，下载3389自动安装程序-djshao正式版5.0
说明：
解压djshao5.0.zip,用你的随便什么方法把把解压出来的djxyxs.exe上传到肉鸡的c:\winnt\temp下，然后进入 c:\winnt\temp目录执行djxyxs.exe解压缩文件，然后再执行解压缩出来的azzd.exe文件，等一会肉鸡会自动重启！重启后会出现终端服务！
特点：1、不用修改注册表的安装路径，注册表会自动修改，安装完后会自动恢复到原来的安装路径，2、在后台安静模式运行，就算肉鸡旁有人也没有关系！3、在添加和删除中看不出终端服务被安装的痕迹，也就是启动终端前不会打钩，4、不会在肉鸡上留下你的上传文件，在安装完终端服务后会会自动删除你上传到c:\winnt\temp下的任何文件！5、不管肉鸡的winnt装在什么盘上都无所谓！6、安装完终端后会删除在管理工具中的终端快捷图标！......>>

问题八：怎么开发一个 可以批量登录手机app的软件 40分 先弄好源码，多窗口那种，就像浏览器一样，再把每个窗口网址都设定成3gqq登录页面。如果是手机QQ和webqq是不可能的，这总多开方式都是要涉及代理的，mingqq的制作者也没有成功，毕竟那是人家腾讯的源码。网上也可以下载到qq多登录的3gqq客户端，不过都有积分广告。望采纳

问题九：QQ显示批量登录被冻结是为什么 我也是，但我就一个扣扣号啊，真是奇了怪了