- 博客(0)
- 资源 (19)
- 收藏
- 关注
jdk7_131下载链接
Jdk1.7补丁 支持 TLS1.2
For JRE 1.7.0_131-b31 in Oracle site :
TLSv1.2 and TLSv1.1 are now enabled by default on the TLS client end-points. This is similar behavior to what already happens in JDK 8 releases.
2020-05-26
CSM0 avi 播放器
播放 CSM0 编码的 AVI ,曾尝试过多种播放器和解决方法,通过错误提示内容找到的此播放器
增加Csmscreen AVI Lossless Video Codec 1.1.1 (播放上交大课件教程专用)
2019-03-27
JAVA SortList 通用排序类
JAVA SortList 通用排序类
从网上搜到一个java 对 List 排序的工具,自己改了下 支持 整数 和 浮点数 比较后排序,浮点数小数部分的有点问题,期待大牛帮忙优化。
2013-10-12
正则表达式测试器RegexTester
测试正则表达式是否正确的小工具。
如果无法启动,请自行下载安装 Microsoft .Net Framework 4.0 Client Profile 后再试:
http://www.microsoft.com/downloads/zh-cn/details.aspx?familyid=5765d7a8-7722-4888-a970-ac39b33fd8ab&displaylang=zh-cn
2011-12-22
HJMac(安装成功后用这个引导) MAC OS Lion VM引导iso
HJMac(安装成功后用这个引导)
MAC OS Lion VM引导iso
用于VMware 安装完 苹果 狮子系统后,通过iso引导进去苹果系统
2011-12-22
excel vbs project密码破解
1、打开任一excel文件
2、在宏里粘贴下面的代码
3、运行下面的代码
4、选择需要破解密码的文件
5、点击“打开”
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla&*.xlsx),*.xls;*.xla;*.xlsx", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla&*.xlsx),*.xls;*.xla;*.xlsx", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
Else
FileCopy FileName, FileName & ".bak"
End If
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
End If
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Else
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
End If
Close #1
End Function
2011-12-22
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人