189 8069 5689
VB.NET安装部署一).创建部署项目
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、网站建设、外贸网站建设、龙川网络推广、微信小程序开发、龙川网络营销、龙川企业策划、龙川品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供龙川建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。
3. 单击“确定”关闭对话框。
4. 项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。
5. 在“属性”窗口中，选择 ProductName 属性，并键入 信息管理系统 。
VB.NET安装部署二).将 主程序 项目的输出添加到部署项目中
1. 在“文件系统编辑器”中，选择“应用程序文件夹”。在“操作”菜单上，指向“添加”，然后选择“项目输出”。
2. 在“添加项目输出组”对话框中，选择“项目”下拉列表中的“你的程序”。
3. 单击“确定”关闭对话框。
4. 从列表中选择“主输出”和“内容文件”组，然后单击“确定”。
VB.NET安装部署三).创建安装程序类
1. 在“文件”菜单上指向“新建”，然后选择“项目”。
2. 在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。
3. 单击“打开”关闭对话框。
4. 从“项目”菜单中选择“添加新项”。
5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。
6. 单击“确定”关闭对话框。
7. 详细代码附后。
VB.NET安装部署四).创建自定义安装对话框
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。
2. 在用户界面编辑器中，选择“安装”下的“启动”节点。在“操作”菜单上，选择“添加对话框”。
3. 在“添加对话框”对话框中，选择“许可协议”对话框，然后单击“确定”关闭对话框。
4. 在“添加对话框”对话框中，选择“文本框 (A)”对话框，然后单击“确定”关闭对话框。
5. 在“操作”菜单上，选择“上移”。重复此步骤，直到“文本框 (A)”对话框位于“安装文件夹”节点之上。
6. 在“属性”窗口中，选择 BannerText 属性并键入：安装数据库.
7. 选择 BodyText 属性并键入：安装程序将在目标机器上安装数据库
8. 选择 Edit1Label 属性并键入：数据库名称:
9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1
10. 选择 Edit1Value 属性并键入：dbservers
11. 选择 Edit2Label 属性并键入：服务器名:
12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2
13. 选择 Edit2Value 属性并键入：(local)
14. 选择 Edit3Label 属性并键入：用户名:
15. 选择 Edit3Value 属性并键入：sa
16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3
17. 选择 Edit4Label 属性并键入：密码:
18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4
19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性，并将它们设置为 true
VB.NET安装部署五).创建自定义操作
1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”，然后选择“自定义操作”。
2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上，选择“添加自定义操作”。
3. 在“选择项目中的项”对话框中，双击“应用程序文件夹”。
4. 选择“主输出来自 installDB（活动）”项，然后单击“确定”关闭对话框。
5. 在“属性”窗口中，选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。
附:/targetdir="[TARGETDIR]/"是安装后的目标路径，为了在installDB类中获得安装后的路径，我们设置此参数。
VB.NET安装部署六).添加文件
1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）
Crystal_Managed2003.msm
（如果有水晶报表）
dotnetfxredist_x86.msm
（.net一定是必须的）
... （如果有引用其他的dll）
5.如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:/Program Files/Common Files/Merge Modules/ 下，*为必要的
具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）
* Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）
VC_User_CRT71_RTL_X86_---.msm VC_User_STL71_RTL_X86_---.msm
(很多人经常出现查询错误，不妨加上这个)
6.打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的“License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
VB.NET安装部署七).打包时加入卸载功能：
方法一:
1.在打包项目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到)
2.在文件系统视图中选择应用程序文件夹,在msiexec.exe上按右键,选择创建快捷方式,重命名快捷方式为"卸载".
3.更改此快捷方式的Arguments 为"/x {产品id}",产品id的值为打包项目的ProductCode属性值.
方法二:(推荐)
1.先生成安装包，记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到
2.用VS.net建立一个新的控制台程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process =
New Process
If System.Environment.OSVersion.
ToString.IndexOf("NT 5") Then
myProcess.Start("msiexec", "/X
{2B65D4A9-C146-4808-AB4B-321F
B0779559}") '改为自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式
VB.NET安装部署八).打包时加入.net环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.使用 Setup 项目安装 MDAC
1.确保 Visual Studio .NET 框架引导程序插件已安装。
2.在 Solution Explorer 中选择 Setup 项目。从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。
3.选择 Requirements on Target Machine（搜索目标计算机） 节点。从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。
4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，选择 RegKey 属性，并键入 Software/Microsoft/DataAccess。
5.选择 Root 属性，并选择 vsdrrHKLM。
6.选择 Value 属性，并键入 FullInstallVer。
7.选择 Property 属性，并键入 MDACSEARCH。
8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。
9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。
10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。
Visual Studio 是目前最流行的 Windows 平台应用程序开发环境。目前已经开发到 10.0 版本，也就是 Visual Studio 2010。正在开发的版本为11.0版本，也就是Windows 8的搭档（预览版本Visual Studio11）。
编辑本段
发展历程
Visual Studio 97 是最早的 Visual Studio 版本。包含有面向 Windows 开发使用的 Visual Basic 5.0、Visual C++ 5.0，面向 Java 开发的 Visual J++ 和面向数据库开发的 Visual FoxPro，还包含有创建 DHTML (Dynamic HTML) 所需要的 Visual InterDev。其中，Visual Basic 和 Visual FoxPro 使用单独的开发环境，其他的开发语言使用统一的开发环境。
1998 年，微软公司发布了 Visual Studio 6.0。所有开发语言的开发环境版本均升至 6.0。这也是 Visual Basic 最后一次发布，从下一个版本 (7.0) 开始，Microsoft Basic 进化成了一种新的面向对象的语言：Microsoft Basic NET。由于微软公司对于 Sun 公司 Java 语言扩充导致与 Java 虚拟机不兼容被 Sun 告上法庭，微软在后续的 Visual Studio 中不再包括面向 Java 虚拟机的开发环境。
2002 年，随着 .NET 口号的提出与 Windows XP / Office XP 的发布，微软发布了 Visual Studio .NET（内部版本号为 7.0）。在这个版本的 Visual Studio 中，微软剥离了 Visual FoxPro 作为一个单独的开发环境以 Visual FoxPro 7.0 单独销售，同时取消了 Visual InterDev。与此同时，微软引入了建立在 .NET 框架上（版本1.0）的托管代码机制以及一门新的语言 C# （读作 C Sharp，意为 C++++）。C# 是一门建立在 C++和 Java 基础上的现代语言，是编写 .NET 框架的语言。
.NET 的通用语言框架机制（Common Language Runtime, CLR），其目的是在同一个项目中支持不同的语言所开发的组件。所有 CLR 支持的代码都会被解释成为 CLR 可执行的机器代码然后运行。
Visual Basic、Visual C++ 都被扩展为支持托管代码机制的开发环境，且 Visual Basic .NET更是从 Visual Basic 脱胎换骨，彻底支持面向对象的编程机制。而 Visual J++ 也变为 Visual J#。后者仅语法同 Java 相同，但是面向的不是 Java 虚拟机，而是 .NET Framework。
2003 年，微软对 Visual Studio 2002 进行了部分修订，以 Visual Studio 2003 的名义发布（内部版本号为 7.1）。Visio 作为使用统一建模语言（UML）架构应用程序框架的程序被引入，同时被引入的还包括移动设备支持和企业模版。.NET 框架也升级到了 1.1。
2005 年，微软发布了 Visual Studio 2005。.NET 字眼从各种语言的名字中被抹去，但是这个版本的 Visual Studio 仍然还是面向 .NET 框架的（版本2.0）。
这个版本的 Visual Studio 包含有众多版本，分别面向不同的开发角色。同时还永久提供免费的 Visual Studio Express 版本。
随着即将发布的 Windows Vista和 Office 2007，Visual Studio 9 也渐渐浮出水面。Visual Studio 9 目前可以确定的是支持建立于 DHTML 基础上的 AJax 技术，这种微软在 Visual InterDev 时代提出的基于异步的客户端动态网页技术在当年并没有像微软预期中的那么流行起来，反而随着 GMail 等应用而东山再起，渐渐成为主流网络应用之一。同时 Visual Studio 9 会强化对于数据库的支持以及微软新的基于工作流（Workflow）的编程模型。预计为了保持与 Office 系列的统一，Visual Studio 9 的名称为 Visual Studio 2007。
2007年11月，微软发布了 Visual Studio 2008 英文版，
2008年2月14日发布了简体中文专业版。
2010年4月12微软发布Visual Studio 2010以及.NET Framework 4.0,并于2010年5月26发布了中文版
编辑本段
Visual Studio 2010组件
Visual Basic .NET 2010
Visual Basic .NET 2010（版本号：10.0），提供支持Dynamic Language Runtime (DLR)。Visual Basic .NET 10同时也是Silverlight 2.0计划的一部分。
Visual C++ .NET 2010
Visual C++ .NET 2010（版本号：10.0），于2010年发布，是目前最新的版本。Visual C++ .NET 开发团队考虑使用 SQL Server Compact 格式的数据库来存储源码的相关信息。此版也加入了现代化的C++并行运算库 Parallel Patterns Library。此版建构于.NET 4.0之上，但仍支持机器码的编译。
Visual C# .NET 2010
Visual C# .NET 2010（版本号：4.0）是微软开发的一种面向对象的编程语言，是微软.NET开发环境的重要组成部分。它是为生成在 .NET Framework 上运行的多种应用程序而设计的。C# 简单、功能强大、类型安全，而且是面向对象的。C# 凭借它的许多创新，在保持 C 样式语言的表示形式和优美的同时，实现了应用程序的快速开发。
Visual F# .NET 2010
Visual F# .NET（版本号：2.0）是由微软发展的为微软.NET语言提供运行环境的程序设计语言，是函数编程语言（FP，Functional Programming），函数编程语言最重要的基础是 Lambda Calculus 。它是基于OCaml的，而OCaml是基于ML函数程式语言。有时F#和OCaml的程式可以交互编译。
编辑本段
Visual Studio 2008版本特点
Visual Studio 2008 在三个方面为开发人员提供了关键改进：
快速的应用程序开发
高效的团队协作
突破性的用户体验
Visual Studio 2008 提供了高级开发工具、调试功能、数据库功能和创新功能，帮助在各种平台上快速创建当前最先进的应用程序。
Visual Studio 2008 包括各种增强功能，例如可视化设计器（使用 .NET Framework 3.5 加速开发）、对 Web 开发工具的大量改进，以及能够加速开发和处理所有类型数据的语言增强功能。Visual Studio 2008 为开发人员提供了所有相关的工具和框架支持，帮助创建引人注目的、令人印象深刻并支持 AJAX 的 Web 应用程序。
开发人员能够利用这些丰富的客户端和服务器端框架轻松构建以客户为中心的 Web 应用程序，这些应用程序可以集成任何后端数据提供程序、在任何当前浏览器内运行并完全访问 ASP NET 应用程序服务和 Microsoft 平台。
快速的应用程序开发
为了帮助开发人员迅速创建先进的软件，Visual Studio 2008 提供了改进的语言和数据功能，例如语言集成的查询 (LINQ)，各个编程人员可以利用这些功能更轻松地构建解决方案以分析和处理信息。
Visual Studio 2008 还使开发人员能够从同一开发环境内创建面向多个 .NET Framework 版本的应用程序。开发人员能够构建面向 .NET Framework 2.0、3.0 或 3.5 的应用程序，意味他们可以在同一环境中支持各种各样的项目。
突破性的用户体验
Visual Studio 2008 为开发人员提供了在最新平台上加速创建紧密联系的应用程序的新工具，这些平台包括 Web、Windows Vista、Office 2007、SQL Server 2008 和 Windows Server 2008。对于 Web，ASP NET AJAX 及其他新技术使开发人员能够迅速创建更高效、交互式更强和更个性化的新一代 Web 体验。
高效的团队协作
Visual Studio 2008 提供了帮助开发团队改进协作的扩展的和改进的服务项目，包括帮助将数据库专业人员和图形设计人员加入到开发流程的工具。
编辑本段
Visual Studio 2010版本特点
● 支持 Windows Azure，微软云计算架构迈入重要里程碑。
● 助力移动与嵌入式装置开发，三屏一云商机无限。
● 实践当前最热门的 Agile/Scrum 开发方法，强化团队竞争力。
● 升级的软件测试功能及工具，为软件质量严格把关。
● 搭配 Windows 7，Silverlight 4 与 Office，发挥多核并行运算威力，
创建美感与效能并重的新一代软件。
● 支持最新C++标准，增强IDE，切实提高程序员开发效率。
编辑本段
使用 Microsoft .NET Framework 3.5
.NET Framework 提供了用于解决常见编程任务的构建基块（预制的软件），从而能够快速构造具有出色的最终用户体验的紧密联系的应用程序。在 .NET Framework 模型业务流程上有效构建的紧密联系的应用程序有利于在异类环境中实现系统集成。
Visual Studio 和 .NET Framework 的结合使用减少了对公用管道代码的需要，从而缩短了开发时间并使开发人员能够集中精力解决业务问题。
.NET Framework 3.5 是在 .NET Framework 3.0 的基础上构建的更高版本。得到增强的功能领域包括基类库、Windows workflow foundation、Windows Communication Foundation、Windows Presentation Foundation 和 Windows CardSpace。
编辑本段
Microsoft .NET Framework 4.0更新
1、代码片段（Code Snippets）:
代码段是预先开发的代码模板，可以节省我们对有关语法思考的时间。在VS 2005和VS 2008中，已经有建立了很多代码段。不过，这些只适用于隐藏代码（code behind）。在VS 2010中代码片段支持JScript，HTML以及asp,net标记。在下面画面，展示了JScript和HTML片段的快捷菜单。
2、New Profiles：
在以前的dotnet版本中，我们已经看到过不同的开发环境的配置。如 VB, C#, Web development 和General Development。我们根据自己的需要选择一个环境配置。这些选择将在第一次安装visual studio之后或者通过import export选项。
3、Generate From Usage：
在ASP,Net以前的版本，微软推出了从现有的代码中进行代码重构来生成方法，在In ASP,NET4.0 中， Generate From Usage 有了新概念，能基于现有的代码来生成属性，方法，类和的其它类型。
4、Multi-Targeting:
在2008中就能创建一个2.0或者3.0版本创建项目，而不是用默认的3.5去开发。也是是说，有一个选择项去改变开发项目的framework版本。
在2010中亦有相同选项功能，并做出相应的提高。在以前的版本中，如果你使用framework 2.0创建一个项目。智能感仍将能显示3.5版本的类型和成员。如果你不能确定所选择的framework内的成员，所以你就会有更多的机会去出错。但是，在VS2010的智能感知会只向您显示你选择的framework 版本。
5、MultiMonitor：
Visual Studio 2010 给我们提供能将IDE的窗体移动 visual studio IDE之外，将它放至在桌面上。它还支持多面地去看不同的IDE窗体。如果我们关闭Visual Studio，并再次打开它，我们会发现所有的窗体在我们最后一次放置的地方。
6、Code Navigation:
新的导航使我们在文件中更快搜索术语。但它只能即在App_Code文件夹类文件，搜索您键入文本。它不适用于HTML或代码隐藏文件。在下面的例子，它显示出我的键入函数名称，它导航到窗口，选择窗体中的任何一个，它将能定位到选择的函数定义。
7、View Call Hierarchy：
这有助于查看函数和属性的使用，例如，如果你在一个函数名右键，它会告诉你的函数使用分层列表。
8、代码高亮突出显示：
选择一个标识符，IDE会为你突出的被使用的地方。例如我选择变量i，在它不同的使用地方，突出的显示。
9、智能提示的改进：
在VS 2008中，为一个对象选择属性时，它将根据输入的字母的顺序排列，为你提供智能提示。
在VS2010中它将向你显示基于组的属性，例如，如果您的文本框对象后键入text, 它将向你显示Text, TextChanged, TextMode。它也支持Pascal的智能提示。 例如，你输入TC，它将导航TextChanged 成员。
10、EnablePersistedSelection：
当我们选择像datalist 或者gridview 控件中的一行时，如果我们移动到另一个网页，在新的页上，它选择同编号行，虽然我们只在第一页选择了它。
为了避免这个，ASP,Net 4.0为这些控件推出了一种新的属性，这是EnablePersistedSelection。如果设置为true，在其他网页中，将不能选择同一编号。例如，导航到原始网页，第一页将显示选定的最初选定的行。
11、Web.Config Transformation
通常为我们的开发环境需要在web.config中设置一些值，然后在部署或测试的时候，我们手工地改变这些值。
12、URL Routing
在asp,net 4.0中你不需要为每个单独的处理程序类来定义routing。建立一个辅助函数MapPageRoute，帮助您实现更快速的routing。这些routes在Application_Start中注册。对于这个在Global.asax SetRouting方法的示例中设置routing，第一个参数是routing的友好名称，第二个参数是检查URL进行模式匹配，第三个是在aspx页将这一功能为用户实施。
13、Add Reference Dialog：
在Visual Studio以前的版本中，当打开reference dialog box时，这将需要一些时间来加载.NET程序集文件开始直到它加载从GAC中所有引用。在默认情况下打开项目选项卡，在VS2010上添加引用。
14、Compressing Session Values
ASP,NET session外的进程的状态值保存在数据库或服务器上。这些都是以序列化格式保存。发送到服务器时候，更多更大的session将消耗更多的资源 。现在，这些可以被压缩在一个新的构建compressionEnabled属性中。这种对sessionState元素属性，可以在web.config这样被声明。
15、Dynamic lookup:
有一个新的静态类型，dynamic。我们可以使用它作为任何对象的类型。如果有任何关于它的用法，我们能在运行时，得到它的错误。
16、Optional Parameters
在asp,net 4之前，为了实现可选的参数，我们创建重载函数。但现在在C#中，可选参数没有更多的限制。但是象VB的可选参数必须放置到最后。例如：
publicvoid FunctionOptionalParam(string Name, int Age, string Country ="")
我们可以不提要求的可选参数的值。
FunctionOptionalParam("My Full Name",20);
17、Named Parameters:
命名的参数可以忽略的参数顺序，在不同顺序的使用带名称的参数。
18、Meta Tags：
HtmlMeta类可用于动态添加HTML meta的标签和HTMLMeta的名称，内容属性可以被用来在运行时动态添加任何继标记名称和它的值。
在asp,net 4.0 Page类中有两个属性MetaDescription和MetaKeywords。这些可以用来在运行时在html中为description和keyword元素添加 meta 的值。
19、Generating Client IDs：
web控件的客户端ID是根据父控件ID动态的产生。 所以，如果你在一个用户控件中使用textbox，我们必须查看为它生产什么样ID，才能在客户端的脚本中直接使用。
有时这些是动态的改变用户控件的名称也更改它的子控件ID。在asp,net 4.0中，这个问题是可以由页面的ClientIDMode属性解决。它有如下可能的值：AutoID , Static, Predictable 和Inherit。
20、Permanent Redirect ：
ASP,NET 4.0中一个新的命令Response.RedirectPermanent可用于更改服务器页上的头信息。因此，如果用户去为他直接重定向到新的一页，并为他节省了双行页面。在该网站和网页更新的发现头和更新其索引信息，展示最新的信息重新搜索索引同样的搜索引擎。
21、New Browser Definitions：
在ASP,net 3.5近几年，一些浏览器已经更新，其中包括Google chrome和那些支持blackberry智能手机。 ASP,Net 4.0的HttpBrowserCapabilities类被更新符合支持新浏览器。
22、Package/Publish ：
Package/Publish提供设置 publish和package命令 。
23、Deploy SQL ：
部署SQL选项，允许您设置将连接字符串作为部署的一部分。您可以使用不同的名称和值手动添加连接字符串，或按一下import按钮从web.config导出。你可以仅仅选择模式脚本或数据库选项。在一个连接字符串显示源设置，我们可以为设置目标服务器的值。
(asp，net中“，”应为“.”)
用 vb.net socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub