If Emeg.Contains("EDOWICO♂") Then
'QQClient.Send("EDOWICO♂" & strMD5,True) '终端请求下载图标文件信息
Dim strMD5 As String = Emeg.split("♂")(1) '获取信息内容的MD5
Dim cmd1 As New SQLCommand
cmd1.ConnectionName = gs_strActiveConn
cmd1.CommandText = "s elect * from EimFileLog where EMain = '1' and MD5 = '" & strMD5 & "'"
Dim dt1 As DataTable = cmd1.ExecuteReader
If dt1.DataRows.Count > 0 Then '如果已经传过相应的文件了
Dim dr1 As DataRow = dt1.DataRows(0)
Dim ico As String = gs_QQServerPath & "System\ICO\" & dr1("ICO")
If FileSys.FileExists(ico) Then '如果指定的文件存在
QQServer.SendFile(Euser,ico) '发给终端
End If
Else '不成功
QQServer.Send(Euser,"Eim服务器找不到文件!")
End If
End If
[此贴子已经被作者于2016/7/14 23:47:15编辑过]