这种网页弹出窗口，怎样才能自动填表？

这种网页弹出窗口，怎样才能自动填表？我是用下面的命令调出窗口，但是找不到窗口代码，无法自动填表，本人很菜，希望高手解答。

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Document.parentWindow.execScript "at_sms('')", "JavaScript"
End Sub --------------------编程问答-------------------- 自己顶一下。没有回答，伤心呀！！！！！！！！！ --------------------编程问答-------------------- 好像是校内，不要向我发垃圾广告啊 --------------------编程问答-------------------- 不是校内网的,放心好了，不会向你发广告的。难道这个太简单了呀，为什么没有人回答呀？ --------------------编程问答-------------------- 谁告诉你谁缺德，出门被车撞 --------------------编程问答-------------------- shendun2007
为什么这样说，好像太狠了一点。。。。。。。。。

补充：VB ,  基础类