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

  • 相关阅读:
    eureka 注册中心(单机版)
    金蝶实际成本培训01
    查看WIN10内核
    金蝶K3 WISE 15.0 GUID
    win10卸载系统自带office365
    金蝶K3wise15.0BOM维护默认只能查看登录账户作为建立人的BOM清单
    阿里云邮箱代收邮件
    金蝶寄售业务流程
    转-商品流通企业代销商品核算方法
    转-ERP待检仓、代管仓、赠品仓
  • 原文地址:https://www.cnblogs.com/developer-ios/p/6220854.html
Copyright © 2011-2022 走看看