click yes vb sample

  • Thread starter Thread starter Kelly
  • Start date Start date
K

Kelly

I have a script that no longer works since we upgraded to outlook 2000
on windows 98se pc. I applied the clickyes program, but do not want
it active all the time. I tried the vb sample script to turn it on and
off within the script I am already using, but keep getting an error.
I am not a programer. I recd the original script from Microsoft.
They will not help me now stating it is a breach of security to send
automatic email.

The error says
Line: 2
Char: 17
Error: Expected end of statement
Code: 800A0401
Source: Microsoft VBScript compilation error

I have tried to contact click yes creaters. However, there is no
phone number on there website and they have not responded to my many
email requests.

Can anyone help me?
Thanks
Kelly
 
' Declare Windows' API functions
Private Declare Function RegisterWindowMessage _
Lib "user32" Alias "RegisterWindowMessageA" _
(ByVal lpString As String) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As Any, _
ByVal lpWindowName As Any) As Long

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long

' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")

' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)

' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)

' ...
' Do some Actions
' ...

' Send the message to Suspend ClickYes
Res = SendMessage(wnd, uClickYes, 0, 0)

End Sub
 
Back
Top