Salve, sto creando un programma che faccia delle ricerche su un webbrowser, voglio mettere un timer che tra una ricerca e l'altra aspetti 10 secondi tipo, non riesco a farlo funzionare.. come posso fare?
Salve, sto creando un programma che faccia delle ricerche su un webbrowser, voglio mettere un timer che tra una ricerca e l'altra aspetti 10 secondi tipo, non riesco a farlo funzionare.. come posso fare?
No forse mi sono spiegato male, io voglio che aspetti 10 secondi senza fare altre ricerche.. per esempio:cosi faccio le ricerche.. pero ora voglio che aspetti 10 secondi per rifare un altra ricerca, visto che è un ciclo!Codice:Perfavore, Entra oppure Registrati per vedere i codici!
e nel bottone ho scritto, Timer1.Enable=TrueDo
Timer1.Stop()
filereader = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Nicola\Documents\bot\lista.txt")
stringReader = filereader.ReadLine() 'legge la riga
WebBrowser1.Document.GetElementById("ctrl_ecc").SetAttribute("value", stringReader)
WebBrowser1.Document.GetElementById("ctrl_sacc").InvokeMember("click")
Timer1.Start()
myprocesses = Process.GetProcessesByName("iexplore")
For Each myprocess In myprocesses
myprocess.CloseMainWindow()
Next
C = C + 1
filereader.Close()
filecreato = System.IO.File.Create("C:\Users\Nicola\Documents\bot\lista2.txt")
filecreato.Close()
scrittore = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Nicola\Documents\bot\lista2.txt", True)
filereader = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Nicola\Documents\bot\lista.txt")
a = stringReader
Label7.Text = C.ToString
Do While Not stringReader Is Nothing
If stringReader <> a Then
scrittore.WriteLine(stringReader)
End If
stringReader = filereader.ReadLine
Loop
filereader.Close()
scrittore.Close()
Kill("C:\Users\Nicola\Documents\bot\lista.txt")
My.Computer.FileSystem.RenameFile("C:\Users\Nicola\Documents\bot\lista2.txt", "lista.txt")
Loop Until Not stringReader Is Nothing
Ho dichiarato C e l'ho messo dentro ma rimane a 1..C = 0
Timer1.Stop()
filereader = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Nicola\Documents\bot\lista.txt")
stringReader = filereader.ReadLine() 'legge la riga
WebBrowser1.Document.GetElementById("ctrl_SearchControl$txtSearch").SetAttribute("value", stringReader)
WebBrowser1.Document.GetElementById("ctrl_SearchControl$BEC81F8F9A4549289FF1C7851AE2789C").InvokeMember("click")
myprocesses = Process.GetProcessesByName("iexplore")
For Each myprocess In myprocesses
myprocess.CloseMainWindow()
Next
C = C + 1
filereader.Close()
filecreato = System.IO.File.Create("C:\Users\Nicola\Documents\bot\lista2.txt")
filecreato.Close()
scrittore = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Nicola\Documents\bot\lista2.txt", True)
filereader = My.Computer.FileSystem.OpenTextFileReader("C:\Users\Nicola\Documents\bot\lista.txt")
a = stringReader
Label7.Text = C.ToString
Do While Not stringReader Is Nothing
If stringReader <> a Then
scrittore.WriteLine(stringReader)
End If
stringReader = filereader.ReadLine
Loop
filereader.Close()
scrittore.Close()
Kill("C:\Users\Nicola\Documents\bot\lista.txt")
My.Computer.FileSystem.RenameFile("C:\Users\Nicola\Documents\bot\lista2.txt", "lista.txt")
Timer1.Start()
Label4.Text = "Ricerca Finita!"
End Sub