Decoding the EQ2 INI file : EverQuest 2 Premium Discussions

Code: Select all

Option Explicit
Class DebugClass

	Private objLogFileFSO, objLogFile, DebugLevel, i

	Private Sub Class_Initialize()
		Dim sDir, cont
		Dim sLogFile, sLogFileVersion

		sLogFileVersion = 1

		DebugLevel = 0 ' Default
		cont = true

		sDir = "c:\dl\logtest"

		Set objLogFileFSO = CreateObject("Scripting.FileSystemObject") 

		do while cont
			sLogFile = sDir & cStr(sLogFileVersion) & ".log"
			If objLogFileFSO.FileExists(sLogFile) Then
				sLogFileVersion = sLogFileVersion + 1
			else
				cont = false
			end if
		loop
		Set objLogFile = objLogFileFSO.OpenTextFile(sLogFile, 8, True) 


		call Print ("", 0)
		call Print ("", 0)
		call Print ("*************************************", 0)
		call Print ("*************************************", 0)
		call Print ("*************************************", 0)
		call Print("LOG File Opened: " & sLogFile, 0)
	End Sub

	Private Sub Class_Terminate()
		' Close Log File
		objLogFile.Close 
	End Sub

	Public Sub SetDebugLevel(lvl)
		DebugLevel = CInt(lvl)
	End Sub
	
	Public Sub PrintDebugLevel()
		call Print("Debug Level is set to: " & DebugLevel, 0)
	End Sub

	Public Sub Print(str1, lvl)
		if (DebugLevel >= lvl) then 
			'objLogFile.WriteLine(Date & " " & Time & ": " & str1)
			objLogFile.WriteLine(CStr(str1))
		end if
	End Sub

End Class

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2
  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary
  
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write 1
  'BinaryStream.Write ByteArray
  
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Function ReadBinaryFile(FileName)
  Const adTypeBinary = 1
  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeBinary
  
  'Open the stream
  BinaryStream.Open
  
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName
  
  'Open the stream And get binary data from the object
  ReadBinaryFile = BinaryStream.Read
End Function

Function ReadTextFile(FileName, CharSet)
  Const adTypeText = 2
  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeText
  
  'Specify charset For the source text (unicode) data.
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
  
  'Open the stream
  BinaryStream.Open
  
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName
  
  'Open the stream And get binary data from the object
  ReadTextFile = BinaryStream.ReadText
End Function

Function SaveTextData(FileName, Text, CharSet)
  Const adTypeText = 2
  Const adSaveCreateOverWrite = 2
  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
  
  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText
  
  'Specify charset For the source text (unicode) data.
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
  
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text
  
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function


Dim objDebug, bin, txt, txt2

Set objDebug = New DebugClass
objDebug.Print "1", 0
'Call SaveBinaryData("c:\dl\savebin.txt", "12345")
bin = ReadBinaryFile("c:\dl\logtest1.log")
txt = ReadTextFile("c:\dl\logtest1.log", "")
objDebug.Print "2", 0
objDebug.Print TypeName(bin), 0
objDebug.Print TypeName(txt), 0
SaveTextData "c:\dl\output1.txt", txt, ""
'txt2=CStr(txt)
'objDebug.Print txt2, 0
'objDebug.Print CStr(bin(1)), 0
objDebug.Print "3", 0
Set objDebug = NOTHING

Code: Select all

Function ReadINI(FileName, Position, NumBytes)
	
	Dim fso, ts, buffer, rBuf, byteArr()
	ReDim byteArr(NumBytes)
	
	Const ForReading = 1
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	
	Set ts = fso.OpenTextFile(FileName,ForReading)
	ts.Skip(Position-1)
	buffer = ts.Read(NumBytes)
	
'	ReadINI = StringToBin(buffer)
	ReadINI = buffer
End Function

Dim data
data = ReadINI("testlog", 1, 5)
For i = 1 to Len(data)
	WScript.Echo Mid(data,i,1) & " = " & Asc(Mid(data,i,1))
Next

Code: Select all

Function ReadINI(FileName, Position, NumBytes)
	
	Dim fso, ts, buffer, rBuf, byteArr()
	ReDim byteArr(NumBytes)
	
	Const ForReading = 1
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	
	Set ts = fso.OpenTextFile(FileName,ForReading)
	ts.Skip(Position-1)
	buffer = ts.Read(NumBytes)
	
'	ReadINI = StringToBin(buffer)
	ReadINI = buffer
End Function

Dim data
data = ReadINI("testlog", 1, 5)
For i = 1 to Len(data)
	WScript.Echo Mid(data,i,1) & " = " & Asc(Mid(data,i,1))
Next