超级巡边5.0 不能正常运行那位大神帮我看下

夕雾

下载置顶帖这个“应大家要求,一键CDR gms源码破解发布”破解下gms文件后再改

刘海

夕雾 发表于 2023-8-12 09:35
下载置顶帖这个“应大家要求,一键CDR gms源码破解发布”破解下gms文件后再改
...

谢谢，已经解密，双击打不开这个，要怎么办

夕雾

双击窗体上边的；怎么发图片?

刘海

夕雾 发表于 2023-8-12 10:08
双击窗体上边的；怎么发图片?

可以交交我吗，学习一下啊，

604cm

用YG插件试一下,应该问题不大

gneh

我估计你大概率是标示的文件夹没获取管理员权限

dglrbl

夕雾 发表于 2023-8-11 15:31
你可以找到这一句代码替换掉这是我自己调整的

l.Delete
  Beep
End Sub
Private Sub CommandButton9_Click()
    Call DoLaunchSpooler
End Sub
Private Sub CommandButton12_Click()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    On Error GoTo Vectorector
    OrigSelection.Copy
Vectorector:
   Shell "C:\\Program Files (x86)\\FutureCorp\\Vector\\vmde.exe", vbNormalFocus
    End Sub
Private Sub CommandButton1_Click()
      Call DoAddContour
Beep
End Sub
Private Sub Label3_Click()
    If Me.Height >= 100 Then
        Me.Width = 20: Me.Height = 40
        Me.Label3.Caption = "QQ 26501746 HARRY作品"
        Label3.ForeColor = &H8000000D
        Beep
    Else
        Me.Width = 160: Me.Height = 183
        Me.Label3.Caption = "HARRY作品 QQ 26501746"
        Label3.ForeColor = &HFF00FF
        Beep
    End If
End Sub

你好我要怎么更改

dglrbl

刘海 发表于 2023-8-12 09:08
双击后这弹出窗口是锁定的，这要怎么办

Private Sub CommandButton16_Click()
  Dim OrigSelection As ShapeRange
  On Error GoTo ksgtcvew
Set OrigSelection = ActiveSelectionRange
  On Error GoTo ksgtcvew
  OrigSelection.Copy
  On Error GoTo ksgtcvew
  Dim doc1 As Document
  Set doc1 = CreateDocument
   On Error GoTo ksgtcvew
   ActiveLayer.Paste
   Clipboard.Clear '删除剪切板
   Call DoAddContour
ksgtcvew:
     Exit Sub
End Sub

Private Sub CommandButton17_Click()
  On Error GoTo Graphic
   Dim OrigSelectio As ShapeRange
    Set OrigSelectio = ActiveSelectionRange
    OrigSelectio.Copy
Graphic:
   Shell "C:\Program Files (x86)\FutureCorp\Graphic Tracer\GraphicTracer..exe", vbNormalFocus
End Sub

Private Sub CommandButton18_Click()
   Shell "C:\\Program Files (x86)\\FutureCorp\\Graphhome\\格辅图攻Graphhome.exe", vbNormalFocus
End Sub

Private Sub EXpand_Click()
On Error Resume Next
   If Documents.Count = 0 Then
        MsgBox "没有打开文件！", vbCritical
        Exit Sub
    End If
    frmSelectSame.Show 0
End Sub

Private Sub UserForm_Initialize()
    Me.Width = 20: Me.Height = 33
    Me.Label3.Caption = "QQ 26501746 HARRY作品"
    Label3.ForeColor = &H8000000D
End Sub
Private Sub CommandButton10_Click()
  Dim OrigSelection As ShapeRange
  Set OrigSelection = ActiveSelectionRange
  On Error GoTo ll
  ActivePage.Layers("SCM_ContourLayer").Printable = True
  Beep
ll:
    Exit Sub
  Exit Sub
End Sub
Private Sub CommandButton13_Click()
     EasyBounding.Show 0
End Sub

Private Sub CommandButton14_Click()
  On Error GoTo Graphic
   Dim OrigSelectio As ShapeRange
    Set OrigSelectio = ActiveSelectionRange
    OrigSelectio.Copy
Graphic:
   Shell "C:\Program Files (x86)\FutureCorp\Graphic Tracer\GraphicTracer.exe", vbNormalFocus
    End Sub

Private Sub CommandButton8_Click()
If ActiveDocument Is Nothing Then Exit Sub
  If ActiveDocument.ActivePage Is Nothing Then Exit Sub
  Dim l As Layer
  Set l = ActivePage.AllLayers.Find(CutLayerName)
  If l Is Nothing Then Exit Sub
  l.Delete
  Beep
End Sub
Private Sub CommandButton9_Click()
    Call DoLaunchSpooler
End Sub
Private Sub CommandButton12_Click()
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    On Error GoTo Vectorector
    OrigSelection.Copy
Vectorector:
   Shell "C:\\Program Files (x86)\\FutureCorp\\Vector\\vmde.exe", vbNormalFocus
    End Sub
Private Sub CommandButton1_Click()
      Call DoAddContour
Beep
End Sub
Private Sub Label3_Click()
    If Me.Height >= 100 Then
        Me.Width = 20: Me.Height = 40
        Me.Label3.Caption = "QQ 26501746 HARRY作品"
        Label3.ForeColor = &H8000000D
        Beep
    Else
        Me.Width = 160: Me.Height = 183
        Me.Label3.Caption = "HARRY作品 QQ 26501746"
        Label3.ForeColor = &HFF00FF
        Beep
    End If
End Sub
这是里面的全部代码

刘海

dglrbl 发表于 2023-8-13 12:36
Private Sub CommandButton16_Click()
  Dim OrigSelection As ShapeRange
  On Error GoTo ksgtcvew

代码修改好了，重新安装到另一台电脑上，不可用，为何

baruny

5.0比4.5多了啥功能，我也是装的4.5