神马品牌网天天打波利好看职业:询问一个有关VB6.0的SHELL问题，谢谢
来源：百度文库 编辑：神马品牌网 时间：2024/04/25 08:20: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_AUTODIAL_FORCE_UNATTENDED, Handle, 0
DialUp = (Handle <> 0)
End Function
'断开
Sub HangUp()
If Handle <> 0 Then
InternetHangUp Handle, 0
Handle = 0
End If
End Sub
你的问题可以这样的解决：
Private Sub Command2_Click()
Dim aa As String
aa = "rasphone.exe -d & linksName & AppWinStyle.Hide & True ,- 1"
Shell aa, vbNormalFocus
End Sub
这时候你可以把linksname改写成为你所命名的连接，例如“我的连接”
你可以试一试，如果不成功就给我发消息，我们一起好好的研究一下shell的
用法，祝你好运！
c