如何安装MathType 6.9

以下安装过程只适用于MathType 6.9，不适用于MathType 7.0及以后版本。
请设法下载mathtype 6.9的英文原版，不要使用Liu Mang公司思杰马克丁的中文试用版，中文试用版通过向MathType.exe中注入MPlugin.dll以及向Setup.exe中注入SPlugin.dll，从而禁用输入序列号的文本框，让你有序列号也没法输入。In addition，please delete the item located in "HKEY_CURRENT_USER\Software\Install Options" before you (re)install mathtype.
1.选择I accept ……

2.选择Evaluate MathType for 30 days

3.Install

4. 完成

5.启动mathtype,Help > Unlock/Register MathType,然后输入你从国外官网购买的MathType序列号就OK了。

启动Word、Excel、Powerpoint等任一软件，按下Alt+F11，打开Microsoft Visual Basic for Applications,点击插入>模块，将下面的代码粘贴进去，然后按F5(某些笔记本电脑可能需要按Fn+F5)，或者点击工具栏上的的绿色小三角形，便可以执行VBA代码。

Option Explicit
Sub HAHAHAHA()
Dim HHHH As String
Dim Long1 As LongLong, Long2 As LongLong, Long44 As LongLong
Long44 = 44099087HHHH = Chr(7 * 11) + Chr(2 * 2 * 3 * 7) + Chr(3 * 29) + _
Chr(3 * 23) + Chr(2 * 3 * 3 * 3) + Chr(3 * 19) + _
Chr(2 * 2 * 2 * 2 * 3) + Chr(3 * 3 * 5)
Randomize
HHHH = HHHH + "00" + CStr(CLng(8999 * Rnd + 1000)) + "-"Long1 = 0
Long1 = Asc(Mid(HHHH, 3, 1)) - &H37 + Long1 * &H24
Long1 = Asc(Mid(HHHH, 4, 1)) - &H37 + Long1 * &H24
Long1 = Asc(Mid(HHHH, 5, 1)) - &H30 + Long1 * &H24
Long1 = Asc(Mid(HHHH, 6, 1)) - &H30 + Long1 * &H24
Long1 = Asc(Mid(HHHH, 7, 1)) - &H30 + Long1 * &H24
Long1 = Long1 Mod Long44Long2 = 0
Long2 = Asc(Mid(HHHH, 9, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(HHHH, 10, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(HHHH, 11, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(HHHH, 12, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(HHHH, 13, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(HHHH, 14, 1)) - &H30 + Long2 * &H24
Long2 = Long2 Mod Long44Dim t As LongLong, k As Integer, temp As String
t = (Long1 * Long2 Mod Long44) + 1336337temp = ""
For k = 1 To 5If (t Mod &H22) > 9 Thentemp = Chr(CInt(t Mod &H22) + &H57) + tempElsetemp = Chr(CInt(t Mod &H22) + &H30) + tempEnd Ift = Int(t / &H22)
Next kHHHH = HHHH + UCase(temp)
Debug.Print HHHH
MsgBox prompt:=HHHH, Buttons:=vbOKOnly, Title:="If unsuccessful, try for more times"
End Sub

上面代码中，t = (Long1 * Long2 Mod Long44) + 1336337，而Long1 * Long2可能超过Long型变量(4字节)的范围，运行时会报溢出的错误，在64bit的Office中，可通过LongLong型变量(8字节，最大2^63-1)来解决。参见VBA Data type summary. 32bit的Office不支持LongLong型变量(所以上面的代码只能在64bit的Office中运行)，可以用Double类型替代LongLong，代码如下。

Option Explicit
Sub HAHAHAHA()
Dim HHHH As String
Dim D1 As Double, D2 As Double, D44 As Double
D44 = 44099087HHHH = Chr(7 * 11) + Chr(2 * 2 * 3 * 7) + Chr(3 * 29) + _
Chr(3 * 23) + Chr(2 * 3 * 3 * 3) + Chr(3 * 19) + _
Chr(2 * 2 * 2 * 2 * 3) + Chr(3 * 3 * 5)
Randomize
HHHH = HHHH + "00" + CStr(CLng(8999 * Rnd + 1000)) + "-"D1 = 0
D1 = Asc(Mid(HHHH, 3, 1)) - &H37 + D1 * &H24
D1 = Asc(Mid(HHHH, 4, 1)) - &H37 + D1 * &H24
D1 = Asc(Mid(HHHH, 5, 1)) - &H30 + D1 * &H24
D1 = Asc(Mid(HHHH, 6, 1)) - &H30 + D1 * &H24
D1 = Asc(Mid(HHHH, 7, 1)) - &H30 + D1 * &H24
D1 = D1 Mod D44D2 = 0
D2 = Asc(Mid(HHHH, 9, 1)) - &H30 + D2 * &H24
D2 = Asc(Mid(HHHH, 10, 1)) - &H30 + D2 * &H24
D2 = Asc(Mid(HHHH, 11, 1)) - &H30 + D2 * &H24
D2 = Asc(Mid(HHHH, 12, 1)) - &H30 + D2 * &H24
D2 = Asc(Mid(HHHH, 13, 1)) - &H30 + D2 * &H24
D2 = Asc(Mid(HHHH, 14, 1)) - &H30 + D2 * &H24
D2 = D2 Mod D44Dim D1D2 As Double, t As Double, k As Integer, temp As String
D1D2 = D1 * D2
t = D1D2 - D44 * Int(D1D2 / D44) + 1336337temp = ""
For k = 1 To 5If (t Mod &H22) > 9 Thentemp = Chr(CInt(t Mod &H22) + &H57) + tempElsetemp = Chr(CInt(t Mod &H22) + &H30) + tempEnd Ift = Int(t / &H22)
Next kHHHH = HHHH + UCase(temp)
Debug.Print HHHH
MsgBox prompt:=HHHH, Buttons:=vbOKOnly, Title:="If unsuccessful, try for more times"
End Sub

我用javascript也写了一遍，给不熟悉VBA语法的朋友参考。把下面的代码粘贴到记事本中，保存为txt后，再把后缀由txt改为html，然后用浏览器打开。

You can press F5 to generate more codes.<br>
<script> var Long1,Long2,Long44=44099087;var HHHH=String.fromCharCode(7 * 11) + String.fromCharCode(2 * 2 * 3 * 7) + String.fromCharCode(3 * 29) + String.fromCharCode(3 * 23) + String.fromCharCode(2 * 3 * 3 * 3) + String.fromCharCode(3 * 19) + String.fromCharCode(2 * 2 * 2 * 2 * 3) + String.fromCharCode(3 * 3 * 5);HHHH = HHHH + "00" + Math.floor(8999 * Math.random() + 1000) + "-";Long1 = 0;Long1 = HHHH.substr(2,1).charCodeAt() - 0x37 + Long1 * 0x24;Long1 = HHHH.substr(3,1).charCodeAt() - 0x37 + Long1 * 0x24;Long1 = HHHH.substr(4,1).charCodeAt() - 0x30 + Long1 * 0x24;Long1 = HHHH.substr(5,1).charCodeAt() - 0x30 + Long1 * 0x24;Long1 = HHHH.substr(6,1).charCodeAt() - 0x30 + Long1 * 0x24;Long1 = Long1 % Long44;Long2 = 0;Long2 = HHHH.substr(8 ,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = HHHH.substr(9 ,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = HHHH.substr(10,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = HHHH.substr(11,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = HHHH.substr(12,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = HHHH.substr(13,1).charCodeAt() - 0x30 + Long2 * 0x24;Long2 = Long2 % Long44;var t = (Long1 * Long2) % Long44 + 1336337,k,temp="";for(k=1; k<=5; k++) {if (t % 0x22 > 9) { temp = String.fromCharCode(t % 0x22 + 0x57) + temp; }else              { temp = String.fromCharCode(t % 0x22 + 0x30) + temp; }t=Math.floor(t/0x22);}HHHH = HHHH + temp.toUpperCase();document.write(HHHH);console.log(HHHH);
</script>

Python再来一遍。

import random
import mathLong44 = 44099087
HHHH = chr(7 * 11) + chr(2 * 2 * 3 * 7) + chr(3 * 29) + chr(3 * 23) + chr(2 * 3 * 3 * 3) + chr(3 * 19) + chr(2 * 2 * 2 * 2 * 3) + chr(3 * 3 * 5)
HHHH = HHHH + "00" + str(random.randint(1000,9999)) + "-"Long1 = 0
Long1 = ord(HHHH[2]) - 0x37 + Long1 * 0x24
Long1 = ord(HHHH[3]) - 0x37 + Long1 * 0x24
Long1 = ord(HHHH[4]) - 0x30 + Long1 * 0x24
Long1 = ord(HHHH[5]) - 0x30 + Long1 * 0x24
Long1 = ord(HHHH[6]) - 0x30 + Long1 * 0x24
Long1 = Long1 % Long44Long2 = 0
Long2 = ord(HHHH[8]) - 0x30 + Long2 * 0x24
Long2 = ord(HHHH[9]) - 0x30 + Long2 * 0x24
Long2 = ord(HHHH[10]) - 0x30 + Long2 * 0x24
Long2 = ord(HHHH[11]) - 0x30 + Long2 * 0x24
Long2 = ord(HHHH[12]) - 0x30 + Long2 * 0x24
Long2 = ord(HHHH[13]) - 0x30 + Long2 * 0x24
Long2 = Long2 % Long44t = (Long1 * Long2) % Long44 + 1336337
temp = ""
for k in range(0,5):if t % 0x22 > 9 :temp = chr(int(t % 0x22 + 0x57)) + tempelse:temp = chr(int(t % 0x22 + 0x30)) + tempt = math.floor(t / 0x22)HHHH = HHHH + temp.upper()
print(HHHH)

如何安装MathType 6.9相关推荐

word中安装MathType
版本介绍:word2016 在word2016中点击数学公式(公式是别的文档复制来的),出现如下情况而且在软件左下角提示需要安装mathtype 注意安装mathtype尽量去官网下载正版,安装在C ...
【Mathtype】安装Mathtype后，word无法粘贴的问题
Win10安装mathtype后,word工具栏中自动添加mathtype的选项(mathtype为了使用户更加方便使用,故自动添加),但是却导致word无法粘贴.如何解决该问题? [方案1]官网描述 ...
安装Mathtype后无法使用——已解决
事件背景: word 中安装 mathtype 后无法正常使用,总是提示文件未找到等报错??? 比如我遇到的一下情况: 解决方法: 很简单,添加一下受信任的路径,移动一下运行 mathtype 的文件 ...
关于在Word2013中安装MathType的问题
[问题一:安装完MathType后报错说丢失DLL] [问题二:打开Word2013后报错] 上述两个问题尝试了以下措施都不见效果: 卸载MathType重新安装后依然报错: 按网上最多说法的&quo ...
安装MathType后Word不能复制粘贴怎么办？
作为一个专业的公式编辑器,MathType可以兼容800+应用程序,为了方便在Word中快速使用MathType,可以在工具栏加载MathType,可是这样在Word中就出现了冲突,导致Word的复制 ...
安装mathtype时找不到文件mathpage.wil
安装mathtype时找不到文件mathpage.wil 在正常装好了office不报错之后,去官网下载mathtype,选择试用30天,安装完成后应该打开word自动就可以出现了.但是这时候经常会提 ...
Word 安装Mathtype后无法使用CTRL+C和CTRL+V【一次性解决】
Word 安装Mathtype后无法使用CTRL+C和CTRL+V[一次性解决] 问题 Word 2019 安装Mathtype后,无法使用CTRL+C和CTRL+V,网上很多方法是,文件-&g ...
安装mathtype到word2013及错误问题汇总
软件情况: 操作系统Window7 64位 office版本:2013 64bit mathtype版本:6.9b 官网下载安装过程: 步骤1:安装mathtype,按照过程直接安装即可: 步骤1 ...
word2016安装mathtype时出现VBE6EXT.OLB报错
word2016安装mathtype时出现VBE6EXT.OLB报错在写毕业论文的时候需要用到mathtype对公式进行编辑,但是根据网上的教程安装后出现了挺多问题,在网上找了很多教程,但是都没有解 ...
word2016（office 365）中安装mathtype相关问题及解决办法
尝试了各种方法后,终于在这种方案下解决了,看来关键得看清楚自己的word是多少位的,原来我一直默认自己的是64位的,实际上是32位的. 因为写论文的需要,要在word中插入mathtype编辑器,中间 ...

如何安装MathType 6.9

如何安装MathType 6.9相关推荐

最新文章

热门文章