Sitemap blogspot blog

Dataone Account Usage Checker in PERL

http://digitalpbk.blogspot.com/2008/06/free-dataone-account-usage-checker-perl.html Dataone Account Usage Checker in PERL The following Script in PERL is a Dataone account usage checker.#!/usr/bin/perl# http://digitalpbk.blogspot.com/2008/06/free-dataone-account-usage-checker-perl.htmluse WWW::Mechanize;use HTTP::Cookies;use HTTP::Request::Common;my $verbose = 0;my $username;my $password;my $url="http://10.240.64.195/weblogin.jsp";for(my $i=0;$i{ if($ARGV[$i] eq "-v" or $ARGV[$i] eq "--verbose"){ $verbose = 1; } elsif($ARGV[$i] eq "-u" ...

Drag 'n Drop Files from explorer to VB

http://digitalpbk.blogspot.com/2006/12/drag-n-drop-files-from-explorer-to-vb.html Val hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click() ShellExecute Me.hwnd, "", "http://digitalpbk.blogspot.com", "", "", 1End SubPrivate Sub Form_Load() EnableDragDrop Me.hwndEnd SubPublic Sub GotADrop(ByVal strfile As String) Label1.Caption = strfileEnd SubPrivate Sub Form_Unload(Cancel As Integer) Disable ...

Orkut Perl Script - Login, Scrapper and more

http://digitalpbk.blogspot.com/2007/06/orkut-mass-scrapper-scrap-all-friends.html ("%45s","Command Line Orkut\n");printf ("%50s","By http://digitalpbk.blogspot.com\n");#inits$cj=HTTP::Cookies->new(file => "cookie.jar",autosave=>1,ignore_discard=>1);$mech = WWW::Mechanize->new(cookie_jar => $cj);@prc = ("\n","[FAILED]","[ OK ]\n");#main loopprint_c;while(){ chomp; @args = split(/ /); if(@args) { exit 0 if($args[0] eq "exit" || $args[0] eq "q"); if($args[0] eq "login") {login ...