Here is all you need to know about it
http://www.google.com.au/search?hl=en&q ... arch&meta=
Note the fixes are for other games.
Enjoy
Code: Select all
09/14/08 22:41:13 Log: PB Enabled Server: Game Version [2.8.3.1]
09/14/08 22:41:13 ScriptLog: Tours.ini file is up-to-date.
09/14/08 22:41:13 Log: PB Enabled Server: Running PB Scheduled Task (slot #1) pb_sv_cvarval"a3e8b8df9e699100885c172e3d24b9ed *"
09/14/08 22:41:13 Log: PB Enabled Server: Unknown Command/Setting: pb_sv_cvarval"a3e8b8df9e699100885c172e3d24b9ed *"
09/14/08 22:41:14 NetComeGo: Open myLevel 09/14/08 22:41:14 122.108.118.148:2339
09/14/08 22:41:14 Critical: Assertion failed: VoiceIndex<VOICE_MAX_CHATTERS [File:C:\dev\AA2_PublicApps\ArmyOps\Project\Engine\Src\UnChan.cpp] [line: 1789]
09/14/08 22:41:14 Exit: Executing UObject::StaticShutdownAfterError
09/14/08 22:41:14 Critical: UVoiceChannel::Destroy
09/14/08 22:41:14 Critical: UObject::ConditionalDestroy
09/14/08 22:41:14 Critical: (VoiceChannel Package.VoiceChannel)
09/14/08 22:41:14 Critical: NotifyAcceptingRefused
09/14/08 22:41:14 Critical: CreateNewChannel
09/14/08 22:41:14 Critical: BunchData
09/14/08 22:41:14 Critical: UNetConnection::ReceivedPacket
09/14/08 22:41:14 Critical: UNetConnection::ReceivedRawPacket
09/14/08 22:41:14 Critical: UTcpNetDriver::TickDispatch
09/14/08 22:41:14 Critical: UpdatePreNet
09/14/08 22:41:14 Critical: ULevel::Tick
09/14/08 22:41:14 Critical: (NetMode=1)
09/14/08 22:41:14 Critical: TickLevel
09/14/08 22:41:14 Critical: UGameEngine::Tick
09/14/08 22:41:14 Critical: Level Pipeline
09/14/08 22:41:14 Critical: UpdateWorld
09/14/08 22:41:14 Critical: UServerCommandlet::Main
09/14/08 22:41:14 Exit: Exiting.
09/14/08 22:41:14 Log: FileManager: Reading 0 GByte 29 MByte 791 KByte 762 Bytes from HD took 0.032000 seconds (0.032000 reading, 0.000000 seeking).
09/14/08 22:41:14 Log: FileManager: 0.159000 seconds spent with misc. duties
09/14/08 22:41:14 Uninitialized: Name subsystem shut down
09/14/08 22:41:14 Uninitialized: Log file closed, 09/14/08 22:41:14
Code: Select all
'By ADF-Sniper
'http://www.adfteam.com
'Evolution is just so unlikely to produce complex life forms.
Private Sub Form_Load()
Dim myArr() As Variant, myLine As String
Dim i As Integer, intNum As Integer
Dim back As String
Dim GOTIT As String
' Open the log file and search for the previous ip connection before crash
intNum = FreeFile
Open "1716.log" For Input As intNum
Do While Not EOF(intNum)
i = i + 1
ReDim Preserve myArr(1 To i) As Variant
back = myLine
Line Input #intNum, myLine
If myLine Like "*VoiceIndex<VOICE_MAX_CHATTERS*" Then
Close #intNum
GoTo GOTIT
Else
myArr(i) = myLine
myArr(i) = Trim(myArr(i))
End If
Loop
End
Close #intNum
' Hooah found the line with the IP. Lets now get the ip out of the line
GOTIT:
Dim sometext As String
Dim AAA As String
sometext = back
AAA = Mid(sometext, InStrRev(sometext, "/") + 13)
BBB = Left(AAA, InStrRev(AAA, ":") - 1)
CCC = BBB & ":" & BBB & "-" & BBB
' Kill Peerguardian to update the bans
Shell "net stop pgfilter"
Shell "pskill.exe pg2.exe"
' Write the new bans
Dim fno As Integer
Dim writestring As String
fno = FreeFile
Open "Firewall.p2b" For Append As #fno
Print #fno, CCC
Close #fno
' Wait a little no need to rush
dblClock = Timer
While Timer < dblClock + 1
DoEvents
Wend
' Better start up Peerguardian again hey?
Dim path As String
Dim runExe As Double
path = "C:\Program Files\PeerGuardian2\"
runExe = Shell(path & "pg2.exe", vbMaximizedFocus)
End
End Sub