سلام من نگفتم میخوام مثلا txtbox1 که در فرم 2 هست توی فرم 1 نمایش داده بشه ، من میخوام ازش توی سوکت نویسی استفاده کنم ، سوکتمو توی فرم 1 تعریف کردم و فرم 2 ( مربوط به چت شخصی میباشد) میخوام اگه یکی اومد pv درجا بره پیامش در اونجا نمایش داده بشه
این کدی هست که برای نمایش چت شخصی استفاده میشود که در فرم 1 و در Void پیام ها باید نوشت :
[CSHARP]
else if (msg.Type == MessageType.chat)
{
formpvchat.DefaultInstance.Text = msg.From.User + "@" + msg.From.Server + "/" + msg.From.Resource;
formpvchat.DefaultInstance.chatscren.AppendText(frmchat.DefaultInstance.Text + " : " + msg.Body + Environment.NewLine);
formpvchat.DefaultInstance.Show();
}
[/CSHARP]
در فرم چت این کنترل ها قرار دارند
chatscren [richtextbox
pm [textbox
Button1
pm.text برای نوشتن پیام ها
Chatscren.text برای نمایش خواندن و ارسال کردن پیام ها
Button1 هم برای ارسال پیام نوشته شده در pm.text هست و کدش به این صورته :
[CSHARP]
try
{
pashmak_chat.Form1.x.Send("<message to='" + this.Text + "' type='chat'><body>" + this.pm.Text + "</body></message>");
chatscren.AppendText(Form1.DefaultInstance.usr.Text + " : " + pm.Text + Environment.NewLine);
pm.Clear();
}
catch (Exception ex)
{
}
[/CSHARP]
حالا من میخوام با استفاده از سوکت فرم 1 ، یک آیدی دیگه با فرم 3 آنلاین کنم دستور آنلاین کردن در خود فرم 1 به این صورته :
[CSHARP]
x.Server = "chat.lianchat.ir";
x.Open(txtid.Text, txtpw.Text, txtres.Text);
[/CSHARP]
البته کدهای دیگه برای ساخت Void های رمز اشتباه ، dc شدن یا آنلاین شدن هم هست اما دیگه من ننوشتم
در vb6 کد بالا رو اگه بخواستی توی فرم 3 استفاده کنی که دقیقا همین اسم ها هم داشت ، از این کد استفاده میکردید :
[CSHARP]
Form1.x.Server = "chat.lianchat.ir
Form1.x.Open(Form3.txtid.Text, Form3.txtpw.Text, Form3.txtres.Text)
[/CSHARP]
البته من به صورت مثال گفتم در اصل این کد روی vb6 کار نمیکنه
ممنون