Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

Sub Main (parm as object)

  Dim fso, outputfile, filename, data, objShell

  objShell = CreateObject("WScript.Shell")
  objShell.Run("c:\modpoll\modpoll.cmd", 0, True)
  objShell = Nothing

'  System.Threading.Thread.Sleep(5000)

  filename = "c:\modpoll\wktt.txt"
  fso = CreateObject("Scripting.FileSystemObject")
  outputfile = fso.OpenTextFile(filename, 1, True)
    
  do while outputfile.AtEndOfStream <> True
    data = outputfile.ReadLine
    if left(data, 6) = "[260]:" then
      hs.SetDeviceString ("M1", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M1", right(data, len(data)-7))
    end if
  loop

  outputfile.Close

End Sub

Code: Select all

22-3-2013 12:56:55  - Error - Scripting runtime error: System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.IO.FileNotFoundException: Het systeem kan het opgegeven bestand niet vinden. (Exception from HRESULT: 0x80070002)   at Microsoft.VisualBasic.CompilerServices.LateBinding.InternalLateCall(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack, Boolean IgnoreReturn)   at Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateCall(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack, Boolean IgnoreReturn)   at scriptcode5.scriptcode5.Main(Object parm)   --- End of inner exception stack trace ---   at System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)   at System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)   at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)   at System.Reflection.MethodBase.Invoke(Object obj, Object[] parameters)   at Scheduler.VsaScriptHost.Invoke(String ModuleName, String MethodName, Object[] Arguments)

Code: Select all

modpoll 3.4 - FieldTalk(tm) Modbus(R) Master Simulator
Copyright (c) 2002-2013 proconX Pty Ltd
Visit http://www.modbusdriver.com for Modbus libraries and tools.

Protocol configuration: MODBUS/TCP
Slave configuration...: address = 1, start reference = 260, count = 5
Communication.........: 192.168.2.2, port 502, t/o 1.00 s, poll rate 1000 ms
Data type.............: 16-bit register, output (holding) register table

-- Polling slave...
[260]: 200
[261]: 178
[262]: 202
[263]: 161
[264]: 160

Code: Select all

Public Sub Main(ByVal Parms As String)
	Const fsoForReading = 1
	Const fsoForWriting = 2
	Const ForAppending = 8

	Dim Device as String
	Dim strDevice as String
	Dim objFSO as Object
	Dim objFile as Object
	Dim Filename As String

	Filename = "c:\Program Files\HomeSeer HSPRO\data\<het logfile>.csv"
	Device = "<device code>"
	strDevice = hs.DeviceString(Device)

	objFSO = CreateObject("Scripting.FileSystemObject")

	Try
	  objFile = objFSO.OpenTextFile(Filename, ForAppending )
	  objFile.WriteLine(strDevice)

	Catch e as Exception
	  hs.WriteLog("System error",e.Message)
	  hs.WriteLog("Writing CSV","Kon de data niet wegschrijven naar " & Filename)
	End Try

 	objFSO        = Nothing
	objFile       = Nothing

	'hs.WriteLog("SYSTEEM", "Ready updating CSV.")	
End Sub

Code: Select all

Sub Main (parm as object)

  Dim fso, outputfile, filename, data, objShell

  objShell = CreateObject("WScript.Shell")
  objShell.Run("c:\modpoll\temppoll.cmd", 0, True)
  objShell = Nothing

'  System.Threading.Thread.Sleep(5000)

  filename = "c:\modpoll\temppoll.txt"
  fso = CreateObject("Scripting.FileSystemObject")
  outputfile = fso.OpenTextFile(filename, 1, True)
    
  do while outputfile.AtEndOfStream <> True
    data = outputfile.ReadLine
    if left(data, 6) = "[260]:" then
      hs.SetDeviceString ("M1", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M1", right(data, len(data)-7)/10)
    end if
    if left(data, 6) = "[261]:" then
      hs.SetDeviceString ("M2", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M2", right(data, len(data)-7)/10)
    end if
    if left(data, 6) = "[262]:" then
      hs.SetDeviceString ("M3", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M3", right(data, len(data)-7)/10)
    end if
    if left(data, 6) = "[263]:" then
      hs.SetDeviceString ("M4", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M4", right(data, len(data)-7)/10)
    end if
    if left(data, 6) = "[264]:" then
      hs.SetDeviceString ("M5", (right(data, len(data)-7)/10) & "°C", True)
      hs.SetDeviceValue ("M5", right(data, len(data)-7)/10)
    end if
  if left(data, 6) = "[265]:" then
      hs.SetDeviceString ("M6", Math.Round((right(data, len(data)-7)/10-100), 1) & "°C", True)
      hs.SetDeviceValue ("M6", right(data, len(data)-7)/10-100)
    end if  
    if left(data, 6) = "[266]:" then
      hs.SetDeviceString ("M7", (right(data, len(data)-7)) & "Lux", True)
      hs.SetDeviceValue ("M7", right(data, len(data)-7))
    end if
  loop

  outputfile.Close

End Sub