用VB编写网络寻呼机(1)

原创 2001年01月18日 15:05:00
 
  提起ICQ的大名,爱好电脑的朋友一定不会感到陌生的吧?ICQ就是互联网上的寻呼机,无论什么时候,只要你的朋友在线,你只需在ICQ中输入他的ID号码,你就可以在互联网上呼到他。ICQ由于其方便、快捷,且拥有众多的注册用户而一举成为互联网上最流行的网络寻呼机,它几乎成为每一个上网用户的必备之物。当你在使用ICQ的时候,是否会想过自己动手编写一个网络寻呼机呢?这其实在VB中就可以实现。

   网络寻呼的原理就是当客户端程序连接服务器时,通过服务器搜索所要呼叫的ID号码,如果检测到此用户且该用户正处于联网状态,则服务器通知此用户的客户端程序响应主叫方客户端程序,然后在主叫方和被叫方建立连接后,双方就可以聊天或进行其它的通信。


   在VB中编写网络寻呼机需要建立两个程序,一个为客户端程序Client,一个为服务器端程序Server。


   一、在Client工程中建立一个窗体,加载WinSock控件,称为tcpClient,协议选择TCP。再加入四个文本框,用以输入服务器的IP地址、服务器端口号,被呼叫的网络寻呼ID号以及用户登录ID号。然后再在窗体中加入三个按钮,分别命名为“连接”、“断开”和“退出”,点击“连接”按钮,并进行如下初始化连接,代码如下:


Private Sub Command1_Click()

If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then

MsgBox ("请输入主机名或主机IP地址。")

Exit Sub

ElseIf Len(Text1.Text) > 0 Then

tcpClient.RemoteHost = Text1.Text

tcpClient.RemotePort = Text2.Text

End If

tcpClient.Connect

Timer1.Enabled = True

End Sub


Private Sub Command2_Click()

tcpClient.Close   ’断开连接

End Sub


Private Sub Command3_Click()

End

End Sub


Private Sub Form_Load()

  Text2.Text = "1001"

End Sub


Private Sub tcpClient_Connect()

tcpClient.SendData (Text3.Text&"@"&Text4.Text)

End Sub


Private Sub tcpClient_DataArrival(ByVal

bytesTotal As Long)

Dim strData As String

tcpClient.GetData strData

strData = strData + "呼叫" 

’在收到呼叫消息后弹出一对话框并显示主叫方ID号码

MsgBox (strData)

End Sub

VB与网络(1)

利用INternet transfer控件从WWW的服务器上下载htl文档
  • oLinXi1234567
  • oLinXi1234567
  • 2014年10月10日 22:05
  • 291

vb获得网络时间的函数(历史上最全最完整最可靠的函数)

Private Sub Form_Load() MsgBox getWebDatetimie End Sub '直接调用 Private Function getWebDatetimie() ...
  • sysdzw
  • sysdzw
  • 2017年01月18日 15:11
  • 1310

vb制作单片机 上位机 (1) 控制单个电灯开关

vb制作单片机 上位机 (1) 控制单个电灯开关vb制作单片机 上位机 1 控制单个电灯开关 单片机源码 vb上位机程序编写 vb程序 基本构造 vb源码单片机源码#include sbit led...
  • huijianhuineng
  • huijianhuineng
  • 2015年12月16日 16:26
  • 953

如何用VB编写自己的DLL文件,并调用其中的函数

如何用VB编写自己的DLL文件,并调用其中的函数?
  • sillyboy1104
  • sillyboy1104
  • 2015年03月09日 22:54
  • 2582

VB的CRC32校验代码

提供一段VB的CRC检验代码。
  • zdingyun
  • zdingyun
  • 2015年07月11日 10:31
  • 2201

VB6.0 写的日历类模块

VB6.0 自带的日历控件的外观并不是很满意。为了满足程序UI的美观,我决定自己用类来写个属于自己的日历界面,满足审美需求...
  • tsien_sun
  • tsien_sun
  • 2017年01月06日 14:48
  • 407

VB+DX游戏编程教程 第一话:初识DX

今天为大家要讲的是VB与DirectX相结合的游戏编程,说是教程也过于夸张了,也算是本人在学习过程中的一些学校笔记和心得吧。首先得知道我们游戏的画面都是一帧一帧的渲染出来的。而每一个画面都是由三角形(...
  • uoyo_blog
  • uoyo_blog
  • 2015年09月01日 23:18
  • 604

用VB实现客户——服务器(TCP/IP)编程实例

现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服务器编程方式。下面我们用VB来实现TCP/IP网络编程。   TCP/IP协议是Internet最重要的协议。VB提供了W...
  • u014112224
  • u014112224
  • 2014年03月16日 17:44
  • 3818

vb接口的实现

'什么是回调函数?回调函数就是由你自己写的。你需要调用另外一个函数,而这个函数的其中一个参数,就 '是你的这个回调函数名。回调函数与普通的函数没有什么区别,其之所以称之为回调函数,是因为这个函数 '作...
  • sdgaojian
  • sdgaojian
  • 2013年12月29日 18:36
  • 1003

VB调用C#写的WinForm.NET控件

一.前言:   虽然IT开发技术日新月异,不过业界仍然运行着大量的VB系统,这些系统凝聚了不少客户的投资,应当要一定程度的保护和利用。因此也就产生了一种需求,也就是使用旧的开发技术仍然可以使用新技术...
  • ddjj_1980
  • ddjj_1980
  • 2013年04月09日 16:08
  • 1783
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB编写网络寻呼机(1)
举报原因:
原因补充:

(最多只允许输入30个字)