I have problem to register add-ons to SBO 2004

Question

-. I am using sample HELLO WORLD providing for SDK 2004.
-. I build the installer using packager default of Visual Basic 6.0.
-. i builf file .ard
-. when i register the add-on and restart SBO 2004, the system show the message error:
"Command Line arguments..."
Someone, have a procedure step by step to register add-ons to SBO?
thanks

Answer 1

You need to declare this functions from the SBOAddonReg.dll.
I got this code from SAP, hope this works, it's VB .NET
Also: To use the license key I go to Project/Project properties/Configuration properties/Command line arguments
and I copy the license to this field, and it works.
Did you try from command line something like this?
c:\project.exe license_key
2) Code for a useful application
contact me, if you don't understand the example:
[email protected]
Option Strict Off
Option Explicit On
Friend Class Form1
     Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
     Public Sub New()
          MyBase.New()
          If m_vb6FormDefInstance Is Nothing Then
               If m_InitializingDefInstance Then
                    m_vb6FormDefInstance = Me
               Else
                    Try
                         'For the start-up form, the first instance created is the default instance.
                         If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
                              m_vb6FormDefInstance = Me
                         End If
                    Catch
                    End Try
               End If
          End If
          'This call is required by the Windows Form Designer.
          InitializeComponent()
     End Sub
     'Form overrides dispose to clean up the component list.
     Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
          If Disposing Then
               If Not components Is Nothing Then
                    components.Dispose()
               End If
          End If
          MyBase.Dispose(Disposing)
     End Sub
     'Required by the Windows Form Designer
     Private components As System.ComponentModel.IContainer
     Public ToolTip1 As System.Windows.Forms.ToolTip
     Public WithEvents CmdUnReg As System.Windows.Forms.Button
     Public WithEvents CmdReg As System.Windows.Forms.Button
     Public WithEvents CmdExit As System.Windows.Forms.Button
     Public WithEvents CmdAddOnStr As System.Windows.Forms.Button
     'NOTE: The following procedure is required by the Windows Form Designer
     'It can be modified using the Windows Form Designer.
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.CmdUnReg = New System.Windows.Forms.Button
        Me.CmdReg = New System.Windows.Forms.Button
        Me.CmdExit = New System.Windows.Forms.Button
        Me.CmdAddOnStr = New System.Windows.Forms.Button
        Me.SuspendLayout()
        'CmdUnReg
        Me.CmdUnReg.BackColor = System.Drawing.SystemColors.Control
        Me.CmdUnReg.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdUnReg.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CmdUnReg.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdUnReg.Location = New System.Drawing.Point(24, 112)
        Me.CmdUnReg.Name = "CmdUnReg"
        Me.CmdUnReg.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdUnReg.Size = New System.Drawing.Size(153, 25)
        Me.CmdUnReg.TabIndex = 3
        Me.CmdUnReg.Text = "UnRegister"
        'CmdReg
        Me.CmdReg.BackColor = System.Drawing.SystemColors.Control
        Me.CmdReg.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdReg.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CmdReg.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdReg.Location = New System.Drawing.Point(24, 64)
        Me.CmdReg.Name = "CmdReg"
        Me.CmdReg.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdReg.Size = New System.Drawing.Size(153, 25)
        Me.CmdReg.TabIndex = 2
        Me.CmdReg.Text = "Register"
        'CmdExit
        Me.CmdExit.BackColor = System.Drawing.SystemColors.Control
        Me.CmdExit.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdExit.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CmdExit.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdExit.Location = New System.Drawing.Point(24, 160)
        Me.CmdExit.Name = "CmdExit"
        Me.CmdExit.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdExit.Size = New System.Drawing.Size(153, 25)
        Me.CmdExit.TabIndex = 1
        Me.CmdExit.Text = "Exit"
        'CmdAddOnStr
        Me.CmdAddOnStr.BackColor = System.Drawing.SystemColors.Control
        Me.CmdAddOnStr.Cursor = System.Windows.Forms.Cursors.Default
        Me.CmdAddOnStr.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CmdAddOnStr.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CmdAddOnStr.Location = New System.Drawing.Point(24, 16)
        Me.CmdAddOnStr.Name = "CmdAddOnStr"
        Me.CmdAddOnStr.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CmdAddOnStr.Size = New System.Drawing.Size(153, 25)
        Me.CmdAddOnStr.TabIndex = 0
        Me.CmdAddOnStr.Text = "Create AddOn String As File"
        'Form1
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(202, 206)
        Me.Controls.Add(Me.CmdUnReg)
        Me.Controls.Add(Me.CmdReg)
        Me.Controls.Add(Me.CmdExit)
        Me.Controls.Add(Me.CmdAddOnStr)
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Location = New System.Drawing.Point(4, 23)
        Me.Name = "Form1"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text = "Form1"
        Me.ResumeLayout(False)
    End Sub
#End Region
#Region "Upgrade Support "
     Private Shared m_vb6FormDefInstance As Form1
     Private Shared m_InitializingDefInstance As Boolean
     Public Shared Property DefInstance() As Form1
          Get
               If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                    m_InitializingDefInstance = True
                    m_vb6FormDefInstance = New Form1()
                    m_InitializingDefInstance = False
               End If
               DefInstance = m_vb6FormDefInstance
          End Get
          Set
               m_vb6FormDefInstance = Value
          End Set
     End Property
#End Region
     'long GetInstallPath(const char *installDataFile,char *outStr,long len);
    Private Declare Function GetInstallPath Lib "SBOAddonReg.dll" (ByVal installDataFile As String, ByVal outStr As String, ByRef lLen As Integer) As Integer
     'BOOL RegisterAddOn(void);
    Private Declare Function RegisterAddOn Lib "SBOAddonReg.dll" () As Boolean
     'BOOL UnRegisterAddOn(const TCHAR *installDataFile);
    Private Declare Function UnRegisterAddOn Lib "SBOAddonReg.dll" (ByVal installDataFile As String) As Boolean
     Private g_sInstallPath As String
     Private g_sInstallFullPath As String
     Private g_sPreviousDir As String
     Private g_sAddOnExeName As String
     Private Sub CmdAddOnStr_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdAddOnStr.Click
          Shell(VB6.GetPath & "\AddOnRegDataGen.exe", AppWinStyle.NormalFocus)
          CmdReg.Enabled = True
     End Sub
     Private Sub CmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdExit.Click
          End
     End Sub
     Private Sub CmdReg_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdReg.Click
          Dim sPath As String
          Dim lLen As Integer
          Dim InstallStrFile As String
          sPath = Space(1024)
          'Getting the sPath where I have to install the addon exe
        InstallStrFile = VB6.GetPath & "\SBOAddOnRegData.sld"
          lLen = GetInstallPath(InstallStrFile, sPath, Len(sPath))
          'Coping the addon exe into the path location I got
          MsgBox("Please copy your Addon exe file into: " & Trim(sPath))
          'Writing to the registry
          If RegisterAddOn = 1 Then
               MsgBox("AddOn Was Registered Successfully")
               CmdUnReg.Enabled = True
          Else
               MsgBox("Failed To Register AddOn")
          End If
     End Sub
     Private Sub CmdUnReg_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdUnReg.Click
          Dim InstallStrFile As String
        InstallStrFile = VB6.GetPath & "\SBOAddOnRegData.sld"
          If UnRegisterAddOn(InstallStrFile) = 1 Then
               MsgBox("AddOn Was UnRegistered Successfully")
          Else
               MsgBox("Failed To UnRegister AddOn")
          End If
     End Sub
End Class