Private Sub Command1_Click() strtmp = Text1.Text nlen = Len(strtmp) k = 1 For i = 1 To nlen j = Asc(Mid(strtmp, i, 1)) If j < 47 Or j > 58 Then k = 2 End If Next i If k <> 2 Then Text2.Text = Val(Text1.Tex

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