{"id":1485,"date":"2015-10-17T10:35:41","date_gmt":"2015-10-17T14:35:41","guid":{"rendered":"http:\/\/linguagemprisma.net\/blog\/?p=1485"},"modified":"2015-10-17T14:25:01","modified_gmt":"2015-10-17T18:25:01","slug":"registro-do-windows-escrevendo-valores","status":"publish","type":"post","link":"https:\/\/linguagemprisma.br4.biz\/blog\/uncategorized\/registro-do-windows-escrevendo-valores\/","title":{"rendered":"Registro do Windows ( escrevendo valores )"},"content":{"rendered":"

Exemplo de como escrever (definir) valores no registro do Windows. Segue o c\u00f3digo comentado:<\/p>\n

\/**\r\n\r\n  exemplo 02\r\n\r\n   como escrever (definir valor) em chave de registro\r\n\r\n**\/\/\r\ninclua'win'\r\n\r\n\/\/01 - abra um registro j\u00e1 criado em modo KEY_ESCRITA (ou crie um):\r\nk = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo', KEY_ESCRITA);\r\n\r\n\/\/gravando em [HKEY_CURRENT_USER>SessionInformation]\r\n\/**\r\npoderia ser: HKEY_CLASSES_ROOT; HKEY_LOCAL_MACHINE; HKEY_USERS OU\r\nHKEY_CURRENT_CONFIG (ao crit\u00e9rio do programador.\r\n**\r\n\r\n\/\/02 use a funcao win.RegDefValor(parametros: ( chave , 'nome' , TIPO , \"valor\");\r\nse k entao \/\/caso haja erro o retorno \u00e9 nulo\r\n\r\n\/\/________________________________________________________________________\r\n\r\n\/\/03 ESCREVENDO STRING \r\nret = win.RegDefValor( k , 'TESTE_STR' , REG_SZ , conv_w'uma string em prisma');\r\n\r\nse ret entao imprima\"SUCESSO\" senao imprima\"ERRO\" fim\r\n\r\nret = win.RegDefValor( k , 'TESTE_MULTISTR' , REG_MULTI_SZ ,\r\n\/\/os argumentos podem ser em linhas diferentes sem problema, s\u00f3 n\u00e3o esque\u00e7a da v\u00edrgula\r\n{'primeira string' , 'segunda string' , 'terceira string','quarta string', 'quinta string' } );\r\n\r\nse ret entao imprima\"SUCESSO\" senao imprima\"ERRO\" fim\r\n\r\n\r\n\/\/abra o regedit e veja nessa chave acima o nome TESTE e seu valor!\r\n\r\n\/\/________________________________________________________________________\r\n\r\n\/\/04 ESCREVENDO N\u00daMERO:\r\n\r\n\/\/vamos aproveitar a mesma chave aberta, mas pode abrir outra se quiser\r\nret = win.RegDefValor( k , 'TESTE_NUM' , REG_DWORD , 1000000);\r\nse ret entao imprima\"SUCESSO\" senao imprima\"ERRO\" fim\r\n\/\/lembrando que no registro fica em formato hexa, mas a fun\u00e7\u00e3o de leitura\r\n\/\/obt\u00e9m o valor em formato n\u00famero prisma novamente.\r\n\/\/________________________________________________________________________\r\n\r\n\/\/05 ESCREVENDO BYTES(BINARIO): (passe uma tabela)\r\n\r\nret = win.RegDefValor( k , 'TESTE_BIN' , REG_BINARY , {0X01,0X04,0XFF,0XAF,0X09} );\r\nse ret entao imprima\"SUCESSO\" senao imprima\"ERRO\" fim\r\n\r\n\/\/06 n\u00e3o esque\u00e7a de fechar a chave aberta ap\u00f3s usada.\r\nwin.RegFecheChave(k); \r\n\r\nsenao \/\/se o retorno de abertura da chave for nulo, esta exce\u00e7\u00e3o ser\u00e1 executada\r\nimprima(conv_c'valor de chave inv\u00e1lido:' , k);\r\n\/\/Esta \u00e9 uma nova fun\u00e7\u00e3o simples de mensagem em win, sem t\u00edtulo e com \u00edcone de aten\u00e7\u00e3o.\r\n   win.poe( conv_w'chave n\u00e3o pode ser aberta ou n\u00e3o foi encontrada');\r\nfim\r\n\r\n\/\/modifique o nome de chave na fun\u00e7\u00e3o win.RegAbraChave acima s\u00f3 para ver o erro;\r\n\r\n\r\n<\/pre>\n
Detalhes:<\/p>\n
Veja que a fun\u00e7\u00e3o de abertura \u00e9 simples:<\/p>\n
chave\u00a0 =<\/span> win<\/span>.<\/span>RegAbraChave<\/span>(<\/span> HKEY_CHAVE<\/span> ,<\/span> ‘NomeSubchave ‘<\/span>,<\/span> KEY_TIPO<\/span>)<\/span>; em que:
\n<\/span><\/p>\n
chave \u00e9 o retorno da chave aberta ou nulo caso tenha erro.<\/p>\n
HKEY_CHAVE = \u00e9 o\u00a0 nome da chave mestra onde est\u00e1 a subchave que queremos abrir, pode ser:<\/p>\n
\n
HKEY_CLASSES_ROOT<\/span><\/div>\n
HKEY_CURRENT_CONFIG<\/span><\/div>\n
HKEY_CURRENT_USER<\/span><\/div>\n
HKEY_DYN_DATA<\/span><\/div>\n
HKEY_LOCAL_MACHINE<\/span><\/div>\n
HKEY_PERFORMANCE_DATA<\/span><\/div>\n
HKEY_USERS<\/span><\/div>\n<\/div>\n
<\/div>\n
“NomeSubchave” = nome da subchave a ser aberta.<\/div>\n
KEY_TIPO = \u00e9 o tipo de abertura da chave, veja:<\/div>\n
<\/div>\n
\n
\n
KEY_ACESSO_TOTAL<\/span> –<\/span> essa<\/span> \u00e9 \u00f3tima <\/span>se<\/span> voc<\/span>\u00ea pretende <\/span>fazer<\/span> v<\/span>\u00e1rias <\/span>coisas <\/span>com<\/span> a<\/span> mesma <\/span>chave <\/span>aberta<\/span>.<\/span><\/div>\n
KEY_CRIE_SUB_CHAVE<\/span> –<\/span> esta <\/span>serve <\/span>apenas <\/span>para<\/span> criar <\/span>uma <\/span>chave<\/span>.<\/span><\/div>\n
KEY_LEITURA<\/span> –<\/span> para<\/span> ler <\/span>um <\/span>dado <\/span>de <\/span>uma <\/span>chave <\/span>do<\/span> registro<\/span>.<\/span><\/div>\n
KEY_ESCRITA<\/span> –<\/span> para<\/span> escrever <\/span>em<\/span> uma <\/span>chave <\/span>do<\/span> registro<\/span><\/div>\n<\/div>\n<\/div>\n
<\/div>\n
Ap\u00f3s abrir a chave e gravar sua refer\u00eancia na vari\u00e1vel, podemos escrever nela:<\/div>\n
podemos escrever o valor nela. (definir valor) com a fun\u00e7\u00e3o:<\/div>\n
\n
\n
\n\n\n\n
\n
\n
ret<\/span> =<\/span> win<\/span>.<\/span>RegDefValor<\/span>(<\/span> subchave<\/span> ,<\/span> ‘nome_valor’<\/span> ,<\/span> tipo<\/span> ,<\/span> valor<\/span> )<\/span>;<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n
ret \u00e9 o retorno da fun\u00e7\u00e3o que pode ser verdadeiro em caso de sucesso ou\u00a0 nulo caso falhe.<\/p>\n
subchave \u2013 \u00e9 a chave retornada da fun\u00e7\u00e3o de RegCrieChave ou RegAbraChave.<\/p>\n
nome_valor \u2013 \u00e9 o nome da vari\u00e1vel que receber\u00e1 o valor<\/p>\n
tipo \u2013 \u00e9 o tipo do valor que pode ser:<\/p>\n<\/div>\n
\n
REG_BINARY<\/span> —<\/span> tipo<\/span> bin<\/span>\u00e1rio<\/span> \u00e9 uma <\/span>matriz <\/span>de<\/span> n<\/span>\u00fameros <\/span>bin<\/span>\u00e1rios <\/span>de<\/span> 0<\/span> a<\/span> 255<\/span> cada<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span> bin<\/span> =<\/span> {<\/span>1<\/span>,<\/span>2<\/span>,<\/span>6<\/span>,<\/span>33<\/span>,<\/span>244<\/span>,<\/span>255<\/span>}<\/span>; Ou ainda pode passar uma matriz com n\u00fameros no formato hexadecimal de 0x00 a 0xFF;\u00a0\u00a0 1 = 0x01 … 255 = 0xff; (d\u00ea uma pesquisada aqui para saber mais<\/a>). Mesmo passando em formato normal no registro ser\u00e1 visto como hexadecimal, logo depende do intuito do programador.
\n<\/span><\/div>\n
REG_DWORD<\/span> —<\/span> tipo<\/span> n<\/span>\u00famero<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span>\u00a0\u00a0<\/span>1000<\/span>;<\/span><\/div>\n
REG_EXPAND_SZ<\/span> —<\/span> tipo<\/span> de <\/span>string <\/span>com <\/span>vari<\/span>\u00e1veis <\/span>de <\/span>ambiente<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span>\u00a0\u00a0<\/span>“%TEMP%\\\\prismatemp\\\\”<\/span>;<\/span><\/div>\n
REG_MULTI_SZ<\/span> —<\/span> tipo<\/span> tabela <\/span>de <\/span>strings<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span> mult_str<\/span> =<\/span> {<\/span>“Nome”<\/span> ,<\/span> “Idade”<\/span> ,<\/span> “Telefone”<\/span> ,<\/span> “endere\u00e7o”<\/span> }<\/span>;<\/span><\/div>\n
REG_NONE<\/span> —<\/span> nenhum <\/span>tipo<\/span> definido<\/span>;<\/span><\/div>\n
REG_QWORD<\/span> —<\/span> n<\/span>\u00famero <\/span>tamb<\/span>\u00e9m<\/span>,<\/span> mas <\/span>com <\/span>suporte<\/span> a<\/span> 64<\/span> bits<\/span> (<\/span>qualquer<\/span> n<\/span>\u00famero <\/span>em<\/span> Lua<\/span> e<\/span> Prisma<\/span>)<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span> 2555<\/span><\/div>\n
REG_SZ<\/span> —<\/span> tipo<\/span> string<\/span>.<\/span> Qualquer <\/span>valor <\/span>entre <\/span>aspas<\/span>.<\/span> Ex<\/span>.<\/span>:<\/span> “Prisma – linguagem de programa\u00e7\u00e3o”<\/span>;<\/span><\/div>\n<\/div>\n
 <\/p>\n
valor = \u00e9 o valor de acordo com o tipo passado no argumento anterior.<\/p>\n
 <\/p>\n
E, por fim, n\u00e3o esque\u00e7a de fechar a chave aberta ap\u00f3s o uso:<\/p>\n
win.RegFecheChave(k);<\/pre>\n
\n
\n
 <\/p>\n
Veja um exemplo s\u00f3 de escrita bin\u00e1ria:<\/h1>\n
\/**\r\nExemplo 03 - escrevendo valores bin\u00e1rios;\r\n\r\n\u00f3timo para guardar informa\u00e7\u00f5es como cor (RGB) ou chaves de ativa\u00e7\u00e3o.\r\n\r\nFiz este exemplo separado pois o valor bin\u00e1rio \u00e9 bem diferente;\r\n\r\n\u00e9 uma matriz com a quantidade de n\u00fameros ao crit\u00e9rio do programador\r\n\r\ncada n\u00famero \u00e9 de 0 a 255 em decimal\r\n\r\nou de 0x00 a 0xff em hexa, tanto faz usar um como o outro.\r\n\r\no retorno da leitura desse tipo de dado sempre ser\u00e1 uma matriz de decimais.\r\n\r\n**\r\ninclua'win'\r\n\/**\r\nAbrindo em acesso total uma chave j\u00e1 criada, poderia ser em KEY_ESCRITA mas\r\nqueremos ler o valor depois aproveitando a mesma chave, por isso o acesso total\r\n**\/\/ :\r\nk = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo', KEY_ACESSO_TOTAL);\r\nse k entao\r\n\r\nbin = {1,20,100,255,12,13,14,254}; \/\/voc\u00ea pode criar a tabela ou passar direto como parametro em chaves.\r\n\/\/pode ser em formato numero ou hexa: tipo {0x01,0x02 ...}\r\n\/\/vamos aproveitar a mesma chave aberta, mas pode abrir outra se quiser\r\nret = win.RegDefValor( k , 'TESTE_BIN2' , REG_BINARY , bin );\r\n\r\nse ret entao imprima'SUCESSO' senao imprima'ERRO' fim\r\n\r\n\/\/agora como ler um valor bin\u00e1rio lendo\r\ntab = win.RegLeiaChaveBin( k , 'TESTE_BIN2');\r\n\r\nimprima( conv_c\"\\n\u00cdndice decimal hexadecimal \\n\" );\r\npara i = 1 , #tab inicio\r\n\/\/mostrando o ( indice, valor , e formatando valor para hexa )\r\n      imprima( '[' .. i .. ']' , tab[i] , string.formate(\"%02x\" , tab[i] )  ); \r\n\/\/o retorno da tabela \u00e9 em n\u00famero. Caso queira em hexa use o string.formate\r\nfim \/\/fim para i = 1\r\n\r\nimprima'\\n\\npressione uma tecla para sair';\r\n\/\/e por \u00faltimo nunca se esque\u00e7a de fechar a chave aberta.\r\nwin.RegFecheChave(k);\r\nfim\r\n\r\nleia();\r\n<\/pre>\n
 <\/p>\n
Espero que tenha sido \u00fatil, se gostou compartilhe, ajude este projeto.<\/p>\n
Qualquer d\u00favida use os coment\u00e1rios ou o f\u00f3rum oficial aqui.<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Exemplo de como escrever (definir) valores no registro do Windows. Segue o c\u00f3digo comentado: \/** exemplo 02 como escrever (definir valor) em chave de registro **\/\/ inclua’win’ \/\/01 – abra um registro j\u00e1 criado em modo KEY_ESCRITA (ou crie um): k = win.RegAbraChave( HKEY_CURRENT_USER , ‘PrismaInfo’, KEY_ESCRITA); \/\/gravando em [HKEY_CURRENT_USER>SessionInformation] \/** poderia ser: HKEY_CLASSES_ROOT; HKEY_LOCAL_MACHINE;…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-1485","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/1485","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/comments?post=1485"}],"version-history":[{"count":6,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/1485\/revisions"}],"predecessor-version":[{"id":1496,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/1485\/revisions\/1496"}],"wp:attachment":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/media?parent=1485"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/categories?post=1485"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/tags?post=1485"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}