[Basil Abdallah]

بسيطة
تحتاج لصفحة ويب و التعامل مع دوال الويب براوزر

---

ارفعي هذا الكود على استضافة مواقع او على اي موقع 

PHP كود :

<table id="t01">
                                                               
    <tbody>
                                                                   
        <tr>
                                                                       
            <th>
                                              حالة البرنامج                         
            </th>
                                                                                               
        </tr>
                                                                      
        <tr>
                                                                            
            <td id="Do">
                                     Work                          
            </td>
                                                               
        </tr>
                                       <style>
table {
    width:100%;
}
table, th, td {
    border: 1px solid black;
    border-collapse: collapse;
}
th, td {
    padding: 5px;
    text-align: left;
}
table#t01 tr:nth-child(even) {
    background-color: #eee;
}
table#t01 tr:nth-child(odd) {
   background-color:#fff;
}
table#t01 th {
    background-color: black;
    color: white;
}
</style>                                   
    </tbody>
</table><span style="text-decoration: line-through;"></span> 


شوف حالة البرنامج Work و اذا غيرتها ل Broken سيتوقف البرنامج عن العمل 

الان ضيف لمشروعك نافذة جديدة و ضيف لها WebBrowser1 
وضع هذا الكود في الحدث فورم لود 

PHP كود :

     WebBrowser1.Visible = False
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate("هنا رابط الصفحة الي رفعتها") 


و الان ضع هذا الكود في الحدث WebBrowser1_DocumentCompleted

PHP كود :

  For Each aa As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
            If aa.GetAttribute("id") = "Do" Then
                TextBox1.Text = aa.OuterText
                If TextBox1.Text = "Work " Then
                Else
                    MsgBox("تم ايقاف النسخة ")
                End If
            End If

        Next



     


انا سويت صفحة و رفعتها للتجربة 
صفحة العمل 
http://arabi.yoo7.com/h1-page
الصفحة الي لا تعمل 
http://arabi.yoo7.com/h3-page