我就是SEVN，也是sevnsevn。帐户找回来了，今儿高兴，散分散分，我全部分数统统送出!!!!!(50人了，结贴发分）(最后进来的三位朋友，真抱歉，除不尽，

Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 'Alias "mciExecute"
'检测声卡所需要的声明
Public Declare Function auxGetNumDevs Lib "winmm.dll" () As Long
Public SoundCa As Boolean '计算是否有声卡
Public ZHConfKey As Integer '1接收站号设置,2发送站号设置
Public EditFileName As String '编辑器编辑的文件名
Public BHSendTimes As Integer '自动拨号发送次数
Public YYSendTimes As Integer '自动语音发送次数
Public CommPortCode As Integer 'Comm端口号
Public ZW(5, 500), ZWn
Public ReplyDialKey As Boolean '取回拨控制变量
Public musicURLL As String
Public AlarmKey As Boolean
Global ColorConf(6, 2) As Long '颜色
Global FontConf(6, 2) As String '字体
Public tWaitTime As DelayTime '等待时间

'过滤错误电报(FilterErrTel<>0,表明该电报有误)
Function FilterErrTel(db$)
FilterErrTel = 0

'电报首字符为空格
If Asc(Left$(db$, 1)) = 32 then
FilterErrTel = 1: Exit Function

'字段长检查
ttd$ = ""
llen = Len(db$)
For j = 1 To llen
If Asc(Mid$(db$, j, 1)) <> 32 then
ttd$ = ttd$ + Mid$(db$, j, 1)
else
If Len(ttd$) <> 5 then
FilterErrTel = 2: Exit Function
ttd$ = ""
End If
Next j
If Len(ttd$) <> 5 And Len(ttd$) > 1 then
FilterErrTel = 2: Exit Function
'变码检查
For j = 1 To llen
txp$ = Mid$(db$, j, 1)
If Asc(txp$) <> 32 then
_
If Asc(txp$) < 48 Or Asc(txp$) > 57 then
_
If Asc(txp$) <> 88 then
FilterErrTel = 3: Exit Function
Next j
End Function
Sub GetDelayTime()
tWaitTime.tConnect = 40 '等待连接时间
tWaitTime.tJiaoDui = 15 '等待校对时间
tWaitTime.tNextDial = 20 '等待下次发送时间
tWaitTime.tFuWei = 40 '等待Modem复位时间

End Sub

Sub GetErrTel()
Nu = FreeFile
xx$ = Trim$(MainFrm.ErrDbTxt.Text)

Open App.Path &
"/errdb.txt" For Input As Nu
do
Until EOF(Nu)
Line Input #Nu, tmp$
If xx$ = "" then
xx$ = tmp$ else
xx$ = xx$ + Chr(13) + Chr(10) + tmp$

Loop
Close #Nu
MainFrm.ErrDbTxt.Text = xx$ + Chr(13) + Chr(10)

End Sub
Sub GetMusicURLL()
Dim MKey As Integer
Nu = FreeFile
Open App.Path &
"/par/MusicURLL.txt" For Input As Nu
Input #Nu, MKey
Input #Nu, musicURLL
Close
If MKey = 1 then
SoundCa = True else
SoundCa = False
End Sub
'取回拨控制变量
Sub GetReplyDialKey()
Dim x As Integer
Nu = FreeFile
Open App.Path &
"/par/ReplyDial.txt" For Input Shared As #Nu
Input #Nu, x
Close #Nu

If x = 1 then
ReplyDialKey = True else
ReplyDialKey = False

End Sub
'输出报警音乐文件路径
Sub PutMusicURLL(MKey As Integer, musicURLL1 As String)
Nu = FreeFile
Open App.Path &
"/par/MusicURLL.txt" For Output As Nu
Print #Nu, MKey
Print #Nu, musicURLL1
Close
musicURLL = musicURLL1
If MKey = 1 then
SoundCa = True else
SoundCa = False
End Sub
Sub GetAlarmKey(n, db() As String)
For i = 1 To n
If Left$(Trim(db(i)), 5) = "01110" then
AlarmKey = True: Exit For
Next i
If AlarmKey then
MainFrm.Toolbar2.Buttons(11).Enabled = True '报警按钮可用
End Sub
Sub WriteDialInf(Frm As Form, txt As String)
Frm.StatusBar1.Panels(4).Text = txt
End Sub

to coldew:多谢关注，我试了同样报错误命令，可能在xp下没有这样的命令吧。
不过现在已经没事了，我重装了xp,linux用软件启动得了。被迫上梁山了

拣分啦。

分，分，富翁的命根，呵呵~~~

大家一起分哦

j

sadf

[8D]

我好穷啊，我也要分啊，多给点[][][][][][]

我爱你,给我多点分

[]

我快没有分了，你帮帮我吧！多给我点好

哈哈

同喜，分

晕!有这等事?

多人接受答案了。