VB通过ActiveX的DLL与S7-1200/1500以太网通讯

B通过ActiveX的DLL与S7-1200/1500以太网通讯 该类通讯组件适用于基于PC高级语言的工业自动化控制系统，用于PC与可编程控制器(PLC)、智能仪表等进行数据通讯。组件采用动态链接库文件(*.DLL)的形式，在PC系统的项目工程里引用该组件，调用相应的属性与方法函数，即可快速实现PC与PLC的数据高效交换。 DLL通讯组件无须安装，直接复制到工程文件目录，方便打包安装部署；无须任何配置，直接调用函数，与应用开发无缝衔接；多年工程经验的软件团队开发测试，经过本公司及客户的海量实际应用检验，稳定可靠；采用稳定高效的内部协议，无须编写PLC内部程序配合，直接访问PLC的内存，通讯响应快速；内建动态管理的多独立线程连接，同时支持外部应用的多线程结构调用；兼容WINDOWS系统下的所有开发环境，包括各种版本的VB.NET、C#、VC++，以及DEIPHI 、VB、LabView等；支持几乎所有PLC的CPU自带通讯口、通讯扩展模块。

using System.Collections.Generic;
using System;
using System.Linq;
using System.Drawing;
using System.Diagnostics;
using System.Data;
using System.xml.Linq;
using Microsoft.VisualBasic;
using System.Collections;
using System.Windows.Forms;


using System.Net;
using System.Runtime.InteropServices;

namespace TCP_CLIENT
{
	public partial class Form1
	{
		public Form1（）
		{
			InitializeComponent（）;
			
			if （defaultInstance == null）
				defaultInstance = this;
		}
		
#region Default Instance
		
		private static Form1 defaultInstance;
		

public static Form1 Default
		{
			get
			{
				if （defaultInstance == null）
				{
					defaultInstance = new Form1（）;
					defaultInstance.FormClosed += new FormClosedEventHandler（defaultInstance_FormClosed）;
				}
				
				return defaultInstance;
			}
			set
			{
				defaultInstance = value;
			}
		}
		
		static void defaultInstance_FormClosed（object sender FormClosedEventArgs e）
		{
			defaultInstance = null;
		}
		
#endregion


        WinTcpS7PLC.PlcClient PLC = new WinTcpS7PLC.PlcClient（）;
		bool Entlink;
		long ScanCount;
		short ScanRet;
        Int32 PlcHand;
		
		[DllImport（“winmm.dll“ ExactSpelling=true CharSet=CharSet.Ansi SetLastError=true）]
		public static extern UInt32 timeGetTime（）;
		
		public void Form1_Load（System.object sender System.EventArgs e）
		{
            short i = 0;
            this.CenterToScreen（）;
            cmbReadMry.Items.Clear（）;
            cmbReadMry.Items.Add（“I“）;
            cmbReadMry.Items.Add（“Q“）;
            cmbReadMry.Items.Add（“M“）;
            cmbReadMry.Items.Add（“V“）;
            cmbWriteMry.Items.Clear（）;
            cmbWriteMry.Items.Add（“I“）;
            cmbWriteMry.Items.Add（“Q“）;
            cmbWriteMry.Items.Add（“M“）;
            cmbWriteMry.Items.Add（“V“）;
            cmbBitMry.Items.Clear（）;
            cmbBitMry.Items.Add（“I“）;
            cmbBitMry.Items.Add（“Q“）;
            cmbBitMry.Items.Add（“M“）;
            cmbBitMry.Items.Add（“V“）;
            cmbReadType.Items.Clear（）;
            cmbReadType.Items.Add（“W_INT16“）;
            cmbReadType.Items.Add（“W_UINT16“）;
            cmbReadType.Items.Add（“D_DINT32“）;
            cmbReadType.Items.Add（“D_HEX32“）;
            cmbReadType.Items.Add（“D_REAL32“）;
            cmbReadType.Items.Add（“W_BIN16“）;
            cmbReadType.Items.Add（“B_CHAR8“）;
            cmbReadType.Items.Add（“B_BYTE8“）;
            cmbWriteType.Items.Clear（）;
            cmbWriteType.Items.Add（“W_INT16“）;
            cmbWriteType.Items.Add（“W_UINT16“）;
            cmbWriteType.Items.Add（“D_DINT32“）;
            cmbWriteType.Items.Add（“D_HEX32“）;
            cmbWriteType.Items.Add（“D_REAL32“）;
            cmbWriteType.Items.Add（“W_BIN16“）;
            cmbWriteType.Items.Add（“B_CHAR8“）;
            cmbWriteType.Items.Add（“B_BYTE8“）;

            for （i = 0; i <= 7; i++）
            {
                cmbBit.Items.Add（“Bit“ 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        869  2012-12-15 19:48  TcpClient VB2010\TcpClient.sln

    ..A..H.     57856  2017-07-22 23:07  TcpClient VB2010\TcpClient.suo

     文件        201  2012-12-15 19:48  TcpClient VB2010\TcpClient\App.config

     文件      67652  2017-07-22 22:24  TcpClient VB2010\TcpClient\Form1.Designer.vb

     文件       6206  2017-07-22 22:24  TcpClient VB2010\TcpClient\Form1.resx

     文件      19918  2017-07-22 22:30  TcpClient VB2010\TcpClient\Form1.vb

     文件       5578  2017-07-22 22:30  TcpClient VB2010\TcpClient\TcpClient.vbproj

     文件      71680  2017-07-22 23:07  TcpClient VB2010\TcpClient\bin\Release\TcpClient.exe

     文件      58880  2017-07-22 23:07  TcpClient VB2010\TcpClient\bin\Release\TcpClient.pdb

     文件      11600  2017-07-22 23:05  TcpClient VB2010\TcpClient\bin\Release\TcpClient.vshost.exe

     文件        490  2010-03-17 22:39  TcpClient VB2010\TcpClient\bin\Release\TcpClient.vshost.exe.manifest

     文件        668  2017-07-22 23:07  TcpClient VB2010\TcpClient\bin\Release\TcpClient.xml

     文件      81920  2017-07-22 22:14  TcpClient VB2010\TcpClient\bin\Release\WinTcpS7_1K.dll

     文件       1509  2012-12-15 19:48  TcpClient VB2010\TcpClient\My Project\Application.Designer.vb

     文件        510  2012-12-15 19:48  TcpClient VB2010\TcpClient\My Project\Application.myapp

     文件       1097  2012-12-15 19:48  TcpClient VB2010\TcpClient\My Project\AssemblyInfo.vb

     文件       2776  2012-12-15 19:48  TcpClient VB2010\TcpClient\My Project\Resources.Designer.vb

     文件       5612  2010-05-04 06:45  TcpClient VB2010\TcpClient\My Project\Resources.resx

     文件       2993  2012-12-15 19:48  TcpClient VB2010\TcpClient\My Project\Settings.Designer.vb

     文件        279  2010-05-04 06:45  TcpClient VB2010\TcpClient\My Project\Settings.settings

     文件       2855  2016-04-19 16:27  TcpClient VB2010\TcpClient\obj\x86\Debug\DesignTimeResolveAssemblyReferences.cache

     文件       6184  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\DesignTimeResolveAssemblyReferencesInput.cache

     文件        792  2015-04-04 20:37  TcpClient VB2010\TcpClient\obj\x86\Debug\GenerateResource.read.1.tlog

     文件       2118  2015-04-04 20:37  TcpClient VB2010\TcpClient\obj\x86\Debug\GenerateResource.write.1.tlog

     文件      14493  2013-05-03 11:17  TcpClient VB2010\TcpClient\obj\x86\Debug\ResolveAssemblyReference.cache

     文件      48640  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.exe

     文件        180  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.Form1.resources

     文件      56832  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.pdb

     文件        180  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.Resources.resources

     文件       4716  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.vbproj.FileListAbsolute.txt

............此处省略116个文件信息