通过FTP实现群聊功能,大家都来测试测试吧

praijna

版主：
在网上搜到一段代码（http://group.gimoo.net/review/39209）：
使用winsock来实现的代码
Public Sub Winsock_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error1:
Dim strData As String
Dim strInfo As String
Set Winsock1 = Form2.Winsock1
Winsock1.GetData strData, vbString
strInfo = CInt(Mid(strData, 1, 3))
xxxxx = ""

Select Case strInfo
Case 220
'输入帐号
Winsock1.SendData "USER " & XName & vbCrLf
Case 331
'输入密码
Winsock1.SendData "PASS " & XPass & vbCrLf
Case 230
'已正常联入
FTPRun = True
Case 421
'超时
FTPRun = False
Case 530
'未登陆
FTPRun = False
Case 250
'返回值
xxxxx = Replace(strData, "250 ", "")
xxxxx = False
Case Else
FTPRun = False
End Select
Error1:
End Sub

Public Function xxxxx(FilePath As String) As String
On Error GoTo Error1:
WTime = 0
xxxxx = True
FTPCon '检测ftp连接,断线自动连接
Form2.Winsock1.SendData "xxxxx" & Chr(34) & FilePath & Chr(34) & vbCrLf
While xxxxx = True
MyDoevents
WaitTime 1 '毫秒级等待
WTime = WTime + 1
If WTime >= 1000 Then GoTo Error1
Wend
xxxxx = Replace(xxxxx, vbCrLf, vbNullString)
Exit Function
Error1:
xxxxx = "xxxxx"
FTPRun = False
End Function

Private Function FTPCon() As Boolean
On Error GoTo Error1:
Dim Savetime As Double
Dim wsa As WSAdata

Set Winsock1 = Form2.Winsock1
WTime = 0
If FTPRun = True Then Exit Function
'如果未连接则等待建立连接
Winsock1.Close
'WSAstartup &H202, wsa
Winsock1.Connect
While FTPRun = False
MyDoevents
WaitTime 1
WTime = WTime + 1
If WTime >= 3000 Then FTPRun = False: GoTo Error1
Wend
Exit Function
Error1:
Winsock1.Close
End Function

ZDYCTD

我们公司外网管得特别紧，每个人的在电脑上的一举一动都看得清清楚楚，哪也上QQ啊

little-key

很多公司的都是封IP或者是端口的，所以比较难

EHoman

原帖由 彭希仁 于 2009-10-12 14:02 发表
领导即然下了命令,为了自已的权威就算明知是错也会一错到底

有这样的领导?连改正决策错误的勇气都没有吗?

澈夫人

我连MSN都不能上 很多很多的网站都被屏蔽了 应该算很惨的 只能用指定的企业邮箱  加油哇 出来了的话试用的人肯定相当多  所以还是有强大的精神支柱的  哈哈

wenwu0318

真是郁闷哈，有这个必要嘛，不种菜就得了嘛，小家子气。我们公司qq、msn、飞信、飞鸽都能上。。。

roboby

dddddddddddddddddddddddddddd

tq229926

Public Declare Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequired As Integer, ByRef lpWSAData As WSADATA) As Long
Public Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, ByVal lType As Long, ByVal protocol As Long) As Long
Public Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, ByRef addr As sockaddr, ByVal namelen As Long) As Long
Public Declare Function listen Lib "ws2_32.dll" (ByVal s As Long, ByVal backlog As Long) As Long
Public Declare Function accept Lib "ws2_32.dll" (ByVal s As Long, ByRef addr As sockaddr, ByRef addrlen As Long) As Long
Public Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, ByVal buf As String, ByVal lLen As Long, ByVal flags As Long) As Long
Public Declare Function send Lib "ws2_32.dll" (ByVal s As Long, ByVal buf As String, ByVal lLen As Long, ByVal flags As Long) As Long
Public Declare Function WSACleanup Lib "ws2_32.dll" () As Long

“如果是希望双向通讯的话。VBA基本无法实现。 但是可以有折中方案。 使用某个网络中某excel文件做中转， 双方都使用查询的方式通讯是可以的。”-引用
无意中看到得，不知道有用不

356468826

我跪拜，一群神人，我等你们的好消息啊 加油~

fenghcl

想不到有这么多人都有相同的遭遇~!