Er mogen op dit forum GEEN verzoekjes of requests gevraagd worden, dit staat ook in de regels die je accepteert bij het registreren op dit forum, hiervoor krijg je direct een permanente ban.

(versie 1.7.3) Spam remover voor Spotnet

Oude en opgeloste problemen van vorige spotnet versies vind je hier terug.

Moderator: Moderator Team

Gebruikersavatar

Topicstarter
Ep Woody
Berichten: 933
Lid geworden op: 17 feb 2011, 14:36
Reputation: 0
Locatie: Omgeving Apeldoorn
Leeftijd: 39

(versie 1.7.3) Spam remover voor Spotnet

#1

Bericht door 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!"
   
Laatst gewijzigd door Ep Woody op 09 mar 2011, 15:08, 2 keer totaal gewijzigd.
Voor ondersteuning: klik hier. Probleem niet opgelost, maak dan een nieuw topic aan.
Neem je online privacy serieus en gebruik een VPN verbinding!

Met een VPN verbinding van IPVanish wordt uw gehele internet verbinding versleuteld

U kunt dus veilig browsen, Torrents downloaden, Usenet downloaden en onderling versleutelde verbindingen opzetten.


Gebruikersavatar

xZx
Berichten: 155
Lid geworden op: 18 feb 2011, 10:34
Reputation: 0
Usenet: Easyusenet+Cheapnews

Re: Spam remover voor Spotnet

#2

Bericht door xZx »

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

Megalos
Berichten: 234
Lid geworden op: 27 feb 2011, 16:55
Reputation: 0
Usenet: Sunny Usenet
Internet: UPC

Re: Spam remover voor Spotnet

#3

Bericht door 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 ;).
Gebruikersavatar

xZx
Berichten: 155
Lid geworden op: 18 feb 2011, 10:34
Reputation: 0
Usenet: Easyusenet+Cheapnews

Re: Spam remover voor Spotnet

#4

Bericht door xZx »

Kriele! 'n00b alert activated' :oops: :lol:

Thanks Megalos ;)

Renzzie
Berichten: 8
Lid geworden op: 21 feb 2011, 11:50
Reputation: 0

Re: Spam remover voor Spotnet

#5

Bericht door Renzzie »

Zou je iets dergelijks willen maken voor spotlite? :)

Bedankt voor het initiatief iig!

gerstr

Re: Spam remover voor Spotnet

#6

Bericht door 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
Berichten: 13
Lid geworden op: 27 feb 2011, 07:04
Reputation: 0

Re: Spam remover voor Spotnet

#7

Bericht door nick0016 »

Netjes dit!

Cootje81
Berichten: 234
Lid geworden op: 13 feb 2011, 22:19
Reputation: 0

Re: Spam remover voor Spotnet

#8

Bericht door Cootje81 »

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

Topicstarter
Ep Woody
Berichten: 933
Lid geworden op: 17 feb 2011, 14:36
Reputation: 0
Locatie: Omgeving Apeldoorn
Leeftijd: 39

Re: Spam remover voor Spotnet

#9

Bericht door Ep Woody »

Script is aangepast met een nieuwe server. Oude bestanden zijn ook nog een keer gevuld.
Voor ondersteuning: klik hier. Probleem niet opgelost, maak dan een nieuw topic aan.

Cootje81
Berichten: 234
Lid geworden op: 13 feb 2011, 22:19
Reputation: 0

Re: Spam remover voor Spotnet

#10

Bericht door Cootje81 »

Kijk dat is beter :) Bedankt voor de update.. Miss niet handiger/beter als het op de spot-net.nl server zelf kan staan?
Gesloten Vorig onderwerpVolgend onderwerp
Spot-net.nl Forums : Disclaimer