l3aran
سه شنبه 26 دی 1391, 12:52 عصر
سلام
خسته نباشید
من میخوام واسه روباتم امکان کنفرانس رو درست کنم مثلا با زدن CF/ وارد کنفرانس بشه حالا یه متنی هم راجه به همین دارم سورس برنامه با VB6 نوشته شده الان من این متن رو وارد میکنم به این خط گیر میده
YMSG1.SendPacket INCF(ID.Text, from)
میخواستم بدونم شما میدونید بگید اصلا این دستور رو چطوری باید وارد کنم ؟ یعنی کدوم رو توی Functaion و کدوم رو توی فرم برنامه ؟
این سورس برنامه
http://s3.picofile.com/file/76189152...1_5_4.zip.html (http://s3.picofile.com/file/7618915264/SMClient_1_5_4.zip.html)
اینم متن اضافه شدن کنفرانس
' Concerence
ElseIf Left(msg, 3) = "/cf" Then
YMSG1.SendPacket INCF(ID.Text, from)
Response = "Invite Shodi Be CF Man "
______________________
Private Sub YMSG1_IncomingYDATA(ByVal Data As String, ByVal Types As Long)
Text1.Text = Data
Text2.Text = Types
ddata = Data
Select Case Types
' Join Conference
Case 25
Dim Fjuser, Ljuser, joinChatter As String
Fjuser = InStr(1, Data, "A€53A€") + 6
Ljuser = InStr(1, Data, "A€57A€") - Fjuser
joinChatter = Mid(Data, Fjuser, Ljuser)
joinCF joinChatter
SendPM joinChatter, " Khosh Oomadi be CF man "
CFpm.AddItem joinChatter & " : Join The Conference "
CFpm.ListIndex = CFpm.ListCount - 1
'Left Conference
Case 27
Dim FLuser, LLuser, LeftChatter As String
FLuser = InStr(1, Data, "A€56A€") + 6
LLuser = InStr(1, Data, "A€57A€") - FLuser
LeftChatter = Mid(Data, FLuser, LLuser)
LeftCF LeftChatter
SendPM LeftChatter, " Bazam Be CF Man Biya
ممنونم
خسته نباشید
من میخوام واسه روباتم امکان کنفرانس رو درست کنم مثلا با زدن CF/ وارد کنفرانس بشه حالا یه متنی هم راجه به همین دارم سورس برنامه با VB6 نوشته شده الان من این متن رو وارد میکنم به این خط گیر میده
YMSG1.SendPacket INCF(ID.Text, from)
میخواستم بدونم شما میدونید بگید اصلا این دستور رو چطوری باید وارد کنم ؟ یعنی کدوم رو توی Functaion و کدوم رو توی فرم برنامه ؟
این سورس برنامه
http://s3.picofile.com/file/76189152...1_5_4.zip.html (http://s3.picofile.com/file/7618915264/SMClient_1_5_4.zip.html)
اینم متن اضافه شدن کنفرانس
' Concerence
ElseIf Left(msg, 3) = "/cf" Then
YMSG1.SendPacket INCF(ID.Text, from)
Response = "Invite Shodi Be CF Man "
______________________
Private Sub YMSG1_IncomingYDATA(ByVal Data As String, ByVal Types As Long)
Text1.Text = Data
Text2.Text = Types
ddata = Data
Select Case Types
' Join Conference
Case 25
Dim Fjuser, Ljuser, joinChatter As String
Fjuser = InStr(1, Data, "A€53A€") + 6
Ljuser = InStr(1, Data, "A€57A€") - Fjuser
joinChatter = Mid(Data, Fjuser, Ljuser)
joinCF joinChatter
SendPM joinChatter, " Khosh Oomadi be CF man "
CFpm.AddItem joinChatter & " : Join The Conference "
CFpm.ListIndex = CFpm.ListCount - 1
'Left Conference
Case 27
Dim FLuser, LLuser, LeftChatter As String
FLuser = InStr(1, Data, "A€56A€") + 6
LLuser = InStr(1, Data, "A€57A€") - FLuser
LeftChatter = Mid(Data, FLuser, LLuser)
LeftCF LeftChatter
SendPM LeftChatter, " Bazam Be CF Man Biya
ممنونم