none
Whatsapp unicode RRS feed

  • Question

  • Dear Experts

    I am using these codes to send messages on whatsapp

    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
    


    The codes work fine, no issue.
    Message are delivered properly.

    But.... only English messages

    When I try to send message in a language other than English suppose Urdu like this

    <pre>
    cMessage=[آپ کیسے ہییں آپ کا آج کا کیا پروگرام ہے؟]
    </pre>

    Then I have to face this error message
    <b>unrecognized command verb</b>

    My question is how to pass unicode characters in this string 

    cmd='whatsapp://send?phone=&cPhone&text=&cMessage'

    Please help me to prepare above message to send whatsapp.

    Regards


    tqmd

    Sunday, November 1, 2020 6:58 AM