版本2
支持庫xplib
。子程序_ _開始窗口_已創建
。本地變量註冊碼，文本類型
。局部變量註冊表，文本類型
XP風格(1)
註冊碼= to text(取硬盤特征字()+2234240× 0)
Registry = to text(取文本註冊項(4，“軟件\史策\ zhucema”，))
。If(註冊碼=註冊表)
加載(窗口1，假)
銷毀()
否則。
編輯框1。Content = to text(取硬盤特征字())
如果結束了
。subroutine _ button 1_被點擊。
。如果(編輯框2。Content = to text(取硬盤特征字()+2234240× 0))
信息框("註冊成功"，0，)
將註冊項(4，“軟件\史策\ zhucema”)寫入正文(取硬盤特征字()+2234240× 0)。
加載(窗口1，假)
銷毀()
否則。
信息框("註冊失敗"，0，)
如果結束了
。子程序_按鈕2_被點擊
結束()
-
註冊源代碼
版本2
支持庫xplib
。裝配窗裝配1
。子程序_ _開始窗口_已創建
XP風格(1)
。subroutine _ button 1_被點擊。
。本地變量註冊碼，文本類型
局部變量機器碼，整數類型
機器代碼=到壹個整數(編輯框1。內容)
註冊碼=文本(機器代碼+2234240× 0)
編輯框2。內容=註冊碼
。子程序_按鈕2_被點擊
銷毀()
==================================================
答案來源→精藝論壇。想學軟件的可以去“精藝論壇”看看。
精藝論壇→專業易語言技術交流學習平臺。不用英語也可以寫軟件。