grif091
Super User
Joined: March 26 2008
Location: United States
Online Status: Offline
Posts: 1357
|
| Posted: August 30 2010 at 11:50 | IP Logged
|
|
|
The following line in a Macro (Formula) will invoke the VB Script file below that. The VB Script file is a junk file I use to test things so do not look at it for any meaningful function.
ph_runscript_0(0, "c:\temp\avbscript1.vbs", "testfunction")
@language="vbscript"
Sub sub1()
ph.usermessage("user message from vb script")
End Sub
Function testfunction()
const ion = 17
const ion10 = 10
const ion7 = 7
const ioff9 = 9
ioff = 10
stringPH = "text of message with VBS variable inline " & ioff & " remainder of message"
ph.usermessage("test message from function " & ion + ioff9 & " more message")
ph.usermessage("second message from function")
' rv=ph.insteon("ICON SWITCH TEST", int(ioff) + ioff9, 254)
ph.usermessage(stringPH)
End Function
__________________
Lee G
|
Active Topics 
Memberlist 
Search 
Help
Register 
Login
PowerHome Messageboard : PowerHome Programming
Topic: Intro tp Powerhome Javascript/VB Script
