希望有开发经验的大佬搞一个适配WPS的Zotero插件 about translators_cn HOT 9 OPEN

' Zotero功能的精华

Sub ZoteroCommand(cmd As String, bringToFront As Boolean)
    Dim cds As COPYDATASTRUCT
    #If VBA7 Then
        Dim ThWnd As LongPtr
    #Else
        Dim ThWnd As Long
    #End If
    Dim a$, args$, name$
    Dim i As Long
    Dim ignore As Long
    Dim sBuffer$
    Dim lLength As Long
    Dim buf() As Byte
    
    ' Try various names for Firefox
    Dim appNames(5)
    appNames(1) = "Zotero"
    appNames(2) = "Firefox"
    appNames(3) = "Browser"
    appNames(4) = "firefox-dev"
    For i = 1 To 4
        ThWnd = FindWindow(appNames(i) & "MessageWindow", vbNullString)
        If ThWnd <> 0 Then
            Exit For
        End If
    Next
    If ThWnd = 0 Then
        MsgBox ("Word could not communicate with Zotero. Please ensure Zotero is running and try again. If this problem persists, see https://www.zotero.org/support/word_processor_plugin_troubleshooting")
        Exit Sub
    End If
    
    ' Allow Firefox to bring a window to the front
    If bringToFront Then Call SetForegroundWindow(ThWnd)
    
    ' Get path to active document
    If ActiveDocument.Path <> "" Then
        name$ = ActiveDocument.Path & Application.PathSeparator & ActiveDocument.name
    Else
        name$ = ActiveDocument.name
    End If
    
    ' Set up command line arguments
    name$ = Replace(name$, """", """""")
    args$ = "-silent -ZoteroIntegrationAgent WinWord -ZoteroIntegrationCommand " & cmd & " -ZoteroIntegrationDocument """ & name$ & """"
    a$ = "firefox.exe " & args$ & Chr$(0) & "C:\"
    
    ' Do some UTF-8 magic
    lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(a$), -1, ByVal 0, 0, 0, 0)
    ReDim buf(lLength) As Byte
    Call WideCharToMultiByte(CP_UTF8, 0, StrPtr(a$), -1, buf(1), lLength, 0, 0)
    
    ' Send message to Firefox
    cds.dwData = 1
    cds.cbData = lLength
    cds.lpData = VarPtr(buf(1))
    i = SendMessage(ThWnd, WM_COPYDATA, 0, cds)
    
    ' Handle error
    If Err.LastDllError = 5 Then
        If Dir("C:\Program Files\Mozilla Firefox\firefox.exe") <> "" Then
            Call Shell("""C:\Program Files\Mozilla Firefox\firefox.exe"" " & args$, vbNormalFocus)
        ElseIf Dir("C:\Program Files (x86)\Mozilla Firefox\firefox.exe") <> "" Then
            Call Shell("""C:\Program Files (x86)\Mozilla Firefox\firefox.exe"" " & args$, vbNormalFocus)
        End If
    End If
End Sub

+------------------+    +------------------+
|  Microsoft Word  |    |      Zotero      |
|                  |    |                  |
| +-------------+  |    | +-------------+  |
| | Zotero.dotm |-------->|   Citation  |  |
| +-------------+  |    | |   handler   |  |
|                  |    | +-------------+  |
|                  |    |        ↕         |
| +-------------+  |    | +-------------+  |
| |   Document  |  |    | |   Glue JS   |  |
| +-------------+  |    | +-------------+  |
|        ↕         |    |        ↕         |
| +-------------+  |    | +-------------+  |
| | Interop API |<------->|    Native   |  |
| +-------------+  |    | +-------------+  |
|                  |    |                  |
+------------------+    +------------------+

+------------------+    +------------------+
|       WPS        |    |      Zotero      |
|                  |    |                  |
| +-------------+  |    | +-------------+  |
| |   Ribbon    |  |    | |   Citation  |  |
| |      /      |  |    | |   handler   |  |
| |   TaskPane  |  |    | +-------------+  |
| +-------------+  |    |        ↕         |
|        ↑         |    | +-------------+  |
|        |         |    | |   Custom    |  |
|        ↓         |    | |   endpoint  |  |
| +-------------+  |    | |   handler   |  |
| | Plugin host |<---+  | +-------------+  |
| +-------------+  | |  |        ↕         |
|        ↕         | |  | +-------------+  |
| +-------------+  | +--->|  Connector  |  |
| |   Document  |  |    | |   server    |  |
| +-------------+  |    | +-------------+  |
|                  |    |                  |
+------------------+    +------------------+