给qq好友传文件限制次数吗

给qq好友传文件是没有限制次数的，只限制文件大小。

QQ在线状态下，传输文件是没有限制，因为QQ文件传输不需要经过服务器中转；QQ离线状态下，传输文件是有上限限制的，会员等级不同，可以传送的文件的大小也不同，单个的文件不能超过4G，而且该用户的保存只有七天，逾期未接收的系统会自动删除。

腾讯QQ支持在线聊天、视频通话、点对点断点续传文件、共享文件、网络硬盘、自定义面板、QQ邮箱等多种功能，并可与饥运多棚姿种通讯终端相连。

传输文件的发送规则

在线：QQ 传输文件对于文件大小没有限制。因为 QQ 文件的传输不需要经过服务器中转，这种 P2P 形式的文件传输就是人可以直接连接到其他用户的计算机、交换文件，而不是像过去那样需要连接到服务器才可以去浏览与下载，因此没有文件大小限制。最多同时只能传 15 个文件每次，而大小不限；接收方的硬盘如果是格式，貌似不能接收超过 4G 的单个文件；

离线：离线传送的文件，为用户保存 7 天，逾期接收方不接收文件，系统将自动删除该文件；离线传送的文件，单个文件大小链肢绝上限为 4G；非会员享有 2G/天发送文件流量，文件保存 7 天；不同等级的会员用户每天拥有不同大小的离线文件发送流量。

限制工作簿的使用次数，超过次数就自我删除，改闭也不失为保护作品信歼圆的一种好方法。但这种方法需要修改注册表。

代码如下：

Private Sub Workbook_Open()

Dim counter As Long, term As Long, chk

chk = GetSetting("hhh", "budget", "使用次数", "")

If chk = "" Then

term = 50 ' 限制滑塌使用50次

MsgBox "本工作簿只能使用" &term &"次" &vbCrLf &"超过次数将自动销毁!", vbExclamation

SaveSetting "hhh", "budget", "使用次数", term

Else

ounter = Val(chk) - 1

MsgBox "你还能使用" &counter &"次,请及时注册!", vbExclamation

SaveSetting "hhh", "budget", "使用次数", counter

If counter <= 0 Then

DeleteSetting "hhh", "budget", "使用次数"

killme

End If

End If

End Sub

Public Sub killme()

Application.DisplayAlerts = False

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

ThisWorkbook.Close False

End Sub

将上述程序复制到工作簿的ThisWorkbook对象模块中，保存文件即可。

---