求助高手，百度了还是不行，webbrower控件禁止ie弹出
求助高手啊，我目标是写的一个自动操作网页元素的小程序
目标网站：http://wy.lm-steel.com
用户名：18205
密码：12345
很久以前写了段时间，因为涉及到跨域操作，我是小菜，只是实现自动登录。这几天心血来潮，想重新搞下，但是程序中一点网页的链接地址，就会自动弹出IE显示新链接，百度了下，找到代码进行修改，问题是修改后我打开第一个页面不弹出IE，但是进入后，点击新页面的网址就会没反应，经测试用IE进行正常打开，点击后面的网址，也会弹出新的IE窗口进行打开，我想写个自动学习的挂，只想在webbrower1控件里面显示啊，求高手
百度找到的代码：

VB code

Dim strURL As String Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate strURL End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) strURL = Text End Sub Private Sub Command1_Click() WebBrowser1.Navigate "www.163.com" End Sub

引用自：http://zhidao.baidu.com/question/97293605.html?an=0&si=7

以下是我的登陆代码：

VB code

Private Sub Command1_Click()       WebBrowser1.Document.getelementsbytagname("INPUT")("username").Value = "18205"    WebBrowser1.Document.getelementsbytagname("INPUT")("password").Value = "12345"      WebBrowser1.Document.getelementsbytagname("INPUT")("Image2").Click    form1.WindowState = vbMaximizedEnd SubPrivate Sub Form_Load()       WebBrowser1.Navigate "http://wy.lm-steel.com"    WebBrowser1.Top = 600    WebBrowser1.Left = 200    WebBrowser1.Height = Me.Height - 800    WebBrowser1.Width = Me.Width - 400End Sub'如果webbrowser当前状态改变，那么更新显示Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)form1.Caption = TextEnd Sub

[解决办法]
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim a As New Form1
a.Show
Set ppDisp = a.WebBrowser1.Object
End Sub

[解决办法]
这里发现有一个
教师继续教育自动挂机软件
托盘图标提示当前挂机人姓名及挂机时间

http://phyedu.ys168.com/