如何调出InterNet连接向导窗口?这个问题原来发过一个贴子没有解决,难道没解?

解决方案 »

  1.   


    Private Declare Function ShellExecute Lib "shell32.dll" _
        Alias "ShellExecuteA" _
        (ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
        Const SW_SHOWNORMAL = 1
    Private Sub Command1_Click()
    Dim rt As Long
    rt = ShellExecute(Me.hwnd, "open", "C:\Program Files\Internet Explorer\Connection Wizard\inetwiz.exe", "", "", SW_SHOWNORMAL)
    End Sub
      

  2.   

    Shell "C:\Program Files\Internet Explorer\Connection Wizard\inetwiz.exe"
    接分