Spot-net.nl Forums

Code: Selecteer alles

	Dim oCS     : oCS       = "Driver={SQLite3 ODBC Driver};Database=@FSPEC@;StepAPI=;Timeout="
    Dim oCNCT   : Set oCNCT = CreateObject( "ADODB.Connection" )
    
   Set WSHShell = WScript.CreateObject("WScript.Shell")
    LocalAppData = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local AppData")
    sFina = LocalAppData + "\Spotlite\Spotlite\spots.db"
    oCS = Replace( oCS, "@FSPEC@", sFina )
    oCNCT.Open oCS
  
    Dim sSQL, oRS, nRec, oFld
  
   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


	sSQL = "CREATE INDEX IF NOT EXISTS msgidx ON spots(msgid)"
	Set oRS = oCNCT.Execute ( sSQL )
   

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

   sSQL    = "DELETE FROM foes WHERE reason='Auto-added' "
   Set oRS = oCNCT.Execute( sSQL )
   For Each strLine in arrFileLines
      sSQL = "INSERT INTO foes VALUES('" + strLine + "', 'Auto-added', 'Auto-added')"
      oCNCT.Execute( sSQL )
   Next  

   ArrFileLines = array()
   
   ArrFileLines = Split(HTTPGet("http://spot-net.nl/add-ons/spamremover/banmessages.txt"), vbNewLine)
   iRemoved = 0
   For Each strLine in arrFileLines
      if Len(sSQL) > 20 then
         sSQL    = "SELECT * FROM spots WHERE msgid LIKE '" + strLine + "' "
         Set oRS = oCNCT.Execute( sSQL )
	 iRemoved = iRemoved + oRS.Fields( 0 ).Value 

         sSQL    = "DELETE FROM spots WHERE msgid LIKE '" + strLine + "' "
         oCNCT.Execute( sSQL )
         iRemoved = iRemoved + 1
      end if
   Next  

    oCNCT.Close
    Set oCNCT = Nothing
   
    WScript.Echo "Ban-systeem is bijgewerkt! Er zijn " & iRemoved & " spots verwijderd."
   

Code: Selecteer alles

LocalAppData = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local AppData")