erstmal mein nicht funktionierender code:
Spoiler anzeigen
Dim $temp = ""
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{F11}","_exit")
[/autoit] [autoit][/autoit] [autoit]$rcdll = DllOpen("ahscript.dll")
If @error Then
MsgBox(0,"error open dll",@error)
EndIf
Func _exit()
Exit
EndFunc
While 1
$temp = DllCall($rcdll,"str","RecvAction")
If @error Then
MsgBox(0,"error call recvaction",@error)
EndIf
If $temp = "" Then
Else
MsgBox(0,"",$temp)
EndIf
WEnd
bei dem dllcall kriege ich fehler 3
was mache ich falsch?
hier in js:
Spoiler anzeigen
This is where I load the ActiveX Componet For ActiveHome Pro
//-->
<OBJECT ID="ActiveHomeObj" width=0 height=0 classid="CLSID:001000AF-2DEF-0208-10B6-DC5BA692C858" codebase="ahscript.dll" standby="Loading X10 net components..." type="application/x-oleobject"></OBJECT>
<!--//
This is where we receive data from the CM15A and display it in the textarea
//-->
<SCRIPT FOR="ActiveHomeObj" EVENT="RecvAction( commandString, param1, param2, param3, param4, param5, param6)" LANGUAGE="Jscript">
/*
* param2 is the button description
* param3 0 = button down, -1 = button up
*/
if(param2 == "Left" && param3 != -1 ) {
nextPhoto(-1);
} else if(param2 == "Right" && param3 != -1) {
nextPhoto(1);
}
</SCRIPT>wie der coder schon schreibt ist es wohl ein activex "ding" hab dann ein wenig gegoogled und die
au3chm durchforstet und rumprobiert aber da ich keine ahnung von dlls habe (au3 schon ein wenig)
ist dabei nix rumgekommen.
ist es richtig mit dllcall und objevent?
diese ahscript.dll habe ich aus dem sdk fuer meine usb-funk-fernbedinung das leider wenig hilft (bis auf son paar sample codes in sprachen != au3)
vielen dank fuer eure hilfe! gruss, phil
//edit: hier nochma fast das gleiche in //edit: vbscript gefunden:
Spoiler anzeigen
<HTML>
<HEAD>
<TITLE>ActiveHome VB Scripting</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" >
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<CENTER><H2>ActiveHome VB Scripting</H2></CENTER>
<FONT FACE="verdana,arial,helvetica" SIZE=1>
<A href="#" onclick=self.close() CLASS="clsDemo">Close This Test</A>
</FONT><HR>
<OBJECT ID="ActiveHome1" width=0 height=0
classid="CLSID:001000AF-2DEF-0208-10B6-DC5BA692C858"
codebase="ahscript.dll"
standby="Loading X10 net components..."
type="application/x-oleobject">
</OBJECT>
<FORM NAME="myForm">
Send Status
<BR>
<INPUT TYPE="text" NAME="sendstatus" size="50">
<BR>
Receive Status
<BR>
<INPUT TYPE="text" NAME="recv1">
<INPUT TYPE="text" NAME="recv2">
<INPUT TYPE="text" NAME="recv3">
<INPUT TYPE="text" NAME="recv4">
<INPUT TYPE="text" NAME="recv5">
<INPUT TYPE="text" NAME="recv6">
<BR>
</FORM>
<SCRIPT LANGUAGE="vbscript">
Function doCommand( Command )
if Command = 1 then
myForm.sendstatus.value = "e8 On sent"
ActiveHome1.SendAction "sendplc", "e8 on"
elseif Command = 2 then
myForm.sendstatus.value = "e8 Off sent"
ActiveHome1.SendAction "sendplc", "e8 off"
end if
End Function
Function ActiveHome1_RecvAction( bszRecv, vParm1, vParm2, vParm3, vParm4, vParm5, vReserved )
myForm.recv1.value = bszRecv
myForm.recv2.value = vParm1
myForm.recv3.value = vParm2
myForm.recv4.value = vParm3
myForm.recv5.value = vParm4
myForm.recv6.value = vParm5
End function
</SCRIPT>
<FORM NAME="myButtons">
<BR>
<CENTER>
<INPUT NAME="btnSendOn" TYPE="Button" VALUE="Send e8 on" onclick="doCommand( 1 );">
<INPUT NAME="btnSendOff" TYPE="Button" VALUE="Send e8 off" onclick="doCommand( 2 );">
</CENTER>
<BR>
</FORM>
<P>
<HR>
<FONT FACE="Arial" SIZE="1" COLOR="BLACK">
© 2004 <A TARGET="_blank" HREF="http://www.x10.com">X10</A>. All rights reserved.
</FONT>
</BODY>
</HTML>