Hi I have detailed below a simple vb program which is part of a vb.exe . I wish to use in a vb script which I can use in some HA software. My question is how can I query the dll without the module? module code Option Explicit Declare Function Initreceivep6 Lib "socket.dll" Alias "receivep6" () As Long Declare Function Datatransfer Lib "socket.dll" Alias "transfer" (ByVal variable As Long) As Long Declare Function Setdata Lib "socket.dll" Alias "setdata" (ByVal variable As Long) As Long Declare Function Cleandata Lib "socket.dll" Alias "cleandata" (ByVal variable As Long) As Long Declare Sub Setip Lib "socket.dll" Alias "setip" (ByVal variable As String) vb form code Option Explicit Dim Ipset Private Sub Command10_Click() Command10.Visible = False Command18.Visible = True Label1.Visible = True Ipset = Setdata(&H40) Ipset = Datatransfer(Ipset) End Sub Private Sub Command11_Click() Command11.Visible = False Command19.Visible = True Label2.Visible = True Ipset = Setdata(&H80) Ipset = Datatransfer(Ipset) End Sub Private Sub Command18_Click() Command10.Visible = True Command18.Visible = False Label1.Visible = False Ipset = Cleandata(&HBF) Ipset = Datatransfer(Ipset) End Sub Private Sub Command19_Click() Command11.Visible = True Command19.Visible = False Label2.Visible = False Ipset = Cleandata(&H7F) Ipset = Datatransfer(Ipset) End Sub Private Sub Form_Load() Dim P6 Setip "192.168.1.25" P6 = Initreceivep6 If (P6 And &H40) Then Command10.Visible = False Command18.Visible = True Setdata (&H40) 'value =64 Else Command10.Visible = True Command18.Visible = False Cleandata (&HBF) End If If (P6 And &H80) Then Command11.Visible = False Command19.Visible = True Setdata (&H80) Else Command11.Visible = True Command19.Visible = False Cleandata (&H7F) End If If (P6 And &HB40) Then Label1.Visible = True Else Label1.Visible = False Cleandata (&HBF) End If If (P6 And &HB80) Then Label2.Visible = True Else Label2.Visible = False Cleandata (&H7F) End If End Sub I wish to remove need for graphics and in the vb script use SetPropertyValue() fed to a device in the program. ie If (P6 And &HB80) Then SetPropertyValue(X) Any ideas anyone
