Last active: May 20 2019 07:41 AMThx Lexikos. That is exactly what I hopped for.You would need to pass in an IDispatch interface, such as created by DispatchObj.
-
Posted 02 October 2010 - 08:06 AM
Last active: 
Sign In
Create Account
Back to top; Create 'ahk' variable. (var=''; also works)
ieWin.execScript("var ahk;","JScript")
; Assign dispatch object to ahk variable.
ieWin.ahk := objThe declaration is necessary because we're interacting with the object via the IDispatch interface, which wasn't designed for dynamic objects. It is possible to add members to dynamic objects via the IDispatchEx interface, assuming they implement it:Expando(obj, name)
{
; Allow obj to be either a ComObj or interface pointer.
ptr := IsObject(obj) ? ComObjUnwrap(obj) : obj
; Retrieve IDispatchEx interface pointer.
if dspEx := COM_QueryInterface(ptr, "{A6EF9860-C720-11d0-9337-00A0C90DCAA9}")
{
; dspEx->GetDispID(name, fdexNameCaseSensitive|fdexNameEnsure, &id)
if !hr := DllCall(NumGet(NumGet(dspEx+0)+7*A_PtrSize), "ptr", dspEx
, "ptr", COM_SysString(wname,name), "uint", 3, "int*", id, "uint")
{
; Although fdexNameEnsure "requests that the member be created",
; obj[name]:=x still causes an "Unknown name" error unless we
; do this first: store an empty value in the member.
VarSetCapacity(args, 16+n:=A_PtrSize*2+8, 0)
NumPut(1, NumPut(&args+n, args), A_PtrSize, "uint")
; dspEx->InvokeEx(id, LOCALE_USER_DEFAULT, DISPATCH_PUT, &args ...)
hr := DllCall(NumGet(NumGet(dspEx+0)+8*A_PtrSize), "ptr", dspEx
, "int", id, "uint", 0x400, "uint", 4, "ptr", &args
, "ptr", 0, "ptr", 0, "ptr", 0, "uint")
}
ObjRelease(dspEx)
}
else hr := 1*0x80004002 ; E_NOINTERFACE
IsObject(obj) ? ObjRelease(ptr) : ""
return hr
}Example:Expando(Document, "foo") Document.foo := "bar"See also: expando Property.
-
Posted 02 October 2010 - 11:41 AM
Last active: May 20 2019 07:41 AM#SingleInstance, force
CreateWindow()
LoadHtml()
Gui, Show, autosize
return
LoadHtml() {
global
html =
(
<html>
<script>
document.onkeyup = KeyCheck;
//alert(document.onkeyup);
function KeyCheck() { alert('Key code: ' + event.keyCode); }
</script>
<body>
press key to see code
</body>
</html>
)
FileDelete _out.html
FileAppend %html%, _out.html
htmlDoc.write(html)
;x := htmlDoc.onkeyup
;m(ComObjType(x, "Name"))
}
CreateWindow() {
global
Gui, +LastFound
hForm := WinExist()
Gui, Add, Text, HWNDhCtrl w400 h400
htmlDoc := COM_AtlAxCreateControl( hCtrl, "HTMLfile" ) ; http://msdn.microsoft.com/en-us/library/da181h29
NativeCom(htmlDoc) ; ensures the "doc" object uses Native COM
ComObjConnect(htmlDoc, "htmlDoc_")
}
htmlDoc_onkeyup(p){
msgbox % A_ThisFunc
}
NativeCom( ByRef obj ) { ; ensures the "obj" object uses Native COM
if Not IsObject(obj)
return
ComObjError(false)
if Not ComObjType(obj,"iid")
obj := ComObjEnwrap(COM_Unwrap(obj))
ComObjError(true)
}
#include COM.ahk
-
Posted 02 October 2010 - 06:21 PM
Last active: Feb 07 2012 04:00 AMYou can call it like this.Document.parentWindow.myfunc() only retrieves a reference to the function; doesn't call it. Similarly, if you use ...myfunc.call(), it retrieves a reference to the call function.
; Document.parentWindow.myfunc("")
ftn := Document.parentWindow.myfunc
ftn.call(ftn)
I don't think it's a good idea as it may break some codes ported from VBScript. If it has to be done, I suppose it better be restricted to no argument case.This will be changed in the next release so that x.y() is always a method-call. For convenience, x.y will retain its current behaviour.
IS_INVOKE_SET ? DISPATCH_PROPERTYPUT : !aParamCount && IS_INVOKE_CALL ? DISPATCH_METHOD : DISPATCH_PROPERTYGET | DISPATCH_METHOD
-
Posted 03 October 2010 - 02:03 AM
Last active: There's a known issue with hosting the IE control which has been discussed at least a few times already. The solution is to hook WM_(SYS)KEYDOWN/UP and have them call IOleInPlaceActiveObject::TranslateAccelerator(). For instance, see Sean's post. I'm not sure if it's the only problem, though.Is there anything here I am missing ?
I see; the presence of a parameter removes the ambiguity (since DISPATCH_PROPERTYGET for that member doesn't accept parameters). This also works:You can call it like this.
ftn := Document.parentWindow.myfunc ftn.call(ftn)
Document.parentWindow.myfunc(1)
Good idea.If it has to be done, I suppose it better be restricted to no argument case.
What's the point of having different syntaxes if they're all ambiguous?If it has to be done,
-
Posted 03 October 2010 - 02:18 AM
Last active: Feb 07 2012 04:00 AMYes, actually how to interpret the flags is completely up to the Server/engine. I felt sorry that we could not fully utilize AHK_L's capability to unambiguously differentiate between CALL & GET, due to the notational incompatibility between JScript and VBScript. If we impose the strict syntax, I reckon a lot of users, especially from VBScript, will be utterly confused.What's the point of having different syntaxes if they're all ambiguous?
value := obj.name[color=red]([/color]...[color=red])[/color] ; DISPATCH_METHOD value := obj.name[color=red][[/color]...[color=red]][/color] ; DISPATCH_PROPERTYGET obj.name[color=red][[/color]...[color=red]][/color] := value ; DISPATCH_PROPERTYPUT obj.name[color=red]([/color]...[color=red])[/color] := value ; DISPATCH_PROPERTYPUTREF
-
Posted 03 October 2010 - 02:48 AM
Last active: May 20 2019 07:41 AMThanks. This worked.There's a known issue with hosting the IE control which has been discussed at least a few times already. The solution is to hook WM_(SYS)KEYDOWN/UP and have them call IOleInPlaceActiveObject::TranslateAccelerator(). For instance, see Sean's post. I'm not sure if it's the only problem, though.
-
Posted 03 October 2010 - 06:42 AM
Last active: May 17 2017 01:57 AMCOM Object: SAPI.SpVoice
Purpose: Text-to-Speech
System Requirements: General
Documentation Link: SpVoice Interface
Code Example:
Text := "Hello World!"
SAPI := ComObjCreate("SAPI.SpVoice")
MsgBox,, Rate: 0, Speak the Text
SAPI.speak(Text)
MsgBox,, Rate: -7, Slow down the Speech
SAPI.rate := -7
SAPI.speak(Text)
MsgBox,, Rate: 7, Speed up the Speech
SAPI.rate := 7
SAPI.speak(Text)
SAPI.rate := 0 ;// set to default rate
MsgBox,, Volume: 50, Lower the Volume (ranges 0-100)
SAPI.volume := 50
SAPI.speak(Text)
-
Posted 17 October 2010 - 05:39 AM
Last active: Dec 25 2012 09:48 AMoI := ComObjCreate("ImageMagickObject.MagickImage.1")
imgs := Object()
Loop, 16 {
filename := "plasma" . A_Index . ".jpg"
oI.convert("-size", "200x200", "plasma:", filename)
imgs.Insert(filename)
}
imgs.Insert("montage.jpg")
stitch(oI, imgs*)
stitch(obj, params*) {
obj.montage("-geometry", "+0+0", params*)
}
oI.convert("montage.jpg", "-verbose", "info:image_info.txt")
oI.convert("montage.jpg", "-define", "histogram:unique-colors=false", "histogram:histogram.gif") ; create histogram
FileRead, info, image_info.txt
FileDelete, image_info.txt
MsgBox % info
oI := ComObjCreate("ImageMagickObject.MagickImage.1")
oI.convert("montage.jpg", "montage.txt")
Output:# ImageMagick pixel enumeration: 40,40,255,rgb 0,0: (235,241,255) #EBF1FF rgb(235,241,255) 1,0: (221,242,237) #DDF2ED rgb(221,242,237) 2,0: (219,253,226) #DBFDE2 rgb(219,253,226) 3,0: (192,225,208) #C0E1D0 rgb(192,225,208) 4,0: (202,224,237) #CAE0ED rgb(202,224,237) 5,0: (223,232,255) #DFE8FF rgb(223,232,255) 6,0: (224,220,245) #E0DCF5 rgb(224,220,245) 7,0: (240,223,239) #F0DFEF rgb(240,223,239) 8,0: (255,240,251) #FFF0FB rgb(255,240,251) 9,0: (244,253,255) #F4FDFF rgb(244,253,255) 10,0: (188,228,230) #BCE4E6 rgb(188,228,230) 11,0: (192,239,245) #C0EFF5 rgb(192,239,245) 12,0: (209,236,255) #D1ECFF rgb(209,236,255) 13,0: (232,235,255) #E8EBFF rgb(232,235,255) 14,0: (235,237,255) #EBEDFF rgb(235,237,255) 15,0: (213,225,237) #D5E1ED rgb(213,225,237) 16,0: (230,237,245) #E6EDF5 rgb(230,237,245) 17,0: (230,249,255) #E6F9FF rgb(230,249,255) ...
; http://www.imagemagick.org/script/fx.php
oI := ComObjCreate("ImageMagickObject.MagickImage.1")
r := oI.identify("-format", "%[fx]", "montage.jpg")
MsgBox % r
-
Posted 22 October 2010 - 12:58 PM
Last active: Feb 07 2012 04:00 AM
-
Posted 22 October 2010 - 03:05 PM
Last active: Dec 25 2012 09:48 AMThank you, Sean. Removed.BTW, IsObject check is not necessary. Error message will be popped up if creation fails.
-
Posted 22 October 2010 - 03:30 PM
Last active: Jan 02 2016 02:30 PMCOM Object: Word.Application
Purpose: create and edit various documents
System Requirements: Microsoft Office Word application
Documentation Link: <!-- m -->http://msdn.microsof...ry ... 12).aspx<!-- m -->
Other Links:
Basic Code Example:
oWord := ComObjCreate("Word.Application") ; create MS Word object
oWord.Documents.Add ; create new document
oWord.Selection.Font.Bold := 1 ; bold
oWord.Selection.TypeText("Visit ") ; type text
oWord.ActiveDocument.Hyperlinks.Add(oWord.Selection.Range, "http://www.autohotkey.com/forum/topic61509.html"
,"","","COM Object Reference [AutoHotkey_L]") ; insert hyperlink
oWord.Selection.TypeText("and learn how to work with ") ; type text
oWord.Selection.Font.Italic := 1 ; italic
oWord.Selection.TypeText("COM objects") ; type text
oWord.Selection.Font.Bold := 0, oWord.Selection.Font.Italic := 0 ; bold and italic off
oWord.Selection.TypeText(".") ; type text
oWord.Selection.TypeParagraph ; type paragraph (enter, new line)
oWord.Visible := 1, oWord.Activate ; make it visible and activate it.
ExitApp
-
Posted 22 October 2010 - 04:48 PM
Last active: May 02 2019 09:16 PM
-
Posted 22 October 2010 - 04:51 PM
Last active: May 17 2017 01:57 AM
-
Posted 23 October 2010 - 04:54 AM
Last active: Dec 25 2012 09:48 AMregsvr32 /c /s ImageMagickObject.dllThere is no single DLL, ImageMagickObject.dll has several dependencies.
-
Posted 23 October 2010 - 05:18 AM
Community Forum Software by IP.Board
Licensed to: AutoHotkey Foundation LLC
