AutoHotkey Community

WshShell.Sleep 50

WshShell.quit

    ; Creates a WYSIWYG html editor in just 20 lines (method 2)
    #Include ws4ahk.ahk
    WS_Initialize()
    WS_InitComControls()

    Gui, +LastFound
    Gui, Show, w800 h600 Center, DhtmlEdit Test
    hWnd := WinExist()
    COMhWnd := WS_CreateComControlContainer(hWnd, 10, 10, 780, 580, "DhtmlEdit.DhtmlEdit")
    ppvDEdit := WS_GetComControlInHWND(COMhWnd)
    WS_AddObject(ppvDEdit, "DHtmlControl")
    ; the scripting environment has the object, so we don't need it anymore
    WS_ReleaseObject(ppvDEdit)
    WS_Exec("DHtmlControl.LoadUrl %s", "http://www.autohotkey.com")
    Return

    GuiClose:
        Gui, %A_Gui%:Destroy
        WS_UninitComControls()
        WS_Uninitialize()
        ExitApp

WS_Exec("DHtmlControl.LoadUrl ""http://www.autohotkey.com""")

WS_Exec("DHtmlControl.LoadDocument ""file.hta""")

#include ws4ahk.ahk
#include vbs_msgbox.ahk
WS_Exec("showmsgbox()")

#Include ws4ahk.ahk
 
;Initialize vbscript
;-------------------
WS_Initialize()

;create vbscript functions
;---------------------------
VBCode =
(
sub showmsgbox()
   msgbox "hello world!"
end sub
)

; add the VB functions to the environment
;----------------------------------------
WS_Exec(VBCode)

#Include ws4ahk.ahk

SetWSParentHwnd(iHwnd)
{
   global __WS_iScriptControlObj__
   iErr := DllCall(__WS_VTable(__WS_iScriptControlObj__, 11), "UInt", __WS_iScriptControlObj__
            , "Int", iHwnd
            , "Int")         
}

; Test
WS_Initialize()
; Set the Program Manager window as the message box parent
; (not a very good window to use because it blocks the user from the desktop)
iProgManagerHwnd := WinExist("Program Manager")
SetWSParentHwnd(iProgManagerHwnd)
WS_Exec("Msgbox ""Testing""")

WS_Eval(res,"Browse(""Select folder"")")

   Function Browse(Msg)
      Dim a,f,i,B
      Set a=CreateObject("Shell.Application")
      On Error Resume Next
      Set f=a.BrowseForFolder(&H0&, Msg, &h1&)
      B=f.ParentFolder.ParseName(f.Title).Path
      If Err.Number<>0 Then
         B=Null
         i=InStr(f.Title,":")
         If i>0 Then B=Mid(f.Title,i-1,2) & "\"
      End If
      Browse = B
      Set a=Nothing
   End Function

#Include ws4ahk.ahk

WS_Initialize()


sVBCode =
(
Function Browse(Msg, Hwnd)
  Dim a,f,i,B
  Set a=CreateObject("Shell.Application")
  On Error Resume Next
  Set f=a.BrowseForFolder(Hwnd, Msg, &h1&)
  B=f.ParentFolder.ParseName(f.Title).Path
  If Err.Number<>0 Then
    B=Null
    i=InStr(f.Title,":")
    If i>0 Then B=Mid(f.Title,i-1,2) & "\"
  End If
  Browse = B
  Set a=Nothing
End Function
)


WS_Exec(sVBCode)

iProgManagerHwnd := WinExist("Program Manager") + 0 ; add 0 to convert from hex to decimal
Msgbox % iProgManagerHwnd
WS_Eval(res,"Browse(""Select folder"", " . iProgManagerHwnd . ")")

#Include ws4ahk.ahk
WS_Initialize()
WS_InitComControls()


Gui, Add, Button, x6 y10 w140 h30, &Load PowerPoint Files
Gui, Add, Button, x428 y10 w140 h30, &Open PPT
Gui, 1:Add, ListBox, X6 Y70 R28 W564 +VScroll +HScroll vTCLIST
Gui, Show
return

ButtonLoadPowerPointFiles:
 FileSelectFile, files, M3, , Select PowerPoint files to print:, PowerPoint (*.ppt)
 If ( files="" OR ErrorLevel ) {
     MsgBox, The user pressed cancel.
     Return
 }
 FileList := ""
 Loop, Parse, files, `n
 {
    If ( A_Index = 1 )
    {
       Folder := A_LoopField
       Continue
    }         
    FileList .= ((FileList<>"") ? "|" : "" ) Folder "\" A_LoopField
 }
 GuiControl,,TCLIST, %FileList%
Return

ButtonOpenPPT:
pptObj := WS_CreateObject("PowerPoint.Application")

WS_AddObject(pptObj, "ppApp")
WS_ReleaseObject(pptObj)

Loop, Parse, FileList, |
{
   WS_Exec("ppApp.Presentations.Open(""" %A_LoopField% """)")
}
Return

GuiClose:
    Gui, %A_Gui%:Destroy
    WS_UninitComControls()
   WS_Uninitialize()

ExitApp

Error: The following variable name contains an illegal character:
"C:\pptfile.ppt"

#Include ws4ahk.ahk
WS_Initialize()


Gui, Add, Button, x6 y10 w140 h30, &Load PowerPoint Files
Gui, Add, Button, x428 y10 w140 h30, &Open PPT
Gui, 1:Add, ListBox, X6 Y70 R28 W564 +VScroll +HScroll vTCLIST
Gui, Show
return

ButtonLoadPowerPointFiles:
   FileSelectFile, files, M3, , Select PowerPoint files to print:, PowerPoint (*.ppt)
   If ( files="" OR ErrorLevel ) {
      MsgBox, The user pressed cancel.
      Return
   }
   FileList := ""
   Loop, Parse, files, `n
   {
      If ( A_Index = 1 )
      {
         Folder := A_LoopField
         Continue
      }         
      FileList .= ((FileList<>"") ? "|" : "" ) Folder "\" A_LoopField
   }
   GuiControl,,TCLIST, %FileList%
Return

ButtonOpenPPT:
   
   WS_Exec("Set ppApp = CreateObject(""PowerPoint.Application"")")
   WS_Exec("ppApp.Visible = true")

   Loop, Parse, FileList, |
   {
      WS_Exec("ppApp.Presentations.Open(""" A_LoopField """)")
   }
Return

GuiClose:
   Gui, %A_Gui%:Destroy
   WS_Uninitialize()

ExitApp