2019年11月26日 星期二
hp
https://www8.hp.com/vn/en/search/search-results.html?ajaxpage=1#/page=1&/qt=hp%20z6%20g4
https://support.hp.com/vn-en/product/HP-Z6-G4-Workstation/16449901/model/16449796?jumpid=reg_r1002_vnen_s-001_title_r0003
https://support.hp.com/vn-en/product/HP-Z6-G4-Workstation/16449901/model/16449796?jumpid=reg_r1002_vnen_s-001_title_r0004
https://support.hp.com/vn-en/product/HP-Z6-G4-Workstation/16449901/model/16449796?jumpid=reg_r1002_vnen_s-001_title_r0003
https://support.hp.com/vn-en/product/HP-Z6-G4-Workstation/16449901/model/16449796?jumpid=reg_r1002_vnen_s-001_title_r0004
2019年11月14日 星期四
2019年11月7日 星期四
information
https://isvincent.pixnet.net/blog/post/47502144
https://support.office.com/zh-hk/article/取消訂閱-rss-摘要-d0053e8c-6488-4d6c-b447-026d29328f57#ID0EAABAAA=Office_2010
https://support.office.com/zh-hk/article/取消訂閱-rss-摘要-d0053e8c-6488-4d6c-b447-026d29328f57#ID0EAABAAA=Office_2010
test3
Private Sub SurroundingSub()
Dim zip As Chilkat.Zip = New Chilkat.Zip()
zip.UnlockComponent("Anything for 30-day trial")
Dim zipFilename As String = "myZip.zip"
Dim isPwdProtected As Boolean = zip.IsPasswordProtected(zipFilename)
If isPwdProtected Then
MessageBox.Show("This zip is password-protected and requires a password to open.")
Return
End If
Dim success As Boolean = zip.OpenZip(zipFilename)
If Not success Then
MessageBox.Show(zip.LastErrorText)
Return
End If
Dim entry As Chilkat.ZipEntry = zip.GetEntryByIndex(0)
If entry.CompressionMethod = 99 Then
MessageBox.Show("This zip is WinZip AES strong encrypted!")
Return
End If
Dim i As Integer
Dim n As Integer = zip.NumEntries
For i = 0 To n - 1
entry = zip.GetEntryByIndex(i)
If entry.CompressionMethod = 99 Then
MessageBox.Show("This zip is WinZip AES strong encrypted!")
Return
End If
Next
MessageBox.Show("We got here, so the Zip is not encrypted!")
End Sub
Dim zip As Chilkat.Zip = New Chilkat.Zip()
zip.UnlockComponent("Anything for 30-day trial")
Dim zipFilename As String = "myZip.zip"
Dim isPwdProtected As Boolean = zip.IsPasswordProtected(zipFilename)
If isPwdProtected Then
MessageBox.Show("This zip is password-protected and requires a password to open.")
Return
End If
Dim success As Boolean = zip.OpenZip(zipFilename)
If Not success Then
MessageBox.Show(zip.LastErrorText)
Return
End If
Dim entry As Chilkat.ZipEntry = zip.GetEntryByIndex(0)
If entry.CompressionMethod = 99 Then
MessageBox.Show("This zip is WinZip AES strong encrypted!")
Return
End If
Dim i As Integer
Dim n As Integer = zip.NumEntries
For i = 0 To n - 1
entry = zip.GetEntryByIndex(i)
If entry.CompressionMethod = 99 Then
MessageBox.Show("This zip is WinZip AES strong encrypted!")
Return
End If
Next
MessageBox.Show("We got here, so the Zip is not encrypted!")
End Sub
訂閱：
文章 (Atom)