。支持庫commobj
。subroutine _ button 1_被點擊。
編輯框2。內容=字節設置為十六進制文本(A2W(編輯框1。內容))
。子程序A2W,字節組
參數parameter _Ansi text,文本類型
。參數parameter _ code page,整型;可以空白;默認值是#CP_ACP = 0。
。局部變量local _Ansi長度,整數類型
。局部變量local _Unicode長度,整數類型。
。局部變量ret,字節集
Local _Ansi Length =取文本長度(parameter _Ansi Text)+1。
local _ Unicode length = multibyte towidechar(parameter _ code page,0,parameter _Ansi text,local _Ansi length,ret,0) × 2。
Ret =空字節集(local _Unicode長度)
。如果為true(MultiByteToWideChar(parameter _ code page,0,parameter _Ansi text,local _Ansi length,ret,local _Unicode length) = 0)
返回({0,0})
如果真的結束了。
返回(ret)
子程序字節設置為十六進制文本,文本類型
參數字節集,字節集
。局部變量變量,整數類型
。局部變量臨時文本,文本類型
整型局部變量的長度
局部變量文本,快速文本對象
。局部變量a,整數類型
長度=字節集的長度(字節集)
。計數循環頭(長度,可變)
臨時文本=十六進制文本(字節集[變量])
文字。添加("")
文字。Add(取重復文本(2-取文本長度(臨時文本)," 0 "))
文字。添加(臨時文本)
如果為真(變量% 16 = 0)'壹行顯示16字節。
文字。添加(#換行符)
如果真的結束了。
處理事件()
。計數周期尾部()
返回(文本。取文本(,)
。DLL命令MultiByteToWideChar,整數類型," kernel32。dll”,“多字節到通配符”,並將多媒體字符串映射到通配符字符串。
參數代碼頁,整數類型
參數標誌,整數類型
參數雙字節文本,文本類型
參數雙字節文本長度,整數類型
參數寬字符文本,字節集
參數寬字符文本長度,整數類型