只要能实现就行呀,或者是winsock
解决方案 »
- 感觉没写错就是连不上数据库,在线等,有空的来看下
- 我在做一个ACCESS数据库!!!!连接都可以!!!但是有一个问题!!!11
- 如何实现MSHFlexGrid中分层显示功能呢
- 用 Word 提取 doc文档 纯文本,有时候会出问题,怎么办?
- 想做一个限次数执行的程序,请大家在帮忙解决
- access根据时间查询数据怎么写啊?急啊!
- 在vb中怎样作dll文件
- ISAM错误,高手帮忙呀
- 关于电脑书籍的提意!!!!!!
- 关于VB实现锁住计算机,并只当输入密码时才能退出的问题
- 急需高手相助:由于dll被外部调用,app.path取得的路径不是当前路径,还有没有别的方式?
- vb6.0中如何锁定checkbox的内容,使其不能被修改呢?请赐教
主要属性
用 途VB.Form form1
caption=”雷萌聊天室”controlbox=0 ‘False
模拟客户机表单VB.Textbox text1
multiline=-1 ‘Truescrollbars=3 ‘Bath
用于输入发往聊天室的信息VB.Textbox text2
locked=-1 ‘Truemultiline=-1 ‘Truescrollbars=3 ‘Bath
显示从聊天室发来的信息VB.Combobox combo1
text=”10.84.234.11” ‘任定默认地址
放入常用的地址VB.Commandbutton comm1
caption=”退出”
最小化form1VB.Commandbutton comm2
caption=”连接”
请求与输入的地址连接VB.Commandbutton send
caption=”发送”
发送Text1中的内容VB.Label label1
caption=“请在此输入发表的信息”
Text1的框标VB.Label label2
caption=“聊天室或对方的信息”
Text2的框标VB.Label label3
caption=”等待连接”
显示连接状态信息VB.Label label4
caption=”聊天室或对方地址”
用于指示Combo1VB.Label label5
caption=”操作:选地址连接,连接成功看到聊天室内容后再输信息发送”
操作说明VB.Timer timer1
interval=6000; enabled=false
防止连接超时MSWinsocklib.winsock a
用于数据传输
form2中装入控件: 控件名
主要属性
用 途VB.Form form2
caption=”接收信息”controlbox=0 ‘False
模拟客户机表单VB.Commandbutton command1
caption=”返回”
隐含Form2窗口VB.Commandbutton command2
caption=”对话”
点对点会话时用此直接启动Form1VB.Textbox text1
locked=-1 ‘Truemultiline=-1 ‘Truescrollbars=3 ‘Bath
存放聊天或对话内容VB.Label label1
caption=”接收的信息”
Text1的框标MSWinsocklib.Winsock a
用于监听MSWinsocklib.Winsock b
用于传送聊天信息
⑵ 在Form1的各控件事件中加入如下代码:Dim flag As Boolean 注释:连接状态变量 Private Sub a_Connect() flag = TrueEnd Sub Private Sub a_DataArrival(ByVal bytesTotal As Long) Dim i As String a.GetData i Label3.Caption = "连接成功!" Comm2.MousePointer = 0 Form1.MousePointer = 0 Timer1.Enabled = False If i = Chr(0) Then Text2.Text = "你是今天第一个进入本聊天室的客户。" + Chr(13) + Chr(10) Else Text2.Text = Text2.Text + i End If Text2.SelStart = Len(Text2.Text) Send.MousePointer = 0 Combo1.Enabled = False Comm2.Caption = "断开连接" Text1.SetFocusEnd Sub Private Sub a_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) flag = False Timer1.Enabled = False Comm2.MousePointer = 0 Form1.MousePointer = 0 MsgBox "网络连接失败 !" Label3.Caption = "等待连接" Combo1.Enabled = True Combo1.SetFocus a.Close Comm2.Caption = "连接"End Sub Private Sub Comm1_Click() a.Close 注释:关闭连接 Form1.WindowState = 1End Sub Private Sub Comm2_Click()If Comm2.Caption = "断开连接" Then a.Close Comm2.Caption = "连接" Label3.Caption = "等待连接" Combo1.Enabled = True Timer1.Enabled = False Comm2.MousePointer = 0 Form1.MousePointer = 0Else Text2.Text = "" Label3.Caption = "正在连接.." Comm2.MousePointer = 11 Form1.MousePointer = 11 Timer1.Enabled = True flag = False a.Protocol = sckTCPProtocol a.RemoteHost = Combo1.Text a.RemotePort = 3000 a.ConnectEnd IfEnd Sub Private Sub Form_DblClick()If MsgBox("关闭本聊天室! 确认吗?", 36, "退出系统") = 6 ThenEndElseForm1.WindowState = 1End IfEnd Sub Private Sub Form_Load()If App.PrevInstance ThenMsgBox "本系统已经加载,请看任务拦!", 48, "提示"EndEnd Ifflag = FalseLoad Form2 ‘读入form2进入监听End Sub Private Sub Send_Click() Dim S As String On Error GoTo ffff ‘防止链路中断 Send.MousePointer = 11 If Right(Text1.Text, 1) <> Chr(10) Then S = Text1.Text + Chr(13) + Chr(10) Else S = Text1.Text End If If flag Then a.SendData S End If Exit Subffff:MsgBox "连接中断!", 48, "提示"a.CloseSend.MousePointer = 0Comm2.Caption = "连接"Label3.Caption = "等待连接"Combo1.Enabled = TrueComm2.MousePointer = 0Form1.MousePointer = 0Exit SubEnd Sub Private Sub Timer1_Timer() flag = False Timer1.Enabled = False Comm2.MousePointer = 0 Form1.MousePointer = 0 MsgBox "网络连接失败(超时) !" Label3.Caption = "等待连接" Combo1.Enabled = True Combo1.SetFocus a.Close Comm2.Caption = "连接"End Sub ⑶ 在Form2的各控件事件中加入如下代码:Const maxn = 200 ‘最大同时连接本机的客户数Dim user(maxn) As Boolean Private Sub Command1_Click() Form2.HideEnd Sub Private Sub Command2_Click()Load Form1Form1.ShowEnd Sub Private Sub Form_Load() Dim str1 As String Form2.Caption = "雷萌通信软件" 注释:winsock控件 a 作为服务器程序监听 a.LocalPort = 3000 a.ListenEnd Sub Private Sub a_ConnectionRequest(ByVal requestID As Long) Dim i As Long For i = 1 To maxn ‘当一客户请求时给启动一Winsock控件标志号 If Not user(i) Then user(i) = True Exit For End If Next i If i > maxn Then Exit Sub End If Load b(i) ‘当一客户请求时启动一Winsock控件 b(i).Accept requestID 注释:实际建立连接 If Text1.Text = "" Then 注释:发送数据 b(i).SendData Chr(0) Else b(i).SendData Text1.Text End If Form2.ShowEnd Sub Private Sub s_Close(Index As Integer) b(Index).Close 注释:关闭连接 Unload b(Index) 注释:卸载 一个WinSock 控件 user(Index) = FalseEnd Sub Private Sub b_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim str As String Dim i As Long b(Index).GetData str Text1.Text = Text1.Text + str For i = 1 To maxn If user(i) Then b(i).SendData str End If Next iEnd Sub三·运行本程序在VB6.0中编译通过,运行后最小化到任务栏上,也可以用API的Shell_Notifyicon 函数做入右下角的指示器栏中常驻内存。你可以在网络中用一个固定的机器地址作为聊天讨论室,其他用户都选该机地址连接进入该室聊天或讨论。各用户也可选各自熟悉的地址进行连接对话,双击
-------------------
里面 有具体例子
如果不能的话,有什么办法才能不启动netmeeting