Hi,
We are using Dragon NaturallySpeaking 7.3 Advanced Scripting (a variant of VB) to establish an AGX connection to our mainframe application. This is a successfull and working Script. I would like to achieve a similar thing with Lotus Notes 6.5 but cannot find a dll or whatever to do this. Ultimately, I want to interact by fieldname and not by SendDragonKeys etc. This is because Notes is not very accessible to Dragon. Does anyone have any suggestions.
Thanks.
Dim mf
Declare Function WNetGetConnection Lib “mpr.dll” Alias “WNetGetConnectionA” (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
Sub Main
SetMicrophone 0
mf_start
mf.setfield(“userid”,GetLogonID)
SendDragonKeys “{f4}”
Wait 1
SetMicrophone 1
End Sub
Sub mf_start
Set AGXObject=CreateObject(“AGXLib.AGXApplication”) ’ create an object
If AGXObject.SessionCount()=0 Then ’ if no session
Set mf=AGXObject.NewSession(“AccPoint”) ’ grab an empower one
Else
Set mf=AGXObject.GetSession(0) ’ grab an aviva
End If
b = mf.emulatortype()
’ MsgBox b
End Sub
Function GetDriveMapping(sDriveLetter As String) As String
Dim sBuffer As String
Dim lReturnValue As Long
Const BUFFER_SIZE& = 255
’ Initialize buffer for API call
sBuffer = Space$(BUFFER_SIZE)
’ Do API call to get the connection corresponding to the specified drive letter
lReturnValue = WNetGetConnection(sDriveLetter, sBuffer, BUFFER_SIZE)
’ WNetGetConnection returnvalue is 0 ifg it worked
If lReturnValue = 0 Then
’ Find the null terminator, and return what’s before it
GetDriveMapping = Left$(sBuffer, InStr(1, sBuffer, Chr$(0)) - 1)
Else
’ There was a problem - just return nothing
GetDriveMapping = “???”
End If
End Function
Function GetLogonID As String
tempcount=4
inputstring = GetDriveMapping(“u:”) ’ get mapping of drive, eg \wombatfs1\data\shared\users\me
While InStr(tempcount+1,inputstring,"") > 0 ’ scan through until we find the last .
tempcount = InStr(tempcount+1,inputstring,"")+1 ’ find location
Wend ’ if no more, go on
GetLogonID = Right(inputstring,Len(inputstring)-tempcount+1) ’ return leftmost number of chars
End Function