Help about bot in VB6

Guest

salam dostan man mikham ye ful bot besazam ama to dastorat mundam axa ziro bebinid
Help about bot in VB6 1

man aval miam az tariq in option button auto membero faal mikunam
Help about bot in VB6 2

inam teke codi ke vasash tarif kardam vaqti inkaru mikunam nemidunam chera member nemikune kolan vase ban o kickam hamine lotfan komakam kunid
dar zemn esm socketi ke vase auto member use kardam va vase online kardan id ham hamin esm use kardam sk1 hast va esm option button O1 hast

Subject: Re: Help about bot in VB6 Thu Jul 11, 2013 3:56 pm

Code:: Private Sub sk_OnJoinPresence(ByVal RoomName As String, ByVal Id As String, ByVal Affiliation As String, ByVal Role As String, ByVal Jid As String, ByVal Resource As String)
If Affiliation = "none" Then
If Option1.Value = True Then
sk.Member text room.Text, Id
End If
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
sk.WriteRoomMessage Text4.Text, "auto member qeyre faal shod"
End Sub

fekr konam bayad injuri bashe ermm

Subject: Re: Help about bot in VB6 Thu Jul 11, 2013 4:13 pm

age mikhaiy option ro active k.o.n.i bayad az dasture True ya False estefade k.o.n.i dasture 0 , 1 , 2 vaseye checkbox estefade mishe na vaseye option
to neveshti
if member.value=1 then
in eshtebahe bayad ino benevisi bejash
if member.value=true then

Guest

xcal!b wrote:: age mikhaiy option ro active k.o.n.i bayad az dasture True ya False estefade k.o.n.i dasture 0 , 1 , 2 vaseye checkbox estefade mishe na vaseye option
to neveshti
if member.value=1 then
in eshtebahe bayad ino benevisi bejash
if member.value=true then

inkaro kardam nashud

Guest

Ebi wrote:

Code:: Private Sub sk_OnJoinPresence(ByVal RoomName As String, ByVal Id As String, ByVal Affiliation As String, ByVal Role As String, ByVal Jid As String, ByVal Resource As String)
If Affiliation = "none" Then
If Option1.Value = True Then
sk.Member text room.Text, Id
End If
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
sk.WriteRoomMessage Text4.Text, "auto member qeyre faal shod"
End Sub

fekr konam bayad injuri bashe ermm

tnx dada ama nashud

Subject: Re: Help about bot in VB6 Thu Jul 11, 2013 4:33 pm

Code:: Private Sub sk1_OnJoinPresence(ByVal RoomName As String, ByVal Id As String, ByVal Affiliation As String, ByVal Role As String, ByVal Jid As String, ByVal Resource As String)
If Affiliation = "none" Then
If Option1.Value = True Then
sk1.member roomname, Id
end if
end if
end sub

Guest

bazam nashud in chera intorie Crying or Very sad