dim dhwnd as long 
dim thwnd as long 
  dhwnd=findwindow("ieframe","xt-Microsoft Internet Explorer")
msgbox dhwnd
  if dhwnd>0 then 
  thwnd =findwindowsex (dhwnd,byval 0&,"#32770","Microsoft Internet Explorer")
  sendmessage dhwnd,bm_click,0,0
end if 
~~~~~~~~~~~~~~~~~~~~~~~~~
msgbox 显示 67230
但还是没有点击成功“确定”按钮,请麻烦再看一下