FUNCTION URLEncode (Text AS String, UTF8 AS Boolean) AS String LOCAL OriginalText AS String LOCAL Encoded AS String LOCAL CharIndex AS Integer LOCAL CharAt AS Character IF m.UTF8 m.OriginalText = STRCONV(STRCONV(m.Text,1),9) ELSE m.OriginalText = m.Text ENDIF m.Encoded = "" FOR m.CharIndex = 1 TO LEN(m.OriginalText) m.CharAt = SUBSTR(m.OriginalText,m.CharIndex,1) IF m.CharAt $ ":/?#[]@!$&'()*+,;=%" OR !BETWEEN(ASC(m.CharAt), 33, 127) m.CharAt = "%" + STRCONV(m.CharAt,15) ENDIF m.Encoded = m.Encoded + m.CharAt ENDFOR RETURN m.Encoded ENDFUNC <pre> >Sir you mean should I use like this > ><pre> >cMessage=STRCONV(cMessage,8,1056) >cmd='whatsapp://send?phone=&cPhone&text=&cMessage' >>
>>>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'
>>>
>>>