📄 form1.frm
字号:
ForeColor = &H00404040&
Height = 615
Left = 120
MultiLine = -1 'True
TabIndex = 9
Top = 528
Width = 1935
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00800000&
Caption = " 手机"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Left = 480
TabIndex = 14
Top = 165
Width = 660
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
DrawMode = 16 'Merge Pen
Visible = 0 'False
X1 = 1488
X2 = 1368
Y1 = -48
Y2 = 72
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 1704
X2 = 1584
Y1 = 168
Y2 = 288
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 1824
X2 = 1704
Y1 = 192
Y2 = 312
End
Begin VB.Label Label3
BackColor = &H00800000&
Caption = "T18s"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 840
TabIndex = 13
Top = 3240
Width = 375
End
Begin VB.Label signal
BackColor = &H0000C000&
Height = 135
Left = 120
TabIndex = 12
Top = 0
Width = 135
End
End
Begin MSCommLib.MSComm MSComm1
Left = 2520
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RThreshold = 1
End
Begin VB.TextBox TxtCom
Height = 1452
Left = 4008
MultiLine = -1 'True
TabIndex = 2
Top = 3888
Width = 2550
End
Begin VB.TextBox TxtCont
Height = 1545
Left = 4008
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 1800
Width = 2520
End
Begin VB.TextBox TxtPhone
Height = 375
Left = 4008
TabIndex = 0
Top = 1200
Width = 2490
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "信息内容："
Height = 1335
Left = 2880
TabIndex = 48
Top = 3960
Width = 975
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读短消息"
Height = 180
Left = 9600
TabIndex = 36
Top = 5640
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "通讯断口："
Height = 180
Left = 1224
TabIndex = 34
Top = 4872
Width = 900
End
Begin VB.Label Label7
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "请按“*”解键盘---------------MY GOD"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 372
Left = 4992
TabIndex = 33
Top = 5448
Width = 4932
End
Begin VB.Label Label6
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "手机秘书台服务工具---MY MM"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 372
Left = 0
TabIndex = 32
Top = 984
Width = 5172
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderStyle = 6 'Inside Solid
FillStyle = 0 'Solid
Height = 1212
Left = 2232
Shape = 4 'Rounded Rectangle
Top = 600
Width = 372
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送汉字"
Height = 180
Left = 4200
TabIndex = 16
Top = 3525
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送内容："
Height = 180
Left = 2880
TabIndex = 7
Top = 1800
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "接受方手机号："
Height = 180
Left = 2760
TabIndex = 6
Top = 1320
Width = 1260
End
Begin VB.Label Lbltypecall
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送英文"
Height = 180
Left = 5640
TabIndex = 5
Top = 3600
Width = 720
End
Begin VB.Label lblCaption
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H8000000E&
Height = 180
Left = 60
TabIndex = 4
Top = 390
Width = 540
End
Begin VB.Label lblCaption1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
Height = 180
Left = 0
TabIndex = 3
Top = 30
Width = 540
End
Begin VB.Image imgBtnMin
Height = 225
Left = 4530
Top = 120
Visible = 0 'False
Width = 225
End
Begin VB.Image imgBtnClose
Height = 225
Left = 4875
Top = 120
Width = 225
End
Begin VB.Image imgBL
Height = 120
Left = 7335
Top = 2010
Width = 120
End
Begin VB.Image imgBR
Height = 120
Left = 7950
Top = 2100
Width = 120
End
Begin VB.Image imgTL
Height = 390
Left = 7290
Top = 2310
Width = 120
End
Begin VB.Image imgTR
Height = 390
Left = 7890
Top = 2160
Width = 120
End
Begin VB.Image imgR
Height = 4500
Left = 8430
Stretch = -1 'True
Top = 0
Width = 90
End
Begin VB.Image imgB
Height = 120
Left = 6450
Stretch = -1 'True
Top = 645
Width = 7275
End
Begin VB.Image imgL
Height = 4500
Left = 7485
Stretch = -1 'True
Top = 240
Width = 90
End
Begin VB.Image ImgBtnup
Height = 315
Left = 3000
Picture = "Form1.frx":0062
Top = 720
Visible = 0 'False
Width = 1125
End
Begin VB.Image ImgBtnDn
Height = 315
Left = 2715
Picture = "Form1.frx":089A
Top = 2190
Visible = 0 'False
Width = 1125
End
Begin VB.Image imgCaptionBar
Appearance = 0 'Flat
Height = 390
Left = 210
Stretch = -1 'True
Top = 30
Width = 5430
End
Begin VB.Image Cmdsend
Height = 315
Left = 5400
Picture = "Form1.frx":113A
Top = 3480
Width = 1125
End
Begin VB.Image cmdsendc
Height = 315
Left = 3990
Picture = "Form1.frx":1972
Top = 3480
Width = 1125
End
Begin VB.Image cmdread
Height = 315
Left = 9360
Picture = "Form1.frx":21AA
Top = 5520
Width = 1125
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private strSendText As String
Private strtext As String
Private strtemp3 As String
Private strtemp4 As String
Private stopDelay As Boolean
Private IntLen As String
Private Gmsloadstr As String
Private Strarr() As Byte
Private strarrtemp() As Byte
'DefInt A-Z
Dim CancelFlag
Private SbTelephone As String
Private Sub Delay(ByVal sec As Single)
Dim tm1 As Date, tm2 As Date, v1 As Variant
v1 = 24
v1 = v1 * 60
v1 = v1 * 60
tm1 = Now
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -