ÈçºÎµ÷ÓÃIE²Ëµ¥¡±¹¤¾ß¡±ÖеÄinternetÑ¡Ïî

ΪÄãÖ´Öø

Option Explicit



Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

'µ÷ÓÃie-¹¤¾ß-internetÑ¡Ïî¶Ô»°¿ò

Private Sub Command1_Click()

Dim rc As Long

rc = LaunchInternetControlPanel(Me.hWnd)

If rc = 0 Then

MsgBox "LaunchInternetControlPanel failed!", vbExclamation


End If

End Sub

'µ÷ÓÃie-¹¤¾ß-internetÑ¡Ïî¶Ô»°¿òÖеÄÁ¬½Ó

Private Sub Command2_Click()

Dim rc As Long

rc = LaunchConnectionDialog(Me.hWnd)

If rc = 0 Then

MsgBox "LaunchConnectionDialog failed!", vbExclamation

End If

End Sub

'shell·½Ê½µ÷ÓÃie-¹¤¾ß-internetÑ¡Ïî¶Ô»°¿ò

Private Sub Command3_Click()

Shell "C:\windows\control.exe Inetcpl.cpl ", vbNormalFocus