Leser: 1
|< 1 2 3 4 5 >| | 43 Einträge, 5 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use strict;
use Tk;
use Tk::StayOnTop;
use Win32::OLE qw(in);
# Seriennummer ermitteln:
my $computer = Win32::NodeName();
my $WMI = Win32::OLE->GetObject("WinMgmts://$computer");
my @results = in($WMI->ExecQuery("select SerialNumber from Win32_BIOS"));
my $serialnumber = $results[0]->{SerialNumber};
# Fenster erzeugen
my $myWindow = MainWindow -> new(
-title => "Serial Number",
);
$myWindow -> resizable ('0','0'); # Größe nicht änderbar
my $screenHeight = $myWindow->screenheight; # ernittle Bildschirmhöhe
my $screenWidth = $myWindow->screenwidth; # ernittle Bildschirmbreite
$myWindow->geometry($screenWidth."x".$screenHeight); # Fenster maximieren
$myWindow->overrideredirect(1); # Rahmen entfernen
$myWindow->StayOnTop;
...
1
2
Assuming 'require Tk::StayOnTop;' at getInputTk.pl line 23
Failed to AUTOLOAD 'Tk::Widget::StayOnTop' at getInputTk.pl line 23
|< 1 2 3 4 5 >| | 43 Einträge, 5 Seiten |