(26-02-14, 05:34 PM)mohssan كتب : السلام عليكم
ابغي اسوي برنامج مسابقات
برنامج يكون في الجهاز الرئيسي و الثاني يكون في جهاز ثاني يكون على نفس الشبكة ( الراوتر)
البرنامج الي في الجهاز الرئيسي فيه textbox و buttan
بعد ما يكتب سؤال في ال textbox
و يضغط على ال buttan
النص الي في textbox ينرسل للبرنامج الي في الجهاز الثاني على شكل ليبل
اتمنى المساعدة في الاكواد الازمة للاتصال باقي الذي قلته
وعليكم السلام
أخي
كل ما بتفكر فيه ليس مستحيل لغة البيسك تستطيع أن تفعل أكثر من ذلك ولكن يجب على مستخدمها التعب لكي يحصل على هذا الكود بالتفكير ورسم البرناج
على أوراق خارجية واستعمال الخوارزميات لتساعدك على إيجاد هذا اكود
البرنامج الأول: لإرسال النص المطلوب إرساله
في الجنرال في الأعلى
بعد إضافة Button1 و TextBox1 نضع هذا الكود في Button1
كود :
Dim x As New webClient
ثم نذهب نفتح ملف نصي ونضع فيه هذا الكود بعد وضع الكود إذهب إلى File ثم Save As ثم ضع بدل .text ضع php. لكي يصبح ملف php
PHP كود :
<?php
$x = $_GET['a'];
if ($x == "write"){
$open = fopen("cmd.txt","w");
fwrite($open , $_GET['cmd']);
}elseif ($x == "read"){
echo file_get_contents("cmd.txt");
}
?>
ثم إذهب إلى الكمبيوتر ثم قرص D أو E ننشأ مجلد نسميه new ثم نذهب إلى فيجوال بيسك
نضع في Button
كود :
("x.DownloadString(http://Localhost/new/sender.php?a=write&cmd="&Textbox1.text
ثم نفتح فيجول بيسك نافذة أخرى
نسمي البرنامج Server
نقوم بإضافة Textbox1 و Timer1 خصائص التايمر نضع السرعة بدل 100--->1000
ثم نضغط على اداة التايمر مرتان نضع الكود التالي
كود :
Public Class Form1
Dim x As New System.Net.WebClient
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
("TextBox1.text = x.DownloadString("http://Localhost/new/sender.php?a=read
End Sub
End Class
إضغط على حفظ البرنامجين وبأذن الله بيشتغل معك