quote:以下是引用ruixin2在2010-02-05 16:18:05的发言：
Private Sub cmdConnectServer_Click()
objEventServer.Connect "OPC.SinumerikEvents", ""
'默认是本机 ,""中加上远程计算机名字就变成远程了,例如PCU50的计算机名为MACHINE_840D,objEventServer.Connect "OPC.SinumerikEvents", "MACHINE_840D"
Set objSubs cription1 = objSubs criptions.Add("Sub")
objSubs cription1.IsActive = True
cmdDisconnectServer.Enabled = True
cmdConnectServer.Enabled = False
End Sub

---