运行VBs 用易语言

一一一2

vbs代码如下：在电脑保存成1.vbs双击可以正常使用
set ws=createobject("wscript.shell")
Set objShell = Wscript.CreateObject("Wscript.Shell")
objShell.Run "RunDll32.exe InetCpl.cpl,ResetIEtoDefaults"
Wscript.Sleep 1000
ws.appactivate "重置 Internet Explorer 设置"
Wscript.Sleep 1000
objShell.SendKeys("{p}")
Wscript.Sleep 1000
objShell.SendKeys("{r}")


怎么能做成易语言可以执行的呢

a2002

1. .版本 2
   
2. 
   
3. .子程序 RunVBS, 文本型
   
4. .参数 脚本内容, 文本型
   
5. .参数 脚本命令名, 文本型
   
6. .局部变量 vbs, 对象
   
7. 
   
8. .如果真 (vbs.创建 (“ScriptControl”, ))
   
9.     vbs.写属性 (“Language”, “VBScript”)
   
10.     vbs.数值方法 (“ExecuteStatement”, 脚本内容)
    
11.     返回 (vbs.通用方法 (“Run”, 脚本命令名).取文本 ())
    
12. .如果真结束
    
13. 返回 (“”)
    

复制代码

一一一2

a2002 发表于 2018-8-18 14:31

我的这个脚本命令名参数 写什么呢？

a2002

一一一2 发表于 2018-8-18 22:42
我的这个脚本命令名参数 写什么呢？

被调用的函数名

a2002

一一一2 发表于 2018-8-18 22:42
我的这个脚本命令名参数 写什么呢？

比如脚本为
Function abs(a)
abs=a<0?-a:a
End Function
脚本命令名参数就是abs

一一一2

a2002 发表于 2018-8-18 22:46
比如脚本为
Function abs(a)
abs=a

我这个没有这些内容，就是1楼里发的那个脚本，我改了很多次也不行呢，能不能针对我1楼发的脚本帮我改下

一一一2

a2002 发表于 2018-8-18 22:46
比如脚本为
Function abs(a)
abs=a

前面加Function A() 末尾加A=0(换行)End Function 参数2就可以填"A"了  执行不了

a2002

RunVBS函数第一句加上CoInitialize (0)
然后脚本:

1. Function ABC()
   
2. set ws=createobject("wscript.shell")
   
3. Set objShell = Wscript.CreateObject("Wscript.Shell")
   
4. objShell.Run "RunDll32.exe InetCpl.cpl,ResetIEtoDefaults"
   
5. Wscript.Sleep 1000
   
6. ws.appactivate "重置 Internet Explorer 设置"
   
7. Wscript.Sleep 1000
   
8. objShell.SendKeys("{p}")
   
9. Wscript.Sleep 1000
   
10. objShell.SendKeys("{r}")
    
11. ABC=0
    
12. End Function

复制代码

调用:
RunVBS(#脚本,"ABC")

一一一2

一一一2 发表于 2018-8-19 08:40
前面加Function A() 末尾加A=0(换行)End Function 参数2就可以填"A"了  执行不了

运行 (“cscript.exe  C:\Users\Administrator\Desktop\1.vbs”, 真, 2)