TC直接调用VBS，无须创建vbs文件，带返回值，有源码

a837198

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

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

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


只需要把 变量  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. 功能结束
   
9. 
   
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. 功能结束
    
24. 
    
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. 功能结束
    
32. 
    
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. 功能结束
    
65. 
    
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. 功能结束
    
73. 
    
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. 功能结束
    
86. 
    
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  也处理文件夹。   
     
114. 
     
115.     sc = com("ScriptControl")
     
116.     sc.language = "VBScript"
     
117.     sc.addcode(strProgram)   
     
118.     sc.run("SetFoldandFile",文本路径,设置属性)
     
119. 功能结束
     
120. 
     
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. 功能结束
     
168. 
     
169. 
     

复制代码

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

a837198

嘿嘿  

lyyaj

楼主英明,我正在找这方面的知识呢,你就给送来了

rainshine

= =好像早就有了

rainshine

不过开源精神不错

67800461

{:soso_e113:}

千叶de悠一

难得看到开源了

a837198

rainshine 发表于 2014-12-12 20:19
= =好像早就有了

这个没看见过  而且搜索关键词vbs也没见到  呵呵

a837198

千叶de悠一 发表于 2014-12-13 07:24
难得看到开源了

嗯嗯