AutoHotkey Community

; Function :: ConsecutiveSpam
;
; Params   ::
;             String :: String to check for spam
;             Level  :: Level of spam. Level := Occurances/3
ConsecutiveSpam(String, Level = 5) {
   Loop, Parse, String
      pAsc := Asc(A_LoopField),x := (pAsc = hAsc-1 || pAsc = hAsc+1) ? x+1 : 0,hAsc := pAsc
   Return x/3 >= Level ? 1 : 0
}

; Function :: RepeatingSpam
;
; Params   ::
;             String :: String to check for spam
;             Level  :: Level of spam. Level := Occurances/3
RepeatingSpam(String, Level = 5) {
   Loop, Parse, String
      pChar := A_LoopField,x := (pChar = hChar) ? x+1 : 0,hChar := pChar
   Return x/3 >= Level ? 1 : 0
}

MsgBox % (ConsecutiveSpam("abcdefghijklmnopqrstuvwxyz") ? "Possible consecutive spam" : "Not spam") . "`n"
       . (ConsecutiveSpam("This string is not spam and therefore will not be picked up as spam.") ? "Possible random spam" : "Not spam") . "`n"
       . "`n"
       . (RepeatingSpam("aaaaaaaAaaaaaAaaaAaaaaaaa") ? "Possible repeating spam" : "Not spam") . "`n"
       . (RepeatingSpam("This string is not spam and therefore will not be picked up as spam.") ? "Possible repeating spam" : "Not spam")