我最初设计的代码是：

Private Sub bianji_Click()
Unload Me
End Sub

Private Sub Command1_Click(Index As Integer)

Shell "explorer.exe http://hi. & n, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub
Private Sub Command2_Click(Index As Integer)
Shell "explorer.exe http://hi. & id2.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub Command3_Click(Index As Integer)
Shell "explorer.exe http://hi. & id3.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub Command4_Click(Index As Integer)
Shell "explorer.exe http://hi. & id4.Text, vbNormalFocus
Shell "explorer.exe javascript:__doPostBack('lbDel_1','')"
End Sub

Private Sub exit_Click()
Unload Me
End Sub


但是此程序不可用，我想设计：
在页面上有10个文本框，每个文本框后有一个删除按钮（也就是说可以同时删除10个帖子）
在文本框内输入帖子UID（如，22222）
然后点击删除，这个帖子就被删除了
我想这样设计
我们论坛每个帖子地址都是http://hi.加上帖子UID
比如http://hi.
我们的删除帖子指令是，在打开的帖子页面的地址栏中输入javascript:__doPostBack('lbDel_1','')，然后敲击回车，（必须是版主才可以）。
请高手帮我设计一下这个程序

请上传工程文件回答
不要上传EXE
谢谢

这个问题没人能帮你.因为要测试,没有版本权限测试不了.

1\用webbrows打开这个贴子网址,然后取下ID号.
2\根据你论坛删贴子的网络封包(HTTP协议),自己生成对应的URL,然后使用webbrows进行访问.
3\或者使用WEBBROWS调用JS的方法调用你找出来的那个JS函数.

用explorer.exe的完整路径试下