• 注册
  • 关于作者
    企业认证:趣记站长
    关注 6 粉丝 4 喜欢 9 内容 992
    江西省·南昌市
    聊天 送礼
    • 查看作者
    • 用VB实现客户——服务器(TCP/IP)编程实例

          现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服务器编程方式。下面我们用VB来实现TCP/IP网络编程。

        TCP/IP协议是Internet最重要的协议。VB提供了WinSock控件,用于在TCP/IP的基础上进行网络通信。当两个应用程序使用Socket进行网络通信时,其中一个必须创建Socket服务器侦听,而另一个必须创建Socket客户去连接服务器。这样两个程序就可以进行通信了。

        1.创建服务器,首先创建一个服务端口号。并开始侦听是否有客户请求连接。

        建立一窗体,并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件)

        添加两文本框Text1,Text2,和一按钮Command1

        Private Sub Form_Load()

        SockServer.LocalPort = 2000 ′服务器端口号,最好大于1000

        SockServer.Listen ′开始侦听

        End Sub

        Private Sub Form_Unload(Cancel As Integer)

        SockServer.Close

        End Sub

        Private Sub SockServer_Close()

        SockServer.Close

        End Sub

        Private Sub SockServer_ConnectionRequest(ByVal requestID As Long)

        SockServer.Close

        SockServer.Accept requestID ′表示客户请求连接的ID号

        End Sub

        ′当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数据,GetData方法接收数据。

        Private Sub SockServer_Data

      Arrival(ByVal bytesTotal As Long)

        Dim s As String

        SockServer.GetData s

        Text1.Text = s

        End Sub

        当我需要向客户发送数据时,只需调用SendData方法。

        Private Sub Command1_Click()

        SockServer .SendData Text2.Text

        End Sub

        2.创建客户。要创建客户连接服务器,

      VB程序中数据库的图片处理的解决方法
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

      首先设置服务器主机名,如IP地址、域名或计算机名,然后设置服务器端口,最后连接服务器。

        建立一窗体,并向其增加一个Winsock控件(可在工程菜单中的部件项来添加此控件),取名为:SockC1。添加两文本框Text1,Text2,和一按钮Command1

        Private Sub Form_Load()

        SockCl.RemoteHost =′127.0.0.1″

        ′表示服务器主机名

        SockCl.RemotePort = 2000

        ′表示服务器端口名

        SockCl.Connect

      ′连接到服务器

        End Sub

        Private Sub Form_Unload(Cancel As Integer)

        SockCl.Close

        End Sub

        Private Sub SockCl_Close()

        SockCl.Close

        End Sub

        Private Sub SockCl_DataArrival(ByVal bytesTotal As Long)

        Dim s As String

        SockCl.GetData s ′接收数据到文本框中

        Text1.Text = s

        End Sub

        Private Sub Command1_Click()

        SockCl.SendData Text2.Text ′向服务器发送数据

        End Sub

        3.进行通信。把这两个窗体分别编译成两个EXE文件,服务器Server.exe和客户Client.exe程序,并把它们分别安装在服务器端和客户端,这样就可以实现两者通信了。

      (河北 郝一霜) 

      用VB编写键盘拦截程序
      用VB创建FTP组件(get),Visual Basic构建线程安全的Singleton,如何实现VB与EXCEL的无缝连接,vb中利用xmlhttp来下载远程文件,vb中使用正则表达式,ASP.NET中Cookie编程的基础知识,MASM-打字练习程序,用VB制作注册软件的方法,VB程序中数据库的图片处理的解决方法,用VB编写键盘拦截程序,用VB实现客户——服务器(TCP/IP)编程实例,利用Visual Basic 实现无线通讯,VB 中资源文件的多种使用技巧,VB中资源文件的具体使用方法,vb接收GPS数据源码全,VB6中使用Winsock穿越各种代理的实现(TCP协议),VB实现文字“闪入”显示的特殊效果,VB对注册表操作程序开机时运行,VB将OCX植入执行文件内,利用VB函数Dir()实现递归搜索目录
      Visual Basic

    • 0
    • 0
    • 0
    • 64
    • 单栏布局 侧栏位置: