Suche nach Keywords

Top  Previous  Next

Dieses Beispiel meldet ein Update, falls Keywords innerhalb von neuem bzw. geändertem Inhalt gefunden wurde.

 

Sub Wsw_CheckKeywords(Handle, sMemChanges, ByRef sStatusMessage, ByRef iKeywordFound)

 

 Dim s = LCase(sMemChanges)

 

   ' Look for WebSite Watcher but exclude weight watcher

   If (InStr(s, "website") > 0) And (InStr(s, "watcher") > 0) And (InStr(s, "weight") = 0) Then

      iKeywordFound = 1

      Return

   End If

 

   If (InStr(s, "aignesberger") > 0) And (InStr(s, "watcher") > 0) Then

      iKeywordFound = 1

      sStatusMessage = "Keyword 'aignesberger + watcher' found"

      Return

   End If

 

End Sub

 

Bitte lesen Sie das Kapitel Wsw_CheckKeywords um zu sehen unter welchen Umständen diese Event-Funktion aufgerufen bzw. nicht aufgerufen wird.