[alfaiz678]

كود b4a

كود :

Sub JobDone(Job As HttpJob)
    If Job.Success Then
    Dim res As String
    res = Job.GetString
    MsgboxAsync(res,"جلب قيمة مستغير في ملف php ")
    Else
    ToastMessageShow("لم تتم العملية تأكد من اتصالك بالانترنت",True)
    
    End If
    ProgressDialogHide
 
End Sub

Sub Button1_Click
    ProgressDialogShow2("........جاري تحميل البيانات  ",False)
    Dim PhpText As HttpJob
    PhpText.Initialize("PhpText", Me)
    PhpText.download2("http://192.168.1.5/t/1.php", _
     Array As String ("Value", ""))
    PhpText.GetRequest.Timeout=15000  ' مهلة الاتصال بالخادم 15000=15 ثانية
End Sub

كود php

PHP كود :

<?php

$Value = $_GET['Value'];

$Value="اﻟﺴﻼﻡ ﻋﻠﻴﻜﻢ ﻭﺭﺣﻤﺔ اﻟﻠﻪ ﻭﺑﺮﻛﺎﺗﻪ" ;

echo  $Value;

?>