zoukankan      html  css  js  c++  java
  • 测试RDP回放

    Dim fso,num,flag
    flag=true
    set bag=getobject("winmgmts:\. ootcimv2")

    Set fso=CreateObject("Scripting.FileSystemObject")
    Set WshShell=WScript.CreateObject("WScript.Shell")
    'if fso.FileExists("hello.txt") then
    'set sfile=fso.getfile("hello.txt")
    'sfile.attributes=0
    'sfile.delete
    'end if
    'Set TestFile=fso.CreateTextFile("hello.txt",Ture)
    'Set a=fso.opentextfile("hello.txt",1,true)
    'WshShell.Run "hello.txt"
    WshShell.run "notepad"

    num=1
    while flag


    WScript.sleep 2000
    WshShell.SendKeys num
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys "A"
    WshShell.SendKeys "{ENTER}"
    num=num+1
    flag=false
    set pipe=bag.execquery("select * from win32_process where name='notepad.exe'")
    For each id in pipe
        flag=true        
    Next

    wend
    set fso=nothing
    set WshShell=nothing

  • 相关阅读:
    smbmnt
    smbd
    smbcontrol
    smbclient
    smb.conf
    sleep
    size
    oracle-rman-1
    cURL 学习笔记与总结(5)用 cURL 访问 HTTPS 资源
    Java实现 LeetCode 90 子集 II(二)
  • 原文地址:https://www.cnblogs.com/duyy/p/3593303.html
Copyright © 2011-2022 走看看