in reply to Re: Furmark & Speedfan command line in perl
in thread Furmark & Speedfan command line in perl
#!/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", "/nogui /width=1024 /height=728 /disable_osi /log_gpu_data /log_gp +u_data_polling_factor=60", 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; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Furmark & Speedfan command line in perl
by AppleFritter (Vicar) on Sep 08, 2014 at 10:03 UTC | |
by wangruonan (Initiate) on Sep 08, 2014 at 14:52 UTC |