Private Sub Command3_Click() 打开短信初始化端口 Dim Temp As String Dim Aa As String Aa = Now Label6.Caption = "打开始打端口..." Temp = SzhtoSms1.YhOpenModem(Text4.Text, Text8, Text9) If InStr(Temp, "-1") = 0 Then Text3 = Temp Label6.Caption