[ٌRy SAEED]

(26-02-14, 05:34 PM)mohssan كتب : السلام عليكم

ابغي اسوي برنامج مسابقات

برنامج يكون في الجهاز الرئيسي و الثاني يكون في جهاز ثاني يكون على نفس الشبكة ( الراوتر)

البرنامج الي في الجهاز الرئيسي فيه textbox و buttan
بعد ما يكتب سؤال في ال textbox
و يضغط على ال buttan
النص الي في textbox ينرسل للبرنامج الي في الجهاز الثاني على شكل ليبل

اتمنى المساعدة في الاكواد الازمة للاتصال باقي الذي قلته

وعليكم السلام 
أخي
كل ما بتفكر فيه ليس مستحيل لغة البيسك تستطيع أن تفعل أكثر من ذلك ولكن يجب على مستخدمها التعب لكي يحصل على هذا الكود بالتفكير ورسم البرناج
على أوراق خارجية واستعمال الخوارزميات لتساعدك على إيجاد هذا اكود

البرنامج الأول: لإرسال النص المطلوب إرساله
في الجنرال في الأعلى

كود :

Imports System.Net

 بعد إضافة 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

إضغط على حفظ البرنامجين وبأذن الله بيشتغل معك