You would want something like this on both bots, in plugin format of course
Public Const filePath = "C:\Stealthbot.Linked.Queue.dat"
Sub Timer '// Timer at a five second interval
SayOutput
End Sub
Sub AddOutput(Text)
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFilePath = filePath
'// Create the file if it doesn't exist
If Not objFSO.FileExists(strFilePath) Then objFSO.CreateTextFile(strFilePath)
'// Add this line to the file
Set txtStream = objFSO.OpenTextFile(strFilePath, 8)
txtStream.WriteLine Text
txtStream.Close
End Sub
Sub SayOutput
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFilePath = filePath
'// Create the file if it doesn't exist
If Not objFSO.FileExists(strFilePath) Then objFSO.CreateTextFile(strFilePath)
'// Get the file
Set objFile = objFSO.GetFile(strFilePath)
'// Check if it is empty
If objFile.Size > 0 Then
'// Get the content
Set txtStream = objFile.OpenAsTextStream(1)
fileContent = txtStream.ReadAll
fileContent = Split(fileContent, vbNewLine)
txtStream.Close
'// Loop through the content
For i = 0 To UBound(fileContent)
'// Output the first line
AddQ fileContent(i)
'// Exit so that we only get one line per execution
Exit For
Next
'// Remove our line from the content
fileContent = RemoveFromArray(i)
'// Put the array back into a large string
fileContent = Join(fileContent, vbNewLine) & vbNewLine
'// Write our new content to the file with the line said removed
Set txtStream = objFile.OpenAsTextStream(2)
txtStream.Write fileContent
txtStream.Close
End If
End Sub
Function RemoveFromArray(index, array)
If Not isArray(array) Then Exit Function
If index > Ubound(array) Then Exit Function
array(index) = ""
For i=0 to Ubound(array)
If array(i) <> "" Then str = str & array(i) & "|"
Next
str = Left(str, Len(str) - 1))
RemoveFromArray = Split(str, "|")
End Function
*Untested Example*