|
MessengerYouLike
|
|
When a Online Contact Wants to send a file then this event is fired
public event OnReceiveFileRequest;
Public Event OnReceiveFileRequest(ByVal Friendusername As String, ByVal FileName As String, ByVal FileSize As Long, ByVal FileTransferID As String, ByVal FileEncryption As Boolean)
|
Return Values |
Description |
|
ByVal Friendusername As String |
Username of friend that sent the file |
|
ByVal FileName As String |
Name of file |
|
ByVal FileSize As Long |
Size of file in bytes |
|
ByVal FileTransferID As String |
File Transfer ID |
|
ByVal FileEncryption As Boolean |
File encrypted or not? |
When sub IMSDK.IMClient.BeginSendFile is called then on Friend IMClient this event is fired asking to accept or reject the file transfer
[Visual Basic] Private Sub MC_OnReceiveFileRequest(ByVal Friendusername As String, ByVal FileName As String, ByVal FileSize As String, ByVal FileTransferID As String, ByVal FileEncryption As String) Handles MC.OnReceiveFileRequest Debug.WriteLine("On Receive Fil eRequest : Friendusername = " & Friendusername & " FileName= " & FileName & " FileSize=" & FileSize & " FileTransferID=" & FileTransferID & " FileEncryption=" & FileEncryption) Dim rfr As New ReceiveFileRequest rfr.lblTXT.Text = "Username : " & Friendusername & " Wants to send a " & vbCrLf & "File :" & FileName & vbCrLf & "File Size : " & FileSize & vbCrLf & "File Transfer ID :" & FileTransferID & vbCrLf & "File Encryption :" & FileEncryption If rfr.ShowDialog = Windows.Forms.DialogResult.OK Then Debug.WriteLine("ok") rfr.Close() MC.BeginFileRequestAccepted(Friendusername, FileTransferID) Else Debug.WriteLine("cancel") rfr.Close() MC.BeginFileRequestRejected(Friendusername, FileTransferID) End If End Sub