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!" ) EndifThe codes work fine, no issue.
cMessage=[آپ کیسے ہییں آپ کا آج کا کیا پروگرام ہے؟]
Then I have to face this error messagecmd='whatsapp://send?phone=&cPhone&text=&cMessage'
Please help me to prepare above message to send whatsapp.