>Declare Integer FindWindow In WIN32API String , String >Declare Integer SetForegroundWindow In WIN32API Integer >Declare Integer ShowWindow In WIN32API Integer , Integer >Declare Integer ShellExecute In shell32.Dll ; > INTEGER hndWin, ; > STRING cAction, ; > STRING cFileName, ; > STRING cParams, ; > STRING cDir, ; > INTEGER nShowWin > >Local lt, lhwnd > >cPhone=[923000000000] > >cMessage=[How are you sir?] > >cmd='whatsapp://send?phone=&cPhone&text=&cMessage' > >=ShellExecute(0, 'open', cmd,'', '', 1) > >Wait "" Timeout 3 >lt = "Whatsapp" >lhwnd = FindWindow (0, lt) >If lhwnd!= 0 > SetForegroundWindow (lhwnd) > ShowWindow (lhwnd, 1) > ox = Createobject ( "Wscript.Shell" ) > ox.sendKeys ( '{ENTER}' ) > *Messagebox ( "Message Sent" ) >Else > Messagebox ( "Whatsapp no activada!" ) >Endif >>
>cMessage=[آپ کیسے ہییں آپ کا آج کا کیا پروگرام ہے؟]
>
>>cmd='whatsapp://send?phone=&cPhone&text=&cMessage'
>
>