|
AutoCAD ARX Object : ShellExecute
oscarr am 14.07.2010 um 18:25 Uhr (0)
Oder auch so:Code: CommandMethod("Openthisway") _ Public Sub Openthisway() Dim myDWG As Document = Application.DocumentManager.MdiActiveDocument Dim thisway As String = myDWG.Name thisway = thisway.Remove(thisway.LastIndexOf("") + 1) If My.Computer.FileSystem.DirectoryExists(thisway) Then System.Diagnostics.Process.Start(thisway) End If End SubSchönen FeierabendHolger
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Kopierschutz mittels Abfrage der AutoCAD Lizenz
oscarr am 19.11.2010 um 18:11 Uhr (0)
Hallo,Die LizenzID ist unkritisch aber vor allem für deine Zwecke wohl ungeeignet, es ist mehr so ein LizenzTyp zB. steht 55800ARCHDESK_2008_0F für ein AutoCAD Architecture 2008 oder 57100REVIT_2008_0F für ein Revit 2008.Irgenwo auf der Autodesk Site findest du auch die IDs für alle anderen Autodesk Produkte.Da Du jedoch in .NET machst ist im Grunde alles relative leicht herauszubekommen was Du an Mechanismen implementierst.Aber auch nur wenn man weiss wie Und da liegt der Hund begraben. Selbst die ausgek ...
| | In das Form AutoCAD ARX Object wechseln |
|
AutoCAD ARX Object : Kopierschutz mittels Abfrage der AutoCAD Lizenz
oscarr am 22.11.2010 um 13:07 Uhr (0)
Bei mir funktioniert folgendes:Code:Debug.Print(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADR17.1ACAD-6004:409", "SerialNumber", Nothing))For Each DC As DirectoryServices.ActiveDirectory.DomainController In _ DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.DomainControllers Debug.Print(DC.Name)NextAn der Stelle der Registry findest Du auch anderes was du vieleicht verwenden möchtest, zB. Firmenamen o.ä.LGHolger
| | In das Form AutoCAD ARX Object wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
