CDR X6 求一套序列号和激活代码 在线等 急!!!!!!!! 50
2个回答
2021-11-16
展开全部
如果每次打开CDR都要输入注册码激活码,很麻烦,特地用VBS写了个自动输入的,希望能帮助到大家.本人也是穷屌一个,偶尔用用CDR排版而已.在安装目录下(CorelDRW.exe同个目录)新建一个记事本文件,例如CDR启动.txt打开输入下面的vbs代码,然后文件名改成CDR启动.vbs保存即可.附上vbs代码
Set ws=CreateObject("WScript.Shell")
ws.run "CorelDRW.exe"
ys=200'操作延时(可修改数字:毫秒)
ii=20'超时时间(可修改数字单位:秒)
i=0
xlh="xxxxxxx-xxxxxxx-xxxxxxx-xxxxxxx"'改成自己的序列号
jhm="xxxx-xxxx-xxxx-xxxx-xxxx"'改成自己的激活码
Do While i<ii
ret = ws.AppActivate("CorelDRAW Graphics Suite X6")
If ret Then
ws.SendKeys "{TAB}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys "{TAB 4}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys xlh
WScript.Sleep ys
ws.SendKeys "{TAB 3}"
WScript.Sleep ys
ws.SendKeys jhm
WScript.Sleep ys
ws.SendKeys "{TAB}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys "{TAB 3}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
Exit Do
Else
WScript.Sleep 1000
i=i+1
End if
Loop
后面每次打开CDR,就打开这个VBS文件就行了,打开过程不要操作,该程序只是模拟手动录入注册码.
Set ws=CreateObject("WScript.Shell")
ws.run "CorelDRW.exe"
ys=200'操作延时(可修改数字:毫秒)
ii=20'超时时间(可修改数字单位:秒)
i=0
xlh="xxxxxxx-xxxxxxx-xxxxxxx-xxxxxxx"'改成自己的序列号
jhm="xxxx-xxxx-xxxx-xxxx-xxxx"'改成自己的激活码
Do While i<ii
ret = ws.AppActivate("CorelDRAW Graphics Suite X6")
If ret Then
ws.SendKeys "{TAB}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys "{TAB 4}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys xlh
WScript.Sleep ys
ws.SendKeys "{TAB 3}"
WScript.Sleep ys
ws.SendKeys jhm
WScript.Sleep ys
ws.SendKeys "{TAB}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
WScript.Sleep ys
ws.SendKeys "{TAB 3}"
WScript.Sleep ys
ws.SendKeys "{ENTER}"
Exit Do
Else
WScript.Sleep 1000
i=i+1
End if
Loop
后面每次打开CDR,就打开这个VBS文件就行了,打开过程不要操作,该程序只是模拟手动录入注册码.
2022-10-24
展开全部
x6的版本已经不适应人才市场的需求了,现在的所需要的设计只有最新版的才能满足,需最新版的请留企鹅邮箱。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询