如何在win98和win2000中都能调出windows的拨号连结接功能,进行拨号连结

解决方案 »

  1.   

    Shell "Rasphone.exe -d 163", vbNormalFocus
     Shell "Rasphone.exe -d asdl", vbNormalFocus
      

  2.   

    Shell "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\" & _
         "::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus
      

  3.   

    rivate Sub ConnetionShell() '拨号
        Shell "rasphone.exe", vbNormalFocus '拨号程序
            Delay 20'我定义的延时程序,
        MsgShellF'这个是我定义的检测网络是否通的过程
    End Sub
    Public Sub Delay(HowLong As Date) '延时程序
        TempTime = DateAdd("s", HowLong, Now)
        While TempTime > Now
            DoEvents '控制权交给windows
        Wend
            
    End Sub
    Shell "rasphone.exe", vbNormalFocus  这一句 就够了,可是要是 在程序里用就要注意,shell的特性,他和vb的程序是并行的,所以我定义了延时。