文件名称:201106huitongVB6Dll
- 所属分类：
- ActiveX/DCOM
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2012-11-26
- 文件大小：
- 281kb
- 下载次数：
- 0次
- 提 供 者：
- d*
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
下载
别用迅雷、360浏览器下载。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
介绍说明－－下载内容均来自于网络，请自行研究使用
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
打开短信初始化端口
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
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
................\Form1.frm
................\Form1.frx
................\Form1.log
................\OCX\HTCOM.DLL
................\...\szhto.ocx
................\惠通工业MODEM短信.exe
................\惠通工业MODEM短信.rar
................\注册组件.bat
................\短信测试.vbp
................\短信测试.vbw
................\OCX
201106惠通VB6Dll