SendFile

用代码向好友或服务器发送文件。

向好友发送文件的语法：

SendFile(BuddyName, FileName,ShowProcess)

BuddyName：  好友名。
FileName：   文件名，含路径。
ShowProcess：可选参数，辑型，是否显示发送进度，默认为False。

向服务器发送文件的语法：

SendFile(FileName,ShowProcess)

FileName：   文件名，含路径。
ShowProcess：可选参数，逻辑型，是否显示发送进度，默认为False。

用SendFile向好友发送文件时，如果好友不在线，将直接返回，并不会以离线文件形式发送。

例如：

Dim bd As QQBuddy = QQClient.Buddies("技术部.林欣华")
If bd.OnLine Then '如果对方在线
    QQClient.SendFile("技术部.林欣华","c:\data\151022.doc")
End If

SendFile采用异步方式，在后台静默发送文件，当文件发送完毕后，会通过事件来通知双方：

1、发送方会触发OpenQQ客户端事件AfterSendFile。
2、如果是向好友发送，接收方会触发OpenQQ客户端事件AfterReceiveFile。
3、如果是向服务器发送，接收方会触发OpenQQ服务端事件AfterReceiveFile。