qmars(pkq) dada bia komak

Private Sub Command1_Click()
sk1.Connect Text1.Text, Text2.Text, Text3.Text
End Sub

Private Sub sk1_OnPrivateMessage(ByVal typechat As FreeBuzZsocKeT.Chattype, ByVal Id As String, ByVal Jid As String, ByVal Message As String, ByVal Resource As String)
If InStr(1, Message, ".", vbTextCompare) <> 0 Then
Dim dastur As String
dastur = LCase(Left(Message, InStr(Message, ".") - 1))
End If
Dim joke As String
joke = Mid(Message, InStr(Message, ".") + 1)
If dasture = "j" Then
sk1.WritePrivateMessage Id + "@nimbuzz.com", List1.List(joke)
End If
End Sub

Private Sub Text4_Change()
On Error Resume Next
Dim ids() As String
Dim i As Integer
ids = Split(Text4.Text, "#")
List1.Clear
For i = LBound(ids) To UBound(ids)
List1.AddItem ids(i)
Next i
End Sub

Private Sub sk1_OnPrivateMessage(ByVal typechat As FreeBuzZsocKeT.Chattype, ByVal Id As String, ByVal Jid As String, ByVal Message As String, ByVal Resource As String)
If Message = "j" Then
Dim a1 As Integer
a1 = Int(Rnd() * List1.ListCount)
sk1.WritePrivateMessage Id & "@nimbuzz.com", List1.List(a1)
End If
'in vase ine ke age kesi pv bot kalameye j ro type kard be surate khodkar joke random daryaft kone
If InStr(1, Message, "/", vbTextCompare) <> 0 Then
Dim a As String
Dim i As Integer
a = LCase(Left(Message, InStr(Message, "/") - 1))
Dim b As String
b = Mid(Message, InStr(Message, "/") + 1)
If a = "j" Then
sk1.WritePrivateMessage Id & "@nimbuzz.com", List1.List(b)
End If
End If
'inam vase ine ke age karbar pv bot goft j/1 bot joke shomare 1 ro be karbar bd
ebd sub
Private Sub combo1_Click()
If combo1.Text = "AutoAccept" Then
sk1.SubcribeResponse = AutoAccept
ElseIf combo1.Text = "AutoDeny" Then
sk1.SubcribeResponse = AutoDeny
ElseIf combo1.Text = "NoResponse" Then
sk1.SubcribeResponse = NoResponse
End If
End Sub
'in ham auto accept add
ye combobox biar o item haye AutoAccept , AutoDeny , NoResponse ro ezafe kon