omron plc 以太网 Fins 通信测试 源码 Private Sub Command1_Click() Dim CommandStr As String CommandStr = Text2.Text FinsMsg1.sendFinsCommand NetNo.Text, NodeNo.Text, UnitNo.Text, CommandStr 'FinsMsg.sendFinsCommand 网络号， 节点号， 单元号， Fins命令 End Sub Private Sub Com
omron plc fins 通信源码 Private Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long Private Declare Function WSAStartup Lib "WSOCK32.DLL" _ (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long Private Declare Function WSACleanup Lib
