武漢波仕電子公司  2011年3月

波仕電子的WF232L是一種WIFI與串口（RS-232,、RS-485/422）的轉(zhuǎn)換器,，能夠把IEEE802.11b/g的無線信號轉(zhuǎn)換出串口,。TCP&DUP.exe測試工具可以顯示WIFI與串口之間的通信數(shù)據(jù),，本文介紹的用WINSOCK編程實現(xiàn)WIFI與串口通信可以將源代碼嵌入到用戶自己的應(yīng)用程序中,。也可以用于VB的WINSOCK編程的參考。

WF232L的使用必須與無線AP（無線路由器）配合,。WF232L的DB-9針串口有2個用處：1,、在設(shè)置模式下用于對WF232L產(chǎn)品進(jìn)行設(shè)置，2,、在透明傳輸模式下作為WiFi轉(zhuǎn)換出來的串口,。用WINSOCK編程實現(xiàn)WIFI與串口通信顯然必須在透明傳輸模式下，但是在進(jìn)入透明模式之間必須在設(shè)置模式下進(jìn)行設(shè)置,。對WF232L進(jìn)行設(shè)置有2種方法：1,、用專用配置軟件UART-WIFI.exe， 2,、是用IE瀏覽器的網(wǎng)頁進(jìn)行設(shè)置,。用專用配置軟件功能比較全面，下面為配置軟件的部分界面：

設(shè)置成功后可以先用TCP&UDP.exe測試工具和scommassistant21.exe串口調(diào)試助手對WF232L進(jìn)行WIFI與串口之間的成功通信,，確保硬件連接和軟件設(shè)置的正確,。

記住以后編程要用到的參數(shù)設(shè)置：IP地址（192.168.0.123）和端口號（9999）。

VB中提供了一個網(wǎng)絡(luò)控件WINSOCK,，主要用于可以與遠(yuǎn)程計算機(jī)建立連接,，并通過TCP或UDP協(xié)議進(jìn)行數(shù)據(jù)交換。這兩種協(xié)議都可以用來創(chuàng)建服務(wù)器（Server）與客戶端（Client）類型的應(yīng)用程序,。

程序的VB界面很簡單,。在窗體上包括一個Winsock控件、2個Text控件,、3個Command控件,。代碼為：

'Option Explicit

Private Sub commadn1_Click()

  SendMsg = Text2.Text

  SockCL.SendData SendMsg

End Sub

Private Sub Command2_Click() '發(fā)送\

  Dim SendMsg As String

  SendMsg = Text2.Text

  SockCL.SendData SendMsg

End Sub

Private Sub Form_Load()

    Text1.Text = ""

    Text2.Text = ""

    Text1.Locked = True

End Sub

Private Sub SockCL_ConnectionRequest(ByVal requestID As Long)

  If SockCL.State <> sckClosed Then SockCL.State = sckClosed

  SockCL.Accept requestID

  Text1.Text = "服務(wù)器請求連接！"

  SockCL.SendData "連接成功"

End Sub

Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)

    Dim DataStr As String

    SockCL.GetData DataStr    '  接收數(shù)據(jù)到文本框中

    If Text1.Text = "" Then

        Text1.Text = DataStr

    Else

        Text1.Text = Text1.Text & vbCrLf & DataStr

    End If

End Sub

Private Sub Command3_Click() ' 退出數(shù)據(jù)

    SockCL.Close

    End

End Sub

' 發(fā)送完畢后回顯

Private Sub SockCL_SendComplete()

    If Text1.Text = "" Then

        Text1.Text = "客戶端: " & SendMsg

    Else

        Text1.Text = Text1.Text & vbCrLf & "客戶端: " & SendMsg

    End If

End Sub

Private Sub Command1_Click() '  連接

   SockCL.RemoteHost = "192.168.0.123"

    '  指定服務(wù)器端口名

    SockCL.RemotePort = 9999

    '  連接到服務(wù)器

    SockCL.Connect

End Sub

通信成功后的界面截圖如上,。本軟件還有另外一段為用WINSOCK寫的TCP服務(wù)器的部分,。整個源代碼及程序見波仕WF232L產(chǎn)品的光盤。