SpeedFan script

[Mikey]

This script (below) works fine if another instance of SpeedFan is already running. Any ideas on why that is happening?

Run ("M:\PROGRAM FILES\SpeedFan\speedfan.exe")

WinActivate("SpeedFan 4.22", "")

Opt("WinWaitDelay", 25000)

WinActivate("SpeedFan 4.22", "")

If WinActive("SpeedFan 4.22") Then

MsgBox(0, "", "Window was active")

EndIf

ControlFocus ("SpeedFan 4.22", "", "TRxSpinEdit10")

ControlClick("SpeedFan 4.22", "", "TRxSpinEdit10")

[ChrisL]

I think its because your launching the program and not waiting for it to load and your script is running on.

Use WinWait ( "SpeedFan 4.22" , "" ) between the first and second line

Chris

[Mikey]

I think its because your launching the program and not waiting for it to load and your script is running on.

Use WinWait ( "SpeedFan 4.22" , "" ) between the first and second line

Chris

Hey Chris! Thanx! Ya, as soon as I put that in, budda-bing! You must be right about the script running on. Now I can move on to the next step of slowing my cpu fan. Again, thank you for the quick response. Mike

[ChrisL]

Hey Chris! Thanx! Ya, as soon as I put that in, budda-bing! You must be right about the script running on. Now I can move on to the next step of slowing my cpu fan. Again, thank you for the quick response. Mike

Cool.. incedently there is a later version of speed fan available http://www.almico.com/sfdownload.php

[Mikey]

Cool.. incedently there is a later version of speed fan available http://www.almico.com/sfdownload.php

Thanx for the link Chris. I'm now running 4.26.

The script below is doing everything I want it to except that it pauses for approximately 15 seconds after line 8. I had tried Opt("WinWaitDelay", 5000), but that didn't work, it wouldn't reduce the fan speed to 65%. I also tried different time settings for WinWait, but nothing changes. Any ideas?

1) Run ("M:\PROGRAM FILES\SpeedFan\speedfan.exe")

2) WinWait ( "SpeedFan 4.26" , "" )

3) WinActivate("SpeedFan 4.26", "")

4) Opt("WinWaitDelay", 20000)

5) WinActivate("SpeedFan 4.26", "")

6) ControlFocus ("SpeedFan 4.26", "", "TRxSpinEdit10")

7) ControlClick("SpeedFan 4.26", "", "TRxSpinEdit10")

8) Send("{DOWN 7}")

9) WinWait("SpeedFan 4.26", "")

10) ControlFocus ("SpeedFan 4.26", "", "TJvXPButton2")

11) ControlClick("SpeedFan 4.26", "", "TJvXPButton2")

[Mikey]

Hey Chris. Thanx for the help. Problem solved. Used 'sleep' as suggested by Burrup.