package Msf::Exploit::netapi_ms06_040;
use base "Msf::Exploit";
use strict;
use Pex:CERPC;
use Pex::NDR;
my $advanced = {
'FragSize' => [ 256, 'The DCERPC fragment size' ],
'BindEvasion' => [ 0, 'IDS Evasion of the bind request' ],
'DirectSMB' => [ 0, 'Use direct SMB (445/tcp)' ],
};
....

Private Sub Delay(ByVal giay As Integer)
Dim Start As Double
Start = Timer
While (Timer < Start + giay)
DoEvents
Wend
End Sub