📄 frmsim_modem.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Simulated Modem"
ClientHeight = 2550
ClientLeft = 45
ClientTop = 330
ClientWidth = 4335
FillColor = &H008080FF&
Icon = "frmSim_Modem.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 2590.001
ScaleMode = 0 'User
ScaleWidth = 4335
StartUpPosition = 2 'CenterScreen
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 13
Top = 2295
Width = 4335
_ExtentX = 7646
_ExtentY = 450
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3528
MinWidth = 3528
TextSave = ""
Key = "ComStatus"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 4304
MinWidth = 4304
Text = "Modem: out of service"
TextSave = "Modem: out of service"
Key = "Modem"
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame2
Caption = "Interval Time"
Height = 1455
Left = 2640
TabIndex = 8
Top = 120
Width = 1575
Begin VB.ComboBox cboTimer
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 315
Left = 240
TabIndex = 14
Text = "cboTimer"
Top = 720
Width = 1095
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "minutes"
Height = 255
Left = 240
TabIndex = 16
Top = 1080
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "Timer:"
Height = 255
Left = 240
TabIndex = 15
Top = 360
Width = 975
End
End
Begin VB.Timer timer_Times_Interval
Enabled = 0 'False
Interval = 130
Left = 3240
Top = 2520
End
Begin VB.CheckBox chkSample
Alignment = 1 'Right Justify
Caption = "Sample"
Height = 255
Left = 2760
TabIndex = 7
Top = 1920
Width = 855
End
Begin VB.Frame fraConnection
Caption = "Connection Preferences"
Height = 2130
Left = 120
TabIndex = 0
Top = 120
Width = 2400
Begin VB.ComboBox cboSpeed
Height = 315
Left = 1050
TabIndex = 10
Text = "cboSpeed"
Top = 1680
Width = 1140
End
Begin VB.ComboBox cboPort
Height = 315
Left = 1050
TabIndex = 9
Text = "cboPort"
Top = 1320
Width = 1140
End
Begin VB.ComboBox cboStopBits
Height = 315
Left = 1050
Style = 2 'Dropdown List
TabIndex = 3
Top = 960
Width = 1140
End
Begin VB.ComboBox cboParity
Height = 315
Left = 1050
Style = 2 'Dropdown List
TabIndex = 2
Top = 600
Width = 1140
End
Begin VB.ComboBox cboDataBits
Height = 315
Left = 1050
Style = 2 'Dropdown List
TabIndex = 1
Top = 240
Width = 1140
End
Begin VB.Label Label7
Caption = "Speed:"
Height = 255
Left = 240
TabIndex = 12
Top = 1680
Width = 615
End
Begin VB.Label Label6
Caption = "Port:"
Height = 255
Left = 240
TabIndex = 11
Top = 1320
Width = 615
End
Begin VB.Label Label5
Caption = "Stop Bits:"
Height = 285
Left = 240
TabIndex = 6
Top = 960
Width = 765
End
Begin VB.Label Label4
Caption = "Parity:"
Height = 285
Left = 240
TabIndex = 5
Top = 600
Width = 495
End
Begin VB.Label Label3
Caption = "Data Bits:"
Height = 285
Left = 240
TabIndex = 4
Top = 240
Width = 825
End
End
Begin VB.Timer timer_Send_Interval
Enabled = 0 'False
Interval = 5500
Left = 2040
Top = 2520
End
Begin MSCommLib.MSComm MSComm1
Left = 120
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = 0 'False
InBufferSize = 512
OutBufferSize = 128
RThreshold = 1
SThreshold = 1
InputMode = 1
End
Begin VB.Timer timer_Comm
Enabled = 0 'False
Interval = 100
Left = 720
Top = 2520
End
Begin VB.Image imgNotConnected
Height = 240
Left = 3840
Picture = "frmSim_Modem.frx":0442
Stretch = -1 'True
ToolTipText = "Toggles Port"
Top = 1920
Width = 240
End
Begin VB.Image imgConnected
Height = 240
Left = 3840
Picture = "frmSim_Modem.frx":058C
Stretch = -1 'True
ToolTipText = "Toggles Port"
Top = 1920
Width = 240
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strPath As String
Dim strSound As String
Dim bValid As Boolean
Dim bDial As Boolean
Private Sub cboTimer_Click()
nOptInterval = Val(cboTimer.Text)
End Sub
Private Sub chkSample_Click()
nSample = chkSample.Value
End Sub
Private Sub Form_Load()
Dim I As Integer
Dim strtmp As String
Dim strSettings As String
On Error Resume Next
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
App.Title = "Simulated Modem"
strPath = App.Path + "\Setup.ini"
strSound = App.Path + "\Ring.wav"
' Load Port Settings
For I = 1 To 16
cboPort.AddItem "Com" & Trim$(Str$(I))
Next I
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -