随笔分类 -  VBS

摘要：Function SendToClipBoard(strValue)Dim WshShellset WshShell = CreateObject("wscript.Shell")WshShell.Run "cmd.exe /c echo " & strValue & " | clip",0,FalseEnd Function 阅读全文

摘要：sendkeys.vbsset oShell = WScript.CreateObject("WScript.Shell")REM oShell.Run "calc"rem WScript.Sleep 100oShell.AppActivate "*culator"oShell.SendKeys "(% )R"rem oShell.SendKeys "(% )X" 阅读全文

摘要：读取XML'Get text from xml file according to file, node and item.Function GetTextFromXMLByF(filename,node,item)Dim xmlDocDim colItemSet xmlDoc = CreateObject("Microsoft.XMLDOM")xmlDoc.Async = "False"xmlDoc.Load(filename)ValuePath = node&itemSet colItem = xmlDoc.selectSingleN 阅读全文

摘要：Dim objConnection 'CONNECTION objectDim objRecordSet 'RECORDSET instance Dim objCommand 'Command instanceDim strConnectionString 'Connection string' ********************************************************************' Function£ºConnect to DB' Parameters£&# 阅读全文

摘要：@@@@@在指定文件夹下创建文本文件，如果文件夹/文件不存在则自动创建，已存在的覆盖@@@@@Function CreateFileInFolder(FileName,Folder) Dim RegEx, arrFolder, thisFolder,File Set RegEx = New RegExp RegEx.Pattern = "[^\\]+\\" RegEx.IgnoreCase = True RegEx.Global = True Set arrFolder = RegEx.Execute(Folder) Set RegEx = Nothing Set fso 阅读全文