新手求解 VB程序如何停止定时发送短信
Private Sub Timer6_Timer()
If InStr(Tems, "Yes") <> 0 Then
Timer6.Enabled = False
Else
Me.Timer6.Interval = 60000
Call Armed
End If
End Sub
这样好像不行啊，我发送Yes的短信指令，这里截取不到

[解决办法]
Tems是否是全局变量。

如果是多窗体请在模块里有public定义全局变量。

[解决办法]
模块加一个,然后public Tems as string

某个窗体中加一个按钮

VB code

Private Sub Command1_Click()Tems = "Yes"End Sub