📄 frmsr.frm
字号:
VERSION 5.00
Begin VB.Form frmSR11
Caption = "数据发送（单进单出）"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
FillColor = &H00E0E0E0&
ForeColor = &H00E0E0E0&
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3960.828
ScaleMode = 0 'User
ScaleWidth = 8392.054
Begin VB.Timer tiQunFa3
Enabled = 0 'False
Interval = 2000
Left = 8880
Top = 6960
End
Begin VB.Timer tiQunfa
Enabled = 0 'False
Interval = 1000
Left = 7080
Top = 6960
End
Begin VB.Timer tiQunFa2
Enabled = 0 'False
Interval = 1000
Left = 8280
Top = 6960
End
Begin VB.Timer tiQunFa1
Enabled = 0 'False
Interval = 1000
Left = 7680
Top = 6960
End
Begin VB.Frame Frame5
Caption = "群发"
Height = 6735
Left = 9240
TabIndex = 14
Top = 0
Width = 2535
Begin VB.CommandButton cmdClear
Caption = "删除所有号码"
Height = 375
Left = 240
TabIndex = 23
Top = 3600
Width = 2055
End
Begin VB.CommandButton cmdAdd
Caption = "添加号码"
Height = 345
Left = 240
TabIndex = 22
Top = 3240
Width = 975
End
Begin VB.ListBox ltClient
Height = 1500
ItemData = "frmSR.frx":0000
Left = 240
List = "frmSR.frx":0002
TabIndex = 21
Top = 1440
Width = 2055
End
Begin VB.ListBox ltQun
Height = 1680
ItemData = "frmSR.frx":0004
Left = 240
List = "frmSR.frx":0006
MultiSelect = 1 'Simple
TabIndex = 20
Top = 4440
Width = 2055
End
Begin VB.CommandButton cmdSub
Caption = "删除号码"
Height = 345
Left = 1320
TabIndex = 19
Top = 3240
Width = 975
End
Begin VB.CommandButton cmdQun
Caption = "群 发"
Height = 375
Left = 600
TabIndex = 16
Top = 6240
Width = 1215
End
Begin VB.Label Label15
Caption = "全部客户"
Height = 255
Left = 240
TabIndex = 18
Top = 1200
Width = 975
End
Begin VB.Label Label14
Caption = "要发送的号码"
Height = 255
Left = 240
TabIndex = 17
Top = 4080
Width = 1335
End
Begin VB.Label Label13
Caption = "群发：每一行输入一个手机号码，并以回车结尾。某条短信没发出去，请等待数据全部返回后重发。"
Height = 735
Left = 360
TabIndex = 15
Top = 360
Width = 2055
End
End
Begin VB.Timer tiSR4
Enabled = 0 'False
Interval = 1000
Left = 5880
Top = 6840
End
Begin VB.Timer tiSR3
Enabled = 0 'False
Interval = 1000
Left = 5280
Top = 6840
End
Begin VB.Frame Frame4
Caption = "操作结果显示"
Height = 1935
Left = 5520
TabIndex = 12
Top = 3960
Width = 3735
Begin VB.TextBox txtczxs
Height = 1575
Left = 480
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 240
Width = 3255
End
End
Begin VB.Frame Frame3
Height = 735
Left = 0
TabIndex = 8
Top = 6000
Width = 9255
Begin VB.CommandButton cmdProcess
Caption = "保存数据"
Height = 375
Left = 4320
TabIndex = 11
Top = 240
Width = 1455
End
Begin VB.CommandButton cmdSend
Caption = "发送数据"
Height = 375
Left = 2640
TabIndex = 10
Top = 240
Width = 1455
End
Begin VB.CommandButton cmdEnd
Caption = "退 出"
Height = 375
Left = 6000
TabIndex = 9
Top = 240
Width = 1455
End
End
Begin VB.Timer tisr2
Enabled = 0 'False
Interval = 1000
Left = 4800
Top = 6840
End
Begin VB.Timer tiSR1
Enabled = 0 'False
Interval = 1000
Left = 4320
Top = 6840
End
Begin VB.Frame Frame2
Caption = "返回数据"
Height = 1935
Left = 0
TabIndex = 4
Top = 3960
Width = 5415
Begin VB.TextBox txtBack
Height = 1575
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 240
Width = 5055
End
End
Begin VB.Frame Frame1
Caption = "发送命令"
Height = 3855
Left = 120
TabIndex = 0
Top = 0
Width = 9255
Begin VB.TextBox txtcn
Height = 270
Left = 5880
TabIndex = 26
Text = "13800592500"
Top = 960
Width = 2535
End
Begin VB.TextBox txtOutput
Height = 270
Left = 1080
TabIndex = 6
Top = 2400
Width = 7335
End
Begin VB.ComboBox cmbSR1
Height = 300
ItemData = "frmSR.frx":0008
Left = 1800
List = "frmSR.frx":000A
TabIndex = 2
Text = "15959201450"
Top = 960
Width = 2295
End
Begin VB.TextBox txtINFO
Height = 270
Left = 1080
MaxLength = 70
MultiLine = -1 'True
TabIndex = 1
Top = 1800
Width = 7335
End
Begin VB.Label 短消息中心号码
Caption = "短消息中心号码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4320
TabIndex = 24
Top = 960
Width = 1455
End
Begin VB.Label simNum
Caption = "远端SIM卡号码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 25
Top = 960
Width = 1455
End
Begin VB.Label Label12
Caption = "OUTPUT"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 7
Top = 2400
Width = 855
End
Begin VB.Label Label8
Caption = "INFO"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 1800
Width = 495
End
End
End
Attribute VB_Name = "frmSR11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim E As Double
Dim m As Double
Dim sC As String
Dim sP As String
Dim smsContent As String
Public Function ascg(smsg As String) As String
Dim si, sb As Integer
Dim stmp As Integer
Dim stemp As String
Dim ascg1 As String
sb = Len(smsg)
ascg1 = ""
For si = 1 To sb
stmp = AscW(Mid(smsg, si, 1))
If Abs(stmp) < 127 Then
stemp = "00" & Hex(stmp)
Else
stemp = Hex(stmp)
End If
ascg1 = ascg1 & stemp
Next si
ascg1 = Trim(ascg1)
smsContent = ascg1
End Function
Public Function smsCND() As String
Dim CNlength As Integer
CNlength = Len(txtcn.Text)
sC = ""
For i = 1 To CNlength - 1 Step 2
sC = sC + Mid(txtcn.Text, i + 1, 1) + Mid(txtcn.Text, i, 1)
Next
If Not (CNlength Mod 2 = 0) Then
sC = sC + "F"
sC = sC + Mid(txtcn.Text, CNlength, 1)
End If
sC = "9168" + sC
End Function
Public Function smsPN() As String
Dim CNlength As Integer
CNlength = Len(cmbSR1.Text)
sP = ""
For i = 1 To CNlength - 1 Step 2
sP = sP + Mid(cmbSR1.Text, i + 1, 1) + Mid(cmbSR1.Text, i, 1)
Next i
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -