Encode Unicode Value to QR Code - VBScript and VB6
QR Code SDK sample in VBScript and VB6 demonstrating ‘Encode Unicode Value to QR Code’
UnicodeValue.vbs
��' C r e a t e a n d a c t i v a t e Q R C o d e i n s t a n c e
S e t b a r c o d e = C r e a t e O b j e c t ( " B y t e s c o u t . B a r C o d e . Q R C o d e " )
b a r c o d e . R e g i s t r a t i o n N a m e = " d e m o "
b a r c o d e . R e g i s t r a t i o n K e y = " d e m o "
' S e t b a r c o d e v a l u e
b a r c o d e . V a l u e = " A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 1 2 3 4 5 6 7 8 9 0 "
' S e t t h e c h a r a c t e r e n c o d i n g t o U T F - 1 6
b a r c o d e . S e t C h a r a c t e r E n c o d i n g " u t f - 1 6 "
' S e t U n i c o d e b a r c o d e v a l u e
b a r c o d e . V a l u e = " �e,g"
' S h o w b a r c o d e c a p t i o n ( o p t i o n a l )
b a r c o d e . D r a w C a p t i o n = T r u e
' S a v e b a r c o d e i m a g e t o f i l e
b a r c o d e . S a v e I m a g e ( " r e s u l t . p n g " )
' O p e n t h e i m a g e i n d e f a u l t i m a g e v i e w e r ( f o r d e m o p u r p o s e )
S e t s h e l l = C r e a t e O b j e c t ( " W S c r i p t . S h e l l " )
s h e l l . R u n " r e s u l t . p n g " , 1 , f a l s e
S e t s h e l l = N o t h i n g
S e t b a r c o d e = N o t h i n g