我們公司使用的是Microsoft Queue,然後進行二次開發
下面的代碼是1/1000的内容,可能看不懂,我要說的是很複雜!!!
Private Sub Main()
On Error GoTo ErrorHandle
Dim SaveQueueName As String
Dim SaveQueueLength As Long
Dim SaveMessage As String
Dim CurMessage As String
Dim strTemp As String
Dim I_Index As Long
Dim tmpInt As Integer