miguelandradebr

Thank you Remy its working!!!

maybe with this source code: https://gist.github.com/hotsoft-desenv2/774b7d1678a2084055ed8f632279eb39

Hi Seems that we can works with Indy IdHTTP1 i'm trying to convert HTML code aobe to Delphi: procedure TForm1.Button1Click(Sender: TObject); var PostData: TStringList; rta: string; begin PostData := TStringList.Create; try PostData.Add('key='+'6969696969'); PostData.Add('file='+'C:\Users\migue\OneDrive\Desktop\form\Win32\Debug\captcha.png'); IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; rta := IdHTTP1.Post('https://2captcha.com/in.php', PostData); finally PostData.Free; end; Memo1.Lines.Text := rta; end; Can someone helps?

Hello Folks! <form method="post" action="https://2captcha.com/in.php" enctype="multipart/form-data"> <input type="hidden" name="method" value="post"> Your key: <input type="text" name="key" value="6969696969696969"> The CAPTCHA file: <input type="file" name="file"> <input type="submit" value="Upload and get the ID"> </form> I'm using this code in HTML to send a image to 2captcha website to break a captcha of a HTML page What is the easy and best way to work with "post "and "get" HTTP with delphi 11? here is the code for the "GET" https://2captcha.com/res.php?key=696969696969&amp;action=get&amp;id=76593642581 to got the result of the captcha after 5 seconds Thanks

Thank you!

Changing the permission on .exe file to admin all is fine now, what do you mean with IDE elevated?

I've fixed it changing the .exe file to admin permissions, thanks guys!

Hello friends Is there no way to add any text to an application created in Delphi? Is it possible to paste any text into the notepad? It seems like something easy to implement but I haven't found a way yet. Thanks

This code works, but just from inside delphi/debugger: Clipboard.AsText := 'mypass'; Keybd_event(VK_CONTROL, 0, 0, 0); Keybd_event(Byte('V'), 0, 0, 0); Keybd_event(Byte('V'), 0, KEYEVENTF_KEYUP, 0); Keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); Keybd_event(VK_RETURN, 0, 0, 0); Keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); when you try from .exe file still dont working...

Seems that You're right. How I can turn around? Maybe I can create a driver or Windows Service? I accept suggestions Thanks in advance!

sleep its not working, I've tried to to use a timer with 5 seconds... and all works just using/running app inside Delphi/debugger

When I run my code inside delphi using debugger all works fine. When I compile exe and try the run the application its dont type write the keys.... very strange I'm using Delphi 7 and Windows 11 here is my code: procedure TForm1.Button3Click(Sender: TObject); var H : HWnd; begin H := FindWindow(nil, pchar('Kaspersky Password Manager')); if H <> 0 then begin // Try to bring target window to foreground ShowWindow(H,SW_SHOW); SetForegroundWindow(H); PostKeyEx32(Ord('O'), [ssShift], False); PostKeyEx32(Ord('Y'), [], False); PostKeyEx32(Ord('2'), [ssShift], True); //Arroba special symbol char @ PostKeyEx32(VK_RETURN, [], False) ; suggestion how to solve?

the friend Ledklom shared this with me in PM: tips.delphidabbler.com/tips/170 procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);type TShiftKeyInfo = record shift: Byte; vkey: Byte; end; ByteSet = set of 0..7;const shiftkeys: array [1..3] of TShiftKeyInfo = ( (shift: Ord(ssCtrl) ; vkey: VK_CONTROL), (shift: Ord(ssShift) ; vkey: VK_SHIFT), (shift: Ord(ssAlt) ; vkey: VK_MENU) );var flag: DWORD; bShift: ByteSet absolute shift; j: Integer;begin for j := 1 to 3 do begin if shiftkeys[j].shift in bShift then keybd_event( shiftkeys[j].vkey, MapVirtualKey(shiftkeys[j].vkey, 0), 0, 0 ); end; if specialkey then flag := KEYEVENTF_EXTENDEDKEY else flag := 0; keybd_event(key, MapvirtualKey(key, 0), flag, 0); flag := flag or KEYEVENTF_KEYUP; keybd_event(key, MapvirtualKey(key, 0), flag, 0); for j := 3 downto 1 do begin if shiftkeys[j].shift in bShift then keybd_event( shiftkeys[j].vkey, MapVirtualKey(shiftkeys[j].vkey, 0), KEYEVENTF_KEYUP, 0 ); end;end; usage: //Upercase PostKeyEx32(Ord('A'), [ssShift], False); //Lowercase PostKeyEx32(Ord('F'), [], False); PostKeyEx32(Ord('2'), [ssShift], True); //Arroba special symbol char @

ok thank you!

Hello @aehimselfour your component can be installed in what delphi version? Do you know if it works with Delphi 7? Thank you in advance!