http://bbs.pfan.cn/showbbs.asp?id=347932
此贴3楼的回答,我很满意.在此,再一次向liupeisong老师表示感谢(第一次在此论坛发贴,就得到了老师

的帮忙,我很高兴,也祝愿论坛越办越红火!)

老师回答的代码如下:

[color=FF0000]ox=createobject('INTERNETEXPLORER.APPLICATION')
url="http://www.ancc.org.cn/Service/Tools/FirmAffiche_Query.aspx"
ox.visible=.t.
ox.Navigate("&url")
DO WHILE ox.ReadyState<>4
doevents
ENDDO
ox.document.form1.Txt_code.value="3302" && Txt_code在网页源代码中(name),可以找到.
ox.document.form1.Txt_name.value="宁波" && Txt_name在网页源代码中(name),可以找到.
ox.document.form1.DDL_Date.value="4"    && DDL_Date在网页源代码中,可以找到.
ox.document.form1.Btn_Query.click       && Btn_Query在网页源代码中,可以找到.[/color]

现在,在此基础上,再提一个问题,还请liupeisong老师帮忙,完善一下代码.

问题如下:

1、登录 http://bbs.taobao.com/catalog/thread/154517-12414692.htm  （已会。只需将此链接拷入上述代码的第二行。）

2、在最下面有个“快速回复”。假设我设置回复的内容是“已经看过此贴子了。”  （这个命令不会写，请老师回复。）

3、点击“发表回复”
  这个命令应该是ox.document.form1.button_publish.click  (说明button_publish是"快速回复"的name,我想这条命令,应该是正确的,可是运行后,却提示出错.请老师再帮看看此条命令是否一定正确?)

再一次感谢liupeisong老师.