Createobject problems

[Richard Naninck]

I am working on getting network packets into HouseBot.
I installed PacketX and got a script working outside of HouseBot using WScript. I cannot get it to work in HouseBot. Obviously I left all of the WScript stuff behind.

It hangs on the CreateObject line. I have never used two parameters in one CreateObject and maybe this is HouseBot related. The second parameter is supposed to be the location where the object is created and this is where I get an error. I get an error telling me the external servercomputer doesn't exist.

Any hints would be very nice!

EDIT:
After some testing I figured out that the location parameter "PacketX_" needs to be the same as the name in the Public Sub, but it can be called anything while using WScript. In HouseBot all names fail except my own server PC name but while using that name, the sub never gets triggered. So it seems HouseBot may be incapable of creating a valid location for the ActiveX dll.

Scott; any ideas on this?

Script looks like this:

Code: Select all

Dim oPktX
Dim nit

Const PktXProtocolTypeUdp       = 3
Const PktXPacketTypePromiscuous = &H0020
Const PktXModeCapture           = 1

Set oPktX = CreateObject("PktX.PacketX", "PacketX_")

For nit = 1 To oPktX.Adapters.Count
	If oPktX.Adapters(nit).IsGood And Left(RTrim(LTrim(oPktX.Adapters(nit).Description)), 6) = "NVIDIA" Then
		oPktX.Adapter = oPktX.Adapters(nit)
		Exit For
	End If
Next

oPktX.Adapter.BuffSize=256*1024 '// 256 KB
oPktX.Adapter.BuffMinToCopy=0
oPktX.Adapter.HWFilter=PktXPacketTypePromiscuous
oPktX.Adapter.Mode=PktXModeCapture
oPktX.Start

Do
	Sleep(1)
Loop

oPktX.Stop
Set oPktX = Nothing


Public Sub PacketX_OnPacket(ByRef oPacket)
Dim nit
Dim bByte
Dim strLine
Dim strAlert

	nit = 0
	
	If oPacket.Protocol = PktXProtocolTypeUDP And oPacket.SourceIpAddress = "192.168.0.5" And oPacket.DestIpAddress = "192.168.0.3" And oPacket.DestPort = "4717" Then
		For Each bByte In oPacket.Data
			If nit > 68 And nit < 82 Then
				strLine = strLine & Chr(CInt(bByte))
			End If
			
			nit = nit + 1
		Next

		If Len(strLine) > 12 Then
			If Right(strLine, 6) <> "000000" Then
				strAlert = "Motion detected"
			Else
				strAlert = "Video Loss"
			End If
			
			Select Case Left(strLine, 4)
				Case "0000": SetPropertyValue "Camera Status.Camera 1", strAlert
				Case "0101": SetPropertyValue "Camera Status.Camera 2", strAlert 
				Case "0202": SetPropertyValue "Camera Status.Camera 3", strAlert 
				Case "0303": SetPropertyValue "Camera Status.Camera 4", strAlert 
			End Select
		End If
	End If
End Sub

[ScottBot]

...Scott; any ideas on this?

Sorry, I really don't have any idea.

[Richard Naninck]

Scott;

Would writing this code in C# using the C# wrapper make any difference?

[ScottBot]

I'm not sure. Dave might be able to shed some light on it, since he is the author.

[Richard Naninck]

We will find out soon enough. I am setting up C# in a few days and will port the code. I expect this to work since HB won't address the CreateObject anymore. Wild guess of course, but let's hope so. If it works, I will post it here..