-
Notifications
You must be signed in to change notification settings - Fork 5
/
Example.vbs
46 lines (35 loc) · 1.26 KB
/
Example.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Include "QRCode.vbs"
Const FORE_COLOR = "#000000"
Const BACK_COLOR = "#FFFFFF"
Const SCALE = 4
Call Example1
'Call Example2
Public Sub Example1()
Dim sbls: Set sbls = CreateSymbols(ERRORCORRECTION_M, 40, False)
Call sbls.AppendText("012ABCabc")
' 24bpp Bitmap File
Call sbls.Item(0).Save24bppDIB("qrcode24bpp.bmp", SCALE, FORE_COLOR, BACK_COLOR)
' 1bpp Bitmap File
' Call sbls.Item(0).Save1bppDIB("qrcode1bpp.bmp", SCALE, FORE_COLOR, BACK_COLOR)
End Sub
Public Sub Example2()
Dim sbls: Set sbls = CreateSymbols(ERRORCORRECTION_M, 1, True)
Call sbls.AppendText("012ABCabc!?,./#")
Dim fName
Dim sbl, i
For i = 0 To sbls.Count - 1
fName = "qrcode" & CStr(i) & ".bmp"
' 24bpp Bitmap File
Call sbls.Item(i).Save24bppDIB(fName, SCALE, FORE_COLOR, BACK_COLOR)
' 1bpp Bitmap File
' Call sbls.Item(i).Save1bppDIB(fName, SCALE, FORE_COLOR, BACK_COLOR)
Next
End Sub
Private Sub Include(ByVal strFile)
Dim fso: Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim strDir: strDir = fso.getParentFolderName(WScript.ScriptFullName)
Dim stream: Set stream = fso.OpenTextFile(strDir & "\" & strFile, 1)
ExecuteGlobal stream.ReadAll()
Call stream.Close
End Sub