Notes![what is notes.io? What is notes.io?](/theme/images/whatisnotesio.png)
![]() ![]() Notes - notes.io |
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
![]() |
Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...
With notes.io;
- * You can take a note from anywhere and any device with internet connection.
- * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
- * You can quickly share your contents without website, blog and e-mail.
- * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
- * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.
Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.
Easy: Notes.io doesn’t require installation. Just write and share note!
Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )
Free: Notes.io works for 12 years and has been free since the day it was started.
You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;
Email: [email protected]
Twitter: http://twitter.com/notesio
Instagram: http://instagram.com/notes.io
Facebook: http://facebook.com/notesio
Regards;
Notes.io Team