VB通过dll建立S7-200Smart通讯。亲测简易可用

开发好的动态链接库dll。共享给大家。希望通过在自动化行业多多应用！ VB、C#、VB.net通过dll建立S7-200Smart通讯。亲测简易可用

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


        WinTcpS7_Smart.PlcClient PLC = new WinTcpS7_Smart.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“ + System.Convert.ToString（i））;
			}
			cmbReadMry.SelectedIndex = 2;
			cmbWriteMry.SelectedIndex = 2;
			cmbBitMry.SelectedIndex = 2;
			cmbBit.SelectedIndex =

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

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

     文件    1392671  2005-12-31 00:00  TcpClient VB2010\TcpClient\bin\Release\msvbvm60.dll

     文件     124688  2004-03-09 00:00  TcpClient VB2010\TcpClient\bin\Release\MSWINSCK.OCX

     文件      66560  2017-09-06 21:54  TcpClient VB2010\TcpClient\bin\Release\TcpClient.exe

     文件      56832  2017-09-06 21:54  TcpClient VB2010\TcpClient\bin\Release\TcpClient.pdb

     文件      11600  2017-09-06 21:52  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-09-06 21:54  TcpClient VB2010\TcpClient\bin\Release\TcpClient.xml

     文件      77824  2017-09-25 18:51  TcpClient VB2010\TcpClient\bin\Release\WinTcpS7_Smart.dll

     文件      61506  2017-07-22 22:33  TcpClient VB2010\TcpClient\Form1.Designer.vb

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

     文件      19135  2017-09-03 17:58  TcpClient VB2010\TcpClient\Form1.vb

     文件       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

     文件        975  2016-05-17 13:32  TcpClient VB2010\TcpClient\obj\x86\Debug\TcpClient.vbproj.GenerateResource.Cache

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