开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > ActiveX/DCOM/ATL
201106huitongVB6Dll.rar
文件大小： 281k
下载次数：3
源码类别：

ActiveX/DCOM/ATL

开发平台：

Visual Basic (VB)

源码售价： 5 个金币 积分规则     积分充值
充值1元得10金币   
资源说明：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
部分文件列表（点击文件名可查看文件内容）
本源码包内暂不包含可直接显示的源代码文件，请下载源码包。
最新本分类资源
本类热门下载