Excel精英培训网

 找回密码
 注册

自动读取记事本内容到某网页

已有 527 次阅读2016-5-29 16:50

Do
If Hour(now) = 16 and Minute(now) = 50 then
For i = 0 To 19
MoveTo 800, 350  //iCIBA搜词框
LeftClick 1
KeyDown 17, 1  //Ctrl+A
KeyPress 65, 1
KeyUp 17, 1
KeyPress "Delete", 1
Text1 = Plugin.File.ReadFileEx("C:\Users\haier\Desktop\1.txt")
arr = split(Text1, "|")
SayString arr(i)
Delay 500
Next
Exit do
End If
Delay 500
loop

评论 (0 个评论)

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-26 12:10 , Processed in 0.110647 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

返回顶部