Jump to content
Advert

searchresult

Active Members
  • Posts

    113
  • Joined

  • Last visited

Profile Information

  • Location
    Croatia

searchresult's Achievements

Adventurer

Adventurer (3/7)

0

Reputation

  1. Hey I tested this out and it worked every time. WinXP $handle = WinGetHandle("[CLASS:MSPaintApp]") If @error Then MsgBox(4096, "Error", "Could not find the correct window") Else ;Class of the "canvas" is CLASS:Afx:1000000:8 ControlClick($handle, "", "[CLASS:Afx:1000000:8]") EndIf
  2. _ExcelBookOpen("c:usersrogermydocumentskroger.xlsx",1)
  3. Now it is working as you wanted... #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1025 $vWidth = 1200 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .scale = "noscale" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit You can center as you wish but don't touch dimension ($vHeight and $vWidth)
  4. Problem is that the overlay is set to 2000px width. there should be solution to this but... well if i find something out, will post it...
  5. Try this... I have small monitor at work so can't see width well... I know height is good... #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1050 $vWidth = 1025 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) $ActiveX = GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .Movie.stage.stageWidth = 1050 .Movie.stage.stageHeight = 1025 .allowScriptAccess = "always" .scalemode = False .wmode = "transparent" .flashvars = "bframe=1&amp;ihost=http://ak.imgag.com/imgag&amp;brandldrPath=/swf/loaders/&amp;cardNum=/product/full/ap/3286601/graphic1&amp;ahost=http://www.americangreetings.com&amp;phost=http://www.americangreetings.com&amp;asv=3&amp;brandldr=wsag_as3&amp;mode=init&amp;mtype=0&amp;productNumber=3286601&amp;shellWebPath=/swf&amp;fps=fps24&amp;controlbar=/swf/control_bars/controlBar_nutshell&amp;pdType=WS&amp;flvWidth=550&amp;flvHeight=400&amp;largeX=550&amp;laregY=400&amp;showControlBar=1&amp;postroll=/swf/dynamic_plugins/AGJoinOverlayPlugin&amp;overlaywait=2000&amp;NameFirstFrom=sender&amp;NameFirstTo=recipient&amp;" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit
  6. To get checkbox state use GUICtrlGetState()
  7. WinActivate does what it should do in your script, it activates that window... But I guess you want that window to be on top so here --> while 1 WinSetOnTop("[CLASS:Notepad]", "", 0) WinActivate("[CLASS:MozillaWindowClass]") WinSetOnTop("[CLASS:MozillaWindowClass]", "", 1) Sleep(3000) WinSetOnTop("[CLASS:MozillaWindowClass]", "", 0) WinActivate("[CLASS:Notepad]") WinSetOnTop("[CLASS:Notepad]", "", 1) Sleep(3000) WEnd PS: Try to understand what is going on in a script that you just found before asking because there is always help file...
  8. Did you try this? $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) $ActiveX = GUICtrlCreateObj($Obj, 0, 0, 1050, 1025)
  9. width: 1050px; height: 1025px; is the actual size of the video when it starts to play. 550 x 400 is just still image before it starts to play...
  10. Here to start with #include <File.au3> #include <Array.au3> $dirPath = "C:UsersMarkoDesktoptest" $fileArray = _FileListToArray($dirPath) $fileSize = 0 $size = 0 $fileName = "" For $i = 1 to UBound($fileArray) - 1 $fileSize = FileGetSize($fileArray[$i]) If $fileSize > $size Then $size = $fileSize $fileName = $fileArray[$i] EndIf Next MsgBox(0, "Largest file", "Largest file is " & $fileName)
  11. You can send F5 after sleep for 15 minutes
  12. Something like this? Yu have it in help file... $hTimer = TimerInit() ; Begin the timer and store the handle in a variable. $sleepTime = 3000 ;sleep is in ms if you want in seconds * 1000 (script pause time) $time = 3 600 000 ;1 hour in ms (Time for scrip to run) While 1 $iDiff = TimerDiff($hTimer) ; Find the difference in time from the previous call of TimerInit. The variable we stored the TimerInit handlem is passed as the "handle" to TimerDiff. If $iDiff >= $time Then Sleep($sleepTime) MsgBox(0, "Msg", "Script was running for " & $time) ExitLoop EndIf WEnd
  13. Code i gave you works just fine on my Internet Explorer. It doesn't open new instance of IE or new tab if i already have opened it. But if the address is wrong it will open new tab or window. I'm from croatia and if i set www.google.com as address it will open new tab cause address is www.google.hr not com. Or I don't understand what you want? EDIT: Are you using Internet explorer or some other browser?
  14. like this? #include <IE.au3> Local $oIE = _IECreate("www.google.com", 1) _IELinkClickByText ($oIE, "About Google", 0, 1)
×
×
  • Create New...