TC官方合作论坛

标题: TC直接调用VBS，无须创建vbs文件，带返回值，有源码 [打印本页]
作者: a837198    时间: 2014-12-12 17:16
标题: TC直接调用VBS，无须创建vbs文件，带返回值，有源码
本帖最后由 a837198 于 2015-1-29 11:17 编辑

[attach]18422[/attach]

TC直接调用VBS，无须创建vbs文件，而且还带有返回值的哦

思路来源   http://bbs.tyuyan.com/thread-47614-1-1.html  5楼   q273814的   的回复    直接在TC里使用ScriptControl对象调用VBScript代码
于是自己搜索了一下 ，真的可行呢  

源码如下  只要知道了原理  你也可以进行txt文本操作了  像不删除文件覆盖写入    文件夹隐藏  等等   目前先做这些吧 其他的可以去查vbs的操作
[attach]18424[/attach]

只需要把 变量  strProgram  这个填正确就可以  其他的几乎一样  看源码吧


  1. 功能 当前所有盘符()
  2.         //这里添加你要执行的代码
  3.         strProgram ="Function yingpan(ff): On Error Resume Next:  Set fso=CreateObject(\"Scripting.filesystemobject\"): Set objdrives=fso.Drives: For Each objdrive In objdrives:  ff=ff&\"|\"&objdrive: Next: yingpan=ff:  End Function"
  4.         sc = com("ScriptControl")
  5.         sc.language = "VBScript"
  6.         sc.addcode(strProgram)
  7.         返回 字符串.移除(sc.run("yingpan",""),1,真)
  8. 功能结束

  10. 功能 进程关闭窗口(窗口句柄,进程名="")
  11.         //这里添加你要执行的代码
  12.         如果(进程名=="")
  13.                 len1,返回值
  14.                 字符串.分割(窗口.获取路径(窗口句柄),"\\",返回值)
  15.                 数组空间.大小(返回值,len1)   
  16.                 进程名=返回值[len1-1]
  17.         如果结束
  18.         strProgram ="Sub PidClosed(Pidname): On Error Resume Next:  set WshShell = CreateObject(\"WScript.Shell\"): WshShell.run \"cmd /c taskkill /f /im \"&Pidname,0: set WshShell = Nothing:  End Sub"   
  19.         sc = com("ScriptControl")
  20.         sc.language = "VBScript"      
  21.         sc.addcode(strProgram)
  22.         sc.run("PidClosed",进程名)
  23. 功能结束

  25. 功能 枚举当前所有进程()
  26.         strProgram ="Function GetPidInfo(PidInfo): On Error Resume Next:  st = \".\": Set objp = GetObject(\"winmgmts:\\\\\" & st):Set objs = objp.instancesof(\"Win32_Process\"): For Each ps In objs: PidInfo=PidInfo&\"|进程名-\"&ps.Name&\"++PID-\"&ps.ProcessID&\"++所在位置-\"&ps.commandline: Next: GetPidInfo=PidInfo: End Function"
  27.         sc = com("ScriptControl")
  28.         sc.language = "VBScript"
  29.         sc.addcode(strProgram)   
  30.         返回 字符串.移除(sc.run("GetPidInfo",""),1,真)
  31. 功能结束

  33. 功能 创建快捷方式(文件源路径="",快捷方式名="",快捷方式路径="")        
  34.        如果(文件源路径=="")
  35.           文件源路径=窗口.获取路径(窗口.自身句柄())
  36.        如果结束
  37.        选择(快捷方式名)
  38.            条件 "":
  39.            len1,返回值,返回值2
  40.            字符串.分割(文件源路径,"\\",返回值)
  41.            数组空间.大小(返回值,len1)
  42.            字符串.分割(返回值[len1-1],".",返回值2)
  43.            快捷方式名=返回值2[0]
  44.            条件 "窗口标题":
  45.            快捷方式名=窗口.得到标题(窗口.自身句柄())
  46.            默认:
  47.            快捷方式名=字符串.替换(快捷方式名,".lnk","")
  48.        选择结束      
  49.        strProgram ="Sub Shortcut(filepath,lnkpath): On Error Resume Next:  set WshShell = CreateObject(\"WScript.Shell\"): "
  50.        如果(快捷方式路径=="")
  51.                 //在桌面创建快捷方式
  52.                快捷方式名=快捷方式名&".lnk"
  53.                strProgram =strProgram &"strDesktop = WshShell.SpecialFolders(\"Desktop\"): set oShellLink = WshShell.CreateShortcut(strDesktop &\"\\\"&lnkpath): "   
  54.        否则
  55.               //指定位置的快捷方式
  56.               快捷方式名=快捷方式路径&"\\"&快捷方式名&".lnk"  
  57.               strProgram =strProgram &"set oShellLink = WshShell.CreateShortcut(lnkpath): "
  58.        如果结束   
  59.        strProgram =strProgram &"oShellLink.TargetPath = filepath: oShellLink.Save: Set oShellLink = Nothing: Set WshShell = Nothing: End Sub"
  60.        sc = com("ScriptControl")
  61.        sc.language = "VBScript"
  62.        sc.addcode(strProgram)
  63.        sc.run("Shortcut",文件源路径,快捷方式名)   
  64. 功能结束

  66. 功能 获取快捷方式(快捷方式路径)
  67.         strProgram="Function GetShortcut(lnkpath): On Error Resume Next: Set WshShell = CreateObject(\"WScript.Shell\"): Set oShellLink = WshShell.CreateShortcut(lnkpath): GetShortcut = oShellLink.TargetPath: Set oShellLink =nothing: Set WshShell =nothing: End Function"
  68.         sc = com("ScriptControl")
  69.        sc.language = "VBScript"
  70.        sc.addcode(strProgram)   
  71.        返回 sc.run("GetShortcut",快捷方式路径)
  72. 功能结束

  74. 功能 文本覆盖写入(文本路径,文本内容)
  75.     //tc中这个功能暂时是不支持的  估计很快就会更改了  无须删除原文件，是把原文件中的所有字全部清空  并写入新的字  如果重要资料请注意慎用
  76.     如果(!文件.是否存在(文本路径))
  77.         文件句柄=文件.创建(文本路径,"读写")
  78.         文件.关闭(文件句柄)
  79.     如果结束
  80.     strProgram="Sub ReWrite(FilePath,str): On Error Resume Next:Set FileSys=CreateObject(\"Scripting.FileSystemObject\"):Set ForWrite=FileSys.opentextfile(FilePath,2) : ForWrite.Write str: ForWrite.close: Set FileSys=nothing: End Sub"
  81.     sc = com("ScriptControl")
  82.     sc.language = "VBScript"
  83.     sc.addcode(strProgram)   
  84.     sc.run("ReWrite",文本路径,文本内容)
  85. 功能结束

  87. 功能 文件夹and文件属性(文本路径,属性="")
  88.     设置属性="-r -h -s"
  89.     选择(属性)
  90.         条件 "隐藏":        
  91.         设置属性="+h"        
  92.         条件 "显示":
  93.         设置属性="-h"        
  94.         条件 "只读":
  95.         设置属性="+r"        
  96.         条件 "读写":
  97.         设置属性="-r"        
  98.         条件 "系统":
  99.         设置属性="+s"         
  100.         条件 "用户":
  101.         设置属性="-s"        
  102.         条件 "隐藏系统":
  103.         设置属性="+s +h"        
  104.         条件 "隐藏用户":
  105.         设置属性="-s +h"        
  106.         条件 "显示用户":
  107.         设置属性="-s -h"         
  108.     选择结束   
  109.     strProgram="Sub SetFoldandFile(FilePath,style): On Error Resume Next:Set ObjSet=CreateObject(\"wscript.shell\"):ObjSet.run \"attrib \"& style &\" \"& FilePath,0: Set ObjSet = Nothing: End Sub"   
  110.     //'attrib指令的格式和常用参数为
  111.     //'ATTRIB [+R | -R] [+S | -S] [+H | -H] [[drive:] [path] filename] [/S [/D]]
  112.     //'  +   设置属性。    //'  -    清除属性。    //'  R   只读文件属性。    //'  S   系统文件属性。    //'  H   隐藏文件属性。
  113.     //'  [drive:][path][filename]    //'      指定要处理的文件属性。    //'  /S  处理当前文件夹及其子文件夹中的匹配文件。    //'  /D  也处理文件夹。   

  115.     sc = com("ScriptControl")
  116.     sc.language = "VBScript"
  117.     sc.addcode(strProgram)   
  118.     sc.run("SetFoldandFile",文本路径,设置属性)
  119. 功能结束

  121. 功能 消息框(文本,提示类型=0,标题="VBS操作",句柄=0)
  122.     如果(句柄==0)
  123.         句柄=窗口.自身句柄()
  124.     如果结束
  125.     strProgram="Function MsgboxTip(Text,TextStyle,TextTitle): MsgboxTip = MsgBox(Text, TextStyle, TextTitle): End Function"
  126.     sc = com("ScriptControl")
  127.     sc.language = "VBScript"
  128.     sc.SitehWnd=句柄
  129.     sc.addcode(strProgram)   
  130.     返回 sc.run("MsgboxTip",文本,提示类型,标题)   
  131.    
  132.     //'MsgBox类型参数的取值：
  133.     //'符号常量                值    作 用
  134.     //'vbOKOnly                0    只显示“确定”按钮
  135.     //'vbOKCancel            1    只显示“确定”及“取消”按钮
  136.     //'vbAbortRetryIgnore    2    显示“放弃”、“重试”和“忽略”按钮
  137.     //'vbYesNoCancel        3    显示“是”、“否”和“取消”按钮
  138.     //'vbYesNo                4    显示“是”和“否”按钮
  139.     //'vbRetryCancel        5    显示“重试”和“取消”按钮
  140.    
  141.     //'图 标 样 式
  142.     //'vbCritical            16    显示系统叉号图标有声音
  143.     //'vbQuestion            32    显示系统问号图标
  144.     //'vbExclamation        48    显示系统叹号图标有声音
  145.     //'vbInformation        64    显示系统信息图标有声音
  146.    
  147.     //'默 认  按 钮
  148.     //'vbDefaultButton1        0    第一个按钮为默认按钮
  149.     //'vbDefaultButton2        256    第二个按钮为默认按钮
  150.     //'vbDefaultButton3        512    第三个按钮为默认按钮
  151.     //'vbDefaultButton4        768    第四个按钮为默认按钮
  152.    
  153.     //'强制 返回
  154.     //'vbApplicationModal    0        应用程序强制返回
  155.     //'vbSystemModal        4096     系统强制返回
  156.    
  157.     //'MsgBox函数返回值
  158.     //'常数            值    描述
  159.     //'vbOK            1    单击了“确定”按钮。
  160.     //'vbCancel        2    单击了“取消”按钮。
  161.     //'vbAbort        3    单击了“终止”按钮。
  162.     //'vbRetry        4    单击了“重试”按钮。
  163.     //'vbIgnore        5    单击了“忽略”按钮。
  164.     //'vbYes        6    单击了“是”按钮。
  165.     //'vbNo            7    单击了“否”按钮。
  166.    
  167. 功能结束


复制代码
有带有返回值  也有不带返回值的  纯TC操作  无需创建vbs文件

作者: a837198    时间: 2014-12-12 17:23
嘿嘿  
作者: lyyaj    时间: 2014-12-12 17:48
楼主英明,我正在找这方面的知识呢,你就给送来了
作者: rainshine    时间: 2014-12-12 20:19
= =好像早就有了
作者: rainshine    时间: 2014-12-12 20:19
不过开源精神不错
作者: 君笨笨    时间: 2014-12-12 22:32
rainshine 发表于 2014-12-12 20:19
不过开源精神不错

RR老湿，别哭，站起来撸~~~
作者: 67800461    时间: 2014-12-12 23:43
作者: 千叶de悠一    时间: 2014-12-13 07:24
难得看到开源了
作者: a837198    时间: 2014-12-13 09:22
rainshine 发表于 2014-12-12 20:19
= =好像早就有了

这个没看见过  而且搜索关键词vbs也没见到  呵呵
作者: a837198    时间: 2014-12-13 09:23
千叶de悠一 发表于 2014-12-13 07:24
难得看到开源了

嗯嗯
作者: rainshine    时间: 2014-12-13 10:00
a837198 发表于 2014-12-13 09:22
这个没看见过  而且搜索关键词vbs也没见到  呵呵

嗯 有执行js的 一样用scriptcontrol       .language=“javascript”
作者: rainshine    时间: 2014-12-13 10:01
君笨笨 发表于 2014-12-12 22:32
RR老湿，别哭，站起来撸~~~

……你能纯洁点不
作者: a837198    时间: 2014-12-13 10:01
rainshine 发表于 2014-12-13 10:00
嗯 有执行js的 一样用scriptcontrol       .language=“javascript”

嗯  这个是见过的
作者: rainshine    时间: 2014-12-13 10:03
君笨笨 发表于 2014-12-12 22:32
RR老湿，别哭，站起来撸~~~

= =我记得好像是清风写的常规库 用scriptcontrol执行的js、、、
话说，我同学假期要弄个教学 有这么个想法  本来想讲客户端封包   后来因为种种原因又改成了post= =坑逼一个 跟我学。。
作者: rainshine    时间: 2014-12-13 10:05
a837198 发表于 2014-12-13 09:23
嗯嗯

有些短命令其实可以用eval直接执行得返回值、还可以用来表达式求值~
作者: q273814    时间: 2014-12-13 11:17
本帖最后由 q273814 于 2014-12-13 11:54 编辑
a837198 发表于 2014-12-13 09:22
这个没看见过  而且搜索关键词vbs也没见到  呵呵

不过搜索ScriptControl是肯定有的
不光vbs还有js之类的都可以
譬如字符编码转换之类的
如果用js脚本来做就方便很多
在需要用到post的时候使用js来做字符编码转换很方便
在涉及到本地计算机操作用vbs就比较好
当然如果能直接用TC就不要用那些了 毕竟会慢一些
哈哈找到以前的帖子了
http://bbs.tyuyan.com/thread-45312-1-1.html
作者: 君笨笨    时间: 2014-12-13 17:45
rainshine 发表于 2014-12-13 10:01
……你能纯洁点不

RR大哥，好久么见~
作者: rainshine    时间: 2014-12-14 14:48
a837198 发表于 2014-12-13 10:01
嗯  这个是见过的

其实原理都一样，好像那个activex控件还支持其他的语言 不过没研究。
作者: apaik    时间: 2015-3-29 10:13
1。软件位于当前目录
2。XXXX.bat位于当前目录\dir子目录内。
3.要求点击一个按钮，就隐藏运行XXXX.bat


4。在bat里面可以调用vbs隐藏，但是运行还是会弹出窗口闪一下。bat代码：
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
REM

5。还有一种窗口不会闪，vbs代码为：
set ws=WScript.CreateObject("WScript.Shell")
ws.Run "dir\XXXX.bat",0



求助
求高手帮忙弄一弄，自己弄不好。



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1