Jump to content

SpeedFan script


Mikey
 Share

Recommended Posts

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")

Link to comment
Share on other sites

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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")
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...