Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal flags As Long, SimulatedEvent As Boolean)
strcurrentchannel = ChannelName
If strcurrentchannel = channel.text Then
AddChat &H80000003, "Joined channel: " & ChannelName & ""
connectmsg1
stayconnected1
CleanSlateBot1.disconnect
AddChat vbRed, "Bnet Disconnected"
AddChat vbGreen, "Moving onto next name: " & VarUser & " : " & VarPass
reconnectdelay1
Else
Exit Sub
End If
End Sub
Private Sub connectmsg1()
If Check1.Value = vbChecked Then
CleanSlateBot1.Send connectmsg.text
AddChat vbWhite, "<" & VarUser & "> " & connectmsg.text
Else
Exit Sub
End If
End Sub
Private Sub stayconnected1()
Pause Text4.text
End Sub
Private Sub reconnectdelay1()
Pause recondelay.text
End Sub
This is for a name switcher I am making.
Ok when it hits connectmsg1 it does it then it should go to stayconnected1 which pauses it for the amount of time in the text4.text TextBox. But instead of doing that, when it hits pause it does the connectmsg1 over again. It does it 2 times instead of one. And same with once it gets to reconnectdelay1. It redoes Bnet Disconnect and moving onto next name. But if I take out the pauses it works fine. But I want to pauses so I don't get IP Banned from it connecting then saying a message then disconnecting and reconnecting so fast. So if anyone can help me out?? And don't steal my idea >:(
Name Switcher as in Flood Bot?
No, it is used to keep illegals alive. So you don't have to log on them 1 by 1. This never switches keys or products. Just names and passwords, straight to the points one by one not randomly. I for one who has more than a few illegals, needs something like this so my names don't expire due to lack of activity. And the only problem I am having is that I can't seem to get it to work with reconnect delays and stay connected delay. Other than that it works great.
try chaning your pause code...vb sucks for pause
Public Declare Function MsgWaitForMultipleObjects Lib "user32" (ByVal nCount As Long, pHandles As Long, ByVal fWaitAll As Long, ByVal dwMilliseconds As Long, ByVal dwWakeMask As Long) As Long
Public Sub Wait(ByVal inWaitSeconds As Single)
On Error Resume Next
Const WAIT_OBJECT_0 As Long = 0
Const WAIT_TIMEOUT As Long = &H102
Dim lastTick As Single
Dim timeout As Long
timeout = inWaitSeconds * 1000
lastTick = Timer
Do
Select Case MsgWaitForMultipleObjects(0, 0, False, timeout, 255)
Case WAIT_OBJECT_0
DoEvents
timeout = ((inWaitSeconds) - (Timer - lastTick)) * 1000
If timeout < 0 Then timeout = 0
Case Else
Exit Do
End Select
Loop While True
End Sub
try that something I found on the net works better then most of the ones I had tried.
Dim ReconDelay as Integer
Dim StayCon as Integer
Form_Load
ReconDelay = GetStuff("Config", "ReconDelay")
StayCon = GetStuff("Config", "StayConnected")
End Sub
Pause ReconDelay
Pause StayCon
Hope that helps!
Quote from: ChR0NiC on November 10, 2003, 06:51 PM
No, it is used to keep illegals alive. So you don't have to log on them 1 by 1. This never switches keys or products. Just names and passwords, straight to the points one by one not randomly. I for one who has more than a few illegals, needs something like this so my names don't expire due to lack of activity. And the only problem I am having is that I can't seem to get it to work with reconnect delays and stay connected delay. Other than that it works great.
A better way would to login as Starcraft Shareware 8 times (if all you have is 8 illegals). O wait nvm, ur using CSB... Alternaltly, you could use the Telnet chat Protocal instead of CSB...
Quote from: Freeware on November 11, 2003, 11:51 AM
Quote from: ChR0NiC on November 10, 2003, 06:51 PM
No, it is used to keep illegals alive. So you don't have to log on them 1 by 1. This never switches keys or products. Just names and passwords, straight to the points one by one not randomly. I for one who has more than a few illegals, needs something like this so my names don't expire due to lack of activity. And the only problem I am having is that I can't seem to get it to work with reconnect delays and stay connected delay. Other than that it works great.
A better way would to login as Starcraft Shareware 8 times (if all you have is 8 illegals). O wait nvm, ur using CSB... Alternaltly, you could use the Telnet chat Protocal instead of CSB...
Does CHAT work to keep names alive? I guess it's possible.
And I'm not sure if a delay is required on CHAT, it may be that it's not, in which case life would be good.