Pesquisar na Comunidade

Boa noite pessoal tudo tranquilo com vocês?. Então, eu tenho um Servidor de Tibia, Nesse Jogo Possui a pasta do CLlENTE. Os Arquivos contidos são separados em 4: Tibia.exe ( Executável) Estes dois arquivos abaixo são responsáveis por armazenar "Sprites" que são desenhos em pixels, é possível abri-los com um Programa chamado Object Builder, nele estão armazenados os "Efeitos, roupas, itens" etc. Tibia.dat e Tibia.Spr O arquivo abaixo é responsável pela imagem de fundo do jogo Tibia.pic Bom, agora que expliquei o básico vamos continuar. Geralmente quando lançam um jogo de tibia, esses arquivos ficam á mostra, ou seja livre para serem ripados (roubados) perdendo assim todo o tempo de criação de um desenho próprio do servidor de outra pessoa. E esse é o problema. Eu quero criptografar os arquivos .SPR .Dat e .PIC, em .cab para que os Jogadores abram somente Executável do jogo Tibia.exe, fazendo assim o Tibia.exe ler o .cab, mas que o arquivo .cab criptografado com os arquivos do jogo não possam ser descriptografados com winrar, .zip, etc . Asism portegendo o Jogo de ripping Aqui está um exemplo de proteção com arquivo .cab e outras dll. mas não faço ideia de como usa-las. Se for possível eu injetar essas mesmas dll's no meu executavel e criar um Arquivo .cab como o da imagem seria ótimo Se alguém puder me ajudar eu agradeço muito!

Prezados, boa noite estou "montando" um código para entrar em um site da empresa onde trabalho, depois ele clica em um hiperlink , depois preenche alguns dados e por fim ele copia estes dados para do excel porém já tentei de diversas forma seja com códigos, sendkeys e etc e tal, mas não consigo copiar os benditos dados para o EXCEl Application.ScreenUpdating = False Dim IE As Object Dim W As Worksheet Dim x As Variant Dim A as Worksheet Set IE = CreateObject("InternetExplorer.application") Set W = Sheets("Plan3") Set A = Sheets("Plan1") With IE .Visible = True .Navigate ("colocar o site") 'aqui eu defino o site While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar .Document.getElementById("Login1_UserName").Focus 'focaliza aonde coloco meu login .Document.getElementById("Login1_UserName").Value = "digitar login" 'aqui eu coloco meu login .Document.getElementById("Login1_Password").Focus ' focalizo onde colocarei a senha .Document.getElementById("Login1_Password").Value = "digitar senha" 'aqui coloco a senha .Document.all("Login1_LoginButton").Click 'clico no boão para logar While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar 'espera carregar .Document.all("ctl00_ContentPlaceHolder1_ctl02_HyperLink17").Click 'acessa uma opção na página para eu buscar os filtros While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera mais um pouquinho .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Focus 'focaliza aonde vou colocar a empresa procurada .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Value = W.Range("E1").Value 'seleciono uma empresa a procurar de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espesra mais um tico .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Focus 'focaliza aonde vou colocar uma data inicial .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Value = W.Range("N5").Text 'aqui é colocado a data inicial de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espero... .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Focus 'focaliza aonde vou colocar uma data final .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Value = W.Range("P5").Text 'aqui é colocado a data final de acordo com uma célula na planilha .Document.all("ctl00_ContentPlaceHolder1_btnBuscaPorPeriodo").Click 'clico para filtrar agora eu precisaria copiar uma tabela que tem o ID "ctl00_ContentPlaceHolder1_UPNotas" e colar na célula A1 da Plan 1 (colar em A.range("a1") como fazer para copiar e colar esta tabela ?? Poor favoor, me ajudeeeeem...