登陆
用户名:manlianha
密码:112233 Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.btophr.com/common/login.asp", 1
hWin = 0
Do
hWin = FindWindow(vbNullString, "Microsoft Internet Explorer")
If hWin > 0 Then
Debug.Print hWin
Call TerminateProcess(hWin, 1)
Exit Do
Else
DoEvents
End If
LoopEnd Sub
用户名:manlianha
密码:112233 Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.btophr.com/common/login.asp", 1
hWin = 0
Do
hWin = FindWindow(vbNullString, "Microsoft Internet Explorer")
If hWin > 0 Then
Debug.Print hWin
Call TerminateProcess(hWin, 1)
Exit Do
Else
DoEvents
End If
LoopEnd Sub
解决方案 »
- 真的要有分才能帮我吗
- vb.net或者delphi控制当前网页
- '在Toolbar1中Toolbar1.Buttons(3)设置成了tbrdropdown,只有点击下拉箭头才出现按钮菜单。如何可以点击Toolbar1.Buttons(3)按钮表面(非箭
- 循环中的错误处理问题
- 询问"ESMTP协议"与"SMTP协议"的区别!
- 请高手帮忙:谁有ActiveSkin的中文说明书?
- 请问,怎样将EXCEL表中的一整列或多列,复制到另一个EXCEL表中?
- 关于vb中数据库的一个问题,急等。
- 一个普通单维数组,最多能存多大的数?
- 好大的问题啊
- 求助VB
- 如果在A机器上调用一个B机器上的EXE文件,在B机器上执行
pDisp.Document.parentWindow.execScript "window.alert=null;"
前面我也问了这个问题,不过用SendMessage发送WM_CLOSE消息之类的办法关不掉的,在这里有朋友回答是用这种方法,我试了挺好
"biqiang(边城浪子) "兄太谦虚了,真乃知识分子中之豪杰!您提供的这个方法使得我的问题得到解决,谢谢!再问兄,象这样的句子和知识应从何种资料上获得,在何处可以得到这些类似的信息?不胜感激!