如何用VB编程通过MODEM收发传真.谢谢

Question

我想用VB编程,通过MODEM收发传真:首先建立一个数据库存储用户的信息和传真号,然后在查询界面查询用户信息,选中几个用户后点发送传真,系统就发传真,给个示例,包括MODEM的设置!

谢谢,回答得好的追加分!
是要通过VB编程实现的,不要现成软件,要代码

Answer 1

用微软的faxcom.dll，硬件：可以收发传真的modem.（以下是vb.net方式，vb中作一些改动,自己改吧。可收发.txt,.doc,.xls,.ppt等文件

Dim objFaxSev As New FAXCOMLib.FaxServer()
Dim objFaxDoc As FAXCOMLib.FaxDoc
objFaxSev.Connect("tom")
Dim strFile As String = "E:\fax.doc"

objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)

objFaxDoc.FaxNumber = "87654321"
Dim b As Long = objFaxDoc.Send()

可参考: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlegacy_6g4z.as

参考资料：http://www.home123.com.cn/CSDN/asppost8/web35364.htm

Answer 2

新狐电脑传真(Faxnow) V2.7 破解版
国产简体中文版通过调制解调器发送和接收传真软件。以虚拟打印机方式将来自WORD/WPS/记事本/写字板等办公软件中编辑好的文字和图片内容转换为传真文件，然后调用发送程序，输入传真号码来发送传真。调制解调器连通电话线后，点击接收传真按钮即可自动接收传真并可浏览和打印传真。软件采用国际最新传真编码通信处理技术，支持Class1/Class1.0/Class2/Class2.0/等各种新老制式调制解调器MODEM（俗称猫），支持内部分机和网络IP电话或电话卡拨号。既可以自动发送和接收传真，也可以先拿起并联的电话机与对方通话后再发送或接收传真。通过电脑发送和接收传真速度快，内容清晰，节省人工，并且可将传真转换为图像文件，方便传真存档和管理，是一款绝佳的日常办公工具。

http://www.piaodown.com/down/soft/1099.htm

32bit Fax v9.93.01

传真接收和发送软件，能够帮助你从任何支持打印的程序中发送和接收传真。选项包括：通过Internet发送传真、通过email发送传真、通过传真modem发送传真和将所有传入的传真转发到一个email地址中。

NAME: chicncream
mail:[email protected]
serial :30343B343739

http://www.piaodown.com/down/soft/2275.htm

Answer 3

什么年代啊,VB开发周期快
程序开发只要能满足要求,尽量的消除BUG就是完美的,不管你用什么
.net有.net的优势,vb6也有VB6的优势,虽然某些方面已经落后了

看到javawsj,估计你用JAVA的吧,猜的,不管你做什么,先去刷牙

Answer 4

拨电话的要不

Dim Number$, Temp$

Private Sub CancellButton_Click()
MSComm1.Output = "ATH" + vbCr
Lblmessage.Caption = "挂断 -" + Number$
End Sub

Private Sub DialButton_Click()
Number$ = Trim$(Txttel.Text)
If Number$ = "" Or Len(Number$) < 7 Then
Call MsgBox("请输入正确的电话号码", 69, "提示")
Txttel.SetFocus
Exit Sub
End If
DialButton.Enabled = False
QuitButton.Enabled = False
DialString$ = "ATDT" + Number$ + ";" + vbCr
'清除接收缓冲区
MSComm1.InBufferCount = 0
'拨电话号码
MSComm1.Output = DialString$
Lblmessage.Caption = "正在拨号码 -" + Number$
DialButton.Enabled = True
QuitButton.Enabled = True

End Sub

Private Sub Form_Load()
On Error Resume Next
MSComm1.CommPort = 1
MSComm1.PortOpen = True

If Err.Number <> 0 Then
Call MsgBox("通讯错误检查串口", 16, "提示")
End If
Err.Clear
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
'读取串口数据
COMBUF = COMBUF + MSComm1.Input
lc = InStr(1, COMBUF, "OK")
If lc = 0 Then Exit Sub
'Modem 已正常拨号，返回OK
Lblmessage.Caption = "请您摘下电话机，准备通话"
Case comEvSend
End Select
End Sub

Private Sub QuitButton_Click()
Unload Me
End Sub

Answer 5

妈的,什么年代了,还VB呢,拿分来的

Answer 6

我站同楼上的看法