Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
60 usuários online :: 2 usuários cadastrados, Nenhum Invisível e 58 Visitantes :: 2 Motores de busca

lucas_rabelo, thiag0ms

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Brasília
Estamos no Twitter
Nossa Comunidade
Nosso Grupo
Últimos assuntos
» Modificar TitleBar e Icone do Executavel.
Hoje à(s) 09:28 por Sub-Zero

» Criar atalho, SYS(2020) e Desktop
Ontem à(s) 23:07 por Sub-Zero

» Karaoke feito em FoxPro 2.6
Ontem à(s) 18:51 por Sub-Zero

» Como separar caminho do diretório?
Ontem à(s) 18:49 por Sub-Zero

» Erro no Projeto Chat
Ontem à(s) 15:35 por renatojunior2009

» Utilizando PHPMailer
Ontem à(s) 09:45 por paulomelo

» Programador em Visual Foxpro
Ontem à(s) 09:03 por mauro victoria

» Link PHP (Dúvida)
21/5/2012, 08:25 por BrunoMesquita

» Fundo do PROJETO Transparente??
20/5/2012, 19:48 por thiag0ms

» Minimizar , Maximizar e Restaurar
18/5/2012, 16:28 por FERNANDOMATRELLA

» Pivot Table no sql server
15/5/2012, 12:35 por edspicer

» Scroll EditBox Automatico
14/5/2012, 10:31 por Julio

» Select Nexval do FoxPro no OracleXE
10/5/2012, 00:16 por Sub-Zero

» Colocar gif na caixa do MESSAGEBOX ()
9/5/2012, 14:39 por Linghston

» Comparar Versões do programa.exe
8/5/2012, 16:10 por Linghston

» Menu lateral
7/5/2012, 02:36 por lardecristo

» Fazer com que a tela do sistema assume a janela principal
7/5/2012, 02:20 por lardecristo

» Trocar Palavra no Sistema
7/5/2012, 01:55 por lardecristo

» invocar Dll em Xbase
7/5/2012, 01:18 por lardecristo

» Fechar Porta Aberta
7/5/2012, 01:00 por lardecristo

Modificar TitleBar e Icone do Executavel.

23/5/2012, 20:17 por thiag0ms

Oi, tem como desabilitar o botao de Maximizar do TitleBar...

Eu keria simular uma TitleBar...mais …

Comentários: 2

Criar atalho, SYS(2020) e Desktop

23/5/2012, 17:57 por thiag0ms

Ola denovo...3 dúvidas...

como diz o título do tópico eu queria como criar uma atalho no …

Comentários: 3

Karaoke feito em FoxPro 2.6

23/5/2012, 11:45 por fabiomacarrao

Bom dia a todos. Desenvolvi um programa em FoxPro for windows 2.6 para karaoke. tenho mais de 2700 …

Comentários: 3

Como separar caminho do diretório?

20/5/2012, 21:30 por thiag0ms

tentei di muitas formas mais ainda não consegui...

bom, eu fis uma rotininha para que quando o …

Comentários: 10

Erro no Projeto Chat

2/5/2012, 08:37 por renatojunior2009

Bom dia Pessoal,

Estou desenvolvendo um chat , só que estou com dois erros o qual eu não sei …

Comentários: 6

Estatísticas
Temos 4048 usuários registrados
O último usuário registrado atende pelo nome de fabiomacarrao

Os nossos membros postaram um total de 14429 mensagens em 2047 assuntos

WSH para ler, gravar e excluir chaves do registro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo WSH para ler, gravar e excluir chaves do registro

Mensagem por Marcos Guedes em 12/3/2010, 13:45

Código:
WSHShell = CreateObject("WScript.Shell")


*!* Create Registry Keys
Código:
WSHShell.Popup( "Create key HKCU\MyRegKey with value 'Top level key'")
WSHShell.RegWrite( "HKCU\MyRegKey\", "Top level key")
 
WSHShell.Popup( "Create key HKCU\MyRegKey\Entry with value 'Second level key'")
WSHShell.RegWrite( "HKCU\MyRegKey\Entry\", "Second level key")
 
WSHShell.Popup( "Set value HKCU\MyRegKey\Value to REG_SZ 1")
WSHShell.RegWrite ("HKCU\MyRegKey\Value", 1)
 
WSHShell.Popup( "Set value HKCU\MyRegKey\Entry to REG_DWORD 2")
WSHShell.RegWrite( "HKCU\MyRegKey\Entry", 2, "REG_DWORD")
 
WSHShell.Popup( "Set value HKCU\MyRegKey\Entry\Value1 to REG_BINARY 3")
WSHShell.RegWrite( "HKCU\MyRegKey\Entry\Value1", 3, "REG_BINARY")


*!* Read Registry Keys
Código:
lcValue1 = WSHShell.RegRead("HKCU\MyRegKey\")
WSHShell.Popup("Value of HKCU\MyRegKey: " + lcValue1)
 
lcValue2 = WSHShell.RegRead("HKCU\MyRegKey\Entry\")
WSHShell.Popup("Value of HKCU\MyRegKey\Entry\: " + lcValue2)
 
lcValue3 = WSHShell.RegRead("HKCU\MyRegKey\Value")
WSHShell.Popup("Value of HKCU\MyRegKey\Value: " + lcValue3)
 
lnValue1 = WSHShell.RegRead("HKCU\MyRegKey\Entry")
WSHShell.Popup("Value of HKCU\MyRegKey\Entry: " + ALLTRIM(STR(lnValue1)))
 
lnValue3 = WSHShell.RegRead("HKCU\MyRegKey\Entry\Value1")
WSHShell.Popup("Value of HKCU\MyRegKey\Entry\Value1: " + ALLTRIM(STR(lnValue3(1))))


*!* Delete Registry Keys
Código:
WSHShell.Popup( "Delete value HKCU\MyRegKey\Entry\Value1")
WSHShell.RegDelete( "HKCU\MyRegKey\Entry\Value1")
 
WSHShell.Popup ("Delete key HKCU\MyRegKey\Entry")
WSHShell.RegDelete( "HKCU\MyRegKey\Entry\")
 
WSHShell.Popup ("Delete key HKCU\MyRegKey")
WSHShell.RegDelete( "HKCU\MyRegKey\")


Fonte:
[Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: WSH para ler, gravar e excluir chaves do registro

Mensagem por hugo em 12/3/2010, 14:36

muito bom

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Anexo Re: WSH para ler, gravar e excluir chaves do registro

Mensagem por djguina em 6/5/2010, 09:39

Uma dúvida...

E se eu não tiver a Chave de Registro? pra mim apresenta um erro... como perguntar pro meu sistema se existe essa chave?


Código:

OLE IDispatch exception code 0 from WshShell.RegRead: Raiz Inválida na chave de Registro "Minha chave"...

djguina
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Anexo Re: WSH para ler, gravar e excluir chaves do registro

Mensagem por Marcos Guedes em 6/5/2010, 12:04

Veja se este código ajuda:
Código:
LOCAL lcversion
lcversion = "7.0"

PUBLIC goapp
goapp = CREATEOBJECT('capp')
MESSAGEBOX(goapp.readreg('HLM','Software\Microsoft\VisualFoxpro\' + lcversion +;
   '\Registration','ProductID'))
goapp = null

DEFINE CLASS capp AS CONTAINER

   *-- Reads the windows Registry.
   PROCEDURE readreg
      * Start of Code
      LPARAMETERS tckey,tcsubkey,tcvalue
      IF PCOUNT() = 2
         tcvalue = ""
      ENDIF

      * setup environment

      LOCAL nkey, csubkey, cvalue,  cvalueread

      #DEFINE hkey_users                  -2147483645
      #DEFINE hkey_local_machine          -2147483646
      #DEFINE hkey_current_user          -2147483647
      #DEFINE hkey_classes_root            -2147483648

      DO CASE
         CASE m.tckey == "HCR"
            nkey = hkey_classes_root
         CASE m.tckey == "HLM"
            nkey = hkey_local_machine
         CASE m.tckey = "HCU"
            nkey = hkey_current_user
         CASE m.tckey = "HCR"
            nkey = hkey_classes_root
         OTHERWISE
            nkey = m.tckey
      ENDCASE

      csubkey = m.tcsubkey
      cvalue  = m.tcvalue

      * example 1
      * nKey = HKEY_LOCAL_MACHINE
      * cSubKey = "Software\VfpRegTest"
      * cValue = "TestREG_SZ"

      * example 2
      * nKey = HKEY_CLASSES_ROOT
      * cSubKey = "Spin.SpinButton\CLSID"
      * cValue = ""


      * here is where we will actually read the registry
      cvalueread = THIS.readreg_sz(nkey, csubkey, cvalue)

      IF (EMPTY(cvalueread)) THEN
         cvalueread = "REGISTRY KEY NOT FOUND"
         * MESSAGEBOX("Function Not Successful.")  && testing only
      ELSE
         * MESSAGEBOX("Function Successful.    " + cValueRead)  && testing only
      ENDIF

      RETURN cvalueread
   ENDPROC


   *-- API's used by the ReadReg method.
   PROCEDURE readreg_sz
      * This function reads a REG_SZ value from the registry. If successful,
      * it will return the value read. If not successful, it will return an empty string.

      PARAMETERS  nkey, csubkey, cvalue
      * nKey The root key to open. It can be any of the constants defined below.
      *  #DEFINE HKEY_CLASSES_ROOT          -2147483648
      *  #DEFINE HKEY_CURRENT_USER          -2147483647
      *  #DEFINE HKEY_LOCAL_MACHINE          -2147483646
      *  #DEFINE HKEY_USERS                  -2147483645
      * cSubKey The SubKey to open.
      * cValue The value that is going to be read.

      * Constants that are needed for Registry functions
      #DEFINE reg_sz  1

      * WIN 32 API functions that are used
      DECLARE INTEGER RegOpenKey IN Win32API ;
         INTEGER nHKey, STRING @cSubKey, INTEGER @nResult
      DECLARE INTEGER RegQueryValueEx IN Win32API ;
         INTEGER nHKey, STRING lpszValueName, INTEGER dwReserved,;
         INTEGER @lpdwType, STRING @lpbData, INTEGER @lpcbData
      DECLARE INTEGER RegCloseKey IN Win32API INTEGER nHKey

      * Local variables used
      LOCAL nerrcode      && Error Code returned from Registry functions
      LOCAL nkeyhandle    && Handle to Key that is opened in the Registry
      LOCAL lpdwvaluetype && Type of Value that we are looking for
      LOCAL lpbvalue      && The data stored in the value
      LOCAL lpcbvaluesize && Size of the variable
      LOCAL lpdwreserved  && Reserved Must be 0

      * Initialize the variables
      nkeyhandle = 0
      lpdwreserved = 0
      lpdwvaluetype = reg_sz
      lpbvalue = ""

      nerrcode = regopenkey(nkey, csubkey, @nkeyhandle)
      * If the error code isn't 0, then the key doesn't exist or can't be opened.
      IF (nerrcode # 0) THEN
         RETURN ""
      ENDIF

      lpcbvaluesize = 1
      * Get the size of the data in the value
      nerrcode=regqueryvalueex(nkeyhandle, cvalue, lpdwreserved, @lpdwvaluetype, @lpbvalue, @lpcbvaluesize)

      * Make the buffer big enough
      lpbvalue = SPACE(lpcbvaluesize)
      nerrcode=regqueryvalueex(nkeyhandle, cvalue, lpdwreserved, @lpdwvaluetype, @lpbvalue, @lpcbvaluesize)

      =regclosekey(nkeyhandle)
      IF (nerrcode # 0) THEN
         RETURN ""
      ENDIF

      lpbvalue = LEFT(lpbvalue, lpcbvaluesize - 1)
      RETURN lpbvalue
   ENDPROC


ENDDEFINE

Fonte:
- [Você precisa estar registrado e conectado para ver este link.]

_________________
Marcos Guedes - Programador e desenvolvedor Web.

Convidado, seja nosso seguidor no Twitter:
twitter.com/programacaobras

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum