يمكن إستخدام الواتس أب لإرسائل الرسائل عن طريق دلفي و ذلك عن طريق تنزيل تطبيق الواتس آب و إستخدام خاصية الواتس أب ويب و ذلك على النحو التالي :
- ملاحظة : تعديل زمن التأخير يعتمد على سرعة الإنترنت لدى المستخدم .. القيم المذكورة ليست ملطقة و يمكن تعديلها .، كما تم الإفتراض بإن المستخدم يستخدم متصفح ال Chrome .
- ملاحظة : تعديل زمن التأخير يعتمد على سرعة الإنترنت لدى المستخدم .. القيم المذكورة ليست ملطقة و يمكن تعديلها .، كما تم الإفتراض بإن المستخدم يستخدم متصفح ال 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;