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

Re: Spam remover voor Spotnet

#11

Bericht door Ep Woody »

Dat is inderdaad handiger, en dat is bij deze ook gebeurd.
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.



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

Re: Spam remover voor Spotnet

#12

Bericht door Cootje81 »

Mooi.. :D Nu is het beter update te houden voor mods etc :)

gerstr

Re: Spam remover voor Spotnet

#13

Bericht door gerstr »

wordt druk aan gewerkt achter de schermen!
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

#14

Bericht door Ep Woody »

Deze versie is gemaakt voor Spotnet 1.7.1

Code: Selecteer alles

	Database = "news.server.eu.db"
	WorkingDir = "C:\ProgramData\Spotnet\"
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	if (NOT objFSO.FileExists(WorkingDir & "Servers.xml")) then
		WorkingDir = "C:\Documents and Settings\All Users\Local Application Data\Spotnet\"
	End If
	if (NOT objFSO.FileExists(WorkingDir & "Servers.xml")) then
		WorkingDir = "C:\Documents and Settings\All Users\Application Data\Spotnet\"
	End If
	
	Set IE = CreateObject("InternetExplorer.Application")
	IE.visible = 0

Function HTTPGet(URL)
	IE.navigate URL
	do while IE.Busy
	loop
	HTTPGet = IE.document.documentelement.innertext
End Function
	
function update() 
	'Document.Write ("Welkom bij de Spam Remover van Spot-net.nl.<br><br>De database wordt nu bijgewerkt, dit kan even duren. Een ogenblik geduld A.U.B.<br><br>Als het programma klaar is met filteren, sluit het zichzelf af. <br><br><br>Log:<br>")

	if (objFSO.FileExists(WorkingDir & "Servers.xml")) then
	'Document.Write  ("servers.xml Gevonden.<br>")
	Set objFileRead = objFSO.OpenTextFile(WorkingDir & "servers.xml", 1)
	'Document.Write  ("servers.xml Geopend.<br>")
	Do Until objFileRead.AtEndOfStream
		Line = objFileRead.ReadLine
		if (InStr(Line, "Downloads")) then
			Server = Mid(Line, InStr(Line, "Server=""")+8)
			Server = left(Server, InStr(Server, """")-1)
		end if
	Loop
	objFileRead.Close
	Server = Replace(Server, "1", "")
	Server = Replace(Server, "2", "")
	Server = Replace(Server, "3", "")
	Server = Replace(Server, "4", "")
	Server = Replace(Server, "5", "")
	Server = Replace(Server, "6", "")
	Server = Replace(Server, "7", "")
	Server = Replace(Server, "8", "")
	Server = Replace(Server, "9", "")
	Server = Replace(Server, "0", "")
	Database = Server & ".db"
	end if
	'Document.Write  ("Database = " & Database & "<br>")
	'Problemen met het vinden van de database? Haal dan de apostrof ' voor de onderstaande regel weg en pas het hem aan naar de juiste .spots bestand.
	'Database = "news.server.eu.db"

	FakeUserToevoeging = "!NAAMDIEF!"
	
	if (NOT objFSO.FileExists(WorkingDir & Database)) then
			WScript.Echo("Database niet gevonden." & WorkingDir & Database)
	else
	Dim oCS     : oCS       = "Driver={SQLite3 ODBC Driver};Database=@FSPEC@;StepAPI=;Timeout="
    Dim oCNCT   : Set oCNCT = CreateObject( "ADODB.Connection" )
    
	Set WSHShell = WScript.CreateObject("WScript.Shell")
    sFina = WorkingDir & Database
    oCS = Replace( oCS, "@FSPEC@", sFina )
    oCNCT.Open oCS
  
    Dim sSQL, oRS, nRec, oFld
	
	'ArrFileLines = array()
	'ArrFakeUserMesId = array()
	'WScript.Echo HTTPGet("http://spot-net.nl/add-ons/spamremover/banmessages.txt")
	'Document.Write ("Bezig met inlezen spamberichten<br>")
	ArrFileLines = Split(HTTPGet("http://spot-net.nl/add-ons/spamremover/banmessages.txt"), vbNewLine)
	'Document.Write ("Bezig met inlezen berichten van imitatieusers<br>")
    ArrFakeUserMesId = Split(HTTPGet("http://spot-net.nl/add-ons/spamremover/fakeusermessages.txt"), vbNewLine)
	
	iRemoved = 0
	For Each strLine in arrFileLines
		if Len(strLine) then
			sSQL    = "SELECT COUNT(*) FROM spots WHERE msgid = '" + strLine + "@free.pt' "
			Set oRS = oCNCT.Execute( sSQL )
			iRemoved = iRemoved + oRS.Fields( 0 ).Value 
		
			sSQL    = "DELETE FROM spots WHERE msgid = '" + strLine + "@free.pt' "
			oCNCT.Execute( sSQL )
		end if
	Next  

	iFaked = 0
	For Each strLine in ArrFakeUserMesId
		if Len(strLine) then
			sSQL    = "SELECT COUNT(*) FROM spots WHERE msgid = '" + strLine + "@free.pt'  AND NOT sender LIKE '%"+FakeUserToevoeging+"'"
			Set oRS = oCNCT.Execute( sSQL )
			iFaked = iFaked + oRS.Fields( 0 ).Value 

			sSQL    = "UPDATE spots SET sender=sender || '" + FakeUserToevoeging + "' WHERE msgid = '" + strLine + "@free.pt' AND NOT sender LIKE '%"+FakeUserToevoeging+"'"
			oCNCT.Execute( sSQL )
		end if
	Next  
	
	

	'Document.Write "Filteren is voltooid."  & "<br>"
	WScript.Echo("Filteren is voltooid. Er zijn " & iRemoved & " spots verwijderd. " & iFaked & " zijn aangemeld als naamdief.")
    oCNCT.Close
    Set oCNCT = Nothing
	IE.quit
	Set IE = Nothing
	end if
end function

update()   
Plaats de inhoud van de bovenstaande code in een bestand genaamd : "Werk banfilters bij.vbs" in de map mijn documenten. Iedere keer als je dit script start haalt hij automatisch de meest recente informatie op vanaf internet.

Wil je mensen nomineren voor de blacklist, meld hun dan in dit topic : viewtopic.php?f=6&t=1279

Dit script is gemaakt voor, en getest op Windows 7, hoewel hij ook zou moeten werken op Windows XP en Vista.

Om dit script te kunnen draaien moeten de ODBC-sqlite drivers geinstalleerd zijn van deze site geinstalleerd zijn : http://www.ch-werner.de/sqliteodbc/
Laatst gewijzigd door Ep Woody op 13 mar 2011, 15:25, 1 keer totaal gewijzigd.
Voor ondersteuning: klik hier. Probleem niet opgelost, maak dan een nieuw topic aan.
Gebruikersavatar

Shidoobee
Berichten: 59
Lid geworden op: 15 feb 2011, 00:43
Reputation: 0
Usenet: Usenetbucket
Internet: Ziggo
Locatie: Leiden

Re: Spam remover voor Spotnet

#15

Bericht door Shidoobee »

ik krijg hier een foutmsg...regel 63 teken 5....??? ik draai met Windows 7 btw :)
Een dag niet gedownload is een dag niet geleefd.
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

#16

Bericht door Ep Woody »

Heb je de ODBC-SQLite driver geinstalleerd?
Voor ondersteuning: klik hier. Probleem niet opgelost, maak dan een nieuw topic aan.
Gebruikersavatar

Psion
Berichten: 802
Lid geworden op: 17 feb 2011, 22:48
Reputation: 0
Locatie: Origins Unknown
Leeftijd: 40

Re: Spam remover voor Spotnet

#17

Bericht door Psion »

Ep Woody schreef:Heb je de ODBC-SQLite driver geinstalleerd?
Als hij windows 7 heeft zouden deze niet nodig moeten zijn toch? ;)
Veel woorden weinig wol, klinkt niet echt zinvol.
It's just me, nothing more nothing less
Gebruikersavatar

Shidoobee
Berichten: 59
Lid geworden op: 15 feb 2011, 00:43
Reputation: 0
Usenet: Usenetbucket
Internet: Ziggo
Locatie: Leiden

Re: Spam remover voor Spotnet

#18

Bericht door Shidoobee »

Psion schreef:
Ep Woody schreef:Heb je de ODBC-SQLite driver geinstalleerd?
Als hij windows 7 heeft zouden deze niet nodig moeten zijn toch? ;)
dat dacht ik dus ook, zoals 't er stond dacht ik dat die driver voor XP en Vista was....maar even de driver erop gezet en werkt als een speer nu...
Een dag niet gedownload is een dag niet geleefd.
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

#19

Bericht door Ep Woody »

Tekst is iets aangepast. Altijd installeren dus ;)
Voor ondersteuning: klik hier. Probleem niet opgelost, maak dan een nieuw topic aan.
Gebruikersavatar

Psion
Berichten: 802
Lid geworden op: 17 feb 2011, 22:48
Reputation: 0
Locatie: Origins Unknown
Leeftijd: 40

Re: Spam remover voor Spotnet

#20

Bericht door Psion »

Prima ik ga het hier ook eens testen :arrow:
15:32u het werkt wel maar de gehele tekst welkom en bijgewerkt werkt niet.
Ik krijg enkel een popup met de acties die zijn uitgevoerd na verloop van tijd.
Het zou prettig zijn om te zien dat het script loopt en wat de status hiervan is.

script is uitgevoerd in een virtuele xp omgeving.
Veel woorden weinig wol, klinkt niet echt zinvol.
It's just me, nothing more nothing less
Gesloten Vorig onderwerpVolgend onderwerp
Spot-net.nl Forums : Disclaimer