zoukankan      html  css  js  c++  java
  • 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."

  • 相关阅读:
    管程|| 同步与互斥的实现策略
    sqlserver 用户定义表类型
    C# Post Get 方式发送请求
    linux centos Supervisor守护.netcore进程安装配置
    linux cenos开放端口
    SqlServer DbHelper
    C# 执行js
    sql 多行、一行 互转
    sql 删除完全表中完全重复的数据保留一条
    sql 行列互转
  • 原文地址:https://www.cnblogs.com/developer-ios/p/6220854.html
Copyright © 2011-2022 走看看