"print" で表示させてみると意味の無い数字だけが表示されます。
普通にテキストボックスやスタティックに表示するときと違うようなので、
良い方法があれば教えて下さい。
一応コードを…
[ここをクリックすると内容が表示されます]
以上です、よろしくお願いします。コード: 全て選択
dim hKey as HKEY
dim size as long
dim oem as Byte
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion",0,0,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0)
size=255
RegQueryValueEx(hKey,"ProductId",0,NULL,VarPtr(oem),VarPtr(size))
print "Product ID:";oem