No self-introduction
Loading
Profile
Follow
codes (1)
This is the only code we need to send an SMS to th
no vote
local M.okx, m.captionb
m.okx = messagebox("Send SMS?",36,"Ok")
if m.okx <> 6
return
endif
m.captionb = this.Caption
thisform.Enabled = .f.
thisform.MousePointer = 11
thisform.Activate
thisform.list1.SetFocus
thisform.Refresh
* Reset Log text
thisform.list1.Clear
thisform.list1.AddItem(" ")
thisform.list1.AddItem("Begin: " + transform(datetime()))
thisform.list1.AddItem("Original message: " + thisform._mensagem)
thisform.Originalmessage = thisform._mensagem
thisform._mensagem = tiraracentos_str(thisform._mensagem)
*!* thisform._mensagem = (thisform._mensagem)
thisform.list1.AddItem("Clean Message: " + thisform._mensagem)
* Define local variables
local m.codigo, m.nome1, m.nome2, m.telefone, m.titulo
local m.segundos, m.espera, m.retorno
m.codi
hakimi502255 0 0
1
No more~
Follows0
Fans0