Import "D:\按鍵精靈\按鍵精靈2014\plugin\vbsjson.vbs"

Set json = New vbsJson

Call 獲取access_token

Call 區(qū)域截圖OCR

Sub 獲取access_token

// 從ini配置文件讀取 API_KEY 和 SECRET_KEY

API_KEY = Plugin.File.ReadINI("key", "API_KEY", "D:\百度OCR.ini")

SECRET_KEY = Plugin.File.ReadINI("key", "SECRET_KEY", "D:\百度OCR.ini")

// 獲取access_token

Set tokenPost = CreateObject("Msxml2.ServerXMLHTTP.3.0")

tokenPost.Open "Post", "https://aip.baidubce.com/oauth/2.0/token?grant_type=client_credentials&client_id=" & API_KEY & "&client_secret=" & SECRET_KEY, False

tokenPost.Send?

If tokenPost.readyState = 4 Then?

// TracePrint tokenPost.responsetext

Set obj = json.Decode(tokenPost.responsetext)

// TracePrint obj("access_token")

access_token = obj("access_token")

End If

tokenPost.abort

Set tokenPost = Nothing

End Sub

Sub 區(qū)域截圖OCR

Call Plugin.Pic.PrintScreen(0, 0, 1000, 100, "D:\OCR測試截圖.bmp")

Set xPost = CreateObject("Msxml2.ServerXMLHTTP.3.0")

xPost.Open "Post", "https://aip.baidubce.com/rest/2.0/ocr/v1/accurate?access_token=" & access_token, False

xPost.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

base64Param = "image=" & ImagesToBase64("D:\OCR測試截圖.bmp") & "&recognize_granularity=small"

xPost.Send (base64Param)

If xPost.readyState=4 Then

?? TracePrint xPost.responsetext

?? Set obj = json.Decode(xPost.responsetext)

?? wordsArray = obj("words_result")

?? For i = 0 To UBound(wordsArray)

?? TracePrint wordsArray(i)("words")

?? TracePrint wordsArray(i)("location")("top")

?? If wordsArray(i)("words") = "新建打開保存保存退出調(diào)試錄制抓抓發(fā)布資源庫學(xué)習(xí)中心" Then?

?? For j = 0 To UBound(wordsArray(i)("chars"))

?? If wordsArray(i)("chars")(j)("char") = "調(diào)" Then?

?? MoveTo wordsArray(i)("chars")(j)("location")("left"), wordsArray(i)("chars")(j)("location")("top")

?? End If

?? Next

?? End If

?? Next

End If

xPost.abort

Set xPost = Nothing

End Sub

// 圖片轉(zhuǎn)Base64

Function ImagesToBase64(FilePath)

Dim xml

Dim root

Dim fs

Dim objStream

Dim objXMLDoc

Dim Base64

Set objXMLDoc = CreateObject("Microsoft.XMLDOM") // 可以訪問和操作XML文檔

objXMLDoc.loadXML "<?xml version='1.0' ?><data></data>" // 導(dǎo)入指定字符串的XML文檔

Set fs = createObject("Scripting.FileSystemObject") // 可以操作磁盤、文件夾或文本文件

If fs.FileExists(FilePath) Then // 判斷文件是否存在

'用 stream 來讀取數(shù)據(jù)

Set objStream = CreateObject("ADODB.Stream") // 可以存取二進(jìn)制數(shù)據(jù)或者文本流

objStream.Type = 1 // 表示二進(jìn)制數(shù)據(jù)

objStream.Open // 打開objStream

objStream.LoadFromFile FilePath // 加載文件數(shù)據(jù)（下載圖片用SaveToFile）

objXMLDoc.documentElement.dataType = "bin.base64" // 設(shè)置節(jié)點(diǎn)數(shù)據(jù)類型

objXMLDoc.documentElement.nodeTypedvalue = objStream.Read // 從objStream讀取，再存儲到根節(jié)點(diǎn)（objXMLDoc.documentElement代表XML文檔的根節(jié)點(diǎn)）

'數(shù)據(jù)流讀取結(jié)束.得到了值 objXMLDoc

'創(chuàng)建XML文件

Set xml = CreateObject("Microsoft.XMLDOM")

xml.load objXMLDoc // 導(dǎo)入指定位置的XML文檔

If xml.ReadyState > 2 Then // 0:未初始化；1：載入；2：載入完成；3：交互；4：完成

Set root = xml.getElementsByTagName("data")// 返回指定名字的節(jié)點(diǎn)集合（可能會有多個重名節(jié)點(diǎn)）

Base64 = root(0).Text

// Base64 = Replace(Base64, vbLf, "") // 去除換行（vbLf相當(dāng)于chr(10)）（可以不去除）

Base64 = Replace(Base64,"+","%2B") // 替換加號（文檔未說明，但需要此操作，而且不要進(jìn)行urlencode）

Else

Base64 = ""

End If

Set xml = Nothing

Set objStream = Nothing

Else // 文件不存在

Base64 = ""

End If

Set fs = Nothing

Set objXMLDoc = Nothing

ImagesToBase64 = Base64

//TracePrint ImagesToBase64

End Function