可实现维护通道的vbs脚本类

前言

闲来无事,为了方便,用vbs写了一个类! 别瞧不上vbs脚本语言,其实当你学习的语言越多,发现所有编程语言都是那么一回事,最终的目的都是完成某项功能,vbs的 好处就是可以使用系统的计事本直接编辑,不需要任何语言安装环境,python开源库是多,但却必须安装python的语言环境, c++等语言生成的程序功能是可以足够强大,但要立即增加修改功能却很麻烦(因为需要安装编程环境)! vbs特别适合拿来即用,代码不对随时可以修改!就好比批处理虽然功能不强,windows却一直保留到现在!也许windows的激活 slmgr.vbs和office的激活ospp.vbs一直保留到现在的原因可能就是说明vbs还是有存在的道理的!如果你仔细看了这个vbs自定义 类,你就会发现vbs也可以实现很多功能!比如这个vbs类中的中止线程函数,所有语言实现,都是取得线程ID,然后发送中止线 程的消息,其实此自定义类就用了三句代码,这就是其他软件中的根据窗口关闭网吧广告的功能,也可以中止那些在任务管理器 中无法结束的进程!

介绍

vbs常用函数代码,包括一些特色函数,杀毒软件可能会报毒,使用notepad++等软件可直接查看源代码,未进行任何加密 最大的特色,可以让vbs使用windows api函数,api能办到的功能,vbs也能做到! 自定义vbs类的函数,见demo\demo.vbs文件

软件架构

lib目录的MyVbsClass.vbs和dynwrapx.dll为核心文件,即vbs自定义类

demo为示例代码, 维护通道是使用vbs自定义类写的网吧开机维护通道

虽然是明文方式写的vbs脚本,一样能实现如深蓝维护通道等类软件中的绝大部份功能,一样可以关闭网吧的广告及广告窗口!

安装教程

把lib目录复制一份
新建一目录,引用lib中的MyVbsClass.vbs即可使用其全部函数,引用方法见demo\demo.vbs
仅适用于64位系统

注意事项

vbs中有dll文件为64位,运行时会注册,结束时会注销,因此调用vbs必须是64位程序,如果使用32位程序调用vbs运行,会失败!如果出现注册dll失败,请检查是否使用了32位程序调用vbs!

当前实现功能

‘call myfun.MakeLink(“罗技鼠标设置”,”G:\常用软件\罗技鼠标游戏驱动\Rungame.exe”,””,”G:\常用软件\罗技鼠标游戏驱动\48731.ico”) ‘创建桌面快捷方式
‘call myfun.MakeUrl(“http://www.bnwin.com","百脑问",true) ‘收藏夹栏添加网址
‘call myfun.SetHomepage(“https://www.baidu.com") ‘设置ie主页
‘msgbox myfun.GetExePath(“C:\Program Files\Internet Explorer\iexplore.exe”) ‘根据路径取目录
‘msgbox myfun.IsExitFile(“c:\abc.txt”) ‘判断文件是否存在
‘msgbox myfun.IsExitDir(“c:\abc”,true) ‘判断目录是否存在
‘call myfun.MyCreateFolder(“c:\abc\1233\dd”) ‘创建目录可多级
‘call myfun.XCopy(“D:\dump”,”d:\456”,true) ‘拷目录 多级
‘call myfun.CopyFile(“C:\Windows\win.ini”,”d:\323\aaa.txt”,true) ‘拷贝文件
‘call myfun.DelFile(“c:\abd\123.txt”) ‘删除文件
‘call myfun.DelDir(“c:\abd") ‘删除目录
‘Call myfun.Run(“””C:\Program Files (x86)\Internet Explorer\iexplore.exe”” http://www.bnwin.com",false) ‘路径带有空格,要用引号把空格路径括起,会检测文件是否存在,不能用于执行dos命令
‘msgbox myfun.ping(“192.168.0.1”) ‘ping是否在线
‘MsgBox myfun.GetMac ‘取得网卡mac地址
‘MsgBox myfun.GetIP ‘取得本机ip地址
‘MsgBox myfun.GetComputerName ‘取得机器名
‘MsgBox myfun.GetOS ‘取得操作系统是win7还是win10
‘MsgBox myfun.X86orX64 ‘系统是64位还是32位
‘call myfun.ReadBinary(“c:\windows\notepad.exe”,”d:\123.txt”) ‘把文件生成16进制字符串文本文件
‘call myfun.WriteBinary(“d:\123.exe”,”d:\123.txt”,true) ‘把16进制文本文件还原为可执行文件
‘call myfun.Sleep(5) ‘延时5秒
‘call myfun.ImportReg(“.\reg.reg”) ‘导入注册表
‘call myfun.RunBat(“.\test.bat”) ‘运行批处理文件
‘myfun.Runcmd “dir c:\ >c:\1.txt” ‘运行dos命令
‘call myfun.import(“d:\abc.vbs”) ‘导入vbs文件
‘call myfun.CloseProcess(“SunloginRemote.exe”) ‘关闭指定进程
‘call myfun.IsProcess(“qq.exe”) ‘检查指定进程是否存在
‘call myfun.IsProcessEx(“qq.exe|notepad.exe”) ‘指定指定列表进程是否存在
‘call myfun.CloseProcessEx(“qq.exe|wechat.exe”) ‘结束进程列表
‘call myfun.RegExpTest(“sdf|456”,”123456789”) ‘正则判断是否存在指定内容
‘call myfun.KillWindow(“”,”计算机”) ‘关闭指定类名或标题的窗口
‘call myfun.WriteReg(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\Start Page”,”https://www.baidu.com","") ‘写注册表值
‘MsgBox myfun.ReadReg(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\Start Page”) ‘读注册表值
‘call myfun.HideWindow(“Notepad”,””) ‘按类名或标题隐藏窗口 未关闭
‘call myfun.KillThread(“Notepad”,””) ‘按类名或标题中止显示此窗口的线程 如果是单线程,程序则会退出 可用于关闭广告窗口
‘call myfun.DownFile(“http://gh.api.99988866.xyz/github.com/Chuyu-Team/Dism-Multi-language/releases/download/v10.1.1001.10/Dism++10.1.1001.10_d4ba4eb035254b3326d6adc6638bc9c8daea7018.zip","d:\dism.zip") ‘下载远程文件
‘call myfun.SyncTime ‘同步时间
‘MsgBox myfun.GetSysRunTime() ‘取得系统开机时间 关机时间 返回时间较长,可用于学习查询系统日志
‘call myfun.log(“测试”) ‘写日志文件 日志文件在当前脚本下,以日期命名
‘MsgBox myfun.IsSuperAdmin() ‘判断无盘是否有超级用户
‘MsgBox myfun.FromUnixTime(“1630211522”,8) ‘unix时间转北京时间
‘msgbox myfun.ToUnixTime(now, 8) ‘把当前时间转成unix时间
‘myfun.WriteIni “节点”,”键名”,”值”,”d:\123.ini” ‘写INI文件
‘msgbox myfun.ReadIni(“节点”,”键名”,”默认值”,”d:\123.ini”) ‘读ini文件
‘call myfun.CreatLink(“d:\pg”,”C:\Program Files (x86)”) ‘’把C盘程序目录映射到D盘pg目录,访问D:\pg相当于访问C:\Program Files (x86)内容
‘msgbox “系统运行了:”&myfun.GetOsRunTime&”分钟”
‘call myfun.SysVolme ‘把系统音量调到最大
‘call myfun.Depolicy(“禁止常用端口”) ‘创建本机安全策略禁止135 137 139 445 3389端口
‘call myfun.CloseMonitor(2) ‘2关闭显示 -1打开显示器
‘call myfun.RunAu3(“E:\软件工程\vbs\demo\monitor.au3”,false) ‘恢复显示器所有设置
‘call myfun.RestMonitor() ‘恢复显示器所有设置

开源地址:https://gitee.com/goodhelp/vbs-code

-------------本文已结束赏个小钱吧-------------
×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

64.7K

相关文章推荐