以下安裝過程只適用於MathType 6.9，不適用於MathType 7.0及以後版本。
請設法下載mathtype 6.9的英文原版，不要使用流氓公司思傑馬克丁的中文試用版，中文試用版通過向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 WhatTheFuck As String
Dim Long1 As LongLong, Long2 As LongLong, Long44 As LongLong
Long44 = 44099087
WhatTheFuck = 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)
Long1 = 0
Long1 = Asc(Mid(WhatTheFuck, 3, 1)) - &H37 + Long1 * &H24
Long1 = Asc(Mid(WhatTheFuck, 4, 1)) - &H37 + Long1 * &H24
Long1 = Asc(Mid(WhatTheFuck, 5, 1)) - &H30 + Long1 * &H24
Long1 = Asc(Mid(WhatTheFuck, 6, 1)) - &H30 + Long1 * &H24
Long1 = Asc(Mid(WhatTheFuck, 7, 1)) - &H30 + Long1 * &H24
Long1 = Long1 Mod Long44
Randomize
WhatTheFuck = WhatTheFuck + "00" + CStr(CLng(8999 * Rnd + 1000)) + "-"
Long2 = 0
Long2 = Asc(Mid(WhatTheFuck, 9, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(WhatTheFuck, 10, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(WhatTheFuck, 11, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(WhatTheFuck, 12, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(WhatTheFuck, 13, 1)) - &H30 + Long2 * &H24
Long2 = Asc(Mid(WhatTheFuck, 14, 1)) - &H30 + Long2 * &H24
Long2 = Long2 Mod Long44
Dim t As LongLong, k As Integer, temp As String
t = (Long1 * Long2 Mod Long44) + 1336337
temp = ""
For k = 1 To 5
If (t Mod &H22) > 9 Then
temp = Chr(CLng(t Mod &H22) + &H57) + temp
Else
temp = Chr(CLng(t Mod &H22) + &H30) + temp
End If
t = CDbl(t) / &H22 - 0.5
Next k
WhatTheFuck = WhatTheFuck + UCase(temp)
Debug.Print WhatTheFuck
MsgBox prompt:=WhatTheFuck, Buttons:=vbOKOnly, Title:="If unsuccessful, try for more times"
End Sub