Sub dm_ret180()
    MsgBox "大漠版本" & dm.ver()
    dm_ret_c = dm.SetPath("C:\Users\ABC\OneDrive\桌面\腳本\")
    dm_ret_c = dm.SetDict(0,"懸賞180.txt")
    dm_ret_c = dm.FindStrFastEx(582,581,1342,667, "180", "504230-101010",0.9)
    If len(dm_ret_c) > 0 Then
        MsgBox  "Success"
    Else
        MsgBox "Fail"
    End If
    MsgBox dm.GetLastError()
End Sub

//
//首先 在介面上放1個“按鈕控制項”和2個“單選框控制項”。
//其次 複製以下腳本進行調試：
//判斷選中情況
Event Form1.Button1.Click
    If Form1.Box60.Value = 1 Then
        Msgbox "搜尋60懸賞！"
    ElseIf Form1.Box75.Value = 1 Then
        Msgbox "搜尋75懸賞！"
    ElseIf Form1.Box180.Value = 1 Then
        Msgbox "搜尋180懸賞！"
        Set dm = CreateObject("dm.dmsoft")
        MsgBox "大漠版本" & dm.ver()
        Call dm_ret180()
    End If
End Event