(Visual Basic 6.0) Generate S3 Signed URL

Demonstrates how to generate a pre-signed S3 URL.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp

' Insert your access key here:
http.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

' Insert your secret key here:
http.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

Dim bucketName As String
bucketName = "testbucket"
Dim path As String
path = "starfish.jpg"

Dim expireTime As New CkDateTime
success = expireTime.SetFromCurrentSystemTime()
Dim bLocalTime As Long
bLocalTime = 0
' Set the expiration time to 1 hour from the current time.
success = expireTime.SetFromUnixTime(bLocalTime,expireTime.GetAsUnixTime(bLocalTime) + 3600)

Dim signedUrl As String
signedUrl = http.S3_GenerateUrl(bucketName,path,expireTime)

If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
Else
    Debug.Print signedUrl
End If