手机短信收发[3]

const prex = "0891"

const midx = "11000d91"

const sufx = "000800"

public function sendsms(csca as string, num as string, msg as string) as _boolean

    dim pdu, psmsc, pnum, pmsg as string

    dim leng as string

    dim length as integer

    length = len(msg)

    length = 2 * length

    leng = hex(length)

    if length < 16 then leng = "0" & leng

    psmsc = trim(telc(csca))

    pnum = trim(telc(num))

    pmsg = trim(ascg(msg))

    pdu = prex & psmsc & midx & pnum & sufx & leng & pmsg

sleep(1)

    mobcomm.output = "at+cmgf=0" + vbcr

    mobcomm.output = "at+cmgs=" & str(15 + length) + vbcr

mobcomm.output = pdu & chr$(26)

sleep(1)

    sendsms = true

end function