while(WebBrowser.ReadyState != Completed) { Application.DoEvents(); }
private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e) { if (webBrowser1.Document.All["Ecom_User_ID"] != null && webBrowser1.Document.All["Ecom_Password"] != null) { webBrowser1.Document.All["Ecom_User_ID"].InnerText = TxtUser.Text; webBrowser1.Document.All["Ecom_Password"].InnerText = TxtPass.Text; webBrowser1.Document.GetElementById("portletlogin").InvokeMember("click"); } }
void FiddlerApplication_AfterSessionComplete(Fiddler.Session oSession) { listBox1.Invoke(new UpdateUI(() => { listBox1.Items.Add(oSession.url); System.Threading.Thread newThread; newThread = new System.Threading.Thread(analyse); newThread.Start(); })); }
public void analyse() { // APPELER LA FONCTION WEBBROWSER DOCUMENTCOMPLETED }
public void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e) { try { string DernierLien = listBox1.SelectedItem.ToString(); string correctString = DernierLien.Replace(":443", ""); webBrowser1.Navigate(correctString); { List<string> ListeMot = new List<string>(); string source = this.webBrowser1.DocumentText; ListeMot.AddRange(System.IO.File.ReadAllLines("C:\\Users\\Clément\\Documents\\ListeDeMots.txt")); foreach (string s in ListeMot) { if (source.ToLower().Contains("" + s.ToLower() + "")) MessageBox.Show("Un mot interdit a été détecté :" + s); } } } catch { } }
appel d'un page dans le wb TANTQUE la page se charge attendre FINTANTQUE déclencher évènement DocumentComplete
void FiddlerApplication_AfterSessionComplete(Fiddler.Session oSession) { listBox1.Invoke(new UpdateUI(() => { listBox1.Items.Add(oSession.url); })); } public void analyse() { try { listBox1.SelectedIndex = listBox1.Items.Count - 1; string DernierLien = listBox1.SelectedIndex.ToString(); string correctString = DernierLien.Replace(":443", ""); webBrowser1.Navigate(correctString); { List<string> ListeMot = new List<string>(); string source = this.webBrowser1.DocumentText; ListeMot.AddRange(System.IO.File.ReadAllLines("C:\\Users\\Clément\\Documents\\ListeDeMots.txt")); foreach (string s in ListeMot) { if (source.ToLower().Contains("" + s.ToLower() + "")) MessageBox.Show("Un mot interdit a été détecté :" + s); } } } catch { } } public void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e) { System.Threading.Thread newThread; newThread = new System.Threading.Thread(analyse); newThread.Start(); }
while(webBrowser1.ReadyState != Completed) { Application.DoEvents(); }
public void analyse() { try { listBox1.SelectedIndex = listBox1.Items.Count - 1; string DernierLien = listBox1.SelectedItem.ToString(); string correctString = DernierLien.Replace(":443", ""); webBrowser1.Navigate(correctString); //Je voudrais que mon webbrowser attende à partir d ici. while(webBrowser1.ReadyState != Completed) { Application.DoEvents(); } List<string> ListeMot = new List<string>(); string source = this.webBrowser1.DocumentText; ListeMot.AddRange(System.IO.File.ReadAllLines("C:\\Users\\Clément\\Documents\\ListeDeMots.txt")); foreach (string s in ListeMot) { if (source.ToLower().Contains("" + s.ToLower() + "")) MessageBox.Show("Un mot interdit a été détecté :" + s); } } catch { } }
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On Imports Fiddler Imports System.Net Imports System.IO Public Class Form1 Dim url As String = Nothing Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler AddHandler Application.ApplicationExit, AddressOf ShutdownFiddlerApp Dim oFlags As FiddlerCoreStartupFlags = FiddlerCoreStartupFlags.Default FiddlerApplication.Startup(0, oFlags) MsgBox("Started proxy on port " & FiddlerApplication.oProxy.ListenPort) End Sub Private Sub ShutdownFiddlerApp() FiddlerApplication.Shutdown() MsgBox("Unloaded proxy") Threading.Thread.Sleep(1000) End Sub Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session) RichTextBox1.BeginInvoke(New AsyncMethodCaller(AddressOf AddText), tSession.fullUrl) End Sub Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session) End Sub Public Sub Verification() Try ListeMot.AddRange(IO.File.ReadAllLines("C:UsersClémentDocumentsListeDeMots.txt")) Dim found As Boolean = False For Each s As String In ListeMot If url.ToLower.Contains("-" & s.ToLower & "-") Or url.ToLower.Contains("." & s.ToLower & ".") Or url.ToLower.Contains("." & s.ToLower & "-") Or url.ToLower.Contains("-" & s.ToLower & ".") Then MsgBox("Un mot interdit dans l'URL a été détecté :" & s) End If Next Catch End Try Try Dim webClient As New System.Net.WebClient Dim result As String = webClient.DownloadString(url) Dim client As WebClient = New WebClient() Dim data As Stream = client.OpenRead(url) Dim reader As StreamReader = New StreamReader(data) Dim Page As String = reader.ReadToEnd ListeMot.AddRange(IO.File.ReadAllLines("C:UsersClémentDocumentsListeDeMots.txt")) Dim found As Boolean = False For Each s As String In ListeMot If Page.ToLower.Contains(" " & s.ToLower & " ") Then MsgBox("Un mot interdit a été détecté :" & s) End If Next Catch End Try End Sub Dim ListeMot As New List(Of String) Private Sub AddText(sText As String) Dim url2 As Uri url2 = New Uri(sText) If url2.AbsolutePath.EndsWith(".js") = False And url2.AbsolutePath.EndsWith(".jpg") = False And url2.AbsolutePath.EndsWith(".gif") = False And url2.AbsolutePath.EndsWith(".png") = False And url2.AbsolutePath.EndsWith(".css") = False And url2.AbsolutePath.EndsWith(".ico") = False And url2.AbsolutePath.EndsWith(":443") = False Then RichTextBox1.AppendText(sText & vbCrLf) url = sText Dim Thread As New Threading.Thread(AddressOf Verification) Thread.Start() End If End Sub Protected Overrides Sub Finalize() MyBase.Finalize() End Sub End Class Public Delegate Sub AsyncMethodCaller(sText As String)
<h1>mot</h1>
Option Explicit On Imports Fiddler Imports System.Net Imports System.IO Imports Microsoft.Win32 Public Class Form1 Dim ListeMots As New List(Of String) Dim url As String = Nothing Public Delegate Sub AsyncMethodCaller(sText As String) Private Sub ShutdownFiddlerApp() FiddlerApplication.Shutdown() MsgBox("Unloaded proxy") Threading.Thread.Sleep(1000) End Sub Private Sub FiddlerBeforeRequestHandler(ByVal tSession As Session) RichTextBox1.BeginInvoke(New AsyncMethodCaller(AddressOf AddText), tSession.fullUrl) End Sub Private Sub FiddlerBeforeResponseHandler(ByVal tSession As Session) End Sub Public Sub VerificationPage() Try Dim webClient As New System.Net.WebClient Dim result As String = webClient.DownloadString(url) Dim client As WebClient = New WebClient() Dim data As Stream = client.OpenRead(url) Dim reader As StreamReader = New StreamReader(data) Dim Page As String = reader.ReadToEnd ListeMots.AddRange(IO.File.ReadAllLines("C:Users\" & System.Environment.UserName & "DocumentsListeDeMots.txt")) Dim found As Boolean = False For Each s As String In ListeMots If Page.ToLower.Contains(" " & s.ToLower & " ") = True Or Page.ToLower.Contains("<h1>" & s.ToLower & "</h1>") = True Then RichTextBox1.Clear() MsgBox("Un mot interdit a été détecté :" & s) End If Next Catch End Try End Sub Public Sub VerificationURL() Try Dim found As Boolean = False For Each s As String In ListeMots If url.ToLower.Contains("-" & s.ToLower & "-") = True Or url.ToLower.Contains("." & s.ToLower & ".") = True Or url.ToLower.Contains("." & s.ToLower & "-") = True Or url.ToLower.Contains("-" & s.ToLower & ".") = True Then RichTextBox1.Clear() MsgBox("Un mot interdit dans l'URL a été détecté :" & s) End If Next Catch End Try End Sub Private Sub AddText(sText As String) RichTextBox1.SelectAll() Dim nbrligne As Integer = RichTextBox1.GetLineFromCharIndex(RichTextBox1.SelectionLength()) If nbrligne > 40 Then RichTextBox1.Clear() End If Dim url2 As Uri url2 = New Uri(sText) If url2.AbsolutePath.EndsWith(".js") = False And url2.AbsolutePath.EndsWith(".jpg") = False And url2.AbsolutePath.EndsWith(".gif") = False And url2.AbsolutePath.EndsWith(".png") = False And url2.AbsolutePath.EndsWith(".css") = False And url2.AbsolutePath.EndsWith(".ico") = False And url2.AbsolutePath.EndsWith(".jpeg") = False And RichTextBox1.Text.Contains(sText) = False And url2.ToString.Length < 200 = True Then RichTextBox1.AppendText(sText & vbCrLf) url = sText Dim ThreadVerificationPage As New Threading.Thread(AddressOf VerificationPage) ThreadVerificationPage.Start() Dim ThreadVerificationURL As New Threading.Thread(AddressOf VerificationURL) ThreadVerificationURL.Start() End If End Sub Protected Overrides Sub Finalize() MyBase.Finalize() End Sub Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. AddHandler FiddlerApplication.BeforeResponse, AddressOf FiddlerBeforeResponseHandler AddHandler FiddlerApplication.BeforeRequest, AddressOf FiddlerBeforeRequestHandler AddHandler Application.ApplicationExit, AddressOf ShutdownFiddlerApp Dim oFlags As FiddlerCoreStartupFlags = FiddlerCoreStartupFlags.Default FiddlerApplication.Startup(0, oFlags) MsgBox("Started proxy on port " & FiddlerApplication.oProxy.ListenPort) End Sub End Class