help to set room fuller hidden massage and time limit in vb6 :)

help to set room fuller hidden massage and time limit in vb6 

Quote :

U said:
HELP me

but you only want FULL SOURCE CODE WITHOUT HELP

if you have any problem in create room fuller , put your source code in here for help

and if you ONLY WANT FULL SOURCE CODE we can't help you

k bro i can tell clear what i want im add u now:) that's better

Quote :

I Can't Answer to questions in pv
so ask your question in here

 Private Sub a_OnKickPresence(ByVal RoomName As String, ByVal Id As String, ByVal Actor As String)
a.Kick

End Sub

Private Sub a_OnLogin()
Text1.BackColor = RGB(0, 143, 47)
End Sub
Private Sub Command23_Click()
a.JoinRoom room2.Text
b.JoinRoom room2.Text
c.JoinRoom room2.Text
d.JoinRoom room2.Text
e.JoinRoom room2.Text
f.JoinRoom room2.Text
g.JoinRoom room2.Text
h.JoinRoom room2.Text
i.JoinRoom room2.Text
j.JoinRoom room2.Text


End Sub
Private Sub a_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 a.WriteRoomMessage room1.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 a.WriteRoomMessage room2.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 a.WriteRoomMessage room3.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 a.WriteRoomMessage room4.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 a.WriteRoomMessage room5.Text, Answer(Message)
End If

End Sub

Private Sub b_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 b.WriteRoomMessage room1.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 b.WriteRoomMessage room2.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 b.WriteRoomMessage room3.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 b.WriteRoomMessage room4.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 b.WriteRoomMessage room5.Text, Answer(Message)
End If
End Sub
Private Sub c_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 c.WriteRoomMessage room1.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 c.WriteRoomMessage room2.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 c.WriteRoomMessage room3.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 c.WriteRoomMessage room4.Text, Answer(Message)
End If
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 c.WriteRoomMessage room5.Text, Answer(Message)
End If
End Sub


Private Sub Command24_Click()
a.JoinRoom room3.Text, RoomPassword = ""
a.WriteRoomMessage = "Hii all"
b.JoinRoom room3.Text, RoomPassword = ""
b.WriteRoomMessage = "Hii all"
c.JoinRoom room3.Text, RoomPassword = ""
c.WriteRoomMessage = "Hii all"
d.JoinRoom room3.Text, RoomPassword = ""
d.WriteRoomMessage = "Hii all"
e.JoinRoom room3.Text, RoomPassword = ""
e.WriteRoomMessage = "Hii all"
f.JoinRoom room3.Text, RoomPassword = ""
f.WriteRoomMessage = "Hii all"
g.JoinRoom room3.Text, RoomPassword = ""
g.WriteRoomMessage = "Hii all"
h.JoinRoom room3.Text, RoomPassword = ""
h.WriteRoomMessage = "Hii all"
i.JoinRoom room3.Text, RoomPassword = ""
i.WriteRoomMessage = "Hii all"
j.JoinRoom room3.Text, RoomPassword = ""
j.WriteRoomMessage = "Hii all"

End Sub

Private Sub Command25_Click()
a.JoinRoom room4.Text, RoomPassword = ""
b.JoinRoom room4.Text, RoomPassword = ""
c.JoinRoom room4.Text, RoomPassword = ""
d.JoinRoom room4.Text, RoomPassword = ""
e.JoinRoom room4.Text, RoomPassword = ""
f.JoinRoom room4.Text, RoomPassword = ""
g.JoinRoom room4.Text, RoomPassword = ""
h.JoinRoom room4.Text, RoomPassword = ""
i.JoinRoom room4.Text, RoomPassword = ""
j.JoinRoom room4.Text, RoomPassword = ""
End Sub

Private Sub Command26_Click()
a.JoinRoom room5.Text, RoomPassword = ""
b.JoinRoom room5.Text, RoomPassword = ""
c.JoinRoom room5.Text, RoomPassword = ""
d.JoinRoom room5.Text, RoomPassword = ""
e.JoinRoom room5.Text, RoomPassword = ""
f.JoinRoom room5.Text, RoomPassword = ""
g.JoinRoom room5.Text, RoomPassword = ""
h.JoinRoom room5.Text, RoomPassword = ""
i.JoinRoom room5.Text, RoomPassword = ""
j.JoinRoom room5.Text, RoomPassword = ""
End Sub

Private Sub Command27_Click()
a.CloseSck
b.CloseSck
c.CloseSck
d.CloseSck
e.CloseSck
f.CloseSck
g.CloseSck
h.CloseSck
i.CloseSck
j.CloseSck

End Sub

Private Sub Command33_Click()
a.LeftRoom room2.Text
b.LeftRoom room2.Text
c.LeftRoom room2.Text
d.LeftRoom room2.Text
e.LeftRoom room2.Text
f.LeftRoom room2.Text
g.LeftRoom room2.Text
h.LeftRoom room2.Text
i.LeftRoom room2.Text
j.LeftRoom room2.Text
End Sub

Private Sub Command34_Click()
a.LeftRoom room3.Text
b.LeftRoom room3.Text
c.LeftRoom room3.Text
d.LeftRoom room3.Text
e.LeftRoom room3.Text
f.LeftRoom room3.Text
g.LeftRoom room3.Text
h.LeftRoom room3.Text
i.LeftRoom room3.Text
j.LeftRoom room3.Text
End Sub

Private Sub Command35_Click(Index As Integer)
a.LeftRoom room4.Text
b.LeftRoom room4.Text
c.LeftRoom room4.Text
d.LeftRoom room4.Text
e.LeftRoom room4.Text
f.LeftRoom room4.Text
g.LeftRoom room4.Text
h.LeftRoom room4.Text
i.LeftRoom room4.Text
j.LeftRoom room4.Text
End Sub

Private Sub Command36_Click(Index As Integer)
a.LeftRoom room5.Text
b.LeftRoom room5.Text
c.LeftRoom room5.Text
d.LeftRoom room5.Text
e.LeftRoom room5.Text
f.LeftRoom room5.Text
g.LeftRoom room5.Text
h.LeftRoom room5.Text
i.LeftRoom room5.Text
j.LeftRoom room5.Text
End Sub

1. Create an Array of  Txtboxes for ur JID , passwords , sockets and a Textbox for Roomname
    - Do the Login Pocedure
    - Do the Join Room Procedure
2. Create an aRray  of labels  For ur time limit when will ur bots will post
3.  Timer Array Corresponding to each Bot JIds
       interval = 60000
4. IF Joined then Trigger ur Corresponding Timer on ur Joined JID
      
     Under the Timer Sub
     Ex. U named ur labels as Lbl_Time
       if lbl_time(Index).Caption =  5 then '  5 minutes
           socket(index).senddata 'Posting xml ir
           lbl_time(index).caption = 1
       else
             lbl_time(index).caption=  val(lbl_time(index).caption ) + 1
       end if