amoozeshe remoter vb6

First topic message reminder :

khob inam vas remoter ba sockete freebuzz.ocx
[code]Private Sub sk_OnRoomMessage(ByVal RoomName As String, ByVal id As String, ByVal Message As String)
If InStr(1, Message, "#", vbTextCompare) <> 0 Then ' chek mikonim tu pm age # bud mirim soragh amaliat
Dim dastur As String
dastur = LCase(Left(Message, InStr(Message, "#") - 1)) ' mikhaym dastur ro bgirim binim chie az ebtedae pm ta yeki ghabl az # mishe dasture ma
Dim ids() As String ' tarife araye
ids = Split(Text8.Text, "#") ' joda konandeye arraye
For i = LBound(ids) To UBound(ids) ' halghe
If id = ids(i) Then ' hala chek mikonim ke id pm dahande joze remotast ya na
Dim taraf As String
taraf = Mid(Message, InStr(Message, "#") + 1) ' id i ke gharare kick beshe ro az message estekhraj k.o.n
If dastur = "k" Then ' hala chek mikonim bebinim dastur chie age gofte k#folani pas dsture kike
sk.Kick RoomName, taraf
End If
End If
Next
End If
End Sub
khow dge hala baqiasham haminjoori pish bebarid...

Mishe Begid In Moraba Male Chiye? Vaze
Mikham Faqat Injur Bashe k/id Baqiyash male jiye

Macsoud wrote:

Dada amuzeshe remoter baray Flooder Bara Vb6 Ham Bezarid Age Mishe
Juri Bashe Y K ID Joda online kuni ama to hamun forme softe flooder k bad pv behesh bedim f/nimbuzz room nimbuzz ro flood kune
tnx misham age amuzesh ro bezarid

 bbin faqat kafie ye sourece pravit bot o ba sourece flooder qati k.o.n.i hamin
ba dota socket
sokete dovom ke amoozeshe flooder too anjoman ziade moshakhase
ama sokete aval ke marboot be hamoon pravit bot mishe
bad az in ke id ro login kardi too sube 

Code:

Private Sub sk_OnPrivateMessage(ByVal typechat As FreeBuzZsocKeT.Chattype, ByVal Id As String, ByVal Jid As String, ByVal Message As String, ByVal Resource As String)
[color=#039600][font=arial, tohama, 'Comic Sans MS']dim dastur as string
dim taraf as string
[/font][/color][color=#039600][font=arial, tohama, 'Comic Sans MS']dastur = LCase(Left(Message, InStr(Message, "#") - 1))
[/font][/color][color=#039600][font=arial, tohama, 'Comic Sans MS']taraf = Mid(Message, InStr(Message, "#") + 1)
[/font][/color][color=#039600][font=arial, tohama, Comic Sans MS]' hala dasturo ba roomi ke mikhay flood she moshakhas shode faqat bayad tarafo mosavi ba text boxi ke marboot be roomi ke mikhay flood k.o.n.i qarar bedi o dokmeye start ro injoori feshar bedi
command1.Enabled =True
[/font][/color][color=#039600][font=arial, tohama, 'Comic Sans MS']
[/font][/color]

Macsoud wrote:

Mishe Begid In Moraba Male Chiye? Vaze
Mikham Faqat Injur Bashe k/id Baqiyash male jiye

 khob to harja too amoozesh # didi bejash / bezar
oon faqat marze beyne dasturo tarafe
aslan yeki doos dare beja # az Q estefade mikone