VB.NET Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB.NET Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
PFX
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar Archive
Upload
XML
XMP
Zip Compression
Misc

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

Byte Array
VB.NET FTPS
System.IO

 

 

 

 

 

 

Open and Unzip an AES Encrypted Zip

Open and unzip an AES encrypted Zip.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim zip As New Chilkat.Zip()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


success = zip.OpenZip("/myZips/aes.zip")
If (success <> true) Then
    MsgBox(zip.LastErrorText)
    Exit Sub
End If


'  Set the password needed to unzip.
'  This password must match the password used when the zip
'  was created.
zip.DecryptPassword = "myPassword"

Dim unzipCount As Long

'  Unzip the .zip into /unzipDir.
'  Returns the number of files and directories unzipped.
unzipCount = zip.Unzip("/unzipDir/")
If (unzipCount < 0) Then
    MsgBox(zip.LastErrorText)
Else
    MsgBox("Success!")
End If

 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.

Mail Component · XML Parser