delphi4arab منتديات دلفي للعرب
رسائل الواتس بواسط دلفي. - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : رسائل الواتس بواسط دلفي. (/showthread.php?tid=11610)



رسائل الواتس بواسط دلفي. - issamdnn - 09-11-2021

يمكن إستخدام الواتس أب لإرسائل الرسائل عن طريق دلفي و ذلك عن طريق تنزيل تطبيق الواتس آب و إستخدام خاصية الواتس أب ويب و ذلك على النحو التالي :

- ملاحظة : تعديل زمن التأخير يعتمد على سرعة الإنترنت لدى المستخدم .. القيم المذكورة ليست ملطقة و يمكن تعديلها .، كما تم الإفتراض بإن المستخدم يستخدم متصفح ال Chrome .


كود :
procedure SendToWhatssApp(BtMap: TBitmap; Txt1: string;Contact:String);
var
  URL:string;

  Wndh,ChrWh:HWND;
  origin : cardinal;
begin
if  InternetGetConnectedState(@origin,0) then        // Check the internet connectivity
begin
URL := 'https://wa.me/'+Contact;
ShellExecute(HInstance, 'open', PChar(url), nil, nil, SW_NORMAL);
Clipboard.Assign(BtMap);          // In case you want to send Bmp...

Sleep(20000);        //Wait 5 Sencods to open the application ....
Wndh:=FindWindow('Chrome_WidgetWin_1','WhatsApp') ;    //Get WhatsApp Handle

  IF  Wndh<>0 then
  begin

  PastObj;
  Sleep(1500);
  Clipboard.AsText:=Txt1 ;          // Text from clipboard... you can assign direct to Txt1 the required text..
  Sleep(1000)    ;
  PastObj;
  Sleep(1000)    ;

  PostMessage(Wndh,WM_KEYDOWN,VK_RETURN, 0);



  end else ShowMessage('Please Run WhatsApp in Order to Procced With messeging');
  end

    else ShowMessage('There is no Active internet Connection , Please Connect to the netowrk and try again later');
      Clipboard.Clear;
  end;
procedure PastObj;
begin
keybd_event(VK_Control,MapVirtualKey(VK_Control,0),0,0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'),0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'),0), KEYEVENTF_KEYUP,0);
keybd_event(VK_Control,MapVirtualKey(VK_Control,0),KEYEVENTF_KEYUP,0) ;
end;