Notes

Imports OpenQA.Selenium.Chrome
Imports SeleniumProxyAuthentication
Imports OpenQA.Selenium
Public Class Form1
Dim driver As ChromeDriver
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tarayıcı_ac()
End Sub
Sub tarayıcı_ac()
Try
For Each p As Process In Process.GetProcessesByName("chrome")
p.Kill()
Next
Catch
End Try
Try
For Each p As Process In Process.GetProcessesByName("chromedriver")
p.Kill()
Next
Catch
End Try
Try
For Each p As Process In Process.GetProcessesByName("conhost")
p.Kill()
Next
Catch
End Try
Dim ChromeOptions = New ChromeOptions()
ChromeOptions.AddProxyAuthenticationExtension(New SeleniumProxyAuthentication.Proxy(ProxyProtocols.HTTP,
ChromeOptions.AddArguments("--user-data-dir=C:UsersAdministratorAppDataLocalGoogleChromeUser Data")
ChromeOptions.AddArguments("--profile-Default")
'
ChromeOptions.AddArguments("--start-maximized", "--disable-notifications")
ChromeOptions.AddExcludedArgument(“enable-automation”)
Dim driverService = ChromeDriverService.CreateDefaultService()
driverService.HideCommandPromptWindow = True
driver = New ChromeDriver(driverService, ChromeOptions)

End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
neww()
End Sub

Sub neww()
driver.Navigate.GoToUrl(IO.File.ReadAllLines(CurDir() & "bekleyenler.txt")(0).Split(vbTab)(0))
Timer1.start
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//label[@aria-label=""Reklam Hesabı""]"))
w.Click()
Timer1.Stop()
Timer2.Start()
Catch
End Try
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//div[contains(@aria-checked,""false"") and contains(.,'" & IO.File.ReadAllLines(CurDir() & "bekleyenler.txt")(0).Split(vbTab)(1) & "')]"))
w.Click()
Timer2.Stop()
Timer3.Start()
Catch ex As Exception

End Try
End Sub

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//textarea"))
w.Click()
sender.stop
w.SendKeys(Keys.Control + "a")
w.SendKeys(Keys.Delete)
Clipboard.SetText(IO.File.ReadAllLines(CurDir() & "bilgileraçıklama.txt")(0))
w.SendKeys(Keys.Control + "v")

Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//div[@aria-label='Düzenle']")))
Timer4.Start()
Catch ex As Exception

End Try
End Sub

Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//div[@aria-label=' United States + 25 km Kaldır']"))
w.Click()

'//span[.='Hedef Kitleyi Kaydet']
sender.stop
Timer5.Start()
Catch ex As Exception

End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer11.Start()
End Sub

Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("(//input[@type='search'])[2]"))
w.Click()
Timer5.Stop()
w.SendKeys("Türkiye")
Threading.Thread.Sleep(5000)
Timer6.Start()
Catch ex As Exception

End Try
End Sub



Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
Try

Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//div[contains(@role,'presentation') and contains(.,'Türkiye')]")))
sender.stop
Threading.Thread.Sleep(5000)
Timer7.Start()
Catch ex As Exception

End Try
End Sub
Dim aç As Boolean
Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//div[@aria-label=' Turkey + 25 km Kaldır']"))
If w.GetAttribute("aria-label") IsNot Nothing Then
Timer7.Stop()
Threading.Thread.Sleep(1000)
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//span[.='Hedef Kitleyi Kaydet']")))
Threading.Thread.Sleep(3000)
Timer8.Start()
End If
Catch

End Try

End Sub



Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//div[@aria-label='Seçenekleri Düzenle']"))
w.Click()
sender.stop
Timer9.Start()
Catch
End Try
End Sub
Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
Try
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//div[.='Yeni Yükle']")))
Dim r As New Resim_Yükleme1
Timer9.Stop()
r.Start(CurDir() & "bilgiler" & IO.File.ReadAllLines(CurDir() & "bilgilerresim.txt")(0))

Catch
End Try
End Sub

Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//input[@value='7']"))
Try
Dim jscript1 As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript1.ExecuteScript("window.scrollBy(0, 500)")
Catch
End Try
w.Click()
Timer10.Stop()
w.SendKeys(Keys.Control + "a")
w.SendKeys(Keys.Delete)
w.SendKeys(1)
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("window.scrollBy(0, 500)")
driver.FindElement(By.XPath("//input[@value='14,81']")).Click()
driver.FindElement(By.XPath("//input[@value='14,81']")).SendKeys(Keys.Control + "a")
driver.FindElement(By.XPath("//input[@value='14,81']")).SendKeys(Keys.Delete)
driver.FindElement(By.XPath("//input[@maxlength=""12""]")).SendKeys("100")
Timer11.Start()
Catch ex As Exception

End Try
End Sub

Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
' lklksd
Dim s As String
End Sub

Private Sub Timer11_Tick(sender As Object, e As EventArgs) Handles Timer11.Tick
Try
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//span[.='Ödeme Yöntemi Ekle']")))

sender.stop

Timer12.Start()
Catch
End Try
End Sub

Private Sub Timer12_Tick(sender As Object, e As EventArgs) Handles Timer12.Tick
Try
'
Dim jscript As IJavaScriptExecutor = TryCast(driver, IJavaScriptExecutor)
jscript.ExecuteScript("arguments[0].click();", driver.FindElement(By.XPath("//span[.='İleri']")))
Catch
End Try
Try
Dim w As IWebElement = driver.FindElement(By.XPath("//label[@aria-label=""Kartın üzerindeki ad""]//input"))
w.Click()
sender.stop
w.SendKeys(IO.File.ReadAllLines(CurDir() & "bilgilerkk.txt")(0).Split(":")(0))
driver.FindElement(By.XPath("//label[@aria-label=""Kart numarası""]//input")).SendKeys(IO.File.ReadAllLines(CurDir() & "bilgilerkk.txt")(0).Split(":")(1))

driver.FindElement(By.XPath("//label[@aria-label=""AA/YY""]//input")).SendKeys(IO.File.ReadAllLines(CurDir() & "bilgilerkk.txt")(0).Split(":")(2))
driver.FindElement(By.XPath("//label[@aria-label=""Güvenlik Kodu (CVV)""]//input")).SendKeys(IO.File.ReadAllLines(CurDir() & "bilgilerkk.txt")(0).Split(":")(3))
driver.FindElement(By.XPath("//span[.='Kaydet']")).Click()
'
Catch ex As Exception

End Try
End Sub
End Class