通过串行端口发送短信SMS Through Serial Port

亲爱的所有人，
我正在使用WInCC Flexible 2008 SP2作为我的项目的PC RUNTIME
我想通过WInCC Flexi 2008 PC Runtime中的脚本发送短信
我已经开发了使用GSM调制解调器通过串行端口发送SMS的脚本。该脚本在Windows XP中运行良好
但不幸的是，我的客户购买了WIndows7 32位操作系统
除发送短信脚本外，其他所有任务都工作正常
i alkso已在windows7中注册actix控件。
即MSCOMM32.ocx
通过许多诊断，我发现脚本没有在Windows7中打开端口。修改后的脚本如下：

Dim SMS发送
Dim SMS、SMS2

Dear All,
I am using WInCC Flexible 2008 SP2 as PC RUNTIME for my project.
I want to send SMS through Script present in WInCC Flexi 2008 PC Runtime.
I have already developed script for sending SMS through Serial port using GSM Modem. The script is perfectly working in Windows XP.
But unfortunately my client has purchased WIndows7 32 Bit os.
all thigns are working perfectly except for sending SMS script.
i alkso have registered actix controls in windows7.
i.e. MSCOMM32.ocx.
by many diagnostics i found that the script is not opening the port in Windows7. The mendtioned script is as follow;

Dim SMSSend
Dim SMS, SMS2
Dim buffer, DAM_FT, DAM_INCH, MyDate, MyTime
Dim S
Dim NoArr(6)

DAM_FT=（POND_WATER_DISPLAY）
DAM_INCH=（英寸值）
我的日期=日期
MyTime=时间

DAM_FT=(POND_WATER_DISPLAY)
DAM_INCH=(Inch_Value)
MyDate= Date
MyTime=Time

INCREMENT_VALUE=INCREMENT_VALUE+1
If（INCREMENT_VALUE&gt；15）Then
INCREMEMENT_WALUE=0
Set SMSSend=CreateObject（“MSCommLib.MSComm”）
如果NO1_MOBILE_INT=15，则
End If
If NO3_MOBILE_INT=15 Then
NoArr（2）=MOBILE_NO_3
End If
If NO4_MOBILE_INT=15 Then
SMS发送。设置=“9600，N，8,1”
SMS发送。输入Len=0
SMS发送。握手=0
SMS发送。PortOpen=True
SMS=“VASANA BARRAGE WATER STORAGE CURRENT LEVEL IS”
SMS2=“.CURENT INCOMING FLOW IS”
如果（INCREMENT_VALUE=1），则发送SMS。输出=“AT”&amp；通道（13）
数据输入=SMS发送。输入
结束条件

INCREMENT_VALUE=INCREMENT_VALUE+1
If (INCREMENT_VALUE > 15) Then
INCREMENT_VALUE=0
End If
'here you can add all the cell numbers you want to send to
Set SMSSend = CreateObject("MSCommLib.MSComm")
If NO1_MOBILE_INT=15 Then
NoArr(0)=MOBILE_NO_1
End If
If NO2_MOBILE_INT=15 Then
NoArr(1)=MOBILE_NO_2
End If
If NO3_MOBILE_INT=15 Then
NoArr(2)=MOBILE_NO_3
End If
If NO4_MOBILE_INT=15 Then
NoArr(3)=MOBILE_NO_4
End If
If NO5_MOBILE_INT=15 Then
NoArr(4)=MOBILE_NO_5
End If
If NO6_MOBILE_INT=15 Then
NoArr(5)=MOBILE_NO_6
End If
For S = 0 To 5
SMSSend.CommPort = 1
SMSSend.Settings = "9600,N,8,1"
SMSSend.InputLen = 0
SMSSend.Handshaking = 0
SMSSend.PortOpen = True
SMS="VASANA BARRAGE WATER STORAGE CURRENT LEVEL IS "
SMS2=". CURRENT INCOMING FLOW IS "
If (INCREMENT_VALUE = 1) Then
SMSSend.Output = "AT" & Chr(13)
Data_Input=SMSSend.Input
End If

如果（INCREMENT_VALUE=2），则SMS发送。输出=“AT+CMGF=1”&amp；通道（13）
数据输入=SMS发送。输入
End If
If（INCREMENT_VALUE=3），然后输入SMSSend。输出=“AT+CMGS=”&amp；通道（34）&；无Arr（S）&；通道（34）&；第（13）章；Len（短信）/2；Chr$（13）
Data_Input=SMS发送。输入
End If
If（INCREMENT_VALUE=4），然后输入SMSSend。输出=短信；DAM_FT&amp；“英尺”&amp；DAM_INCH&amp；（DAM_INC）；“英寸at”&amp；我的时间（&M）；我的日期；SMS2和；收入_流量&amp；“CUSEC.”+通道（26）
数据输入=SMS发送。输入
结束条件
SMS结束。端口打开=假

If (INCREMENT_VALUE=2) Then
SMSSend.Output = "AT+CMGF=1" & Chr(13)
Data_Input=SMSSend.Input
End If
If (INCREMENT_VALUE=3) Then
SMSSend.Output = "AT+CMGS=" & Chr(34) & NoArr(S) & Chr(34) & Chr(13) '& Len(SMS) / 2 & Chr$(13)
Data_Input=SMSSend.Input
End If
If (INCREMENT_VALUE =4) Then
SMSSend.Output = SMS & DAM_FT & " Ft " & DAM_INCH & " Inch at " & MyTime & MyDate & SMS2 & INCOMING_FLOW & " CUSEC." + Chr(26)
Data_Input=SMSSend.Input
End If
SMSSend.PortOpen = False

下一个

Next