(versie 1.7.3) Spam remover voor Spotnet

[Ep Woody]

Omdat de spam een beetje de overhand begon te nemen, heb ik een scriptje gemaakt waarmee de database schoongemaakt wordt van de spam. Het is nog in een testfase maar het lijkt me een heel handige toevoeging voor de gebruikers.

Voor degene die het wil testen. Dit is het script. Maak een nieuw document aan, plak daar de onderstaande code in. Pas de eerste regel aan, en sla het bestand op als .vbs bestand.

Als je het script opstart haalt hij de bekende spam op, en verwijderd deze uit je spots-bestand. Het is wel aan te raden om even een backup van je spots-bestand te maken, mocht er onverhoopt iets mis gaan.

Code: Selecteer alles

	Database = "C:\ProgramData\Spotnet\news.server.eu.spots"
  
	Function HTTPGet(URL)
		Set IE = CreateObject("InternetExplorer.Application")
		IE.visible = 0
		IE.navigate URL
		do while IE.Busy
		loop
		HTTPGet = IE.document.documentelement.innertext
		IE.quit
		Set IE = Nothing
	End Function


    ArrMesId = Split(HTTPGet("http://spot-net.nl/add-ons/spamremover/banmessages.txt"), vbNewLine)

	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(Database, 1)

	Dim arrFileLines()
	i = 0
	Do Until objFile.AtEndOfStream
		Redim Preserve arrFileLines(i)
		arrFileLines(i) = objFile.ReadLine
		i = i + 1
	Loop
	objFile.Close

	Set objFile = Nothing
	Set objFileWrite = objFSO.OpenTextFile(Database, 2)
	For Each Line in arrFileLines
		arrLine = split(Line, vbTab)
	
		FilterLine = Filter (ArrMesId, arrLine(9))
	
		if ubound(FilterLine) <> 0 then
			objFileWrite.WriteLine ( Line )
		end if
	next
	objFileWrite.Close
   
    WScript.Echo "Ban-systeem is bijgewerkt!"
   

[xZx]

Vraagje Ep, als ik dit script gebruik, heb ik dan niet de ban.txt nodig uit het Blacklist topic (Kennisbank) ?

[Megalos]

Nee, de lijst wordt volgens mij rechtstreeks van het internet gehaald, zie de volgende regel:

Code: Selecteer alles

ArrMesId = Split(HTTPGet("http://spotlite.stormpages.com/banmessages.txt"), vbNewLine)

Wel zo handig .

[xZx]

Kriele! 'n00b alert activated'

Thanks Megalos

[Renzzie]

Zou je iets dergelijks willen maken voor spotlite?

Bedankt voor het initiatief iig!

[gerstr]

Ik heb scriptje klein beetje getweaked - zodat als argument de naam van de spot file kan worden meegegeven ipv dit handmatig in de code aan te passen.

Code: Selecteer alles

Set args = WScript.Arguments

arg1 = args.Item(0)


	Database = arg1
  
	Function HTTPGet(URL)
		Set IE = CreateObject("InternetExplorer.Application")
		IE.visible = 0
		IE.navigate URL
		do while IE.Busy
		loop
		HTTPGet = IE.document.documentelement.innertext
		IE.quit
		Set IE = Nothing
	End Function


    ArrMesId = Split(HTTPGet("http://spotlite.stormpages.com/banmessages.txt"), vbNewLine)

	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.OpenTextFile(Database, 1)

	Dim arrFileLines()
	i = 0
	Do Until objFile.AtEndOfStream
		Redim Preserve arrFileLines(i)
		arrFileLines(i) = objFile.ReadLine
		i = i + 1
	Loop
	objFile.Close

	Set objFile = Nothing
	Set objFileWrite = objFSO.OpenTextFile(Database, 2)
	For Each Line in arrFileLines
		arrLine = split(Line, vbTab)
	
		FilterLine = Filter (ArrMesId, arrLine(9))
	
		if ubound(FilterLine) <> 0 then
			objFileWrite.WriteLine ( Line )
		end if
	next
	objFileWrite.Close
   
    WScript.Echo "Ban-systeem is bijgewerkt!"
   

[nick0016]

Netjes dit!

[Cootje81]

http://spotlite.stormpages.com/banmessages.txt deze txt bestandje is leeg.. Kan dat?

[Ep Woody]

Script is aangepast met een nieuwe server. Oude bestanden zijn ook nog een keer gevuld.

[Cootje81]

Kijk dat is beter Bedankt voor de update.. Miss niet handiger/beter als het op de spot-net.nl server zelf kan staan?