前言
闲来无事，为了方便，用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() ‘恢复显示器所有设置
