10-18-2004, 10:55 AM
Okay, so i couldnt get godmode or townkill built.
but here is a tool that cleans your bncache file and reads it so you know if u even need to.
okay heres the file.
And heres the sourcecode.
Dim FSys As New Scripting.FileSystemObject
Private Sub Image1_Click()
Dim InStream As TextStream
TestFile = "C:\Program Files\Diablo II\bncache.dat"
Set InStream = FSys.OpenTextFile(TestFile, 1, False, False)
While InStream.AtEndOfStream = False
Tline = InStream.ReadLine
txt = txt & Tline & vbCrLf
Wend
'Text1.Text = "Stuff" & vbCrLf
'Text1.Text = Text1.Text & vbCrLf & String(50, "*")
Text1.Text = Text1.Text & vbCrLf & txt
'Text1.Text = Text1.Text & vbCrLf & String(50, "*")
Set InStream = Nothing
End Sub
Private Sub Image2_Click()
Text1.Text = " "
Dim OutStream As TextStream
TestFile = "C:\Program Files\Diablo II\bncache.dat"
Set OutStream = FSys.CreateTextFile(TestFile, True, False)
OutStream.WriteLine Text1.Text
Set OutStream = Nothing
End Sub
Private Sub mnuFileClose_Click()
Unload Me
End Sub
Private Sub mnuHelpAbout_Click()
MsgBox "Made with vb By koftr" & vbCrLf & "Clears your cache from your diablo II Directory." & "v1.0 beta " & "Help, Support, Updates all avaliable at " & "http://www.freeyabb.com/myboard/?mforum=angel"
End Sub
but here is a tool that cleans your bncache file and reads it so you know if u even need to.
okay heres the file.
And heres the sourcecode.
Dim FSys As New Scripting.FileSystemObject
Private Sub Image1_Click()
Dim InStream As TextStream
TestFile = "C:\Program Files\Diablo II\bncache.dat"
Set InStream = FSys.OpenTextFile(TestFile, 1, False, False)
While InStream.AtEndOfStream = False
Tline = InStream.ReadLine
txt = txt & Tline & vbCrLf
Wend
'Text1.Text = "Stuff" & vbCrLf
'Text1.Text = Text1.Text & vbCrLf & String(50, "*")
Text1.Text = Text1.Text & vbCrLf & txt
'Text1.Text = Text1.Text & vbCrLf & String(50, "*")
Set InStream = Nothing
End Sub
Private Sub Image2_Click()
Text1.Text = " "
Dim OutStream As TextStream
TestFile = "C:\Program Files\Diablo II\bncache.dat"
Set OutStream = FSys.CreateTextFile(TestFile, True, False)
OutStream.WriteLine Text1.Text
Set OutStream = Nothing
End Sub
Private Sub mnuFileClose_Click()
Unload Me
End Sub
Private Sub mnuHelpAbout_Click()
MsgBox "Made with vb By koftr" & vbCrLf & "Clears your cache from your diablo II Directory." & "v1.0 beta " & "Help, Support, Updates all avaliable at " & "http://www.freeyabb.com/myboard/?mforum=angel"
End Sub