ArcGIS Desktop SDK for VB6 是Arcengine吗？

<P>下了DVD版的ArcGIS Desktop 9.2，装了SDK，在VB6“部件”中有Esri Control，里面有MapControl等常用的Arc控件，但是提示未注册，我是用GisEmpire的License。这个SDK应该就是ArcEngine吧？顺便问问哪位兄弟解决这个注册问题能指点一下，不胜感激！</P>
<P>QQ: 84285340</P>
<P>MSN： michael.ou@hotmail.com</P>

<img src="images/post/smile/dvbbs/em02.gif" />

<P>如果是用C＋＋的怎么办啊？</P>

这只是检查License吧?

<P>上面的就是例子啊。其中的form_load中的if...else部分可以不要，是用来提示的。</P>
<P>再说明一下，mapcontrol只是控件中显示warning吧，如果直接运行，就会弹出未授权的错误。但添加了上面的代码后，mapcontrol就可以用了。</P>

<P>不明白怎么解决的，因为将控件拖出来的时候就报没有许可错误了</P>
<P>能否详细说明一下，最好有个例子！</P>

<P>问题已解决如果装了AE9.2并授权，估计没问题，另外就是自己初始化License，下面是VB的来自帮助中的例子：</P>
<P>Option Explicit On<BR>Imports ESRI.ArcGIS.esriSystem<BR>Public Class Form1</P>
<P>    Private m_pAoInitialize As IAoInitialize</P>
<P>    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<BR>        'This sample is designed to perform license initialization on a system<BR>        'that may have access to a floating license. An ArcEditor license will be used.</P>
<P>        Dim licenseStatus As esriLicenseStatus<BR>        licenseStatus = CheckOutLicenses(esriLicenseProductCode.esriLicenseProductCodeArcEditor)</P>
<P>        'Take a look at the licenseStatus to see if it failed<BR>        'Not licensed<BR>        If (licenseStatus = esriLicenseStatus.esriLicenseNotLicensed) Then<BR>            MsgBox("You are not licensed to run this product")<BR>            Me.Dispose()<BR>            'The licenses needed are currently in use<BR>        ElseIf (licenseStatus = esriLicenseStatus.esriLicenseUnavailable) Then<BR>            MsgBox("There are insufficient licenses to run")<BR>            Me.Dispose()<BR>            'The licenses unexpectedly failed.<BR>        ElseIf (licenseStatus = esriLicenseStatus.esriLicenseFailure) Then<BR>            MsgBox("Unexpected license failure please contact your administrator")<BR>            Me.Dispose()<BR>            'Already initialized (Initialization can only occur once)<BR>        ElseIf (licenseStatus = esriLicenseStatus.esriLicenseAlreadyInitialized) Then<BR>            MsgBox("Your license has already been initialized; please check your implementation.")<BR>            Me.Dispose()<BR>            'Everything was checked out successfully.<BR>        ElseIf (licenseStatus = esriLicenseStatus.esriLicenseCheckedOut) Then<BR>            MsgBox("Licenses checked out successfully")<BR>        End If<BR>    End Sub</P>
<P>    Private Function CheckOutLicenses(ByVal productCode As esriLicenseProductCode) As esriLicenseStatus</P>
<P>        Dim licenseStatus As esriLicenseStatus<BR>        m_pAoInitialize = New AoInitialize<BR>        CheckOutLicenses = esriLicenseStatus.esriLicenseUnavailable</P>
<P>        'Check the productCode<BR>        licenseStatus = m_pAoInitialize.IsProductCodeAvailable(productCode)<BR>        If (licenseStatus = esriLicenseStatus.esriLicenseAvailable) Then<BR>            'Initialize the license<BR>            licenseStatus = m_pAoInitialize.Initialize(productCode)<BR>        End If</P>
<P>        CheckOutLicenses = licenseStatus<BR>    End Function</P>

我也想知道，顶起

<P>请问GIS版主，如果要用9.2 Desktop里的SDK要怎样的Crack？在哪里输入CDKEY？如可以破解请指教，不胜感激！</P>

<P>听说ArcGIS 9.2也可以用9.0的Register，我用9.0包括Designer的License，同样只能用AcrMap等，VB里的Arc Control还是提示没注册</P>