amoozeshe remoter vb6

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...

Mer30 az amoozesh. Yeki az dustam lazem dasht.

in ro to project copy konam

in ro to project copy konam???

Evin vase avale yad girit remoter yekam vasat sakhte! Remoter mamulan tuye bot karbord dare ke fekr nemikonam to botesho neveshte bashi. Mibinam ke kheyli moshtaghane dari hame topicaye vb6 ro ziro ru mikoni! Age khasti add k.o.n ta jai ke betunam rat mindazam!


(Vali age ino mikhay are dg bayad copy k.o.n.i!)


gherti69@n.c

qerti mersi az rahnamait

(Text8.Text, "#") in rome???
text remoter kojast?? yekam bijtar tozih bd pls??

na dge
text8 hamoon jaye id remotate
ke ba # mikhay az ham joda k.o.n.i...

For i = LBound(ids) To UBound(ids) inja irad migire

kase dg joz [You must be registered and logged in to see this link.] nist to in forum ????
ajab

4roz gozasht komaaaaaaaaak

For i = LBound(ids) To UBound(ids)

pishe end if avali next i bezar to vb.net intor fek konam ina hamintore

chon i tarif nashode in error miad

zir

Code:

Dim ids() As String

bnvis

Code:

Dim i As Intger

ehtemalan bayad drost bshe

[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
sk.Member RoomName,, Id 'id ro mem k.o.n
ElseIf Option2.Value = "b" Then
sk.Ban RoomName, taraf
ElseIf Option3.Value = "v" Then
sk.Visitor RoomName,taraf
ElseIf Option3.Value = "n" Then
sk.none RoomName,taraf
End If
End If
next
End If
End Sub


ok

i.-_-.i wrote:

chon i tarif nashode in error miad

zir

Code:

Dim ids() As String

bnvis

Code:

Dim i As Intger

ehtemalan bayad drost bshe

GOZASHTAM IN ERROR ro dad

aqa dorost shod tnx hala dastore 2vomi ro chetor benvisam???? masalan member ya ban

Code:

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(r1.Text, "#")
For i = LBound(ids) To UBound(ids)
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

in dorost karmikone bekham edamash bedam chkar konam plss harki balade javab bede

evin wrote:

Code:

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(r1.Text, "#")
For i = LBound(ids) To UBound(ids)
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

in dorost karmikone bekham edamash bedam chkar konam plss harki balade javab bede

hala haminjoori besh ezaf k.o.n dge
ElseIf dastur = "b" Then
sk.Ban RoomName, taraf
ElseIf dastur = "me" Then
sk.Member RoomName, taraf
ElseIf dastur = "a" Then
sk.Admin RoomName, taraf
ta har jai ke doos dashti edame bede

merci dash qerti ro add kardam mo be mo bem hame chi ro goft yad gereftam

evin wrote:

merci dash qerti ro add kardam mo be mo bem hame chi ro goft yad gereftam

ma am moo dge na?

ma mo chie dg moo be moo

DAMET GARM Q:heart:

qmars khosham umad azat damet garm chand bari tu roomaye gorgan didamet bahali

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