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 = "打开:" + IIf(InStr(Temp, "-1") > 0, Temp, "成功")

Debug.Print DateDiff("s", Aa, Now)



End Sub

Private Sub Command1_Click()

发送短信

Label6.Caption = "开始发送短信..."

Command1.Enabled = False

Text10 = ""

If SzhtoSms1.smsStatus <> "" Then Exit Sub

Dim I As Long

For I = 0 To List1.ListCount - 1

Text10 = Text10 + "状态:" + SzhtoSms1.YhSendSms(Text3.Text, List1.List(I), Text1.Text, IIf(Check2.Value = 1, 9, IIf(Check3.Value = 1, 1, 0))) + " 手号:" + List1.List(I) + Chr$(13) + Chr$(10)

Next I

Command1.Enabled = True

Label6.Caption = "结束发送"

End Sub

-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 = "打开:"+ IIf(InStr(Temp, "-1") > 0, Temp, "成功")

　Debug.Print DateDiff("s", Aa, Now)

　

End Sub

Private Sub Command1_Click()

　 发送短信

　Label6.Caption = "开始发送短信..."

　Command1.Enabled = False

　Text10 = ""

　If SzhtoSms1.smsStatus <> "" Then Exit Sub

　Dim I As Long

　For I = 0 To List1.ListCount- 1

　　　Text10 = Text10+ "状态:"+ SzhtoSms1.YhSendSms(Text3.Text, List1.List(I), Text1.Text, IIf(Check2.Value = 1, 9, IIf(Check3.Value = 1, 1, 0)))+ " 手号:"+ List1.List(I)+ Chr$(13)+ Chr$(10)

　Next I

　Command1.Enabled = True

　Label6.Caption = "结束发送"

End Sub