询问一个有关VB6.0的SHELL问题,谢谢
来源:百度知道 编辑:UC知道 时间:2024/05/26 01:46:01
举个例子:比如VB程序里的
Shell "rasphone.exe -d " & "我的连接", vbNormalFocus
打开了网络连接对话框。我就是想让VB帮我自动点网络连接对话框的“连接”按钮来实现Shell自动连接网络的功能,那么这句Shell该怎么修改呢?
我曾经看到过一句
shell "rasphone.exe -d" & linksName, AppWinStyle.Hide, True, -1
但是在VB6.0里面不能运行
望大虾们指教!不胜感激!
如果单单是做个自动拨号 可以用:
'自动拨号
Private Declare Function InternetDial Lib "wininet.dll" (ByVal hwndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetHangUp Lib "wininet.dll" (ByVal dwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
Private Const INTERNET_DIALSTATE_DISCONNECTED = 1
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Const INTERNET_DIAL_UNATTENDED = &H8000
Private Handle As Long
'连接
Function DialUp(LinkName As String) As Boolean
InternetDial 0, LinkName, INTERNET_