Private Sub Timer1_Timer()
SendKeys "{tab}"
SendKeys "{enter}"
End Sub
Private Sub Command1_Click()
if Timer1.Enabled = True
then command1.caption="打开"
timer1.enabled=false
else
command1.caption="关闭"
timer1.enabled=ture
end if
End Sub
SendKeys "{tab}"
SendKeys "{enter}"
End Sub
Private Sub Command1_Click()
if Timer1.Enabled = True
then command1.caption="打开"
timer1.enabled=false
else
command1.caption="关闭"
timer1.enabled=ture
end if
End Sub
把sendkeys放在读取配置文件代码后面应该行了吧