发送短信: Visual Basic 6: