把VBS代码程序写成易语言程序怎么弄！？

qwqw

csgo修复VAC屏蔽.rar (705 Bytes, 下载次数: 19)

2016-12-25 18:43 上传

点击文件名下载附件

就是这个VBS 求各位大神给我编一个易语言源码出来 谢啦!!☆⌒(*＾-゜)v  

zhwu530

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件路径	文本型

文件路径 ＝ 浏览文件夹 (“选择你的Steam文件夹所在位置”, )
如果真 (文件是否存在 (文件路径 ＋ “\bin\steamservice.exe”))
编辑框1.内容 ＝ 文件路径
按钮2.禁止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框2.内容 ＝ “”
编辑框2.加入文本 (“设置 Netman 服务启动类型：AUTO”)
运行 (“sc config Netman start= AUTO”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启动 Netman 服务”)
运行 (“sc start Netman”, 真, #隐藏窗口 )
编辑框2.加入文本 (“设置 rasman 服务启动类型：AUTO”)
运行 (“sc config rasman start= AUTO”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启动 rasman 服务”)
运行 (“sc start rasman”, 真, #隐藏窗口 )
编辑框2.加入文本 (“设置 tapisrv 服务启动类型：AUTO”)
运行 (“sc config tapisrv start= AUTO”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启动 tapisrv 服务”)
运行 (“sc start tapisrv”, 真, #隐藏窗口 )
编辑框2.加入文本 (“设置 mpssvc 服务启动类型：AUTO”)
运行 (“sc config mpssvc start= AUTO”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启动 mpssvc 服务”)
运行 (“sc start mpssvc”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启用桌面防火墙”)
运行 (“netsh advfirewall set allprofiles state on”, 真, #隐藏窗口 )
编辑框2.加入文本 (“启用DEP功能”)
运行 (“bcdedit.exe /set {current} nx alwayson”, 真, #隐藏窗口 )
编辑框2.加入文本 (“steamservice.exe /install”)
运行 (编辑框1.内容 ＋ “\bin\steamservice.exe /install”, 真, #隐藏窗口 )
编辑框2.加入文本 (“steamservice.exe /repair”)
运行 (编辑框1.内容 ＋ “\bin\steamservice.exe /repair”, 真, #隐藏窗口 )

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件路径, 文本型<br /> <br /> 文件路径 ＝ 浏览文件夹 (“选择你的Steam文件夹所在位置”, )<br /> .如果真 (文件是否存在 (文件路径 ＋ “\bin\steamservice.exe”))<br />     编辑框1.内容 ＝ 文件路径<br />     按钮2.禁止 ＝ 假<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框2.内容 ＝ “”<br /> 编辑框2.加入文本 (“设置 Netman 服务启动类型：AUTO”)<br /> 运行 (“sc config Netman start= AUTO”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启动 Netman 服务”)<br /> 运行 (“sc start Netman”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“设置 rasman 服务启动类型：AUTO”)<br /> 运行 (“sc config rasman start= AUTO”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启动 rasman 服务”)<br /> 运行 (“sc start rasman”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“设置 tapisrv 服务启动类型：AUTO”)<br /> 运行 (“sc config tapisrv start= AUTO”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启动 tapisrv 服务”)<br /> 运行 (“sc start tapisrv”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“设置 mpssvc 服务启动类型：AUTO”)<br /> 运行 (“sc config mpssvc start= AUTO”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启动 mpssvc 服务”)<br /> 运行 (“sc start mpssvc”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启用桌面防火墙”)<br /> 运行 (“netsh advfirewall set allprofiles state on”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“启用DEP功能”)<br /> 运行 (“bcdedit.exe /set {current} nx alwayson”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“steamservice.exe /install”)<br /> 运行 (编辑框1.内容 ＋ “\bin\steamservice.exe /install”, 真, #隐藏窗口)<br /> 编辑框2.加入文本 (“steamservice.exe /repair”)<br /> 运行 (编辑框1.内容 ＋ “\bin\steamservice.exe /repair”, 真, #隐藏窗口)

疯子大大

去定制区吧

hanyuhang1995

第一种办法：运行易语言程序后释放这个bat，然后运行，和现在一样，在bat里操作，操作完以后删除bat
第二种办法：拆解里边的命令，然后逐条执行CMD命令（易语言可以直接执行CMD命令）

hanyuhang1995

大概看了下，真正有用的命令：
sc config Netman start= AUTO
sc start Netman
sc config rasman start= AUTO
sc start rasman
sc config tapisrv start= AUTO
sc start tapisrv
sc config mpssvc start= AUTO
sc start mpssvc
netsh advfirewall set allprofiles state on
bcdedit.exe /set {current} nx alwayson
set /p steampath=
cd /d %steampath%\bin
steamservice.exe /install
steamservice.exe /repair

hanyuhang1995

程序写好了，但是我这里没有stream环境，所以没有测试，麻烦楼主测试下然后反馈个结果
123.zip (52.26 KB, 下载次数: 19)

2016-12-25 20:00 上传

点击文件名下载附件

韦贝贝

运行（cmd文件路径）  就好了