vbs mytest

public Function SaveText(filePath,content)
set fso=createobject("scripting.filesystemobject")
Set f = fso.CreateTextFile(filePath,True)
f.write(content)
f.close
End Function

Function copy(value,objShell)

'replace_str=""&chr(34)
'Set regEx = New RegExp
'regEx.Pattern = """"
'regEx.IgnoreCase = True
'value = regEx.Replace(value, replace_str)
value= rechange(value)
'msgbox value
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&value&""")(Window.Close)"
objShell.Run(Clipboard)

'MsgBox keys

End Function

'字符转义
Function rechange(value)
Set regEx = New RegExp
regEx.Pattern = """"
regEx.IgnoreCase = True
value = regEx.Replace(value, replace_str)
rechange=value
End Function

'Dim http
'Set http = CreateObject("Msxml2.ServerXMLHTTP")
'http.open "GET","http://localhost/_ui/mobile/common/js/waypoints.min.1.1.5.js" ,False
'http.send
'WSH.Echo http.responsetext
'msgbox http.status
'msgbox http.responsetext
'saveText "d:/aaaaaaaaaaaa.txt",http.responsetext

Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Run "cmd /k cd /d D:/"
WScript.sleep 100
Call copy("type wuwuwuwuuw.txt",oShell)
WScript.sleep 200
oShell.SendKeys "(^v)"
WScript.sleep 500
oShell.SendKeys "{ENTER}"
Set oShell = Nothing

 

'Set fso = CreateObject ("Scripting.FileSystemObject")
'Set stdout = fso.GetStandardStream (1)
'Set stderr = fso.GetStandardStream (2)
'stdout.WriteLine "This will go to standard output."
'stderr.WriteLine "This will go to error output."