;Rss Reader v0.21 ;by majkinetor ;SetBatchLines, -1 #Singleinstance, force SetControlDelay, -1 #NoEnv if !FileExist("icons\loading.gif"){ FileCreateDir, icons UrlDownloadToFile, http://www.autohotkey.net/~majkinetor/RSS`%20Read/loading.gif, icons\loading.gif } gosub SetStyle IE_Init() Gui, +LastFound +Resize hGui := WinExist() height := 800, width := 1100 cnt := 0 tvm := 2.5 _ := width // tvm - 25 Gui, Add, ComboBox, x0 y0 w%_%, http://news.google.com/news?ned=us&topic=h&output=atom||http://www.autohotkey.com/forum/rss.php|http://www.mininova.org/rss.php|http://www.ghisler.ch/board/rss.php Gui, Add, Button, gOnGo w24 0x8000 x+0,Go _ += 25 hIL := IL_Create(10,10) Gui, Add, TreeView, gOnClick ImageList%hIL% y25 x0 w%_% h%height% Separator_Create(_) RSS_IE := IE_Add( hGui, _+5, 0, _*(tvm-1), height) psink := COM_ConnectObject(RSS_IE, "Web_") SetCursor("SIZEWE", "Static1") Gui, Show, w%width% h%height% Gosub, ongo return Separator_Create(x="+0",y=0,width=5,height=2000){ local hSep WM_LBUTTONDOWN=0x201, WM_LBUTTONUP=0x202, WM_LBUTTONDBLCLK = 0x203 Gui, Add, Text, HWNDhSep y%y% x%x% w%width% 0x1000 h%heigh%,`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n`n Separators .= hSep "|" Separator_%hSep%_width := width OnMessage(WM_LBUTTONDOWN, "Separator_Handler") } Separator_Handler(wparam, lparam, msg, hwnd){ local ctrl, WM_LBUTTONDOWN=0x201 if (msg=WM_LBUTTONDOWN) { MouseGetPos, ,,, ctrl, 2 if InStr(Separators, ctrl "|"){ Separator_hSep := ctrl SetTimer, Separator, 20 } return } } GuiSize: Anchor("SysTreeView321", "h") Anchor("AtlAxWin1", "wh") return Separator: Separator_Move(true) return Separator_Move(all=false) { global Separator_hSep static px if !GetKeyState("LButton") { SetTimer, Separator, off final := all := true } MouseGetPos, x,y,A if (px = x) return else px := x if x < 0 x := px := 5 ControlMove, , x,,,,ahk_id %Separator_hSep% w := Separator_%Separator_hSep%_width ControlMove, SysTreeView321, ,, x-5,,A ControlMove, ComboBox1, ,, x-30,,A ControlMove, Button1, x-25,,,,A ControlGetPos, x1,,w1,,AtlAxWin1,A ControlMove, AtlAxWin1, x+w,,w1+x1-x-w,,A if final Anchor("","","",1) } GuiClose: FileDelete, out.html ExitApp return OnClick: if A_GuiEvent!=S return parent := TV_GetParent(A_EventInfo) if !parent{ RSS_ParseFeed() return } c := TV_GetChild(parent) loop, { if (c = A_EventInfo) { _ := A_Index break } c := TV_GetNext(c) } RSS_ParseItem(_) return OnGo: ControlGetText,_, Edit1 RSS_LoadFeed(_) return Web_BeforeNavigate2(prms, this) { global pwin url := COM_DispGetParam(prms, 1) if FileExist(url) return Run, %url% NumPut(-1, NumGet(NumGet(prms+0)+8), 0, "short") ; cancel the navigation } RSS_ParseItem( idx ) { local xItem, html xItem := XML_Node(RSS_Items, idx) html = xItem := XML_Node(RSS_Items, idx) html .= RSS_GetHtml(xItem) "" FixHtml(html) FileDelete, out.html FileAppend, %html%, out.html IE_LoadURL(RSS_IE, A_ScriptDir "\out.html") pDoc := IE_Document(pwb) pWin := COM_Invoke(pDoc, "parentWindow") } RSS_LoadFeed(url){ local xml, tvp, icon, icoNum TV_Delete(), IL_Destroy(hIL), hIL := IL_Create(10,10) RSS_Status("Loading " url) xml := XML_Open(url), icon := RSS_GetIcon(url) RSS_type := XML_selectSingleNode(xml, "/feed") ? "atom" : "rss" icoNum := icon ? IL_ADD(hIL, icon) : IL_ADD(hIL, "shell32.dll", 141) tvp := TV_Add(XML_NodeText(xml, "//title"), 0, "Expand Icon" iconNum) RSS_Items := RSS_GetItems(xml) RSS_ParseFeed(tvp, icoNum) } RSS_GetItems(xml){ global return XML_selectNodes(xml, RSS_type="rss" ? "//item" : "//entry") } RSS_ParseFeed(parent=0, icoNum=0){ local html, xItem html = loop % XML_length(RSS_Items) { xItem := XML_Node(RSS_Items, A_Index) if parent TV_Add( XML_NodeText(xItem, "title"), parent, "Icon" icoNum) html .= RSS_GetHtml(xItem) } html .= "" FixHtml(html) FileDelete, out.html FileAppend, %html%, out.html IE_LoadURL(RSS_IE, A_ScriptDir "\out.html") pDoc := IE_Document(pwb) pWin := COM_Invoke(pDoc, "parentWindow") ;click on IE or scroll bar is bugged sleep, 100 controlclick, Internet Explorer_Server1, ahk_id %hGui%,,,,x-1000 y-1000 } RSS_GetChannelInfo(xml){ local c, txt c := XML_selectSingleNode(xml, RSS_type="rss" ? "rss/channel" : "/feed") txt := XML_NodeText(c, "title") "
" XML_NodeText(c, RSS_type="rss" ? "description" : "tagline") return txt } RSS_GetHtml(xItem){ local html html =

if RSS_type = rss html .= "" . XML_NodeText(xItem, "title") "
" . "

" XML_NodeText(xItem, "description") "

" else html .= "

" XML_NodeText(xItem, "title") "

" . "

" XML_NodeText(xItem, "content") "

" return html } FixHtml(ByRef html){ StringReplace, html, html,<,<,A StringReplace, html, html,>,>,A StringReplace, html, html, ,%A_Space%,A StringReplace, html, html,",",A StringReplace, html, html,&,&,A } RSS_Status(txt, img="icons\loading.gif") { global RSS_IE FileDelete, out.html FileAppend

%txt%

, out.html IE_LoadURL(RSS_IE, A_ScriptDir "\out.html") } RSS_GetIcon(txt){ global RSS_Type if RSS_Type = feed return RegExMatch(txt, "www\.(.+?)\..+?\/", icon) icoUrl = http://%icon%favicon.ico icoFn = icons\%icon1%.ico if FileExist( icoFN ) return icoFn UrlDownloadToFile, %icoUrl%, %icoFN% if ErrorLevel return return icoFn } RSS_GetChannel(ByRef hFeed, channel=1, prefix="rssc_"){ global static nodes := "title|link|description|language|copyright|managingEditor|webMaster|pubDate|lastBuildDate|category|generator|docs|cloud|ttl|image|rating|textInput|skipHours|skipDays" ; loop, parse, nodes, | ; %prefix%%A_loopField% := xpath(hFeed, "/rss/channel[" channel "]/" A_LoopField "/text()") } SetStyle: RSS_style = ( .code{ font-family: "Courier New", Courier, monospace; font-size: .8em; background:#EAEAEA; border: solid 1px; } .quote{ background:white; } #post { width:100`%; padding:20px; background:#E5E5E5; margin:10px; } ) return ;==================== START: #include MSDOM.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;XML test ; by majkinetor ; docs: http://msdn2.microsoft.com/en-us/library/aa468547.aspx xDoc := XML_Open("http://cyber.law.harvard.edu/rss/examples/rss2sample.xml") if !xDoc return xpath := "//item" msgbox % DisplayNode( xDoc, 1 ) nodes := XML_selectNodes(xDoc, xpath ) msgbox % "XPath: " xpath "`n`n" DisplayNode(nodes) return DisplayNode(xcn, single=0, ident="") { if single xcn := XML_childNodes(xcn) loop, % XML_length(xcn) { xNode := XML_Node(xcn, A_Index) if txt := XML_IsTextNode(xNode) res .= ident XML_nodeName(xNode) ": " txt "`n" else if XML_hasChildNodes(xNode) { res .= ident XML_nodeName(xNode) "`n" res .= DisplayNode( XML_childNodes(xNode), 0, ident " ") } } return res } ;------------------------------------------------------------------------------ XML_Open( pDoc, pAsync=false, pShowErr=true ){ COM_CoInitialize() xDoc := COM_ActiveXObject("Msxml2.DOMDocument.3.0") COM_Invoke(xDoc, "async=", pAsync) if COM_Invoke(xDoc, "Load", pDoc) return xDoc ;error if pShowErr { xPE := COM_Invoke(xDoc, "parseError") COM_Invoke(xPE, "errorCode") err := "XML Document failed to load`n" . "`nError: " COM_Invoke(xPE,"errorCode") . "`n" COM_Invoke(xPE,"reason") . "`nLine: " COM_Invoke(xPe,"Line") . "`nLine Position: " COM_Invoke(xPe,"linepos") . "`nFile Position: " COM_Invoke(xPe,"filepos") . "`nSource Text: " COM_Invoke(xPe,"srcText") . "`nDocument URL: " COM_Invoke(xPe,"url") } return 0 } XML_NodeText(pNode, xpath="") { return COM_Invoke(COM_Invoke(pNode, "selectSingleNode", xpath ? xpath "/text()" : "text()"), "nodeValue") } XML_IsTextNode(pNode){ fc := COM_Invoke(pNode, "firstChild") if COM_Invoke(fc, "nodeType" ) = 3 ;NODE_TEXT return COM_Invoke(fc, "nodeValue") } XML_selectNodes( pNode, xPath ) { return COM_Invoke(pNode, "selectNodes", xPath) } XML_selectSingleNode( pNode, xPath ) { return COM_Invoke(pNode, "selectSingleNode", xPath) } XML_nodeType(pNode) { static TYPE_1="ELEMENT", TYPE_2="ATTRIBUTE", TYPE_3="TEXT", TYPE_4="CDATA_SECTION", TYPE_5="ENTITY_REFERENCE", TYPE_6="ENTITY", TYPE_7="PROCESSING_INSTRUCTION", TYPE_8="COMMENT", TYPE_9="DOCUMENT", TYPE_10="DOCUMENT_TYPE", TYPE_11="DOCUMENT_FRAGMENT", TYPE_12="NOTATION" res := COM_Invoke(pNode,"nodeType") return TYPE_%res% } XML_nodeName(pNode) { return COM_Invoke(pNode, "nodeName") } XML_parentNode(pNode) { return COM_Invoke(pNode, "parentNode") } XML_firstChild(pNode) { return COM_Invoke(pNode, "firstChild") } XML_lastChild(pNode) { return COM_Invoke(pNode, "lastChild") } XML_previousSibling(pNode){ return COM_Invoke(pNode, "previousSibling") } XML_nextSibling(pNode){ return COM_Invoke(pNode, "nextSibling") } XML_hasChildNodes(pNode) { return COM_Invoke(pNode, "hasChildNodes") } XML_childNodes(pNode) { return COM_Invoke(pNode, "childNodes") } XML_length(pNodes){ return COM_Invoke(pNodes, "length") } XML_Node(pNodes, idx) { return COM_Invoke(pNodes, "Item", idx-1) } ;==================== END: #include MSDOM.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;==================== START: #include SetCursor.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;Title: SetCursor ;---------------------------------------------------------------------------------------------------------------------------------- ; Function: SetCursor ; Set cursor shape for control or window ; ; Parameters: ; pShape - Name of the system cursor to set, or cursor handle ; pCtrl - Class of the control. If omited, cursor will be set for the window ; ; System Cursors: ; APPSTARTING - Standard arrow and small hourglass ; ARROW - Standard arrow ; CROSS - Crosshair ; HAND - Windows 98/Me, Windows 2000/XP: Hand ; HELP - Arrow and question mark ; IBEAM - I-beam ; ICON - Obsolete for applications marked version 4.0 or later. ; NO - Slashed circle ; SIZE - Obsolete for applications marked version 4.0 or later. Use IDC_SIZEALL. ; SIZEALL - Four-pointed arrow pointing north, south, east, and west ; SIZENESW - Double-pointed arrow pointing northeast and southwest ; SIZENS - Double-pointed arrow pointing north and south ; SIZENWSE - Double-pointed arrow pointing northwest and southeast ; SIZEWE - Double-pointed arrow pointing west and east ; UPARROW - Vertical arrow ; WAIT - Hourglass ; SetCursor(pShape, pCtrl="") { return SetCursor_(pShape, pCtrl, 0, 0) } SetCursor_(wparam, lparam, msg, hwnd) { static WM_SETCURSOR := 0x20, WM_MOUSEMOVE := 0x200 static APPSTARTING := 32650,HAND := 32649 ,ARROW := 32512,CROSS := 32515 ,IBEAM := 32513 ,NO := 32648 ,SIZE := 32640 ,SIZEALL := 32646 ,SIZENESW := 32643 ,SIZENS := 32645 ,SIZENWSE := 32642 ,SIZEWE := 32644 ,UPARROW := 32516 ,WAIT := 32514 static hover, curOld=32512, cursor, ctrls="`n", init if !init { OnMessage(WM_SETCURSOR, "SetCursor_") OnMessage(WM_MOUSEMOVE, "SetCursor_") } if A_Gui = { if wparam is not Integer cursor := DllCall("LoadCursor", "Uint", 0, "Int", %WPARAM%, "Uint") if lparam = curOld := cursor else ctrls .= lparam "=" cursor "`n" } If (msg = WM_SETCURSOR) ifEqual, hover, 1, return 1 if (msg = WM_MOUSEMOVE) { MouseGetPos, ,,,c,ahk_id %hwnd% If j := InStr(ctrls, "`n" c "=") { hover := true, j += 2+StrLen(c) j := SubStr(ctrls, j, InStr(ctrls, "`n", 0, j)-j+1) DllCall("SetCursor", "uint",j) } else DllCall("SetCursor", "uint", curOld), hover := "" } } ;--------------------------------------------------------------------------------------------------------------------- ; Group: Example ;> Gui, SHow, w100 h100 ;> Gui, Add, Text, , I am <-> ;> Gui, Add, Text, , I am hand ;> Gui, Add, Text, , I am cross ;> Gui, Add, Text, , I am size ;> Gui, Add, Text, , I am no-no ;> Gui, Add, Text, , I am size all ;> Gui, Add, Text, , I am a waiting ;> ;> SetCursor("APPSTARTING") ;> SetCursor("SIZEWE", "Static1") ;> SetCursor("HAND", "Static2") ;> SetCursor("CROSS", "Static3") ;> SetCursor("SIZENWSE","Static4") ;> SetCursor("NO", "Static5") ;> SetCursor("SIZEALL","Static6") ;> SetCursor("WAIT", "Static7") ;> ;> gui, show, h200 w300 ;>return ;--------------------------------------------------------------------------------------------------------------------- ; Group: About ; o Ver 1.0 by majkinetor. See http://www.autohotkey.com/forum/topic19400.html ; o Licenced under Creative Commons Attribution-Noncommercial . ;==================== END: #include SetCursor.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;==================== START: #include COM.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 COM_Init(bOLE = False) { Return bOLE ? COM_OleInitialize() : COM_CoInitialize() } COM_Term(bOLE = False) { Return bOLE ? COM_OleUninitialize() : COM_CoUninitialize() } COM_VTable(ppv, idx) { Return NumGet(NumGet(1*ppv)+4*idx) } COM_QueryInterface(ppv, IID) { DllCall(NumGet(NumGet(1*ppv)), "Uint", ppv, "Uint", COM_GUID4String(IID,IID), "UintP", ppv) Return ppv } COM_AddRef(ppv) { Return DllCall(NumGet(NumGet(1*ppv)+4), "Uint", ppv) } COM_Release(ppv) { Return DllCall(NumGet(NumGet(1*ppv)+8), "Uint", ppv) } COM_QueryService(ppv, SID, IID = "") { DllCall(NumGet(NumGet(1*ppv)+4*0), "Uint", ppv, "Uint", COM_GUID4String(IID_IServiceProvider,"{6D5140C1-7436-11CE-8034-00AA006009FA}"), "UintP", psp) DllCall(NumGet(NumGet(1*psp)+4*3), "Uint", psp, "Uint", COM_GUID4String(SID,SID), "Uint", IID ? COM_GUID4String(IID,IID) : &SID, "UintP", ppv) DllCall(NumGet(NumGet(1*psp)+4*2), "Uint", psp) Return ppv } COM_FindConnectionPoint(pdp, DIID) { DllCall(NumGet(NumGet(1*pdp)+ 0), "Uint", pdp, "Uint", COM_GUID4String(IID_IConnectionPointContainer, "{B196B284-BAB4-101A-B69C-00AA00341D07}"), "UintP", pcc) DllCall(NumGet(NumGet(1*pcc)+16), "Uint", pcc, "Uint", COM_GUID4String(DIID,DIID), "UintP", pcp) DllCall(NumGet(NumGet(1*pcc)+ 8), "Uint", pcc) Return pcp } COM_GetConnectionInterface(pcp) { VarSetCapacity(DIID, 16, 0) DllCall(NumGet(NumGet(1*pcp)+12), "Uint", pcp, "Uint", &DIID) Return COM_String4GUID(&DIID) } COM_Advise(pcp, psink) { DllCall(NumGet(NumGet(1*pcp)+20), "Uint", pcp, "Uint", psink, "UintP", nCookie) Return nCookie } COM_Unadvise(pcp, nCookie) { Return DllCall(NumGet(NumGet(1*pcp)+24), "Uint", pcp, "Uint", nCookie) } COM_Enumerate(penum, ByRef Result) { VarSetCapacity(varResult,16,0) If (0 = _hResult_:=DllCall(NumGet(NumGet(1*penum)+12), "Uint", penum, "Uint", 1, "Uint", &varResult, "UintP", 0)) Result:=(vt:=NumGet(varResult,0,"Ushort"))=8||vt<0x1000&&DllCall("oleaut32\VariantChangeTypeEx","Uint",&varResult,"Uint",&varResult,"Uint",LCID,"Ushort",1,"Ushort",8)=0 ? COM_Ansi4Unicode(bstr:=NumGet(varResult,8)) . SubStr(COM_SysFreeString(bstr),1,0) : NumGet(varResult,8) Return _hResult_ } COM_Invoke(pdisp, sName, arg1="vT_NoNe",arg2="vT_NoNe",arg3="vT_NoNe",arg4="vT_NoNe",arg5="vT_NoNe",arg6="vT_NoNe",arg7="vT_NoNe",arg8="vT_NoNe",arg9="vT_NoNe") { Global _hResult_ nParams:=0 Loop, 9 If (arg%A_Index% == "vT_NoNe") Break Else ++nParams VarSetCapacity(DispParams,16,0), VarSetCapacity(varResult,16,0), VarSetCapacity(IID_NULL,16,0), VarSetCapacity(varg,nParams*16,0) NumPut(&varg,DispParams,0), NumPut(nParams,DispParams,8) If (nFlags := SubStr(sName,0) <> "=" ? 3 : 12) = 12 NumPut(&varResult,DispParams,4), NumPut(1,DispParams,12), NumPut(-3,varResult), sName:=SubStr(sName,1,-1) Loop, % nParams If arg%A_Index% Is Not Integer NumPut(8,varg,(nParams-A_Index)*16,"Ushort"), NumPut(COM_SysAllocString(arg%A_Index%),varg,(nParams-A_Index)*16+8) Else NumPut(SubStr(arg%A_Index%,1,1)="+" ? 9 : 3,varg,(nParams-A_Index)*16,"Ushort"), NumPut(arg%A_Index%,varg,(nParams-A_Index)*16+8) If (0 = _hResult_:=DllCall(NumGet(NumGet(1*pdisp)+20), "Uint", pdisp, "Uint", &IID_NULL, "UintP", COM_Unicode4Ansi(wName, sName), "Uint", 1, "Uint", LCID, "intP", dispID)) && (0 = _hResult_:=DllCall(NumGet(NumGet(1*pdisp)+24), "Uint", pdisp, "int", dispID, "Uint", &IID_NULL, "Uint", LCID, "Ushort", nFlags, "Uint", &dispParams, "Uint", &varResult, "Uint", 0, "Uint", 0)) && (3 = nFlags) Result:=(vt:=NumGet(varResult,0,"Ushort"))=8||vt<0x1000&&DllCall("oleaut32\VariantChangeTypeEx","Uint",&varResult,"Uint",&varResult,"Uint",LCID,"Ushort",1,"Ushort",8)=0 ? COM_Ansi4Unicode(bstr:=NumGet(varResult,8)) . SubStr(COM_SysFreeString(bstr),1,0) : NumGet(varResult,8) Loop, % nParams NumGet(varg,(A_Index-1)*16,"Ushort")=8 ? COM_SysFreeString(NumGet(varg,(A_Index-1)*16+8)) : "" Return Result } COM_Invoke_(pdisp, sName, type1="",arg1="",type2="",arg2="",type3="",arg3="",type4="",arg4="",type5="",arg5="",type6="",arg6="",type7="",arg7="",type8="",arg8="",type9="",arg9="") { Global _hResult_ nParams:=0 Loop, 9 If (type%A_Index% = "") Break Else ++nParams VarSetCapacity(dispParams,16,0), VarSetCapacity(varResult,16,0), VarSetCapacity(IID_NULL,16,0), VarSetCapacity(varg,nParams*16,0) NumPut(&varg,dispParams,0), NumPut(nParams,dispParams,8) If (nFlags := SubStr(sName,0) <> "=" ? 1|2 : 4|8) & 12 NumPut(&varResult,dispParams,4), NumPut(1,dispParams,12), NumPut(-3,varResult), sName:=SubStr(sName,1,-1) Loop, % nParams NumPut(type%A_Index%,varg,(nParams-A_Index)*16,"Ushort"), type%A_Index%&0x4000=0 ? NumPut(type%A_Index%=8 ? COM_SysAllocString(arg%A_Index%) : arg%A_Index%,varg,(nParams-A_Index)*16+8,type%A_Index%=5||type%A_Index%=7 ? "double" : type%A_Index%=4 ? "float" : "int64") : type%A_Index%=0x400C||type%A_Index%=0x400E ? NumPut(arg%A_Index%,varg,(nParams-A_Index)*16+8) : VarSetCapacity(ref%A_Index%,8,0) . NumPut(&ref%A_Index%,varg,(nParams-A_Index)*16+8) . NumPut(type%A_Index%=0x4008 ? COM_SysAllocString(arg%A_Index%) : arg%A_Index%,ref%A_Index%,0,type%A_Index%=0x4005||type%A_Index%=0x4007 ? "double" : type%A_Index%=0x4004 ? "float" : "int64") If (0 = _hResult_:=DllCall(NumGet(NumGet(1*pdisp)+20), "Uint", pdisp, "Uint", &IID_NULL, "UintP", COM_Unicode4Ansi(wName, sName), "Uint", 1, "Uint", LCID, "intP", dispID)) && (0 = _hResult_:=DllCall(NumGet(NumGet(1*pdisp)+24), "Uint", pdisp, "int", dispID, "Uint", &IID_NULL, "Uint", LCID, "Ushort", nFlags, "Uint", &dispParams, "Uint", &varResult, "Uint", 0, "Uint", 0)) && (3 = nFlags) Result:=(vt:=NumGet(varResult,0,"Ushort"))=8||vt<0x1000&&DllCall("oleaut32\VariantChangeTypeEx","Uint",&varResult,"Uint",&varResult,"Uint",LCID,"Ushort",1,"Ushort",8)=0 ? COM_Ansi4Unicode(bstr:=NumGet(varResult,8)) . SubStr(COM_SysFreeString(bstr),1,0) : NumGet(varResult,8) Loop, % nParams type%A_Index%&0x4000=0 ? (type%A_Index%=8 ? COM_SysFreeString(NumGet(varg,(nParams-A_Index)*16+8)) : "") : type%A_Index%=0x400C||type%A_Index%=0x400E ? "" : type%A_Index%=0x4008 ? (_TEMP_VT_BYREF_%A_Index%:=COM_Ansi4Unicode(NumGet(ref%A_Index%))) . COM_SysFreeString(NumGet(ref%A_Index%)) : (_TEMP_VT_BYREF_%A_Index%:=NumGet(ref%A_Index%,0,type%A_Index%=0x4005||type%A_Index%=0x4007 ? "double" : type%A_Index%=0x4004 ? "float" : "int64")) Return Result } COM_DispInterface(this, prm1="", prm2="", prm3="", prm4="", prm5="", prm6="", prm7="", prm8="") { Critical If A_EventInfo = 6 DllCall(NumGet(NumGet(NumGet(this+8))+28),"Uint",NumGet(this+8),"Uint",prm1,"UintP",pname,"Uint",1,"UintP",0), VarSetCapacity(sfn,63), DllCall("user32\wsprintfA","str",sfn,"str","%s%S","Uint",this+40,"Uint",pname,"Cdecl"), COM_SysFreeString(pname), (pfn:=RegisterCallback(sfn,"C F")) ? (hResult:=DllCall(pfn, "Uint", prm5, "Uint", this, "Cdecl")) . DllCall("kernel32\GlobalFree", "Uint", pfn) : (hResult:=0x80020003) Else If A_EventInfo = 5 hResult:=DllCall(NumGet(NumGet(NumGet(this+8))+40),"Uint",NumGet(this+8),"Uint",prm2,"Uint",prm3,"Uint",prm5) Else If A_EventInfo = 4 NumPut(0,prm3+0), hResult:=0x80004001 Else If A_EventInfo = 3 NumPut(0,prm1+0), hResult:=0 Else If A_EventInfo = 2 NumPut(hResult:=NumGet(this+4)-1,this+4), hResult ? "" : COM_Unadvise(NumGet(this+16),NumGet(this+20)) . COM_Release(NumGet(this+16)) . COM_Release(NumGet(this+8)) . COM_CoTaskMemFree(this) Else If A_EventInfo = 1 NumPut(hResult:=NumGet(this+4)+1,this+4) Else If A_EventInfo = 0 COM_IsEqualGUID(this+24,prm1)||InStr("{00020400-0000-0000-C000-000000000046}{00000000-0000-0000-C000-000000000046}",COM_String4GUID(prm1)) ? NumPut(this,prm2+0) . NumPut(NumGet(this+4)+1,this+4) . (hResult:=0) : NumPut(0,prm2+0) . (hResult:=0x80004002) Return hResult } COM_DispGetParam(pDispParams, Position = 0, vtType = 8) { VarSetCapacity(varResult,16,0) DllCall("oleaut32\DispGetParam", "Uint", pDispParams, "Uint", Position, "Ushort", vtType, "Uint", &varResult, "UintP", nArgErr) Return NumGet(varResult,0,"Ushort")=8 ? COM_Ansi4Unicode(NumGet(varResult,8)) . SubStr(COM_SysFreeString(NumGet(varResult,8)),1,0) : NumGet(varResult,8) } COM_CreateIDispatch() { Static IDispatch If Not VarSetCapacity(IDispatch) { VarSetCapacity(IDispatch,28,0), nParams=3112469 Loop, Parse, nParams NumPut(RegisterCallback("COM_DispInterface","",A_LoopField,A_Index-1),IDispatch,4*(A_Index-1)) } Return &IDispatch } COM_GetDefaultInterface(pdisp, LCID = 0) { DllCall(NumGet(NumGet(1*pdisp) +12), "Uint", pdisp , "UintP", ctinf) If ctinf { DllCall(NumGet(NumGet(1*pdisp)+16), "Uint", pdisp, "Uint" , 0, "Uint", LCID, "UintP", ptinf) DllCall(NumGet(NumGet(1*ptinf)+12), "Uint", ptinf, "UintP", pattr) DllCall(NumGet(NumGet(1*pdisp)+ 0), "Uint", pdisp, "Uint" , pattr, "UintP", ppv) DllCall(NumGet(NumGet(1*ptinf)+76), "Uint", ptinf, "Uint" , pattr) DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf) If ppv DllCall(NumGet(NumGet(1*pdisp)+ 8), "Uint", pdisp), pdisp := ppv } Return pdisp } COM_GetDefaultEvents(pdisp, LCID = 0) { DllCall(NumGet(NumGet(1*pdisp)+16), "Uint", pdisp, "Uint" , 0, "Uint", LCID, "UintP", ptinf) DllCall(NumGet(NumGet(1*ptinf)+12), "Uint", ptinf, "UintP", pattr) VarSetCapacity(IID,16), DllCall("RtlMoveMemory", "Uint", &IID, "Uint", pattr, "Uint", 16) DllCall(NumGet(NumGet(1*ptinf)+76), "Uint", ptinf, "Uint" , pattr) DllCall(NumGet(NumGet(1*ptinf)+72), "Uint", ptinf, "UintP", ptlib, "UintP", idx) DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf) Loop, % DllCall(NumGet(NumGet(1*ptlib)+12), "Uint", ptlib) { DllCall(NumGet(NumGet(1*ptlib)+20), "Uint", ptlib, "Uint", A_Index-1, "UintP", TKind) If TKind <> 5 Continue DllCall(NumGet(NumGet(1*ptlib)+16), "Uint", ptlib, "Uint", A_Index-1, "UintP", ptinf) DllCall(NumGet(NumGet(1*ptinf)+12), "Uint", ptinf, "UintP", pattr) nCount:=NumGet(pattr+48,0,"Ushort") DllCall(NumGet(NumGet(1*ptinf)+76), "Uint", ptinf, "Uint" , pattr) Loop, % nCount { DllCall(NumGet(NumGet(1*ptinf)+36), "Uint", ptinf, "Uint", A_Index-1, "UintP", nFlags) If !(nFlags & 1) Continue DllCall(NumGet(NumGet(1*ptinf)+32), "Uint", ptinf, "Uint", A_Index-1, "UintP", hRefType) DllCall(NumGet(NumGet(1*ptinf)+56), "Uint", ptinf, "Uint", hRefType , "UintP", prinf) DllCall(NumGet(NumGet(1*prinf)+12), "Uint", prinf, "UintP", pattr) nFlags & 2 ? DIID:=COM_String4GUID(pattr) : bFind:=COM_IsEqualGUID(pattr,&IID) DllCall(NumGet(NumGet(1*prinf)+76), "Uint", prinf, "Uint" , pattr) DllCall(NumGet(NumGet(1*prinf)+ 8), "Uint", prinf) } DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf) If bFind Break } DllCall(NumGet(NumGet(1*ptlib)+ 8), "Uint", ptlib) Return bFind ? DIID : "{00000000-0000-0000-0000-000000000000}" } COM_GetGuidOfName(pdisp, Name, LCID = 0) { DllCall(NumGet(NumGet(1*pdisp)+16), "Uint", pdisp, "Uint", 0, "Uint", LCID, "UintP", ptinf) DllCall(NumGet(NumGet(1*ptinf)+72), "Uint", ptinf, "UintP", ptlib, "UintP", idx) DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf), ptinf:=0 DllCall(NumGet(NumGet(1*ptlib)+44), "Uint", ptlib, "Uint", COM_Unicode4Ansi(Name,Name), "Uint", 0, "UintP", ptinf, "UintP", memID, "UshortP", 1) DllCall(NumGet(NumGet(1*ptlib)+ 8), "Uint", ptlib) DllCall(NumGet(NumGet(1*ptinf)+12), "Uint", ptinf, "UintP", pattr) GUID := COM_String4GUID(pattr) DllCall(NumGet(NumGet(1*ptinf)+76), "Uint", ptinf, "Uint" , pattr) DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf) Return GUID } COM_GetTypeInfoOfGuid(pdisp, GUID, LCID = 0) { DllCall(NumGet(NumGet(1*pdisp)+16), "Uint", pdisp, "Uint", 0, "Uint", LCID, "UintP", ptinf) DllCall(NumGet(NumGet(1*ptinf)+72), "Uint", ptinf, "UintP", ptlib, "UintP", idx) DllCall(NumGet(NumGet(1*ptinf)+ 8), "Uint", ptinf), ptinf := 0 DllCall(NumGet(NumGet(1*ptlib)+24), "Uint", ptlib, "Uint", COM_GUID4String(GUID,GUID), "UintP", ptinf) DllCall(NumGet(NumGet(1*ptlib)+ 8), "Uint", ptlib) Return ptinf } ; A Function Name including Prefix is limited to 63 bytes! COM_ConnectObject(psource, prefix = "", DIID = "{00020400-0000-0000-C000-000000000046}") { If (DIID = "{00020400-0000-0000-C000-000000000046}") 0+(pconn:=COM_FindConnectionPoint(psource,DIID)) ? (DIID:=COM_GetConnectionInterface(pconn))="{00020400-0000-0000-C000-000000000046}" ? DIID:=COM_GetDefaultEvents(psource) : "" : pconn:=COM_FindConnectionPoint(psource,DIID:=COM_GetDefaultEvents(psource)) Else pconn:=COM_FindConnectionPoint(psource,SubStr(DIID,1,1)="{" ? DIID : DIID:=COM_GetGuidOfName(psource,DIID)) If !pconn || !(ptinf:=COM_GetTypeInfoOfGuid(psource,DIID)) { MsgBox, No Event Interface Exists! Now exit the application. ExitApp } psink:=COM_CoTaskMemAlloc(40+StrLen(prefix)+1), NumPut(1,NumPut(COM_CreateIDispatch(),psink+0)), NumPut(psource,NumPut(ptinf,psink+8)) DllCall("RtlMoveMemory", "Uint", psink+24, "Uint", COM_GUID4String(DIID,DIID), "Uint", 16) DllCall("RtlMoveMemory", "Uint", psink+40, "Uint", &prefix, "Uint", StrLen(prefix)+1) NumPut(COM_Advise(pconn,psink),NumPut(pconn,psink+16)) Return psink } COM_CreateObject(CLSID, IID = "{00020400-0000-0000-C000-000000000046}", CLSCTX = 5) { DllCall("ole32\CoCreateInstance", "Uint", SubStr(CLSID,1,1)="{" ? COM_GUID4String(CLSID,CLSID) : COM_CLSID4ProgID(CLSID,CLSID), "Uint", 0, "Uint", CLSCTX, "Uint", COM_GUID4String(IID,IID), "UintP", ppv) Return ppv } COM_ActiveXObject(ProgID) { DllCall("ole32\CoCreateInstance", "Uint", SubStr(ProgID,1,1)="{" ? COM_GUID4String(ProgID,ProgID) : COM_CLSID4ProgID(ProgID,ProgID), "Uint", 0, "Uint", 5, "Uint", COM_GUID4String(IID_IDispatch,"{00020400-0000-0000-C000-000000000046}"), "UintP", pdisp) Return COM_GetDefaultInterface(pdisp) } COM_GetObject(Moniker) { DllCall("ole32\CoGetObject", "Uint", COM_Unicode4Ansi(Moniker,Moniker), "Uint", 0, "Uint", COM_GUID4String(IID_IDispatch,"{00020400-0000-0000-C000-000000000046}"), "UintP", pdisp) Return COM_GetDefaultInterface(pdisp) } COM_GetActiveObject(ProgID) { DllCall("oleaut32\GetActiveObject", "Uint", SubStr(ProgID,1,1)="{" ? COM_GUID4String(ProgID,ProgID) : COM_CLSID4ProgID(ProgID,ProgID), "Uint", 0, "UintP", punk) DllCall(NumGet(NumGet(1*punk)+0), "Uint", punk, "Uint", COM_GUID4String(IID_IDispatch,"{00020400-0000-0000-C000-000000000046}"), "UintP", pdisp) DllCall(NumGet(NumGet(1*punk)+8), "Uint", punk) Return COM_GetDefaultInterface(pdisp) } COM_CLSID4ProgID(ByRef CLSID, ProgID) { VarSetCapacity(CLSID, 16) DllCall("ole32\CLSIDFromProgID", "Uint", COM_Unicode4Ansi(ProgID,ProgID), "Uint", &CLSID) Return &CLSID } COM_GUID4String(ByRef CLSID, String) { VarSetCapacity(CLSID, 16) DllCall("ole32\CLSIDFromString", "Uint", COM_Unicode4Ansi(String,String,38), "Uint", &CLSID) Return &CLSID } COM_ProgID4CLSID(pCLSID) { DllCall("ole32\ProgIDFromCLSID", "Uint", pCLSID, "UintP", pProgID) Return COM_Ansi4Unicode(pProgID) . SubStr(COM_CoTaskMemFree(pProgID),1,0) } COM_String4GUID(pGUID) { VarSetCapacity(String, 38 * 2 + 1) DllCall("ole32\StringFromGUID2", "Uint", pGUID, "Uint", &String, "int", 39) Return COM_Ansi4Unicode(&String, 38) } COM_IsEqualGUID(pGUID1, pGUID2) { Return DllCall("ole32\IsEqualGUID", "Uint", pGUID1, "Uint", pGUID2) } COM_CoCreateGuid() { VarSetCapacity(GUID, 16, 0) DllCall("ole32\CoCreateGuid", "Uint", &GUID) Return COM_String4GUID(&GUID) } COM_CoTaskMemAlloc(cb) { Return DllCall("ole32\CoTaskMemAlloc", "Uint", cb) } COM_CoTaskMemFree(pv) { Return DllCall("ole32\CoTaskMemFree", "Uint", pv) } COM_CoInitialize() { Return DllCall("ole32\CoInitialize", "Uint", 0) } COM_CoUninitialize() { Return DllCall("ole32\CoUninitialize") } COM_OleInitialize() { Return DllCall("ole32\OleInitialize", "Uint", 0) } COM_OleUninitialize() { Return DllCall("ole32\OleUninitialize") } COM_SysAllocString(sString) { Return DllCall("oleaut32\SysAllocString", "Uint", COM_Ansi2Unicode(sString,wString)) } COM_SysFreeString(bstr) { Return DllCall("oleaut32\SysFreeString", "Uint", bstr) } COM_SysStringLen(bstr) { Return DllCall("oleaut32\SysStringLen", "Uint", bstr) } COM_SafeArrayDestroy(psa) { Return DllCall("oleaut32\SafeArrayDestroy", "Uint", psa) } COM_VariantClear(pvarg) { Return DllCall("oleaut32\VariantClear", "Uint", pvarg) } COM_AtlAxWinInit(Version = "") { COM_CoInitialize() If !DllCall("GetModuleHandle", "str", "atl" . Version) DllCall("LoadLibrary" , "str", "atl" . Version) Return DllCall("atl" . Version . "\AtlAxWinInit") } COM_AtlAxWinTerm(Version = "") { COM_CoUninitialize() If hModule:=DllCall("GetModuleHandle", "str", "atl" . Version) Return DllCall("FreeLibrary" , "Uint", hModule) } COM_AtlAxGetControl(hWnd, Version = "") { DllCall("atl" . Version . "\AtlAxGetControl", "Uint", hWnd, "UintP", punk) pdsp:=COM_QueryInterface(punk,IID_IDispatch:="{00020400-0000-0000-C000-000000000046}") COM_Release(punk) Return pdsp } COM_AtlAxAttachControl(pdsp, hWnd, Version = "") { punk:=COM_QueryInterface(pdsp,IID_IUnknown:="{00000000-0000-0000-C000-000000000046}") DllCall("atl" . Version . "\AtlAxAttachControl", "Uint", punk, "Uint", hWnd, "Uint", 0) COM_Release(punk) } COM_AtlAxCreateControl(hWnd, Name, Version = "") { VarSetCapacity(IID_NULL, 16, 0) DllCall("atl" . Version . "\AtlAxCreateControlEx", "Uint", COM_Unicode4Ansi(Name,Name), "Uint", hWnd, "Uint", 0, "Uint", 0, "UintP", punk, "Uint", &IID_NULL, "Uint", 0) pdsp:=COM_QueryInterface(punk,IID_IDispatch:="{00020400-0000-0000-C000-000000000046}") COM_Release(punk) Return pdsp } COM_AtlAxCreateContainer(hWnd, l, t, w, h, Name = "", Version = "") { Return DllCall("CreateWindowEx", "Uint",0x200, "str", "AtlAxWin" . Version, "Uint", Name ? &Name : 0, "Uint", 0x54000000, "int", l, "int", t, "int", w, "int", h, "Uint", hWnd, "Uint", 0, "Uint", 0, "Uint", 0) } COM_AtlAxGetContainer(pdsp) { DllCall(NumGet(NumGet(1*pdsp)+ 0), "Uint", pdsp, "Uint", COM_GUID4String(IID_IOleWindow,"{00000114-0000-0000-C000-000000000046}"), "UintP", pwin) DllCall(NumGet(NumGet(1*pwin)+12), "Uint", pwin, "UintP", hCtrl) DllCall(NumGet(NumGet(1*pwin)+ 8), "Uint", pwin) Return DllCall("GetParent", "Uint", hCtrl) } COM_Ansi4Unicode(pString, nSize = "") { If (nSize = "") nSize:=DllCall("kernel32\WideCharToMultiByte", "Uint", 0, "Uint", 0, "Uint", pString, "int", -1, "Uint", 0, "int", 0, "Uint", 0, "Uint", 0) VarSetCapacity(sString, nSize) DllCall("kernel32\WideCharToMultiByte", "Uint", 0, "Uint", 0, "Uint", pString, "int", -1, "str", sString, "int", nSize + 1, "Uint", 0, "Uint", 0) Return sString } COM_Unicode4Ansi(ByRef wString, sString, nSize = "") { If (nSize = "") nSize:=DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", 0, "int", 0) VarSetCapacity(wString, nSize * 2 + 1) DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", &wString, "int", nSize + 1) Return &wString } COM_Ansi2Unicode(ByRef sString, ByRef wString, nSize = "") { If (nSize = "") nSize:=DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", 0, "int", 0) VarSetCapacity(wString, nSize * 2 + 1) DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", &wString, "int", nSize + 1) Return &wString } COM_Unicode2Ansi(ByRef wString, ByRef sString, nSize = "") { pString := wString + 0 > 65535 ? wString : &wString If (nSize = "") nSize:=DllCall("kernel32\WideCharToMultiByte", "Uint", 0, "Uint", 0, "Uint", pString, "int", -1, "Uint", 0, "int", 0, "Uint", 0, "Uint", 0) VarSetCapacity(sString, nSize) DllCall("kernel32\WideCharToMultiByte", "Uint", 0, "Uint", 0, "Uint", pString, "int", -1, "str", sString, "int", nSize + 1, "Uint", 0, "Uint", 0) Return &sString } COM_ScriptControl(sCode, sLanguage = "", bEval = False) { COM_CoInitialize() psc := COM_CreateObject("MSScriptControl.ScriptControl") If sLanguage COM_Invoke(psc, "Language=", sLanguage) Ret := COM_Invoke(psc, bEval ? "Eval" : "ExecuteStatement", sCode) COM_Release(psc) COM_CoUninitialize() Return Ret } ;==================== END: #include COM.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;==================== START: #include IE.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 IE_Init() { COM_AtlAxWinInit() } IE_Term() { COM_AtlAxWinTerm() } IE_Add(hWnd, x, y, w, h) { Return COM_AtlAxGetControl(COM_AtlAxCreateContainer(hWnd, x, y, w, h, "Shell.Explorer")) } IE_Move(pwb, l, t, w, h) { WinMove, % "ahk_id " . COM_AtlAxGetContainer(pwb), , l, t, w, h } IE_LoadURL(pwb, u) { pUrl := COM_SysAllocString(u) VarSetCapacity(var, 8 * 2, 0) DllCall(NumGet(NumGet(1*pwb)+44), "Uint", pwb, "Uint", pUrl, "Uint", &var, "Uint", &var, "Uint", &var, "Uint", &var) COM_SysFreeString(pUrl) } IE_LoadHTML(pwb, h) { pUrl := COM_SysAllocString("about:" . h) VarSetCapacity(var, 8 * 2, 0) DllCall(NumGet(NumGet(1*pwb)+44), "Uint", pwb, "Uint", pUrl, "Uint", &var, "Uint", &var, "Uint", &var, "Uint", &var) COM_SysFreeString(pUrl) } IE_GoBack(pwb) { DllCall(NumGet(NumGet(1*pwb)+28), "Uint", pwb) } IE_GoForward(pwb) { DllCall(NumGet(NumGet(1*pwb)+32), "Uint", pwb) } IE_GoHome(pwb) { DllCall(NumGet(NumGet(1*pwb)+36), "Uint", pwb) } IE_GoSearch(pwb) { DllCall(NumGet(NumGet(1*pwb)+40), "Uint", pwb) } IE_Refresh(pwb) { DllCall(NumGet(NumGet(1*pwb)+48), "Uint", pwb) } IE_Stop(pwb) { DllCall(NumGet(NumGet(1*pwb)+56), "Uint", pwb) } IE_Document(pwb) { DllCall(NumGet(NumGet(1*pwb)+72), "Uint", pwb, "UintP", pdoc) Return pdoc } IE_GetTitle(pwb) { DllCall(NumGet(NumGet(1*pwb)+116), "Uint", pwb, "UintP", pTitle) COM_Unicode2Ansi(pTitle, sTitle) COM_SysFreeString(pTitle) Return sTitle } IE_GetUrl(pwb) { DllCall(NumGet(NumGet(1*pwb)+120), "Uint", pwb, "UintP", pUrl) COM_Unicode2Ansi(pUrl, sUrl) COM_SysFreeString(pUrl) Return sUrl } IE_Busy(pwb) { DllCall(NumGet(NumGet(1*pwb)+124), "Uint", pwb, "shortP", bBusy) Return -bBusy } IE_Quit(pwb) ; iexplore.exe only { DllCall(NumGet(NumGet(1*pwb)+128), "Uint", pwb) } IE_hWnd(pwb) ; iexplore.exe only { DllCall(NumGet(NumGet(1*pwb)+148), "Uint", pwb, "UintP", hIE) Return hIE } IE_FullName(pwb) ; iexplore.exe only { DllCall(NumGet(NumGet(1*pwb)+152), "Uint", pwb, "UintP", pFile) COM_Unicode2Ansi(pFile, sFile) COM_SysFreeString(pFile) Return sFile } IE_GetStatusText(pwb) ; iexplore.exe only { DllCall(NumGet(NumGet(1*pwb)+176), "Uint", pwb, "UintP", pText) COM_Unicode2Ansi(pText, sText) COM_SysFreeString(pText) Return sText } IE_SetStatusText(pwb, sText = "") ; iexplore.exe only { pText := COM_SysAllocString(sText) DllCall(NumGet(NumGet(1*pwb)+180), "Uint", pwb, "Uint", pText) COM_SysFreeString(pText) } IE_ReadyState(pwb) { /* READYSTATE_UNINITIALIZED = 0 ; Default initialization state. READYSTATE_LOADING = 1 ; Object is currently loading its properties. READYSTATE_LOADED = 2 ; Object has been initialized. READYSTATE_INTERACTIVE = 3 ; Object is interactive, but not all of its data is available. READYSTATE_COMPLETE = 4 ; Object has received all of its data. */ DllCall(NumGet(NumGet(1*pwb)+224), "Uint", pwb, "intP", nReady) Return nReady } IE_Open(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 1, "Uint", 0, "Uint", 0, "Uint", 0) } IE_New(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 2, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Save(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 3, "Uint", 0, "Uint", 0, "Uint", 0) } IE_SaveAs(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 4, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Print(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 6, "Uint", 0, "Uint", 0, "Uint", 0) } IE_PrintPreview(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 7, "Uint", 0, "Uint", 0, "Uint", 0) } IE_PageSetup(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 8, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Properties(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 10, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Cut(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 11, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Copy(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 12, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Paste(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 13, "Uint", 0, "Uint", 0, "Uint", 0) } IE_SelectAll(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 17, "Uint", 0, "Uint", 0, "Uint", 0) } IE_Find(pwb) { DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 32, "Uint", 0, "Uint", 0, "Uint", 0) } IE_DoFontSize(pwb, s) { /* s = 4 ; Largest s = 3 ; Larger s = 2 ; Medium s = 1 ; Smaller s = 0 ; Smallest */ VarSetCapacity(var, 8 * 2, 0) NumPut(3, var, 0) NumPut(s, var, 8) DllCall(NumGet(NumGet(1*pwb)+216), "Uint", pwb, "Uint", 19, "Uint", 2, "Uint", &var, "Uint", &var) } IE_InternetOptions(pwb) { CGID_MSHTML(pwb, 2135) } IE_ViewSource(pwb) { CGID_MSHTML(pwb, 2139) } IE_AddToFavorites(pwb) { CGID_MSHTML(pwb, 2261) } IE_MakeDesktopShortcut(pwb) { CGID_MSHTML(pwb, 2266) } IE_SendEMail(pwb) { CGID_MSHTML(pwb, 2288) } CGID_MSHTML(pwb, nCmd, nOpt = 0) { pct := COM_QueryInterface(pwb, IID_IOleCommandTarget:="{B722BCCB-4E68-101B-A2BC-00AA00404770}") DllCall(NumGet(NumGet(1*pct)+16), "Uint", pct, "Uint", COM_GUID4String(CGID_MSHTML,"{DE4BA900-59CA-11CF-9592-444553540000}"), "Uint", nCmd, "Uint", nOpt, "Uint", 0, "Uint", 0) COM_Release(pct) } ;==================== END: #include IE.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 ;==================== START: #include Anchor.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3 /* Function: Anchor Defines how controls should be automatically positioned relative to the new dimensions of a GUI when resized. Parameters: cl - a control HWND, associated variable name or ClassNN to operate on a - one or more of the anchors: 'x', 'y', 'w' (width) and 'h' (height), optionally followed by a relative factor, e.g. "x h0.5" r - (optional) true to redraw controls i.e. for GroupBox and Buttons Examples: > "xy" ; bounds a control to the bottom-left edge of the window > "w0.5" ; any change in the width of the window will resize the width of the control on a 2:1 (1:0.5) pixel ratio > "h" ;same as the above but on a 1:1 ratio for height License: - Version 4.1 by Titan - GNU General Public License 3.0 or higher */ Anchor(cl, a = "", r = false, reset=false) { static d, g, sd = 12, sg := 13, sc = 0, k = 0xffff, iz = 0, bx, by if reset { iz := 0, sc = 0, k=0xffff, bx := by := "" return } If !iz iz := 1, VarSetCapacity(g, sg * 99, 0), VarSetCapacity(d, sd * 200, 0) Gui, %A_Gui%:+LastFound If cl is xdigit c = %cl% Else { GuiControlGet, c, Hwnd, %cl% If ErrorLevel ControlGet, c, Hwnd, , %cl% } If !(A_Gui or c) and a Return cg := (A_Gui - 1) * sg Loop, %sc% If NumGet(d, z := (A_Index - 1) * sd) = c { p := NumGet(d, z + 4, "UInt64"), l := 1 , x := p >> 48, y := p >> 32 & k, w := p >> 16 & k, h := p & k , gw := (gh := NumGet(g, cg + 1)) >> 16, gh &= k If a = Break Loop, Parse, a, xywh If A_Index > 1 { v := SubStr(a, l, 1) If v in y,h n := A_GuiHeight - gh Else n := A_GuiWidth - gw b = %A_LoopField% %v% += n * (b + 0 ? b : 1), l += StrLen(A_LoopField) + 1 } DllCall("SetWindowPos", "UInt", c, "Int", 0 , "Int", x, "Int", y, "Int", w, "Int", h, "Int", 4) If r VarSetCapacity(rc, 16, 0), NumPut(x, rc, 0, "Int"), NumPut(y, rc, 4, "Int") , NumPut(w + x, rc, 8, "Int"), NumPut(h + y, rc, 12, "Int") , DllCall("InvalidateRect", "UInt", WinExist(), "UInt", &rc, "UInt", true) Return } ControlGetPos, x, y, w, h, , ahk_id %c% If !p { If NumGet(g, cg, "UChar") != A_Gui { WinGetPos, , , , gh gh -= A_GuiHeight VarSetCapacity(bdr, 63, 0) , DllCall("GetWindowInfo", "UInt", WinExist(), "UInt", &bdr) , NumPut(A_Gui, g, cg, "UChar") , NumPut(A_GuiWidth << 16 | A_GuiHeight, g, cg + 1, "UInt") , NumPut((bx := NumGet(bdr, 48)) << 32 | (by := gh - NumGet(bdr, 52)), g, cg + 5, "UInt64") } Else b := NumGet(g, cg + 5, "UInt64"), bx := b >> 32, by := b & 0xffffffff } s := x - bx << 48 | y - by << 32 | w << 16 | h If p NumPut(s, d, z + 4, "UInt64") Else NumPut(c, d, sc * 12), NumPut(s, d, sc * 12 + 4, "UInt64"), sc++ } ;==================== END: #include Anchor.ahk :B1AD529B-BF4E-477F-8B9F-3080CAC55AE3