Puncker

{Fazer janela piscar na barra de tarefas (Igual à MSN)} Não tenho muito o que falar, é igual quando uma pessoa te chama no MSN e o seu msn fica piscando na barra de tarefas. Dê dois cliques no form do seu projeto para ir para os códigos. Após: implementation {$R *.dfm} Adicione isto: procedure flash; var FWInfo: FLASHWINFO; begin with FWInfo do begin cbSize:=SizeOf(FWInfo); //Tamanho do struct em bytes hWnd:=Application.Handle; //Handle da janela dwFlags:=FLASHW_TRAY; //Piscar na barra de tarefas uCount:=5; //Piscar cinco vezes dwTimeOut:=200; //Tempo de duração de cada piscada em milisegundos end; FlashWindowEx(FWInfo); Sleep(300); end; Agora para usar a função flash (coloque em algum botão ou outro componente) chame a função usando este código: flash; Pronto, a função foi adicionada e você pode usa-la no componente que quizer que suporte chamar uma função.

{Salvando e carregando conteúdo de Listbox, Memo etc.. em arquivos de texto} A maioria dos componentes do Delphi que possuem alguma entrada de texto tem uma função que salva e carrega esses textos. A seguir vou citar como usar as funções. Memo Salvando o conteúdo do Memo: Memo1.Lines.SaveToFile('Arquivo.txt'); Sendo a extenção do arquivo não obrigatoriamente .txt pode ser ao seu gosto como .oi, .phm, etc... Carregando o conteúdo contido no arquivo de texto: Memo1.Lines.LoadFromFile('Arquivo.txt'); Se o arquivo não existir ele retornará um erro. ListBox Salvando o conteúdo do listbox: listbox1.Items.SaveToFile('Arquivo.txt'); Carregando o conteúdo contido no arquivo de texto: listbox1.Items.SaveToFile('Arquivo.txt');

\o/ Muito bom, para quem quer mesmo criar um bot, leia este tópico e leia com atenção, isso tudo fará falta se não souber ao criar um bot. REP++

{Manipulando arquivos de configuração .ini} O que é um arquivo INI ? Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários ; Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Secções(FileName) , Entradas e Valores. Como por exemplo: Eu quero que o usuário digite algo em um "EditBox" mas que o que ele digite fique guardado e sempre seja usado, então irei gravar o que ele digitou em um arquivo .ini (Chamado de arquivo de inicialização mas também pode ser chamado de configuração) e quando eu quizer usar o que o usuário digitou eu busco dentro do arquivo .ini. Funções Primeiramente em seu projeto do VB adicione um novo "Module" chamado "INIread.vb" e outro chamado "INIwrite.vb". (para criar um novo module, clique com botão direito no primeiro item da lista do Solution Explorer, Add > Module) Dentro do INIread.vb apague tudo e cole isso: Option Strict Off Option Explicit On Module INIread Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String Dim NF As Short Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase(KEY) & "]" Variable = LCase(Variable) EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) While Not EOF(NF) Temp = LineInput(NF) LcaseTemp = LCase(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid(Temp, 1 + Len(Variable & "=")) FileClose(NF) : Exit Function End If End If End While FileClose(NF) End Function End Module E dentro do INIwrite.vb cole isso: Option Strict Off Option Explicit On Module INIwrite Public Function WriteIniValue(ByRef INIpath As String, ByRef PutKey As String, ByRef PutVariable As String, ByRef PutValue As String) As Object Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Short Dim HIKEY As Short Dim KEYLEN As Short Dim VAR As Short Dim VARENDOFLINE As Short Dim NF As Short Dim X As Short AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase(PutKey) & "]" & Chr(13) KEYLEN = Len(ReadKey) ReadVariable = Chr(10) & LCase(PutVariable) & "=" EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) Temp = InputString(NF, LOF(NF)) Temp = vbCrLf & Temp & "[]" FileClose(NF) LcaseTemp = LCase(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable GoTo RenewVariable AddKey: Temp = Left(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString AddVariable: Temp = Left(Temp, Len(Temp) - 2) Temp = Left(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString RenewVariable: Temp = Left(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr(13)) Temp = Left(Temp, VAR) & PutVariable & "=" & PutValue & Mid(Temp, VARENDOFLINE) GoTo TrimFinalString TrimFinalString: Temp = Mid(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right(Temp, 1) > Chr(13) Temp = Left(Temp, Len(Temp) - 1) Loop Do Until Left(Temp, 1) > Chr(13) Temp = Mid(Temp, 2) Loop OutputAmendedINIFile: FileOpen(NF, INIpath, OpenMode.Output) PrintLine(NF, Temp) FileClose(NF) End Function End Module Pronto as funções agora estão funcionando em seu projeto. Aparecerá 2 warnings mas ignore. Como usar as funções? Vamos definir uma variável "File" que será o caminho do arquivo .ini. Dim File as String Agora vamos atribuir um valor para a variável file. File = "C:\teste.ini" E agora? Como escrever/gravar ou ler este arquivo? Para escrever/gravar: WriteIniValue(File, "Teste", "Valor1", "Oi") Código inteiro (Coloque em algum botão ou algo do tipo): Dim File as String File = "C:\teste.ini" WriteIniValue(File, "Teste", "Valor1", "Oi") O arquivo .ini após ele executar isso ficara assim: [Teste] Valor1=Oi Agora vamos ler e exibir o que está escrito no arquivo .ini (Coloque em algum botão ou algo do tipo) Dim Str as String Str = ReadIniValue(File, "Teste", "Valor1") MsgBox(Str) Com essas funções você pode criar várias idéias, use a sabedoria e crie idéias perfeitas com isto.

{Pegando nome da janela ativa} O que é "a janela ativa"? Janela ativa é a janela em que você está no desktop, como por exemplo se você está usando o navegador Firefox o nome lá em cima "TibiaBots - Mozilla Firefox" é o nome da janela ativa pois você está nela. 1 - Componentes Adicione um "Edit" da aba "Standard" Adicione um "Timer" da aba "System" 2 - Código Dê dois cliques no Timer e adicione o seguinte código: var titulo: string; begin setlength( titulo, 255 ); GetWindowText( GetforegroundWindow, PChar(titulo), 255); Edit1.Text := trim( titulo ); Pronto , Simples, Fácil e Prático. Para testar seu projeto basta apertar F9 que ele irá compilar e abrir o programa em modo debug.

{Tirar screenshoot ao upar} Código: var Level: integer; begin UpdateWorld; Level := Self.Level; while not Terminated do begin UpdateWorld; if Level <> Self.Level then begin Level := Self.Level; ScreenShot('c:\level' + IntToStr(Level) + '.jpg'); end; Sleep(1000); end; end; Ou Baixe Ou baixe: sshup.ng

Simples e útil. REP++

{Auto-Utamo} Script: while not terminated do begin UpdateWorld; if not Self.MagicShield then begin Self.Say('Utamo Vita'); Sleep(2000); end; sleep(100); end; Ou baixe: utamo.ng

Gold to Platinum, Platinum to Crystal (OTs) Script que transforma Gold em Platinum e Platinum em gold quando estiverem na quantidade 100, porém isso só funciona em OTs. Script: procedure StackItems; var T: array of integer; x, y, z: integer; Temp: integer; begin UpdateWorld; T := VarArrayCreate([0, 19] , 3); Temp := -1; for x := 0 to Self.Containers.Count - 1 do begin if x >= Self.Containers.Count then Break; for z := 0 to Self.Containers.Container[x].Count - 1 do begin T[z] := Self.Containers.Container[x].Item[z].ID; end; for y := 0 to Self.Containers.Container[x].Count - 1 do begin if y >= Self.Containers.Container[x].Count then Break; if Self.Containers.Container[x].Item[y].Properties.Pilable then begin if Self.Containers.Container[x].Item[y].Amount < 100 then begin for z := y + 1 to Self.Containers.Container[x].Count - 1 do begin if T[z] = Self.Containers.Container[x].Item[y].ID then begin if Self.Containers.Container[x].Item[z].Amount < 100 then begin Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0); end; end; end; end; end; end; end; end; while not Terminated do begin UpdateWorld; StackItems; for x := 0 to Self.Containers.Count - 1 do begin for y := 0 to Self.Containers.Container[x].Count - 1 do begin if Self.Containers.Container[x].Item[y].ID = 3031 then // ID do GOLD begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; end; end else if Self.Containers.Container[x].Item[y].ID = 3035 then // ID do Platinum begin if Self.Containers.Container[x].Item[y].Amount = 100 then begin Self.Containers.Container[x].Item[y].Use; Break; end; end; end; end; Sleep(1000); end; Ou baixe: gold.ng

Freeware não é =\, mas os Cracks estão para download no tópico e o 2010 já vem com crack.

Da sim, é só digitar Tibia no primeiro Edit e depois o que você quer no segundo Edit.

{Downloads do Delphi} Delphi 7 Delphi 7 - Uploading Crack - SourceForge Delphi 2010 Embarcadero (ISO) Delphi XE 3 Embarcadero (ISO) Delphi XE 4 Embarcadero (ISO) Delphi XE 5 Embarcadero (ISO) Delphi XE 6 Embarcadero (ISO) Delphi XE 7 Embarcadero (ISO) Para as versões que não possuem o crack, o crack deve ser obtido por conta própria.

To vendo o tibia cheio de bots agora.... Huasuhasuahs. Muito bom

Alterando nome de janelas {Iniciando em Delphi} Está aqui mais um tutorial de Delphi. O programa que será feito a seguir irá alterar o nome da janela que você quizer por exemplo, você está com o Firefox aberto e você digita no programa Firefox(nome da janela), e em outro lugar um novo nome, ao clicar no botao o nome da janela Firefox muda. Vamos Começar 1 - Componentes Adicione ao seu projeto, 2 "Edit" na aba Standard Adcione um "Button" também na aba Standard 2 - Código No Button coloque o seguinte código: var H : THandle; begin H := findWindow(nil, PChar(Edit1.Text)); if H <> 0 then begin SetWindowText(H, PChar(Edit2.Text)); showmessage('Nome alterado com sucesso.') end else begin ShowMessage('Janela não encontrada.'+#13+'Tente Novamente.'); end; Pronto, seu programa está pronto para rodar, agora aperte F9 (Compila e Testa) e verifique se está tudo correto.

Muito bom o tuto o/, ajuda muitos que estão iniciando na criação de bots. REP++

Concordo que Delphi está meio ultrapassado, mas ele tem bastantes funções e usabilidade. Ta aqui o wallpaper:

Isso mesmo que o renato falou, apenas toma ban se enviar pacotes. Qualquer bot que contenha algum cavehunting ou looter, pode ficar ciente que envia pacotes ou não se o bot usa métodos mais simples só que menos funcional. Vou usar como exemplo o BBot, sabe aquelas mensagens que aparecem todas coloridinhas quando você usa alguma magia? E essas mensagens mostram o tempo da sua magia? Então... Isso é puro envio de packets, porém acho que esse do BBot não envolve relação com o servidor do game, apenas com o client.

Parabéns, gostei muito da sua lista. Quando alguem inicia programação em Delphi, sempre acontece de ficar perdido nas abas do Delphi, tentando encontrar algum componente. Abraços.

Inserindo Skin no seu projeto Delphi {Iniciando em Delphi} Muitos gostam de programas estilosos, com uma aparência bonita, mas não sabem como alterar isso. Então vou ensinar como colocar "Skins" em um projeto do Delphi. Necessário: VCL Skin Pacote de Skins O que é VCL Skin? VCL Skin é um componente do Delphi, que pode ser integrado ao Delphi, após ele ser integrado ele aparece nas abas do Delphi, e você poderá usar as suas funções. 1 - Instalando o Componente Após ter baixado o VCLSkin extraia ele, agora dentro das pastas extraídas haverá uma chamada Package, nessa pasta como você verá tem muitos arquivos. Destes arquivos abra o WinSkinD7R.dpk. Irá aparecer algo parecido com um projeto de Delphi porém sem o form. Agora clique em "Compile" e logo depois em "Install" depois de instalar aparecerá uma mensagem confirmando que foi instalado, agora feche o Delphi. E nas pastas extraídas do VCLSkin vá na pasta "Source" copie tudo que tem na pasta e cole em: C:\Program Files\Borland\Delphi7\Lib (Pasta do Delphi Windows Vista/Windows 7) C:\Arquivos de Programas\Borland\Delphi7\Lib (Pasta do Delphi Windows XP) Pronto ele está prontinho para funcionar mas agora a parte de inserir "Skin" no projeto. 2 - Inserindo os Skins Após ter completado a etapa de instalar o componente agora você poderá deixar seu programa mais bonito. Abra o Delphi e inicie um novo projeto caso não exista um. Após fazer isso nas abas vá até o final usando a seta ">" e pare quando encontrar a aba "VCLSkin Na aba "VCLSkin" selecione o componente SkinData e coloque-o no seu form. Após fazer isto clique no SkinData já no seu form apenas para selecionar as propriedades dele, altere a propriedade "Active" para "True" Agora clique em "..." na propriedade "SkinStore" do SkinData e vá até a pasta extraída do pacote de skins e escolha o skin de sua preferência. Agora você pode compilar seu projeto e ver como ficou apertando F9. Uma screenshoot do programa com o Skin Discoteca

Bury Your Dead - Sympathy Orchestra

Isso, que nem msn.

Criando um navegador basico baseado no IE {Iniciando em Delphi} Inicie um novo projeto no Delphi (quando ele é aberto, ele já faz isso, é iniciado com um projeto vazio). Vamos inserir no formulário dois quadros: um painel, onde ficarão os botões e a barra de endereços, e o quadro de visualização HTML. Para inserir um painel, clique no componente "painel" da paleta de componentes, e clique uma vez dentro da tela da janela do programa (o formulário). Veja: O componente "panel" (painel) O componente inserido no formulário Vamos ajustar algumas propriedades desse componente, para que ele fique no topo, e sem o texto "Panel1" dentro. Clique uma vez nele para selecioná-lo, e no inspetor de objetos (a janela de propriedades do objeto, se você não sabe, leia o texto do link que indiquei mais acima), localize a propriedade "Caption". Remova o texto dela, deixando assim: Para que esse painel fique alinhado na parte superior da tela, localize nessa mesma janela a propriedade "Align", e deixe com o valor "AlTop": Com o painel selecionado, clique na borda inferior dele e arraste para baixo, até ficar num tamanho ideal para você. Agora insira o componente "TWebBrowser". Ele fica na guia "Internet" da paleta de componentes do Delphi, normalmente é o último dessa guia. Não o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez, depois clique na área livre do formulário. Veja como ficará: O componente "TWebBrowser" O componente inserido no formulário Ajuste a propriedade "Align" dele assim como você fez com o painel, mas agora escolha "AlClient". Isso faz com que ele ocupe toda a área restante da tela, mesmo que o usuário maximize ou redimensione a janela. Vamos inserir uma barra de endereços simples (não uma lista, por ser um tutorial para iniciantes nessa área) e os botões "Voltar", "Avançar", "Parar" e "Atualizar". Selecione o componente "Button", "botão", da aba "Standard" dos componentes do Delphi, e insira-o dentro do painel. Agora sim, clique dentro do painel, para que ele fique "dentro" do painel. Se você colocá-lo fora, ele não acompanhará o local fixo no painel, por exemplo, podendo ficar fora do lugar dependendo do tamanho da janela. O componente "Button"(botão) Ele inserido no formulário, dentro do painel Agora você já deve estar pegando mais intimidade com a inserção de componentes. Insira mais três botões, ao lado desse. Você pode copiá-lo e colá-lo! Clique uma vez nele, ele ficará selecionado (o botão). Tecle CTRL+C e depois CTRL+V, e ele será inserido dentro do painel, depois tecle CTRL+V duas vezes para colar mais dois, e arraste cada um para os seus lugares, de modo a deixar o visual organizado. Agora altere os textos dos botões. Selecione um por um, localize a propriedade "Caption" no inspetor de objetos, e digite o texto desejado. Para nosso exemplo, coloque "Voltar" no primeiro botão, "Avançar" no segundo, "Parar" no terceiro e "Atualizar" no quarto. Para inserir uma barra de endereços, clique no componente "Edit", da aba "Standard" da paleta de componentes, e insira-o também dentro do painel, logo abaixo dos botões (redimensione o painel, se necessário, clicando nele e arrastando a linha inferior para baixo). Redimensione o campo de texto ("Edit") até ficar com um tamanho razoável, para digitar um endereço da Internet. Com o "Edit" selecionado, remova o texto dele. Basta limpar o texto da propriedade "Text", pelo inspetor de objetos. O componente "Edit", um campo de texto Aspecto de como está ficando o programa Para não perder, salve o projeto. Clique no botão "Salvar tudo" do Delphi, ou no menu "File > Save all", como é a primeira vez. Primeiro salve o arquivo de projeto, de extensão ".dpr". Coloque o nome principal do seu programa, de preferência sem espaço, será o mesmo nome do executável. Por exemplo, "Navegador". Ao clicar em Salvar na janela "Salvar", aparecerá uma outra, agora para salvar a unidade de código do formulário, um arquivo ".pas". Pode deixar o padrão, "Unit1.pas", se você quiser. O componente WebBrowser usa toda a estrutura do IE, como comentei no começo do arquivo. Para fazê-lo "funcionar", o que seu programa tem que fazer é chamar as funções corretas dele. Algumas são documentadas, outras creio que não... Mas para as mais comuns não há segredo. Dica: para facilitar as referências, vamos renomear o WebBrowser para um nome mais curto. Selecione o quadro branco do IE, e altere a propriedade "Name" dele, pelo inspetor de objetos. Usarei aqui "web", um nome fácil de identificar e curtinho. Selecione a barra de endereços, o "Edit1". Quando a pessoa digitar alguma coisa e teclar [enter], o navegador será chamado. Para isso, deveremos configurar o evento da barra de endereços responsável por reconhecer o [enter], e por chamar o navegador. Selecione a barra de endereços, e vá para a aba "Events" do Object Inspector (na mesma janela onde você altera os títulos, textos, propriedades dos componentes...). A aba "Events" do Inspetor de Objetos Nessa aba podemos personalizar os eventos dos objetos. Os eventos são ações que podem ser realizadas pelo usuário ou pelo programa. Por exemplo, quando o usuário clica num componente visual, o evento onClick é chamado, e o código contido nele será executado. Se o usuário nunca clicar nesse botão, esse código nunca seria executado. Para definir um código, uma ação, quando o usuário teclar [enter] no campo de texto, devemos inserir os comandos no evento "onKeyDown", que pode ser entendido como "aoApertarUmaTecla". Ele é chamado para todas as teclas enquanto o componente de texto estiver com o foco, então deveremos também incluir um verificador, para verificar se a tecla pressionada foi [enter]. Se for, faremos uma chamada ao componente do navegador para abrir o endereço digitado. Se não for, não faremos nada e deixaremos o usuário terminar de digitar Localize o evento "onKeyDown" (não se esqueça de selecionar o "Edit1" antes!), e dê um duplo clique no quadrinho em branco à sua esquerda, onde você percebe que pode digitar algo: janela de código será aberta no ponto correspondente, o Dephi já preparará toda a estrutura para você digitar os comandos. Digite isso, entre o begin e o end: if Key = VK_RETURN then web.Navigate(Edit1.Text); Veja na tela, como ficaria: Vamos entender esse código... Traduzindo-o para o português: se Tecla = Enter então navegador.Abre(site digitado no campo de endereço); A estrutura dependerá da linguagem de programação em uso, não se esqueça que este tutorial é de Delphi, portanto, não bastará "copiar e colar" esse mesmo código no Visual Basic ou C++. Mas as idéias são as mesmas. O if é um comando verificador, e tem esta sintaxe: if (condição verdadeira) then faça alguma coisa; O ponto e vírgula é o caractere terminador de linha em Pascal (a linguagem usada pelo Delphi). As instruções que não estiverem separadas por um ponto-e-vírgula, podem ser digitadas na mesma linha, se você quiser. Pula-se linhas e é costume teclar TAB para dar tabulações e espaços apenas para facilitar a edição do código, visto que quem o editará é uma pessoa – como você! Nesse código, o verificador verifica se a tecla pressionada ("Key") foi a tecla [enter] ("VK_RETURN" é um identificador no Delphi, para a tecla [enter]; cada tecla tem um código próprio). Se foi, ele chama o método "Navigate" do objeto "web", passando como parâmetro o texto que estiver dentro do campo. Esse texto é obtido pela propriedade "Text", e ela é separada por um ponto do nome do objeto (assim como os métodos, eventos, funções... que aliás são, "num primeiro momento", a mesma coisa, evento, função e método). Compile o programa e execute-o, digitando qualquer site na barra de endereços, e tecle [enter]. Se der erro na compilação e o programa não rodar, verifique todos os passos descritos, observando a mensagem de erro na tela do Delphi, que normalmente reporta o que ocorreu ou pelo menos a linha. Dica: para executar o programa de dentro do Delphi, apenas tecle F9, ou clique no botão com o ícone de um "play", na barra de ferramentas. O arquivo gerado terá o mesmo nome do projeto que você salvou, mas a extensão ".exe". Você poderá distribui-lo e inclusive rodá-lo em outros computadores, sem precisar do Delphi Agora vamos definir as ações dos botões. O evento onClick deles é o evento padrão, por ser o mais intuitivo para um botão: fazer alguma coisa quando o usuário clicar nele. Como é o evento padrão, basta dar um duplo clique sobre cada botão, para digitar o evento para ele. Mas nada impede que você o faça selecionando o botão, e dando um duplo clique no evento "onClick", da aba "Events" do Object Inspector. Essa parte será bem fácil, pois cada botão apenas chamará um método do componente do navegador, que no caso, é gerenciado pelo motor do Internet Explorer, ou seja, já está tud programado. Dê um duplo clique sobre o botão "Voltar", e digite: web.GoBack; GoBack é um método definido pelos criadores do IE, que fará ele voltar à página anteriormente acessada. Faça a mesma coisa para o botão "Avançar", digitando: web.GoForward; Para o botão "Parar": web.Stop; E finalmente, o botão "Atualizar": web.Refresh; Salve, compile e rode seu programa. Navegue por algumas páginas, para testar. Para que os botões "Voltar" e "Avançar" realmente funcionem, você deverá navegar clicando em alguma coisa (ou acessando outro endereço), e depois clicar no "Voltar".

Criando um programa básico que treme o Form {Iniciando em Delphi} Necessário: Delphi 7 (Em breve link para download) Criando e organizando o Form Caso um projeto não foi criado, vá no menu "File" >> "New" >> "Application", e aparecerá um Form1 em branco. Agora ainda na aba "Standard" selecione um "Button" e coloque no Form1 Código Dê dois cliques no form para ir para a parte de código e depois de implementation {$R *.dfm} Adicione isto: procedure Tremer(frm: HWND); var r: TRect; i: integer; n1, n2: integer; begin getwindowrect(frm,r); for i:= 0 to 50 do begin n1:=random(5); n2:=random(5); setwindowpos(frm,0,r.Left+n1,r.Top+n2,r.Right-r.Left,r.Bottom-r.Top,0); sleep(20); end; setwindowpos(frm,0,r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top,0); end; Agora o código do botão Dê dois cliques no "Button1" e coloque o seguinte código para chamar a função tremer(handle);