百分求一段能打开一个163.com网页之后再把它关闭的程序。

Question

如题，可以用api，最好有注释，否则我看不懂。
先谢了。

Answer 1

我这里有一段对记事本有用的，换成Shell （"explorer http://www.sina.com.cn"）就不行了，
Option Explicit
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Boolean
Const PROCESS_TERMINATE = 1
Private Sub Form_Load()
       Dim ProID   As Long
       ProID = Shell("notepad.exe", vbNormalFocus)
       Sleep 2000 '两秒钟后关闭
       Dim hProcess As Long
       hProcess = OpenProcess(PROCESS_TERMINATE, False, ProID)
       TerminateProcess hProcess, 1
       CloseHandle hProcess
End Sub

Answer 2

Private Sub Command1_Click()
    Dim oIE As New InternetExplorer
    
    oIE.Visible = True
    oIE.Navigate "http://www.163.com"
    
    While oIE.Busy
        DoEvents
    Wend
    
    MsgBox ("end it")
    oIE.Quit
End Sub

Answer 3

注意：在运行前。点击菜单 Projects ¦ References 项，在Available References 列表中选择Microsoft Internet Controls项将Internet对象引用介入到工程中

Answer 4

顶！学习中~~~~~不如加个webbrowser控件来控制好不好呢

Answer 5

我还是不行 错误提示自动化错误
oIE.Visible = True
oIE.Navigate "http://www.163.com"
这2行

Answer 6

我这里调试通过了，你是不是按照上面的步骤，先引用，然后new一个InternetExplorer然后调用的？

Answer 7

是不是和IE版本有关啊?
我的可以，是IE6.0的

Answer 8

至于关闭弹出窗口，只能在163网站装载完成后通过ShellWindows遍历系统中当前打开的IE窗口并进行判断后关闭。

Answer 9

Private Sub For_Load()
        WebBrowser1.Navigate "http://www.sina.com.cn"
End Sub'取消息弹出窗口
Private Sub WebBroser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
        Cancel = True
End Sub

Answer 10

//注意：//在运行前。点击菜单 Projects ¦ References 项，在Available References 列表中选
//择Microsoft Internet Controls项将Internet对象引用介入到工程中
回马甲：我的是中文版，你是不是说插入部件啊？可Microsoft Internet Controls项里只有webBrowser部件啊。

Answer 11

//回马甲：我的是中文版，你是不是说插入部件啊？
References是引用，不是部件