?? 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 + -