DevNum, SetData, PassWord )
Else
CmdMode, ClrMode, PassWord )
CmdMode, PassWord )
46
Dim DevNum
'Number of device
DevNum="0001"
Dim SetData
'Set data
Select Case Request.Form("SetData")
Case "Set"
SetData="0001"
Case "Reset"
SetData="0000"
End Select
disp = Object.DevWrite( HostName, NetNo, PcNo, CpuTime, DevCode, DevNo,
'Click remote RUN,remote STOP
If Request.Form("CpuNo")<>"" Then
Dim CpuNo
CpuNo="03FF"
Dim CmdMode 'Command mode
CmdMode="0001"
Select Case Request.Form("CpuNo")
Case "Remote RUN"
Dim ClrMode
ClrMode="02"
disp=Object.RmtRun( HostName, NetNo, PcNo, CpuTime, CpuNo,
Case "Remote STOP"
disp=Object.RmtStop( HostName, NetNo, PcNo, CpuTime, CpuNo,
End Select
Else
'Dim DevCode 'Device code
DevCode="D*"
'Dim DevNo
DevNo="000100"
'CPUNo
'Clear mode
'Device number