问题并不是很简单，答对者有分！！！vb 与 远程连接

Question

好象就是程序员大本营里的一段源码：
  '若使用以下CallBack function的方式，则RasDial()不等连线成功或失败便结束
  di = RasDial(0, PhoneBook, RasDialPara, 0, AddressOf RasDialFunc, hRasConn)  '若第二、三个参数都是0则，RasDial会等连线成功或失败後才执行下一行指令
  'di = RasDial(0, PhoneBook, RasDialPara, 0, 0, hRasConn)

Answer 1

可以使用Tonglink(中间件)来完成通讯工作。

Answer 2

我记得有个API可以判断网络是否连通，以及自动断开网络在 http://www.jinesc.com/index1.asp?bbh=02 有文章看看修改一下应该可以用

Answer 3

http://www.jinesc.com/index1.asp?bbh=04
有断开拨号网络的代码
其实在CSDN下有许多解决方法我的网站有解答

Answer 4

用PDQCOMM的控件即可实现！
干吗这么麻烦呢？

Answer 5

我这里有一本书 <<用VB进行网际网路与tcp/ip进阶程式设计>> ,其中有自动拔接断开等内容..现在将 一些code paste上来: 要的话:email:[email protected]
拔接:rna.vbpPrivate Sub cmdConnect_Click()
    If txtLogin.Text = "" Then
        MsgBox "Please enter the Login.", vbCritical
        txtLogin.SetFocus
        Exit Sub
    End If
    
    If txtPassword.Text = "" Then
        MsgBox "Please enter the Password.", vbCritical
        txtPassword.SetFocus
        Exit Sub
    End If
    
    ' 執行撥號網路程式
    Shell "rundll32.exe rnaui.dll,RnaDial " & "Hinet", vbNormalFocus
   
    DoEvents
    
    ' 按下 Shift+Tab 鍵, 回到使用者名稱欄位
    SendKeys "+{tab}"
    
    ' 輸入撥號網路程式之使用者名稱
    SendKeys txtLogin.Text    ' 按下 Tab 鍵, 跳至使用者密碼欄位
    SendKeys "{tab}"    ' 輸入撥號網路程式之使用者密碼
    SendKeys txtPassword.Text    ' 按下 Enter 鍵執行撥號網路程式
    SendKeys "{enter}"    DoEvents
End Sub'*  frmMain........
Private Sub cmdConnect_Click()
    If txtLogin.Text = "" Then
        MsgBox "Please enter the Login.", vbCritical
        txtLogin.SetFocus
        Exit Sub
    End If
    
    If txtPassword.Text = "" Then
        MsgBox "Please enter the Password.", vbCritical
        txtPassword.SetFocus
        Exit Sub
    End If
    
    ' 執行撥號網路程式
    Shell "rundll32.exe rnaui.dll,RnaDial " & "Hinet", vbNormalFocus
   
    DoEvents
    
    ' 按下 Shift+Tab 鍵, 回到使用者名稱欄位
    SendKeys "+{tab}"
    
    ' 輸入撥號網路程式之使用者名稱
    SendKeys txtLogin.Text    ' 按下 Tab 鍵, 跳至使用者密碼欄位
    SendKeys "{tab}"    ' 輸入撥號網路程式之使用者密碼
    SendKeys txtPassword.Text    ' 按下 Enter 鍵執行撥號網路程式
    SendKeys "{enter}"    DoEvents
End SubPrivate Sub Form_Load()End Sub
------------------------------------

Answer 6

   如果是用MODEM拨号的话，占线时和拨通时MODEM回给计算机的字符不一样
   具体可以查查MODEM手册的AT命令。不算麻烦。