Hi Monks,
I am using perl to run furmark and speedfan, but i am not sure how to add furmark & speedfan command line into my script, like furmark resolution and fan speed.
Here is my code:
#!/usr/bin/perl
# process.plx
use warnings;
use strict;
use Win32::Process;
use Win32;
my $speedfan;
my $furmark;
my $counter;
my $hot;
my $cold;
print "Please enter cycle count:";
$counter=<STDIN>;
print "Please enter hot cycle time:";
$hot=<STDIN>;
print "Please enter cold cycle time:";
$cold=<STDIN>;
sub ErrorReport{
print Win32::FormatMessage(Win32::GetLastError());
}
Win32::Process::Create($speedfan,
"C:\\Program Files (x86)\\SpeedFan\\speedfan.exe",
"notepad.txt",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport ();
print "SpeedFan has been opened.\n";
while ($counter > 0) {
Win32::Process::Create($furmark,
"C:\\Program Files (x86)\\Geeks3D\\Benchmarks\\FurMark_1.12.0\\Fur
+Mark.exe",
"notepad.txt",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport ();
print "Furmark has been opened at $counter";
sleep $hot;
print "timesup.\n";
my $exit_code = 1;
$furmark->Kill($exit_code);
$counter = $counter-1;
sleep $cold;
}
Please kindly advise me. Thank you!
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.