📄 smsmainfrm.frm
字号:
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 6480
TabIndex = 58
Top = 3360
Width = 1695
End
Begin VB.Label Label19
Alignment = 2 'Center
BackColor = &H00FF0000&
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 735
Left = 720
TabIndex = 44
Top = 600
Width = 7335
End
Begin VB.Shape Shape3
BackColor = &H00FFFFFF&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 3 'Dot
FillColor = &H00FFFFFF&
Height = 195
Left = 360
Shape = 2 'Oval
Top = 120
Visible = 0 'False
Width = 195
End
Begin VB.Label Label13
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00A27E66&
Caption = "v1.0"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 600
TabIndex = 26
Top = 6480
Width = 615
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5880
Left = 960
TabIndex = 8
Top = 480
Width = 255
End
Begin VB.Label Label7
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00A27E66&
Caption = "Copyright 2005 郑州"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080FFFF&
Height = 255
Left = 6600
TabIndex = 13
Top = 6480
Width = 1575
End
Begin VB.Line Line13
X1 = 0
X2 = 8520
Y1 = 0
Y2 = 0
End
Begin VB.Line Line12
X1 = 0
X2 = 8520
Y1 = 6810
Y2 = 6810
End
Begin VB.Line Line11
X1 = 8520
X2 = 8520
Y1 = 0
Y2 = 6840
End
Begin VB.Line Line6
X1 = 0
X2 = 0
Y1 = 0
Y2 = 6840
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = 7560
X2 = 7680
Y1 = 255
Y2 = 255
End
Begin VB.Label Label3
BackColor = &H00A27E66&
Caption = "X"
ForeColor = &H00FFFFFF&
Height = 255
Left = 7800
TabIndex = 2
Top = 120
Width = 135
End
Begin VB.Label Label2
BackColor = &H00A27E66&
Height = 255
Left = 7440
TabIndex = 1
Top = 120
Width = 615
End
Begin VB.Label Label1
BackColor = &H00A27E66&
Caption = "惠济通讯制作"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 600
TabIndex = 0
Top = 120
Width = 2025
End
Begin VB.Line Line4
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 300
Y2 = 300
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 240
Y2 = 240
End
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 180
Y2 = 180
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 120
Y2 = 120
End
Begin VB.Shape Shape1
BorderStyle = 0 'Transparent
FillColor = &H00A27E66&
FillStyle = 0 'Solid
Height = 495
Left = 0
Top = 0
Width = 8655
End
Begin VB.Line Line10
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 6480
Y2 = 6480
End
Begin VB.Line Line9
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 6540
Y2 = 6540
End
Begin VB.Line Line8
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 6600
Y2 = 6600
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8390
Y1 = 6660
Y2 = 6660
End
Begin VB.Label Label11
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "TEL:13592682815"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 6480
TabIndex = 24
Top = 6060
Width = 1815
End
Begin VB.Label Label12
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
Caption = "连接..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 1320
TabIndex = 25
Top = 6075
Width = 1335
End
Begin VB.Shape Shape2
BorderStyle = 0 'Transparent
FillColor = &H00A27E66&
FillStyle = 0 'Solid
Height = 495
Left = 0
Top = 6360
Width = 8775
End
Begin VB.Image Image1
Height = 7875
Left = -840
Picture = "SMSmainfrm.frx":0316
Top = 360
Width = 1335
End
End
Attribute VB_Name = "SMSmainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'================================================================
'================================================================
'*** SMS Messenger v1.0 ***
'================================================================
'================================================================
'*** For any Questions or Comments concerning this program ***
'*** ***
'================================================================
'================================================================
'*** Frame Name : SMSmainfrm.frm ***
'*** Date & Time : 21st October 2002, 04:30(IST) ***
'================================================================
'================================================================
'下面三个函数用来验证和限制次数
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Sub Command1_Click() '联通发送确定 text8内容为联通短信中心号码
'Command1.Enabled = False
'电话号码去掉"+",或者加头"86"
Dim SMSC, Phno
If Text1.Text = "" Then
MsgBox " 信息不能为空", vbOKOnly, "惠济通讯_lql2005"
Exit Sub
Else
'去掉"+"
If Mid(Text8.Text, 1, 1) = "+" Then Text8.Text = Mid(Text8.Text, 2, 13)
If Mid(Text2.Text, 1, 1) = "+" Then Text2.Text = Mid(Text2.Text, 2, 13)
'加上 "86"
If Len(Text8.Text) = 11 Then Text8.Text = "86" + Text8.Text
If Len(Text2.Text) = 11 Then Text2.Text = "86" + Text2.Text
'去掉"00"
If Len(Text8.Text) = 15 Then Text8.Text = Mid(Text8.Text, 3, 13)
If Len(Text2.Text) = 15 Then Text2.Text = Mid(Text2.Text, 3, 13)
End If
'发送信息
Ssend = 1
Call sendsms(Text8.Text, Text2.Text, Text1.Text)
'存储信息 格式：充值电话 金额 日期 时间
File_cread
End Sub
Private Sub File_cread() ''存储联通信息 格式：充值电话 金额 日期 时间
Dim msg, dat1, Dat2
Dim Dat
msg = Text1.Text
dat1 = Date
Dat2 = Date + Time
Dat = msg ' + Date
'Open "666msg.dat" For Output As #1
If Text1.Text = "" Then
'Text1.Enabled = False
MsgBox " 信息不能为空", vbOKOnly, "惠济通讯_lql2005"
Else
Open "ltmsg.txt" For Append As #1
'Print #1, "; ————————————————————————————————————"
'Print #1, "; 惠济通讯 20"; Dat1; " 联通便利行充值记录 "
'Print #1, "; ————————————————————————————————————"
Print #1, ""; msg; " "; Dat2; "" ' Msg; """
Close #1
Text1.Text = ""
'Command2.SetFocus
Text1.SetFocus
End If
End Sub
Private Sub ckCmd_Click()
Dim MyAppID, ReturnValue
'AppActivate "Microsoft windows" ' 激活 Microsoft
' Word。
' AppActivate 也可利用 Shell 函数的返回值。
MyAppID = Shell("C:\WINDOWS\NOTEPAD.EXE ydmsg.txt", 1) ' 运行 Microsoft Word。
'AppActivate MyAppID ' 激活 Microsoft
' Word。
' 您也可使用 Shell 函数的返回值。
'ReturnValue = Shell("c:\EXCEL\EXCEL.EXE", 1) ' 运行 Microsoft Excel。
'AppActivate ReturnValue ' 激活 Microsoft
' Excel。
'Dim ok
'ok = Shell("c:\windows\ notepad.exe ", vbNormalFocus)
End Sub
Private Sub Command11_Click()
'RecMsg
End Sub
Private Sub gsmInit()
Dim cmd, cmd2, d1, d2
SMS.PortOpen = True
cmd = AT & Chr(13) 'cTxt.Text & Chr(13)
SMS.Output = cmd
d1 = Len(SMS.Input)
'd2 = d1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -