Text File Operations for Url Link Spam Visual Basic Selenium Chrome Project
Rabu, 25 November 2020
Edit
Operasi file sering digunakan dalam pembuatan tool bot spam.
Biasanya Saya menyimpan hasil SCRAP dari suatu WEBSITE seperti di project
trus di simpan ke file teks.
Setelah itu file teks di simpan ke MEMORY menggunakan Split Function pada visual basic lalu di masukkan ke ARRAY (lihat: Array pada Visual Basic atau Array vbnet console) untuk memudahkan menggunakan nya.
Biasanya Saya menyimpan hasil SCRAP dari suatu WEBSITE seperti di project
cara membuat tool facebook auto like dengan visual basic selenium chrome driver
Setelah itu file teks di simpan ke MEMORY menggunakan Split Function pada visual basic lalu di masukkan ke ARRAY (lihat: Array pada Visual Basic atau Array vbnet console) untuk memudahkan menggunakan nya.
KAMU bisa memadukan lagi dengan TIMER seperti di Timer Visual Basic Console Project sehingga delay nya bisa di atur.
di bawah ini adalah kode contoh operasi mengumpulkan link ke file teks:
Module Module1
Private sUrlListFile As String = AppDomain.CurrentDomain.BaseDirectory & "url_list.txt"
Sub Main()
writeList()
Threading.Thread.Sleep(1000)
readList()
Console.ReadKey()
End Sub
Private Sub writeList()
IO.File.AppendAllText(sUrlListFile, "https://www.google.com" & vbCrLf)
IO.File.AppendAllText(sUrlListFile, "https://www.facebook.com" & vbCrLf)
IO.File.AppendAllText(sUrlListFile, "https://www.twitter.com" & vbCrLf)
IO.File.AppendAllText(sUrlListFile, "https://www.pinterest.com" & vbCrLf)
End Sub
Private Sub readList()
Dim arrUrl() As String = IO.File.ReadAllText(sUrlListFile).Split(vbCrLf)
For Each item In arrUrl
item = item.Replace(vbLf, "")
If Trim(item.ToString) <> "" Then
Console.WriteLine("'" & item.ToString & "'")
End If
Next
End Sub
End Module
Berikut adalah video textOperation visual basic project: