vbs脚本编写(如何编辑vbs脚本)

本文目录
如何编辑vbs脚本
当我们拿到一个VBS脚本文件的时候该如何的呢?下面我就给大家分享一下如何VBS脚本。
- 01
首先我们拿到一个VBS脚本文件后缀一般都是vbs,我们可以先把vs后缀改为txt,如下图所示
- 02
接下来我们双击txt文件,直接用系统自带的记事本来即可,如下图所示
- 03
完了以后,注意要把txt的后缀在改回vbs,如下图所示
- 04
另外我们也可以直接用sublime text这种比较强大的软件直接vbs文件,如下图所示
帮忙写个VBS脚本,谢谢
PingHost "192.168.1.1"
Sub PingHost(sHost)
Set oWsh = CreateObject("WScript.Shell")
oWsh.Run "cmd"
oWsh.AppActivate "C:\WINDOWS\system32\cmd.exe"
oWsh.SendKeys "ping "&sHost&" -w 1000 》C:\ping.log~"
WScript.Sleep 15000
oWsh.AppActivate "C:\WINDOWS\system32\cmd.exe"
oWsh.SendKeys "exit~"
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.OpenTextFile("C:\ping.log",1,False)
s = Trim(oFile.ReadAll)
iStart = InStr(s,"Received = ")+11
num = Mid(s,iStart,1)
If num="0" Then
WScript.Quit
End If
End Sub
请高手给编写一个VBS脚本
Dim oShell
Set oShell = WScript.CreateObject("Wscript.Shell")
Dim m:m=0
Do
WScript.Sleep 60* 1000
m=m+1
If 0=(m Mod 2) Then oShell.SendKeys "{ }"
If 0=(m Mod 5) Then oShell.SendKeys "%{tab}"
If 100=m Then m=0
Loop
‘F10功能还是结合hoekey吧,或者autohotkey也行,其实可以用autohotkey全部实现
如何编写VBS脚本引导EXE程序后台启动运行
dim fso,f,ws
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=Fso.GetFile(WScript.ScriptFullName)
Set Ws=CreateObject("WScript.Shell")
Ws.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.path ‘将自身设置为开机启动项
Ws.Run "程序路径",0,True ’后台运行某个程序
fso.deletefile wscript.scriptfullname ’删除自身
望采纳。

更多文章:
go sleep(有go sleep, go asleep 和go a sleep这三个搭配吗)
2025年9月17日 08:30
c语言课程设计题目管理系统(C语言课程设计:通讯录管理系统)
2025年11月14日 00:45
新浪新闻app安卓版下载(真实有深度的新闻软件推荐最权威的新闻软件)
2026年8月23日 22:30
比尔盖茨新冠阳性(美得州新冠检测阳性率飙升,这只是统计错误吗)
2026年7月10日 19:15
vim是什么的缩写?linux中在vim编辑器中使用date命令
2025年10月13日 01:00
this is us 第四季 剧情简介(越狱第四季剧情简介 越狱第四季剧情介绍)
2025年8月7日 12:30
网页对话框里面的按钮不能点(打开网页之后网页里面的日期选项点不了,选择不了日期怎么办)
2026年4月27日 15:45
excel自定义函数怎么写(如何在excel表格中设置自定义函数)
2026年5月4日 13:00
有situation就用where吗(point/state/situation等从句用where需要什么前提吗)
2026年7月8日 04:15
protected成员在子类可见性可以修改(JavaFX 深入浅出(四)变量、函数)
2025年12月4日 15:45
easyui获取数据表格的值(Easyui中获取datagrid某多个列的值)
2025年5月30日 22:45
sqlserver2008备份数据库(SQL Server 2008怎么自动备份数据库)
2025年9月30日 19:45
sql求在另一个表中不存在的值(用SQL找出一张表在另一张表中没有的记录)
2025年11月8日 00:00










