|
Private Sub CommandButton1_Click()
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate "http://club.excelhome.net/forum.php?mod=post&action=newthread&fid=2&referer=http%3A//club.excelhome.net/forum-2-1.html"
Do Until .ReadyState = 4
DoEvents
Loop
.Document.getElementById("typeid_ctrl_menu").All.tags("li")(5).Click '选择主题分类,推荐
.Document.All("htmlon").Checked = Checked 'HTML 代码
.Document.getElementById("subject").Value = "测试提交有没有用"
.Document.All("e_switchercheck").Click
.Document.All("message").Value = Cells(1, 1)
.Document.parentWindow.execScript "switchEditor(this.checked?0:1)", "JScript"
.Document.All("editsubmit").Click '点击“发表帖子”
End With
End Sub |
|