Leaderboard

Yup, that works! I went ahead and replaced all my loops and it works wonderfully. Thanks Dan!

#include <Date.au3> #include <GUIConstants.au3> #include <Excel.au3> HotKeySet("{ESC}", "Terminate") Func Terminate() Exit 0 EndFunc ;==>Terminate Local $oExcel = _Excel_Open() Local $sWorkbook = "C:\Users\tvois\Desktop\Start\Start.xlsx" Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook) WinWaitActive("Start.xlsx", "", 10) For $i = 1 To 120 Local $sCellValue = _Excel_RangeRead($oWorkbook, Default, "A" & $i) Opt("MouseCoordMode", 0) MouseClick("left", 154, 345) MouseClick("left", 101, 378) MouseClick("left", 250, 144) _Excel_RangeWrite($oWorkbook, Default, $sCellValue, "B" & $i) Next

_Excel_RangeRead only returns the value of a cell, not the format. Would be a bit complex to copy all possible formats (font, font size, font color, bold, italic, underline ...). Could you please write a test script and use _Excel_CopyPaste to write the cell to the clipboard add a MsgBox to your test script to pause the script switch to PowerPoint and then manually paste the data to the powerpoint slide (Ctrl+V)? If it works I might add a Paste function to the PPT UDF

@mLipok - line 57 Local $o_objTpm = $o_objWMITPM.Get("Win32_Tpm=@") declares $o_objTpm local but should not .. if I remove "Local" works OK on my system. (when run as admin of course).

Hi @BakedCakes. A quick google search led me to AHK forum where another person had same troubles. It seems it's a limitation with chrome, that it does not accept keys sent while inactive, explained here. So you would need to use a WebDriver based solution or Temporarily activate the window while interacting with the window.

Guess it is using a internal variable for somewhere, but Just change line 2348 to: Return @OSBuild >= 6000 ... and things should work again. Jos

This is one possible solution: ; List All Possible Video Controller Resolutions (Win 7) Local $strComputer = "." Local $objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2") Local $colItems = $objWMIService.ExecQuery("Select * from CIM_VideoControllerResolution") For $objItem in $colItems ConsoleWrite("Setting: " & $objItem.SettingID & @crlf ) Next Exit Output sample: Setting: 640 x 480 x 256 colors @ 60 Hertz Setting: 640 x 480 x 256 colors @ 59 Hertz Setting: 640 x 480 x 256 colors @ 75 Hertz ... Setting: 1680 x 1050 x 4294967296 colors @ 60 Hertz Setting: 1920 x 1080 x 256 colors @ 60 Hertz Setting: 1920 x 1080 x 65536 colors @ 60 Hertz Setting: 1920 x 1080 x 4294967296 colors @ 60 Hertz

Really, really strange ... The output seems to be piped to StderrRead() ???? Works if invoked in same dir as ffmpeg.exe, otherwise adjust the exe location accordingly... #include<GUIConstants.au3> #include<Constants.au3> ;Set OnEvent Mode opt("GUIOnEventMode", 1) ;Set Must Declare Vars AutoItSetOption("MustDeclareVars", 1) ;Declare Variables Global $frmMain ;Main form menu vars Global $frmMainFileMenu Global $frmMainFileItemExit ;Main form source video Global $sourceVideoLabel Global $sourceVideoInput Global $sourceVideoBrowseBtn Global $ffmpegStdOutput ;FFMpeg Command Label Global $ffmpegCommandLabel ;Create GUI $frmMain = GUICreate("Web Video Encoder FF", 640, 480, (@DeskTopWidth - 640)/2, (@DeskTopHeight - 480)/2, -1, -1) GUISetOnEvent($GUI_EVENT_CLOSE, "ExitApp") $frmMainFileMenu = GUICtrlCreateMenu("&File") $frmMainFileItemExit = GUICtrlCreateMenuItem("E&xit", $frmMainFileMenu) GUICtrlSetOnEvent($frmMainFileItemExit, "ExitApp") ;Source Video Controls $sourceVideoLabel = GUICtrlCreateLabel("Source Video: ", 5, 24, 70, 20, -1, -1) $sourceVideoInput = GUICtrlCreateInput("",80, 20, 500, 20, -1, -1) $sourceVideoBrowseBtn = GUICtrlCreateButton("Browse", 585, 20, 50, 20, -1, -1) GUICtrlSetOnEvent($sourceVideoBrowseBtn, "SelectSourceVideo") GUISetState(@SW_SHOW) ;fFFMpeg std Output Control $ffmpegStdOutput = GUICtrlCreateEdit("", 80, 100, 500, 150, -1, -1) ;FFMpeg Command Line ;$ffmpegCommandLabel = GUICtrlCreateLabel("Command: "& $openDialog, 5, 400, 600, 20, -1, -1) While 1 Sleep(1000) WEnd ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Function: Select Source Video. ; - Run ffmpeg to get input file info. ; - Send ffmpeg output to edit control. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func SelectSourceVideo() Local $openDialog, $sourceFile, $ffmpegInputSwitch, $ffmpegScreenOut, $runFFmpeg $openDialog = FileOpenDialog("Source Video", @MyDocumentsDir, "avi (*.avi)|mpeg (*.mpg;*.mpeg;*.mp4)", 1) If @error Then MsgBox(48, "No File Chosen", "No File Chosen.") Return EndIf $sourceFile = GUICtrlSetData($sourceVideoInput, $openDialog) $ffmpegInputSwitch = " -i """ & $openDialog & """" $runFFmpeg = Run(FileGetShortName(@ScriptDir & "\ffmpeg.exe") & $ffmpegInputSwitch, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) $ffmpegScreenOut = "" while 1 $ffmpegScreenOut &= StderrRead($runFFmpeg) If @error Then ExitLoop WEnd GUICtrlSetData($ffmpegStdOutput, GUICtrlRead($ffmpegStdOutput) & $ffmpegScreenOut & @CRLF) EndFunc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;Function: Exit Application ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func ExitApp() Exit EndFunc