vbs mytest

发布时间:2017-1-17 10:46:35 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"vbs mytest ",主要涉及到vbs mytest 方面的内容,对于vbs mytest 感兴趣的同学可以参考一下。

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."


上一篇:AngularJS 页面基本操作
下一篇:烂泥:数据库管理之phpmyadmin免密码配置

相关文章

关键词: vbs mytest

相关评论

最近更新