如何向另一EXE发点击命令

Question

一个按纽 一个时钟
Private Sub Command1_Click()
Timer1.Interval = 100
if Timer1.Enabled = True then
Timer1.Enabled = False 
else
Timer1.Enabled = True
end ifEnd SubPrivate Sub Form_Load()
Timer1.Enabled = False
End SubPrivate Sub Timer1_Timer()
SendKeys "{enter}"
End Sub
运行后将不停发送回车键

Answer 1

我要的是向另一个EXE发点击或回车键!

Answer 2

这个包你行
option explicit
private theExeID as longprivate sub SendkeyToExe(byval ExePath as string)
  theExeID=shell(exepath,1)
  timer1.enable=true
  timer1.inteval=300
end sub
private sub timer1_timer()
  on error resume next
  appactivate theExeID
  sendkeys "{ENTER}"
  if err.number<>0 then
    timer1.enabled=false
  endif
end sub

Answer 3

for i=0 to 99
shell *.exe
next i

Answer 4

人家说的是“点击命令”，不是“Enter”。
Step1:用FindWindow找到该窗口；
Step2:用FindWindowEx找到相应控件；
Step3:用SendMessage发送点击消息。

Answer 5

点击,“Enter”都行,只要能对另一个EXE发命令应就了.
我回去试试