主题：[求助]拖拽或选择多文件向好友发送

我认为内置的QQ聊天窗口向多位好友发送多文件时不是很方便，于是设计了拖拽或选择多文件向好友发送的窗口。

语法为：

SendChatFile

用于向好友或者会议发送文件。

SendChatFile(BuddyName, FileName，ShowProcess)

请老师看看这个发送按钮的代码有何不对？是否可以多文件、多好友批量发送？

Dim ary() As String = e.Form.Controls("CheckedListBox1").Value.split(",")   '复选列表框用户名
For Each s As String In Ary
    'msgbox(s)
    For Each u As UserInfo In Users
        If s = u.Name Then
            Dim ay() As String = e.Form.Controls("ListBox1").Value.split(",")   '列表框文件路径
            For Each ss As String In Ay
                QQClient.SendChatFile(u.Group & "." & u.Name,ss)   '可离线发送文件
            Next
        End If
    Next
Next

此主题相关图片如下：image 1.jpg

附件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:文件拖放-发送.table

思路很好，现在有什么问题？

刚做的例子，没有经过发送测试，想省点时间。

那就测试后，再向老师请教。

提示未设置变量

1、你连接qqclient了吗？

2、加入msgbox定位出错的位置。

甜版主好！

已连接qqclient。

测试代码：

Dim ary() As String = e.Form.Controls("CheckedListBox1").Value.split(",")   '复选列表框用户名
    For Each s As String In Ary
msgbox(s)----勾选两个，弹出第一个，然后...
        For Each u As UserInfo In Users
msgbox(1)------弹出多个1.....
            If s = u.Name Then
msgbox(2)-----弹出2....
                Dim ay() As String = e.Form.Controls("ListBox1").Value.split(",")   '列表框文件路径
msgbox(3)------弹出报错窗口....
                For Each ss As String In Ay
msgbox(ss)
                    QQClient.SendChatFile(u.Group & "." & u.Name,ss)   '可离线发送文件
msgbox(4)

......

 测试动图： 

此主题相关图片如下：gif.gif

还报过这个错：

此主题相关图片如下：image 2.jpg

改成

            For Each ss As String In e.Form.Controls("ListBox1").Items
                QQClient.SendChatFile(u.Group & "." & u.Name,ss)   '可离线发送文件
            Next

向老师反馈测试情况：发送成功！

如果好友在线，QQ聊天窗口直接可以接收到：项目路径\QQClient\ReceivedFiles\....

如果离线，需下载，下载到的地址同上。

Dim ary() As String = e.Form.Controls("CheckedListBox1").Value.split(",")                        '复选列表框用户名
For Each s As String In Ary
    'msgbox(s)
    For Each u As UserInfo In Users
        If s = u.Name Then
              For Each ss As String In e.Form.Controls("ListBox1").Items
              QQClient.SendChatFile(u.Group & "." & u.Name,ss)                                     '可离线发送文件

              QQClient.SendChatMessage(u.Group & "." & u.Name,"{!}好友发送文件,请到QQ窗口下载!")    '弹窗提醒好友
            Next
        End If
    Next
Next

另外，想问下甜老师，有没有发送文件夹的方法？

压缩成zip后，发送 http://www.foxtable.com/webhelp/scr/2075.htm