UC知道vbs怎么等待键盘操作
来源：百度知道 编辑：UC知道 时间：2024/06/12 22:37:30
想写一个vbs复制粘贴的脚本，逐行复制以下内容：
“
张三
450022197204050010
铁西区王庙街26号
李四
450022198603150317
铁西区忠诚街18号
王五
410522197700321750
铁西区维4街178号
赵六
410504498301205512
铁西区经3街332号
蔡七
......”
复制我知道了
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText "张三"
End Sub
问题是如何使其在按下ctrl+v键后自动执行下一步操作，？
最终想达到的目的是运行脚本后复制第一行，手动按下ctrl+v粘贴被复制的内容后，脚本自动复制下一行内容等待下一次手动按ctrl+v动作，如此循环操作下去。。
或者师傅有更好的函数能拿来用？
“
张三
450022197204050010
铁西区王庙街26号
李四
450022198603150317
铁西区忠诚街18号
王五
410522197700321750
铁西区维4街178号
赵六
410504498301205512
铁西区经3街332号
蔡七
......”
复制我知道了
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText "张三"
End Sub
问题是如何使其在按下ctrl+v键后自动执行下一步操作，？
最终想达到的目的是运行脚本后复制第一行，手动按下ctrl+v粘贴被复制的内容后，脚本自动复制下一行内容等待下一次手动按ctrl+v动作，如此循环操作下去。。
或者师傅有更好的函数能拿来用？
----------
set objie=createobject("internetexplorer.application")
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("1.txt",1)
do until file.AtEndOfStream
str=file.readline
if trim(str) <> "" then call copy
loop
sub copy
objie.navigate("about:blank")
objie.document.parentwindow.clipboarddata.setdata "text",str
msgbox "已复制内容:"&chr(13)&chr(13)&str,0,"点确定复制下一行"
end sub
----------
以上代码逐行复制"1.txt"里面的内容,忽略空行.点确定后再复制下一行.
msgbox点确定,或回车.或直接空格都行.
按你说的要求VBS好象办不到,它不能判断某个键被按下.
Happy new year.~!
单纯用VBS来Hook键盘，目前还做不到。
VB或许可以。