下载置顶帖这个“应大家要求,一键CDR gms源码破解发布”破解下gms文件后再改
夕雾 发表于 2023-8-12 09:35
下载置顶帖这个“应大家要求,一键CDR gms源码破解发布”破解下gms文件后再改
...
谢谢，已经解密，双击打不开这个，要怎么办
双击窗体上边的；怎么发图片?
本帖最后由 刘海 于 2023-8-12 10:10 编辑
夕雾 发表于 2023-8-12 10:08
双击窗体上边的；怎么发图片?
可以交交我吗，学习一下啊，
用YG插件试一下,应该问题不大
我估计你大概率是标示的文件夹没获取管理员权限
夕雾 发表于 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
你好我要怎么更改
刘海 发表于 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
代码修改好了，重新安装到另一台电脑上，不可用，为何
5.0比4.5多了啥功能，我也是装的4.5