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

[jessezappy]

我现在的难题时如何找到一个用MsComm控件接通后又能通用挂断所有型号Modem的方法,先声明用AT指令的不行,用.PortOpen = False直接关闭MsComm控件的也不行,请想其他的办法,只要挂断的方法,接通不用了

[jessezappy]

加分

[jessezappy]

加分

[jett]

这个问题太专业不懂
不过帮你up

[jessezappy]

多谢wjying(葡萄),

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

[langzhi]

'-------------------------断开网络连接----------------------
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 Long

Public 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 Sub

Public 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

[jessezappy]

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

[jessezappy]

我就看着上面的代码有点眼熟,这只能挂断拨号网络,不能实现我的目的.
我连结的是一台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
'-----------------------

[jessezappy]

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

[Amoon]

呵呵,我的方法最简单有效：把线拔了！

[jessezappy]

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

[Amoon]

呵呵，我是说拔电源线啊！
我帮你留意着，看到了告诉你！

[jessezappy]

upit

[brian_zhuang]

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

[jessezappy]

原来如此啊,我以为你说电话线,我有点呆,还是Amoon(阿木)你有办法..
先谢过了....

[jessezappy]

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

[jessezappy]

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

[zyl910]

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

[jessezappy]

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

[jessezappy]

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(今夜最后一次陪你而醉)　 10

http://www.csdn.net/expert/topic/487/487090.shtm
点数:47
wgku(云霄) 0 　Flowerz(祖国的花朵)　0 sxmzmxh(深巷) 47

http://www.csdn.net/expert/topic/490/490318.shtm
点数:47
wjying(葡萄) 3 　 langzhi(方舟) 23 　Amoon(阿木) 8
　brian_zhuang(不长进的阿庄)　3 sxmzmxh(深巷) 10

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

[jessezappy]

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