?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
objFaxServer.Connect ""
objFaxDocument.Body = "c:\test.txt"
objFaxDocument.Recipients.Add "1234567", "abc"
objFaxDocument.ConnectedSubmit objFaxServer
'FAXCOMEXLib.FaxServer server = new FaxServerClass();
' server.Connect("");
' FAXCOMEXLib.FaxDocument doc = new FaxDocumentClass();
' doc.Body = txtFilename.Text;
' doc.Recipients.Add(txtFaxNumber.Text,txtRcptName.Text);
' doc.ConnectedSubmit(server);
End Sub
Private Sub datareceive()
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim collFaxIncomingJobs As FAXCOMEXLib.FaxIncomingJobs
Dim objFaxIncomingJob As FAXCOMEXLib.FaxIncomingJob
Dim A As Object
Dim Prefetch As Integer
Dim FileName As String
'Error handling
On Error GoTo Error_Handler
'Connect to the fax server
objFaxServer.Connect ("")
'Get the collection of jobs in the incoming queue
collFaxIncomingJobs = objFaxServer.Folders.IncomingQueue.GetJobs
'Display the number of jobs in the collection
MsgBox ("There are " & collFaxIncomingJobs.Count & " jobs in the incoming queue.")
Archive '訊息的顯示抓取
Dim n As Long
'Get the job
n = InputBox("Input the item number for which you want information.")
objFaxIncomingJob = collFaxIncomingJobs.Item(n)
objFaxIncomingJob.Refresh
''Display the job properties
MsgBox ("Available operations: " & objFaxIncomingJob.AvailableOperations & _
vbCrLf & "Caller ID: " & objFaxIncomingJob.CallerId & _
vbCrLf & "CSID: " & objFaxIncomingJob.CSID & _
vbCrLf & "Current page: " & objFaxIncomingJob.CurrentPage & _
vbCrLf & "Device ID: " & objFaxIncomingJob.DeviceId & _
vbCrLf & "Extended status: " & objFaxIncomingJob.ExtendedStatus & _
vbCrLf & "Extended status code : " & objFaxIncomingJob.ExtendedStatusCode & _
vbCrLf & "Job ID: " & objFaxIncomingJob.Id & _
vbCrLf & "Job type: " & objFaxIncomingJob.JobType & _
vbCrLf & "Retries: " & objFaxIncomingJob.Retries & _
vbCrLf & "Routing information: " & objFaxIncomingJob.RoutingInformation & _
vbCrLf & "Size: " & objFaxIncomingJob.Size & _
vbCrLf & "Status: " & objFaxIncomingJob.Status & _
vbCrLf & "Transmission start: " & objFaxIncomingJob.TransmissionStart & _
vbCrLf & "Transmission end: " & objFaxIncomingJob.TransmissionEnd & _
vbCrLf & "TSID: " & objFaxIncomingJob.TSID)
'Allow user to cancel the selected fax
Dim CancelString As String
CancelString = InputBox("Cancel this fax (Y/N)?")
If CancelString = "Y" Then objFaxIncomingJob.Cancel
'Allow user to open the selected fax
Dim OpenString As String
OpenString = InputBox("Open this fax (Y/N)?")
If OpenString = "Y" Then
FileName = InputBox("Provide path and name of file for TIFF copy, e.g. c:\MyFax.tiff")
objFaxIncomingJob.CopyTiff (FileName)
'Open the tiff file
'Dim A As Object
A = CreateObject("wforbidden.shell")
A.run (FileName)
End If
Exit Sub
Error_Handler:
'Implement error handling at the end of your subroutine. This implementation is for demonstration purposes
MsgBox ("Error number: " & Hex(Err.Number) & ", " & Err.Deforbiddenion)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -