按键精灵定时按按键功能

按键精灵定时按按键功能

发个脚本给你参考
dim h,m
Rem [wait]
h=Hour(time)
m=Minute(time)
If h=15 and m=23
这里放入收发邮件的脚本，那么在15点23分的时候，就会自动操作了
Else
Delay 5000
Goto [wait]
EndIf追问这个是windows脚本的那种吧，这个不太懂。麻烦您说下怎么运行,是放在记事本里然后起个XX.bat吗？收发邮件的脚本从哪里能找到？多谢了追答这是按键精灵的脚本追问“这里放入收发邮件的脚本，那么在15点23分的时候，就会自动操作了”
就是这个不会弄，用抓抓工具抓不到那个按钮，请举个例子谢谢了。追答我又不知道你用什么邮箱，如果是用outlook是最好的。追问恩 就是OUTLOOK 版本是6追答不用抓图，加入这个命令就可以了：RunApp "C:\Program Files\Outlook Express\msimn.exe"，这是启动OUTLOOK的语句。添加后的脚本如下：
dim h,m
Rem [wait]
h=Hour(time):m=Minute(time)
If h=15 and m=23
RunApp "C:\Program Files\Outlook Express\msimn.exe"
Else
Delay 5000
Goto [wait]
EndIf追问这个是启动。。。我要的是发送。。。就是能定时点击那个发送按钮，但是又不能用录制鼠标移动轨迹或者鼠标点击固定左边功能做，因为有别人要碰电脑的。就是能不能实现“到时间自动寻找到那个发送按钮然后点击"这样的功能。您一直回答太感谢您了，我把分值提高了，要不太过意不去了。追答请问，收发邮件的地址以及内容是否都默认好的？如果不是的话，我也帮不了你啊，毕竟收件人和内容只有你自己才能设置啊。

用句柄吧···找到发送按钮相对起点坐标的位置··其他的修改内容也好·发送也好·后台键鼠操作都能实现吧··电脑有其他人用的话考虑反应速度可以没步前面都加个判断上去··虽然麻烦了点应该没有难点的··至于定时启动·ls说的方法也行·或者把上面的脚本做成小精灵用windows的系统工具 任务计划定时启动也行··追问能给个具体的例子吗？我对按键精灵也就是略知一二。句柄怎么弄啊？追答没用过outlook··刚鼓捣了半天·愣是没找到发送按钮在哪。。。。这个发送有快捷键么？
--------
楼主我找对了地方没？@@
RunApp "C:\Program Files\Outlook Express\msimn.exe"
Delay 2000
While true
Hwnd = Plugin.Window.Find(0, "Outlook Express - 主标识")
If Hwnd = 0 Then
Delay 500
Else
Goto a
End If
Wend
Rem a
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim s
s=Split(sRect,"|")
Ux = CLng(s(0))
Uy = CLng(s(1))
MoveTo 125 + Ux, 64 + Uy
Delay 200
LeftClick 1追问我自己做了个哈哈，利用找图解决了寻找发送按钮的问题。就是开启后不能再有人动电脑才行。不过可以设置个锁屏，我这个还可以自定义延时的时间。就是寻找句柄没有研究过，不会搞。UserVar yanshi=0 "多少分钟后执行"
Delay yanshi*60000
FindPic 0,0,600,600,"Attachment:\发送该工作表.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+5
Delay 1000
LeftClick 2
End If
谁会寻找句柄？追答lz脚本直接找图。。。那句柄没用了。。。