用MsComm控件接通后又能通用挂断所有型号Modem的方法

Question

多谢wjying(葡萄),这个问题主要是针对"Modem:主要是外猫.特别是"U.S. Robotics 33.6K FAX EXT"这个型号的... "用尽我所知道的所有办法均不能将CD(Carrier Detect)线路复位,以断开线路.故请高手帮忙...

Answer 1

'-------------------------断开网络连接----------------------
Public Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Public Type RasEntryName
    dwSize As Long
    szEntryName(256) As Byte
End Type
Public Type RasConn
    dwSize As Long
    hRasConn As Long
    szEntryName(256) As Byte
    szDeviceType(16) As Byte
    szDeviceName(128) As Byte
End Type
Public gstrISPName As String
Public ReturnCode As LongPublic Sub HangUp()
    Dim i As Long
    Dim lpRasConn(255) As RasConn
    Dim lpcb As Long
    Dim lpcConnections As Long
    Dim hRasConn As Long
    
lpRasConn(0).dwSize = 412
lpcb = 256 * lpRasConn(0).dwSize
lpcConnections = 0
ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
lpcConnections)If ReturnCode = 0 Then
    For i = 0 To lpcConnections - 1
        If Trim(ByteToString(lpRasConn(i).szEntryName)) _
        = Trim(gstrISPName) Then
            hRasConn = lpRasConn(i).hRasConn
            ReturnCode = RasHangUp(ByVal hRasConn)
        End If
    Next i
End If
End SubPublic Function ByteToString(bytString() As Byte) As String
    Dim i As Integer
ByteToString = ""
i = 0
While bytString(i) = 0&
    ByteToString = ByteToString & Chr(bytString(i))
    i = i + 1
Wend
End Function

Answer 2

多谢langzhi(方舟)等我试一下,就回来放分

Answer 3

我就看着上面的代码有点眼熟,这只能挂断拨号网络,不能实现我的目的.
我连结的是一台8088的单片机,用modem,我的代码可以正常挂断内外置modem,唯独"U.S. Robotics 33.6K FAX EXT"这个型号的不能正常挂断.........不过还是多谢langzhi(方舟)的帮忙,这个贴子4天没人响应了.
'---------------------------------------------------------------------------
现在,我看只有借助TAPI32.DLL了.不过我全然不知TAPI32.DLL的用法.下面是我在一个和我实现同样功能的程序的可执行文件中弄到的,可能是需要用到的连接和挂断所需的函数.可否给点定义和使用说明及代码?
'------------------------------
TAPI32.DLL
'-------------------------------
lineClose
lineConfigDialogEditA
lineDrop
lineGetDevCapsA
lineGetDevConfigA
lineGetIDA
lineGetMessage
lineInitializeExA
lineMakeCallA
lineNegotiateAPIVersion
lineOpenA
lineShutdown
'-----------------------

Answer 4

请看http://www.csdn.net/Expert/topic/495/495039.shtm

Answer 5

Amoon(阿木)啊,不行的,拔了线CD的灯照样亮着,不行.就是有那么怪的MODEM..
而且我的程序要实现无人职守,还得单独设计一个"拔线"的程序吧..

Answer 6

??这也叫办法??
虽然我没有办法帮你解决问题(没搞过modem),但拔电源线好象不是程序员解决的办法吧?(除非你设计一个能够自动断电的程序),顺便帮忙up一下 :)

Answer 7

brian_zhuang(不长进的阿庄)　上面的是玩笑了,Amoon(阿木)不是说了嘛:我帮你留意着，看到了告诉你！
不过多谢brian_zhuang(不长进的阿庄)了　
昨天的议题,请昨天没有看到的同仁继续发表意见..

Answer 8

本贴将放分,请有意帮忙者进:
http://www.csdn.net/expert/topic/497/497597.shtm
另外有分.

Answer 9

看了http://www.csdn.net/Expert/topic/504/504918.shtm！
给我点分行吗？

Answer 10

zyl910(910：分儿，我来了！)　别急嘛，你的分在http://www.csdn.net/expert/topic/495/495039.shtm里面的。。，当然了我还要多加一点给你们。'-----------------------------------------------------------------------------------------------
该问题还有3块没有放分,因为分数较散,所以Amoon(阿木) Flowerz(祖国的花朵)　wgku(云霄)  的均合并在一贴拿了, sxmzmxh(深巷)  的则分为三处拿,请sxmzmxh(深巷) 登陆其他两个贴子拿分.
'-------------------------------------------------------
http://www.csdn.net/expert/topic/497/497597.shtm
点数:69
liangsiyuan(叶)    3      　cocoboy79(iThink.net)  5        Amoon(阿木)    0  
TBBT(谁能读懂我的心)　10      bluesky35(蓝天)　　  4          Bardo(巴顿)    10
wgku(云霄)　        4      Flowerz(祖国的花朵)　  15        sxmzmxh(深巷)  8
vcbug(今夜最后一次陪你而醉)　 10http://www.csdn.net/expert/topic/487/487090.shtm
点数:47
wgku(云霄)  0          　Flowerz(祖国的花朵)　0    sxmzmxh(深巷)  47http://www.csdn.net/expert/topic/490/490318.shtm
点数:47
wjying(葡萄)  3      　 langzhi(方舟)  23          　Amoon(阿木) 8
　brian_zhuang(不长进的阿庄)　3                      sxmzmxh(深巷) 10'-----------------------------------------------------------------------------
最后两贴请sxmzmxh(深巷)赶快登陆分分.. 

Answer 11

最后两贴请sxmzmxh(深巷)赶快登陆分分..   

Answer 12

最后两贴请sxmzmxh(深巷)赶快登陆分分..