1.如果你获得了IE窗口IEHwnd:
Var
TmD
Word; //必须DWord
SendMessage(IEHWnd,WM_KEYDOWN,VK_F9{F9的VK值},0);
TmD:=GetTickCount()+30*1000;
While (TmD>GetTickCount()) Do
Application.ProcessMessages;
SendMessage(IEHWnd,WM_KEYUP,VK_F9{F9的VK值},0);
2.没有获得IE句柄:
a.打开IE
b:
Var
TmD
Word; //必须DWord
key_event(KEY_DOWN,VK_F9{F9的VK值},0...);{忘了参数,ctrl_f1帮助一下}
TmD:=GetTickCount()+30*1000; { 延时30s }
While (TmD>GetTickCount()) Do
Application.ProcessMessages;
key_event(KEY_UP,VK_F9{F9的VK值},0...);{忘了参数,ctrl_f1帮助一下}