date:20061108

[perl-win32-gui-users] win32-gui mail list spam?

2006-11-08 Thread Steve Loughran


Hi all

Can someone tell me if the win32-gui-(users|hackers) mail lists only 
allow posts from subscribed email addresses? Seems we have had a couple 
of spam emails get through the filters, and wondering if someone was 
spoofing a subscribed members email address, or if the list was "open" 
to any poster


And to keep this post mildly on topic, upgraded win32::gui from 1.03 to 
1.05 and had no problems so far :)


Steve

[perl-win32-gui-users] Win32::GUI v1.05 issue

2006-11-08 Thread Harlan Carvey

All,

When I run the code attached at the bottom of this
email, and terminate the window (via the Done button,
the red X button, or Exit()) I get the following
error:

C:\Perl\memory>perl -w memparse.pl
(in cleanup) Can't call method "DELETE" on an
undefined value at C:/Perl
/site/lib/Win32/GUI.pm line 3451 during global
destruction.

Thoughts?

Thanks,

Harlan

-
#! c:\perl\bin\perl.exe
#-
# memparse.pl
#
#-
use strict;
use Win32;
use Win32::GUI qw(WS_CHILD WS_VISIBLE BS_DEFPUSHBUTTON

WS_SYSMENU WS_MINIMIZEBOX WS_THICKFRAME);

#-
# Define some global variables
#-
my $VERSION = "0\.01_20061108";
my $dumpfile = "";
my $saveprofile = "";
my $loadprofile = "";

my $menu = new Win32::GUI::Menu(   
"&File" => "File",
"   >   &Open Dump File..." => "Open",
"   >   -" => 0,
"   >   &Load Profile..." => "Load",
"   >   &Save Profile..." => "Save",
"   >   -" => 0,
"   >   E&xit" => "Exit",
#"   " => "",
"&Tools" => "Tools",
"   >   &Get OS" => "OS",
"   >   -" => 0,
"   >   View Process &Details" => "Details",
"   >   Dump Process &Memory" => "Memory",
"   >   Extract Process &Image" => "Image",
"&Help" => "Help",
"   >   &About" => "About",
);

my $mw = Win32::GUI::Window->new(
   -text => "Memory Dump Parser",
   -name => "MW",
# [ width, height]
   -size => [ 600, 340 ],
 -maxsize => [ 600, 340 ],
   -pos  => [ 200, 200 ],
   -menu => $menu,
 );
 
 my $lv = $mw->AddListView(
-pos  => [ 30, 20 ],
-size => [ 520, 200 ],
-pushstyle => WS_CHILD | WS_VISIBLE | 1,
-fullrowselect => 1,
-gridlines => 1,
-showselalways => 1,
-name => "ListView",
 );
$lv->InsertColumn( -index => 0, -text  => "PPID",
-width => 50);
$lv->InsertColumn( -index => 1, -subitem => 1, -text 
=> "PID", -width => 50);
$lv->InsertColumn( -index => 2, -subitem => 1, -text
=> "Name", -width => 100);
$lv->InsertColumn( -index => 3, -subitem => 1, -text 
=> "Exited", -width => 50);
$lv->InsertColumn( -index => 4, -subitem => 1, -text
=> "Offset", -width => 100);
$lv->InsertColumn( -index => 5, -subitem => 1, -text
=> "Creation Date", -width => 300);
 
my $btn = $mw->AddButton(
-text=> "GO",
-name=> "GO", 
-addstyle => BS_DEFPUSHBUTTON,
-tabstop  => 1,
-left => 410,
-top  => 230,
-width=> 50,
-height   => 20,
); 
 
my $btn2 = $mw->AddButton(
-text=> "DONE",
-name=> "DONE",
-addstyle => BS_DEFPUSHBUTTON, 
-tabstop  => 1,
-left => 490,
-top  => 230,
-width=> 50,
-height   => 20,
);  

my $status = $mw->AddStatusBar(  
-name   => "Status",
-text   => "Memory Dump Parser: Ready",
);
 
$mw->Show;
Win32::GUI::Dialog();
exit(0);


sub GO_Click {
if ($dumpfile eq "") {
$status->Text("No dumpfile has been selected.");
}
elsif (! -e $dumpfile) {
$status->Text("The dumpfile could not be found.");
}
else {
# No more excuses, time to work

}
}


sub Open_Click {
my $ret = Win32::GUI::GetOpenFileName(
-title  => "Open Dump File",
-file   => "\0" . " " x 256,
-filter => [
"DMP Files (*.dmp)" => "*.dmp", 
"VMEM Files (*.vmem)" => "*.vmem", 
"DD Files (*.dd)" => "*.dd", 
"IMG Files (*.img)" => "*.img", 
"All files", "*.*",
 ],
);
if ($ret) {
$dumpfile = $ret;
$status->Text("Dump file = ".$dumpfile);
  }
  else {
$status->Text("No dump file selected.");
  }
}

sub Load_Click {
my $ret = Win32::GUI::GetOpenFileName(
-title  => "Load Profile",
-file   => "\0" . " " x 256,
-filter => [
"PRF Files (*.prf)" => "*.prf",  
"All files", "*.*",
 ],
);

   $loadprofile = $ret;
   $status->Text("Profile to load: $loadprofile");
}

sub Save_Click {
my $file = "";
my $file_spec = "*.prf\0" . " " x 256;
  $file = Win32::GUI::GetOpenFileName(
-owner => $mw,
-directory => Win32::GetCwd(),
-title => "Save Profile...",
-file => $file_spec,
  ) || "";

if ($file eq undef || $file eq "") {  
$status->Text("No file selected.");
}
else {
$saveprofile = $file."\.prf";
$status->Text("Saving profile to $saveprofile...");

Re: [perl-win32-gui-users] Win32::GUI v1.05 issue

2006-11-08 Thread Kind, Uwe (AGIS)

Hi Harlan,

the example works for me without any warnings or errors.
 - WinXP SP2 (German)
 - ActivePerl 5.8.7
 - Win32::GUI 1.05

Regards, Uwe


-Ursprüngliche Nachricht-
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im Auftrag von Harlan Carvey
Gesendet: Mittwoch, 8. November 2006 23:04
An: perl-win32-gui-users@lists.sourceforge.net
Betreff: [perl-win32-gui-users] Win32::GUI v1.05 issue

All,

When I run the code attached at the bottom of this
email, and terminate the window (via the Done button,
the red X button, or Exit()) I get the following
error:

C:\Perl\memory>perl -w memparse.pl
(in cleanup) Can't call method "DELETE" on an
undefined value at C:/Perl
/site/lib/Win32/GUI.pm line 3451 during global
destruction.

Thoughts?

Thanks,

Harlan

-
#! c:\perl\bin\perl.exe
#-
# memparse.pl
#
#-
use strict;
use Win32;
use Win32::GUI qw(WS_CHILD WS_VISIBLE BS_DEFPUSHBUTTON

WS_SYSMENU WS_MINIMIZEBOX WS_THICKFRAME);

#-
# Define some global variables
#-
my $VERSION = "0\.01_20061108";
my $dumpfile = "";
my $saveprofile = "";
my $loadprofile = "";

my $menu = new Win32::GUI::Menu(   
"&File" => "File",
"   >   &Open Dump File..." => "Open",
"   >   -" => 0,
"   >   &Load Profile..." => "Load",
"   >   &Save Profile..." => "Save",
"   >   -" => 0,
"   >   E&xit" => "Exit",
#"   " => "",
"&Tools" => "Tools",
"   >   &Get OS" => "OS",
"   >   -" => 0,
"   >   View Process &Details" => "Details",
"   >   Dump Process &Memory" => "Memory",
"   >   Extract Process &Image" => "Image",
"&Help" => "Help",
"   >   &About" => "About",
);

my $mw = Win32::GUI::Window->new(
   -text => "Memory Dump Parser",
   -name => "MW",
# [ width, height]
   -size => [ 600, 340 ],
 -maxsize => [ 600, 340 ],
   -pos  => [ 200, 200 ],
   -menu => $menu,
 );
 
 my $lv = $mw->AddListView(
-pos  => [ 30, 20 ],
-size => [ 520, 200 ],
-pushstyle => WS_CHILD | WS_VISIBLE | 1,
-fullrowselect => 1,
-gridlines => 1,
-showselalways => 1,
-name => "ListView",
 );
$lv->InsertColumn( -index => 0, -text  => "PPID",
-width => 50);
$lv->InsertColumn( -index => 1, -subitem => 1, -text 
=> "PID", -width => 50);
$lv->InsertColumn( -index => 2, -subitem => 1, -text
=> "Name", -width => 100);
$lv->InsertColumn( -index => 3, -subitem => 1, -text 
=> "Exited", -width => 50);
$lv->InsertColumn( -index => 4, -subitem => 1, -text
=> "Offset", -width => 100);
$lv->InsertColumn( -index => 5, -subitem => 1, -text
=> "Creation Date", -width => 300);
 
my $btn = $mw->AddButton(
-text=> "GO",
-name=> "GO", 
-addstyle => BS_DEFPUSHBUTTON,
-tabstop  => 1,
-left => 410,
-top  => 230,
-width=> 50,
-height   => 20,
); 
 
my $btn2 = $mw->AddButton(
-text=> "DONE",
-name=> "DONE",
-addstyle => BS_DEFPUSHBUTTON, 
-tabstop  => 1,
-left => 490,
-top  => 230,
-width=> 50,
-height   => 20,
);  

my $status = $mw->AddStatusBar(  
-name   => "Status",
-text   => "Memory Dump Parser: Ready",
);
 
$mw->Show;
Win32::GUI::Dialog();
exit(0);


sub GO_Click {
if ($dumpfile eq "") {
$status->Text("No dumpfile has been selected.");
}
elsif (! -e $dumpfile) {
$status->Text("The dumpfile could not be found.");
}
else {
# No more excuses, time to work

}
}


sub Open_Click {
my $ret = Win32::GUI::GetOpenFileName(
-title  => "Open Dump File",
-file   => "\0" . " " x 256,
-filter => [
"DMP Files (*.dmp)" => "*.dmp", 
"VMEM Files (*.vmem)" => "*.vmem", 
"DD Files (*.dd)" => "*.dd", 
"IMG Files (*.img)" => "*.img", 
"All files", "*.*",
 ],
);
if ($ret) {
$dumpfile = $ret;
$status->Text("Dump file = ".$dumpfile);
  }
  else {
$status->Text("No dump file selected.");
  }
}

sub Load_Click {
my $ret = Win32::GUI::GetOpenFileName(
-title  => "Load Profile",
-file   => "\0" . " " x 256,
-filter => [
"PRF Files (*.prf)" => "*.prf",  
"All files", "*.*",
 ],
);

   $loadprofile = $ret;
   $status->Text("Profile to load: $loadprofile");
}

sub Save_Click {
my $file = "";
my $file_spec = "*.prf\0" . " " x 256;
  $fi

Re: [perl-win32-gui-users] Win32::GUI v1.05 issue

2006-11-08 Thread Harlan Carvey

Uwe,
 
> the example works for me without any warnings or
> errors.
>  - WinXP SP2 (German)
>  - ActivePerl 5.8.7
>  - Win32::GUI 1.05

Thanks.  I'm using XP SP2 (english), Perl 5.8.8 build
819 from ActiveState.

--
Harlan Carvey, CISSP
"Windows Forensics and Incident Recovery"
http://www.windows-ir.com
http://windowsir.blogspot.com
--

[perl-win32-gui-users] MouseOver

2006-11-08 Thread Arun ragini


i have been trying to work with MouseOver on textfield, but it does'nt seems
to work, what im trying to do is, print a msg in the status bar (tool tips).

if possible can some post the code to do that.


thanks
arun

--
-
Fight back spam! Download the Blue Frog.
http://www.bluesecurity.com/register/s?user=YXJ1bnJhZ2luaQ%3D%3D

[perl-win32-gui-users] win32-gui mail list spam?

[perl-win32-gui-users] Win32::GUI v1.05 issue

Re: [perl-win32-gui-users] Win32::GUI v1.05 issue

Re: [perl-win32-gui-users] Win32::GUI v1.05 issue

[perl-win32-gui-users] MouseOver

5 matches

Site Navigation

Mail list logo

Footer information