: 你是使用 vb6 嗎？ : 參考 vb研究小站 中的 VB6 專案模組簡介，你要了解「物件類別」(*.cls) 的各種語法 : 專案類型指定為「ActiveX DLL」專案。 : 把mscomm相關的程式碼寫好後，檔案-製成 myobj.dll， : 然後 開始-執行 regsvr32.exe c:\myweb\bin\myobj.dll (假設路徑，不要照抄喔) : vb研究小站教你用 Dim myobj As New MyProject.MyClass 這樣形式的寫法， : 你可以在網站(asp)中改成下面這種寫法： : Set myobj = Server.CreateObject("MyProject.MyClass") (也是假設的名稱) : Response.Write(myobj.getData) (還是假設的名稱) : 相關資訊就去看vb研究小站吧 首先先感謝你的指導 我照你說的方式去做 把檔案製成 myobj.dll要儲存時他就顯示變數未定義 所以就沒辦法儲存 你可以告訴我哪有有問題嗎 以下是MSCOMM的程式部份 Option Explicit Private Const LB_SETHORIZONTALEXTENT = &H194 '宣告一個DLL內的外部程序 Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Dim TempStr As String '用於讀取暫存區資料 Dim TempBool As Boolean '判斷資料是否已讀取完畢 Private Sub Command1_Click() '===將字串輸出，在字串的前面加上字串長度與分隔字元=== If LTrim(Text1.Text) <> "" Then MSComm1.Output = Len(Text1.Text) & "&RFID：" & Text1.Text Text1.Text = "" End If End Sub Private Sub Form_Load() '===設定、開啟串列連接埠=== With MSComm1 .CommPort = 1 '設定串列連接埠代號 .Handshaking = comXOnXoff .NullDiscard = True .RThreshold = 1 If Not (.PortOpen) Then .PortOpen = True '開啟串列連接埠 End If End With End Sub Private Sub MSComm1_OnComm() '===讀取接收暫存區中的資料=== Dim TempLong As Long Dim MaxLength As Integer '記錄ListBox中的最大字串長度 Dim TempIndex As Integer '記錄ListBox中最長字串的索引值 If TempBool And MSComm1.CommEvent = comEvReceive Then TempStr = MSComm1.Input '判斷目前取得資料是否為所有資料 If Val(TempStr) + 3 = Len(TempStr) - InStr(1, TempStr, "&") Then List1.AddItem Mid(TempStr, InStr(1, TempStr, "&") + 1), 0 TempStr = "" MaxLength = Len(List1.List(0)) For TempLong = 0 To List1.ListCount - 1 '尋找最長字串 If Len(List1.List(TempLong)) >= MaxLength Then TempIndex = TempLong MaxLength = Len(List1.List(TempLong)) End If Next TempLong '產生一個水平捲軸 Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, _ ByVal TextWidth(List1.List(TempIndex)) / 14.8, ByVal 0&) Else MSComm1.RThreshold = Val(TempStr) + 20 - Len(TempStr) + _ InStr(1, TempStr, "&") '設定最小接收字元數為尚未讀取字元數 '去除字串長度與分隔字元 TempStr = Mid(TempStr, InStr(1, TempStr, "&") + 1) TempBool = False End If Else List1.AddItem TempStr + MSComm1.Input, 0 TempStr = "" TempBool = True MSComm1.RThreshold = 1 MaxLength = Len(List1.List(0)) For TempLong = 0 To List1.ListCount - 1 If Len(List1.List(TempLong)) >= MaxLength Then TempIndex = TempLong MaxLength = Len(List1.List(TempLong)) End If Next TempLong Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, _ ByVal TextWidth(List1.List(TempIndex)) / 14.8, ByVal 0&) End If End Sub 還有問題就是我需要在設定使用元件加入MSCOMM控制項嗎? 我是有加入 其實我也不確定要不要加 如果執行成功後 是不是我在用MSCOMM讀取資料的同時 網頁上就會出現資料? PS 抱歉..我程式方面真的很陌生 現在都在邊學邊用 所以遇到很多問題 所以如果我問的問題很白痴 就請你多見諒囉 最後再跟你說聲謝謝 也拜託你替我解答囉 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.116.85.178