My Account Log In Walkthrough IDE Integrations Contact  
Polystyle
Point And Click Source Code
Formatter & Obfuscator

Click Here To Download A Free Trial!
Home Features Documentation Buy Formatter Buy Obfuscator Download  

 



  • PHP Obfuscator

  • C# Obfuscator

  • Perl Obfuscator

  • Java Obfuscator

  • Javascript Obfuscator

  • JSP Obfuscator

  • Actionscript Obfuscator

  • C/C++ Formatter

  • Perl Formatter

  • Pascal/Delphi Formatter

  • C# Formatter

  • CSS Formatter

  • CMAC Formatter

  • Java Formatter

  • Javascript Formatter

  • PHP Formatter

  • JSP Formatter

  • HTML/XML Formatter

  • Python Formatter

  • ASP Formatter

  • Visual Basic Formatter

  • Actionscript Formatter

  • Step 1: Unformatted Visual Basic Source

  • Step 1: Unformatted Source
  • Step 2: Example Source
  • Step 3: Formatted Source

    Let's start with a real life source file which we'll reformat in the Whitesmith style:


    Function AddParams(strProcName, intReportID, strErrDesc)
    Dim lngRetVal
    Dim objCmdParams
    Dim objCn
    Dim n
    
    On Error Resume Next
    Set objCmdParams = Server.CreateObject("ADODB.Command")
    Set objCn = Server.CreateObject("ADODB.Connection")
    
    objCn.open g_strConnect
    
    If Err = 0 Then
    ' First delete any existing param info in tblReportParams
    
    lngRetVal = Exec_asprep_del_tblReportParams(intReportID, strErrDesc)
    
    If lngRetVal <> 0 Then 
    Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
    lngRetVal = 0
    End If
    
    ' Now gather up parameter info.
    With objCmdParams
    .Commandtext = strProcName
    .Commandtype = adCmdStoredProc
    Set .ActiveConnection = objCn
    .Parameters.Refresh
    
    For n =1 to .Parameters.Count -1' we want to skip RETURN_VALUE
    
    ' Add to tblReportParams
    lngRetVal = Exec_asprep_ins_tblReportParams(intReportID, Replace(objcmdparams.Parameters(n).name,"@",""), strErrDesc)
    
    If lngRetVal <> 0 Then 
    Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
    lngRetVal = 0
    End If
    Next
    
    End With
    End If
    
    If Err <> 0 Then
    AddParams = Err.Number
    strErrDesc = Err.description
    End If
    End Function

    Next, in Step 2 we'll look at our example source which defines our style.

  • Home Features Documentation Buy Polystyle Buy Obfuscator Download  

    Click Here To Download A Free Trial!

    Copyright © Flashbulb Studios. All rights reserved.