انا شغال فيجوال بيسك دوت نت وحزمة CefSharp
والأدوات اللي مستخدمها : هي panel لعرض الموقع بداخله وداتاجريدفيو مش أكتر من كده
بحيث لما بضغط على الصف داخل الداتاجريدفيو بيعرض البيانات اللي بداخله داخل خانات الموقع بتاعي
والاكواد دي شغاله وبتعرض البيانات داخل الموقع لكن لما بحفظ الموقع مش بيحس بالبيانات ويطلب تسجيل البيانات
ودا الكود المستعمل كله :
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports CefSharp
Imports CefSharp.WinForms
Imports CefSharp.WinForms.ChromiumWebBrowser
Imports CefSharp.WinForms.Internals
Public Class Main
Public Sub New()
InitializeComponent()
End Sub
Public browser1 As New ChromiumWebBrowser("https://-------------")
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Panel1.Controls.Clear()
Panel1.Controls.Add(browser1)
browser1.Load("https://teacher.emis.gov.eg/login")
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
browser1.ExecuteScriptAsync("document.all('i0116').value='" + TextBox1.Text + "'")
browser1.ExecuteScriptAsync("document.all('i0118').value='" + TextBox2.Text + "'")
Catch ex As Exception
End Try
End Sub
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Try
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=nationalIdNumControl]').value='" & DataGridView1.SelectedRows(0).Cells(3).Value & "'")
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=empFirstNameControl]').value='" & DataGridView1.SelectedRows(0).Cells(4).Value & "'")
Catch ex As Exception
End Try
End Sub
End Class
والأدوات اللي مستخدمها : هي panel لعرض الموقع بداخله وداتاجريدفيو مش أكتر من كده
بحيث لما بضغط على الصف داخل الداتاجريدفيو بيعرض البيانات اللي بداخله داخل خانات الموقع بتاعي
والاكواد دي شغاله وبتعرض البيانات داخل الموقع لكن لما بحفظ الموقع مش بيحس بالبيانات ويطلب تسجيل البيانات
ودا الكود المستعمل كله :
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Threading
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports CefSharp
Imports CefSharp.WinForms
Imports CefSharp.WinForms.ChromiumWebBrowser
Imports CefSharp.WinForms.Internals
Public Class Main
Public Sub New()
InitializeComponent()
End Sub
Public browser1 As New ChromiumWebBrowser("https://-------------")
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Panel1.Controls.Clear()
Panel1.Controls.Add(browser1)
browser1.Load("https://teacher.emis.gov.eg/login")
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
browser1.ExecuteScriptAsync("document.all('i0116').value='" + TextBox1.Text + "'")
browser1.ExecuteScriptAsync("document.all('i0118').value='" + TextBox2.Text + "'")
Catch ex As Exception
End Try
End Sub
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Try
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=nationalIdNumControl]').value='" & DataGridView1.SelectedRows(0).Cells(3).Value & "'")
browser1.ExecuteScriptAsync("document.querySelector('input[formcontrolname=empFirstNameControl]').value='" & DataGridView1.SelectedRows(0).Cells(4).Value & "'")
Catch ex As Exception
End Try
End Sub
End Class
