文件名称:VB6.0.BO
-
所属分类:
- 标签属性:
- 上传时间:2012-11-16
-
文件大小:874byte
-
已下载:0次
-
提 供 者:
-
相关连接:无下载说明:别用迅雷下载,失败请重下,重下不扣分!
介绍说明--下载内容来自于网络,使用问题请自行百度
Private Sub cmdConnect_Click()
If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then
MsgBox 123.12.25.38
Exit Sub
Else
If Len(Text1.Text) > 0 Then
tcpClient.RemoteHost = Text1.Text
Else
tcpClient.RemoteHost = Text2.Text
End If
End If
tcpClient.Connect
Timer1.Enabled = True
End Sub -Private Sub cmdConnect_Click () If Len (Text1.Text) = 0 And Len (Text2.Text) = 0 Then MsgBox 123.12.25.38Exit Sub Else If Len (Text1.Text)> 0 Then tcpClient.RemoteHost = Text1.Text Else tcpClient . RemoteHost = Text2.Text End If End If tcpClient.Connect Timer1.Enabled = True End Sub
If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then
MsgBox 123.12.25.38
Exit Sub
Else
If Len(Text1.Text) > 0 Then
tcpClient.RemoteHost = Text1.Text
Else
tcpClient.RemoteHost = Text2.Text
End If
End If
tcpClient.Connect
Timer1.Enabled = True
End Sub -Private Sub cmdConnect_Click () If Len (Text1.Text) = 0 And Len (Text2.Text) = 0 Then MsgBox 123.12.25.38Exit Sub Else If Len (Text1.Text)> 0 Then tcpClient.RemoteHost = Text1.Text Else tcpClient . RemoteHost = Text2.Text End If End If tcpClient.Connect Timer1.Enabled = True End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
VB6.0“BO”.txt
本网站为编程资源及源代码搜集、介绍的搜索网站,版权归原作者所有! 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.