我在家用vb做了一个局域网聊天的小程序,可只能发送文字,如何可以发送动态的表情?

如题所述

两种方案:
1.在客户端放置动态表情的文件,程序在运行时检测发过来的表情申请命令,比如你发送一个 /表情1 在程序中转义一下 把本地的表情显示出来就可以了
2.Winsock可以二进制传输的 你把本地表情文件当做比特流发送过去 让对方接受后在处理比特流转换成图片格式 进而显示
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-05-13
好像这个用特定的控件就能实现了,你编的是局域网聊天,一楼说的好像实现不了。我知道动态表情发送后是保存在指定文件夹里的,应该是用到的文件复制,然后读取显示。希望对你有用啊
第2个回答  2011-05-13
你可以设定 某个表情的固定文字代码 如果要发 笑脸 就可以用 /XL 代表 当对方接收到这个字符串 就把对应的表情显示出来
第3个回答  2011-05-13
将表情作为数据发送到客户端,客户端然后将表情数据显示在聊天框内。
或者向QQ那样,定义特定的符号为表情,在收到特定符号以后显示动态表情。本回答被网友采纳
第4个回答  2011-05-13
呵呵。。你可真有耐心。。要是我。。直接上飞秋。。。
表情只不过是一个动态的图片而已吧。。直接当图片发就不得了。。

我在家用vb做了一个局域网聊天的小程序,可只能发送文字,如何可以发送...
1.在客户端放置动态表情的文件,程序在运行时检测发过来的表情申请命令,比如你发送一个 \/表情1 在程序中转义一下 把本地的表情显示出来就可以了 2.Winsock可以二进制传输的 你把本地表情文件当做比特流发送过去 让对方接受后在处理比特流转换成图片格式 进而显示 ...

用VB写一个小程序.
vb6代码如下,添加模块,工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub

...个聊天小程序,但是这个程序只局限于同一个局域网,怎么办?
程序不可能只限于一个局域网的,只要两个IP能够通信(可用Ping试试)这个程序就可以通信。检查你和其他的网段能不能正确通信,或者IP错了没。

我,自己只做了一个vb小程序,想用它调用win10系统的语音助手cortana,应 ...
没人会

请问用VB做的小程序,如何换图标呢
如图,如果你要动态设置,可以在Private Sub Form_Load()form1.icon=图片地址 End Sub

用VB编写程序向其他程序光标闪动处中输入文字
用SendKeys只能想Windouws程序中添加字符,你是写报告,具体的什么报告啊?是办公软件的那种格式?比如在记事本中写入字符 先在VB中添加一个按钮 在按钮中加入事件 Dim ReturnValue ReturnValue = Shell("NotePad.EXE", 1) ' 在这里打开要运行的程序 AppActivate ReturnValue ' 激活记事本。SendKeys ...

VB编的局域网发送信息软件如何进行超时处理?
在过程当中加上一句Doevent语句,就可以 Private Sub Command1_Click()Dim X As Boolean doevent '这是给你加的语句,试试看 X = SendMsg(TxtTo.Text, TxtFrom.Text, TxtMsg.Text)If X Then MsgBox "消息已被成功发送", vbInformation, "发送消息"Else MsgBox "发送消息失败", vbCritical, "...

用VB编程能做一个同时给所有微信群发信息的软件吗?
刚好看到这个问题,行业问题,之前做过一小段时间微商,“微商工具箱”,“里德助手”等app都使用过,主要用的是群发功能,亲密群发(这个真的很有用,比普通的群发带货率高很多),拉群啊,自动加好友啊等等。最后提醒大家,做微商期间我被封了好几个号,用了些外挂.(开始不懂)...后来才找到这些...

vb做一个简单的小程序
Private Sub Form_Load()ShockwaveFlash1.Movie = "D:\\wwwroot\\KuFang\\images\\1.swf"ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = True End Sub Private Sub Timer1_Timer()End End Sub 建一个无边框窗体,复制上面代码进去就OK了 工程文件给你发过去了 后发的是修改过的 免去了需要...

用VB写一个小程序可以代替键盘输入
For i = 1 To 6 SendKeys "{TAB}"Next i '20: 按键盘的 回车键 SendKeys "{ENTER}"'21:按键盘的 TAB(8下)For i = 1 To 8 SendKeys "{TAB}"Next i '22: 按键盘的 回车键(两下)SendKeys "{ENTER}"SendKeys "{ENTER}"'麻烦大家了 谁做好了 发到我邮箱里guoshuang629@126....

相似回答
大家正在搜