How to convert this script to web version

HCL Domino Domino Forum
1

Hi I have a problem to get the signature on webcurrently I can get my signature on client using script below

Dim ws As New notesuiworkspace

Dim uidoc As notesuidocument

Dim doc As notesdocument

Set uidoc = ws.currentdocument

Set doc = uidoc.document

Dim i As Integer

Dim lRet As Long

Dim hDoodle As Long

’ Extractsignature(byval wsigindex as integer, poutputink as long) as long

Dim iFileLength As Integer

Dim sBuf As String

Dim xx As String

iFileLength = Filelen(“C:\Program Files\CIC\InkTools 2.63\Samples\VB\InkTools Demo\template.cic”)

'sBuf = String$(iFileLength, " ")

fileNum% = Freefile()

Open “C:\Program Files\CIC\InkTools 2.63\Samples\VB\InkTools Demo\template.cic” For Binary Access Read As #fileNum%

Seek fileNum%, 1

Do While Not Eof(fileNum%)

	Get #fileNum%, , sBuf

Loop

Close #fileNum%



Dim handle As Variant

Dim handle1 As Variant



Set handle = uidoc.GetObject("CIC SigCheck Control")

handle.Template = sBuf



	 	'If dsvSigCheck.Extraction Then

	'For i = 0 To 5

'Set handle = uidoc.GetObject("CIC SigCheck Control")

If handle.Extraction Then

	lRet = handle.ExtractSignature(1, hDoodle)

	

	Set handle1 = uidoc.GetObject("CIC Ink Control")

	handle1.BackgroundColor = &H00C0FFFF

	handle1.LoadDoodle(hDoodle)

	handle1.SetDisplayedInkWidth(2)        'Set ink width to 2

	handle1.SetDisplayedInkColor(&HFF&)    'Set display color to red

	handle1.Redraw

	handle1.DeleteDoodle(hDoodle)

End If

for what I know uidoc.getobject(…) can not apply in agent.

  1. If i need to write this lotus script in agent, how should I write?

  2. Any other method that can I call CIC Ink Control and CIC SigCheck Control. for ex: using java scriptor java ) if you all know please advise…

I need this ASAP

Regards

Nyan hh