以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何向打开的网页发送指定的快捷键  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129176)

--  作者:农村人
--  发布时间:2018/12/23 12:57:00
--  如何向打开的网页发送指定的快捷键
我想通过代码。打开网页,然后执行保存网页的命令(Ctrl+S)

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://www.baidu.com" \'指定要打开的网页地址
\'Proc.WaitForInputIdle()
Sendkeys.Send("^s") \'模拟按下Ctrl+S键  此处是不是不正确,或者应该怎么修改,麻烦大神帮忙
Proc.Start()

--  作者:有点甜
--  发布时间:2018/12/23 16:08:00
--  

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://www.baidu.com" \'指定要打开的网页地址
Proc.Start()

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(2) \'等到2秒
    application.Doevents
End While

Sendkeys.Send("^s") \'模拟按下Ctrl+S键  此处是不是不正确,或者应该怎么修改,麻烦大神帮忙