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

201106惠通VB6Dll\2011惠通短信控件说明.PDF
................\Form1.frm
................\Form1.frx
................\Form1.log
................\OCX\HTCOM.DLL
................\...\szhto.ocx
................\惠通工业MODEM短信.exe
................\惠通工业MODEM短信.rar
................\注册组件.bat
................\短信测试.vbp
................\短信测试.vbw
................\OCX
201106惠通VB6Dll

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．