Where do we get the lists for IP#'s to block/ban?
link me please....
Printable View
Where do we get the lists for IP#'s to block/ban?
link me please....
Look in the TIPS section - there is a pinned thread
I posted this before but I can't find the thread - anyway try this batch file and vb script from http://forums.overclockers.co.uk/showthrea...&threadid=82920
Here's the PG updating bat and vbs
'
'Batch file - put in the win startup folder
@echo off
cd "c:\Program Files\PeerGuardian_1.96b\"
"PG_Update.vbs"
start PeerGuardian_1.96b.exe
exit
'just replace paths\file names with your own.
'and the vb script file
' Peer Guardian - IP Blocking List Update Script (v0.1)
'
' by com
'
' Peer Guardian Website: http://xs.tech.nu/pg/
'
' Description: A simple script that updates Peer-Guardians IP Block list
' from a regularly updated online source.
'
' Instructions:- Modify the configurables below as necessary.
' - Run this script each time before using Peer-Guardian.
'
' NOTE: This script entirely replaces the original 'Guardian.P2P' file with the
' updated IP list. Thus any manual additions to the IP block list will be
' lost.
'
'
'************* Configurables *************
' Online IP Block List in Plain Text
Const IPListURL = "http://www.simply-click.org/uploadertest/pg2_plaintext.asp"
' Location of Peer Guardian 'Guarding.P2P' IP block list
Const PGPath = "Guarding.P2P"
' Supress any warning messages
Const SilentMode = FALSE
'*****************************************
PG_Update
Function PG_Update
On Error Resume Next
'
' Connect to the IP List Website & Grab the page
'
Set o_HTTP = CreateObject("Microsoft.XMLHTTP")
o_HTTP.Open "GET", IPListURL, false
o_HTTP.Send
if Err.Number = -2146697211 then
if SilentMode = FALSE then
msgbox "There was a problem connecting to the URL:" & VBNewLine & _
IPListURL & VBNewLine & VBNewLine & _
"The IP list will not be updated on this occasion", _
vbExclamation
end if
exit function
end if
strng = o_HTTP.responsetext
'
' Parse the page to get the IPs
'
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "Plain Text Version
\s*?
" & _
"([\s\S]*?)" & _
"<font face=.*"
Set Matches = regEx.Execute(strng)
regEx.Pattern = "\s*(.*?):(.*?)
"
Set Matches = regEx.Execute(Matches(0).SubMatches(0))
'
' Open the Peer Guardian IP List file for writing
'
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile(PGPath, True)
For Each Match in Matches
OutFile.Writeline Match.SubMatches(0) & ":" & Match.SubMatches(1)
Next
OutFile.close
set Http = nothing
End Function
or to download http://www.lofg.com/resources/PG_Update.zip
HTH
Post at http://www.klboard.ath.cx/bb/index.php?act...=0#entry387264..Quote:
Originally posted by ploink@28 July 2003 - 23:40
Where do we get the lists for IP#'s to block/ban?
link me please....
Updated IP List At http://www.simply-click.org/uploadertest/p...2_plaintext.asp.
Also (I'm linking to myself inadvertently again!)Quote:
Originally posted by cosmic doobie@28 July 2003 - 22:43
Look in the TIPS section - there is a pinned thread
http://www.klboard.ath.cx/bb/index.php?showtopic=56710
HTH