VB .NET'de Yazı özgünleştirme ve özgünleştirme testi yapma kodları SEO

Forma eklenmesi gerekenler; Kaynak kodları için bana ulaşabilirsiniz...

Kodlar:

Public Class Form1





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

        WebBrowser1.Document.GetElementById("makale").SetAttribute("value", MemoEdit1.Text)
        'WebBrowser1.Document.GetElementById("İşlemi Yap").InvokeMember("click")

        'kontor attıktan sonra cıkan ekranda tamamama bas
        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If Element.OuterHtml.Contains("İşlemi Yap") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element
        WebBrowser2.Navigate("http://www.jetseotools.com/free-seo-plagiarism-checker")
        Timer1.Enabled = True


 


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")

            If Element.OuterHtml.Contains("Demo Göster") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element



        Timer1.Enabled = False
        Timer2.Enabled = True
    End Sub



    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Dim Elems As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("textarea")
        For Each Elem As HtmlElement In Elems
            'Loop through until you find the one that needs updating (in your case it is named proxylist)
            If Elem.Id = "demo" Then
                'Update the TextArea Text
                '   Elem.InnerHtml = "My Text"
                MemoEdit2.Text = Elem.InnerHtml
                Exit For
            End If
        Next Elem
        MemoEdit2.Text = Split(MemoEdit2.Text, "kelime say")(0)
        Timer2.Enabled = False
        Timer3.Enabled = True
    End Sub




    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Dim Elems As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("textarea")
        For Each Elem As HtmlElement In Elems
            'Loop through until you find the one that needs updating (in your case it is named proxylist)
            If Elem.Id = "mycontent" Then
                'Update the TextArea Text
                '   Elem.InnerHtml = "My Text"
                Elem.InnerHtml = MemoEdit2.Text
                Exit For
            End If
        Next Elem

        For Each Element As HtmlElement In WebBrowser2.Document.GetElementsByTagName("a")

            If Element.OuterHtml.Contains("Check for Plagiarism") Then

                Element.InvokeMember("click")
                Exit For

            End If

        Next Element
        WebBrowser2.Focus()
        SendKeys.Send("^-")

        WebBrowser1.Navigate("http://wmtikk.com/arac/yazi-ozgunlestirici")




        Timer3.Enabled = False
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fileReader As System.IO.StreamReader
        fileReader =
        My.Computer.FileSystem.OpenTextFileReader("saniye.txt")
        Dim stringReader1 As String

        stringReader1 = fileReader.ReadLine()
        Timer1.Interval = stringReader1




    End Sub
End Class

NINJA PINNER PINTEREST (SEO)

Here’s what Pinner will do for you: 1) Get you thousands of followers on Pinterest quickly on virtual auto-pilot.
2) Make you one of the most popular figures in your industry or niche
3) Get you an avalanche of qualified website traffic, recognition and exposure
4) Dramatically increase your product sales and profits.
5) Create an overwhelming presence on Pinterest, which boosts your social proof and credibility.



Following steps-Done:
1) Install
2) Copy CR file to directory and replace it
3) Open and bypass update (it requests for every start program)
- When skip update, program will close
- Restart program then (skip update too) then click "activation" by input any key you want (I put my 8 numbers) --> apply
- Restart
- Click add your email + password Pinterest (Program is registered)
- Run
4) Start program (this step will be suspended)
5) Wait for few hours (3-4)

Download : http://sh.st/UfD8q

|CRACKED| - FACEBOOK SOCIAL TOOLKIT (SEO)

Must have FACEBOOK SOCIAL TOOLKIT .

Get Post On Multiple Facebook Groups At Once Plugin.Post on multiple groups tool uses Facebook Graph api for making posting requests, this means your account is protected from getting banned or locked by Facebook spam detection system.


1-Group posting tool posts links with preview
2-Group posting tool works on all Facebook accounts.
3-Can posts on hundreds of groups at a time
4-Select custom delay between posting requests
5-Select a custom starting number for Facebook Groups
6-Informs you when an access token gets invalid
7-Allows you to enter custom message for posting.

8-Simple to use, easy to handle

Facebook social toolkit is far better than any other group posting tool available in the market, it is highly recommended tool.



Chrome Install: -
1. Go to >>> chrome://extensions/
2. Turn ON the developer mode.
3. Click Load unpacked extensions.
4. Choose the extracted ^ folder and press "OK"

version : - 2.2.6
download link for chrome : sh.st/UfIM5
Use any email and password for the premium tools.

vb net klasöürdeki dosya bilgilierini listboxa yazdırmak için

1	Dim finfo As New IO.DirectoryInfo("C:\Story")

2	For Each fi In finfo.GetFiles

3	Listbox1.Items.Add(fi.FullName)

4

Next

ayrıca textboxun multilineni acıncada yapılabilir

1	Dim finfo As New IO.DirectoryInfo("C:\Story")

2	For Each fi In finfo.GetFiles

    TextBox2.AppendText(myFolder & sFileExtension & Environment.NewLine) 'pcye kaydedilen yer

Next

pinterest follow all from google console

for(var bas=0; bas<1000;bas++){
function pinterestlikenext(){
javascript:var inputlike = document.getElementsByClassName('_ebwb5 _1tv0k _345gm coreSpriteHeartOpen');
javascript:var inputfollow = document.getElementsByClassName('_jvpff _k2yal _csba8 _i46jh _nv5lf');
javascript:var inputnext = document.getElementsByClassName('_de018 coreSpriteRightPaginationArrow');
for(var i=0; i<inputslike.length;i++){
inputlike[i].click();
inputfollow[i].click();
inputnext[i].click();}
}

setTimeout(pinterestlikenext,9000)
}



javascript:var inputlike = document.getElementsByClassName(' Button FollowButton Module UserFollowButton btn hasText notNavigatable primary rounded');
for(var i=0; i<inputlike.length;i++){
inputlike[i].click();}

[VB.net] How to make a Firefox Webbrowser

This tutorial will teach you how to make a Firefox Webbrowser. Unlike the Internet Explorer (default one) this one is faster and better.

Requirements

1. Visual Basic
2. Coding Experience in vb.net
3. A Brain

Tutorial

1. First go to http://webkitdotnet.sourceforge.net/downloads.php and click on Win32 Binary File


2. Open the download zip using 7-zip or some archiver.
3. Extract it to a local directory.
4. Open Visual Basic (or Visual Studio)
5. Click on New Project


6. Create a new project
7. You will see a window similar like this.


8. Click on Tools > Choose Toolbox Items

9. Click on browse and locate to the folder where you extracted the zip file.
10. Go to Extracted Folder > bin > WebKitBrowser.dll
11. Click ok
12. Save Project
13. Copy all files from the directory of Webkit


14. Go to your Project Folder.
15. Navigate to C:\Users\"YOUR USERNAME"\Documents\Visual Studio 2010\Projects\"PROJECT NAME"\"PROJECT NAME"\bin\Debug folder
16. Paste it there.
17. Now go back to the project
17a. Check your Toolbox.
17b. You will find there is a Webbrowser Control is the last section of the Toolbox. Add it to your program.
18. Double click the form.


19. Type the following code.


20. Now test your project.
21. You will get something like this.


I know most of you will make a bot using this tutorial and go on with your life  but giving a thanks and rep is highly appreciated.

ref http://thebot.net/threads/vb-net-how-to-make-a-firefox-webbrowser.142359/

vb net devexpress grid data bind from sqlserver

Önce Forma bir adet GridControl ekle   sonra forma tıkla ve aşağıdaki gibi olsun

Imports System.Data.SqlClient
Imports System.IO
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Reader As StreamReader = File.OpenText("sql.txt")
        Dim FileText As String = Reader.ReadToEnd()
        Reader.Close()
        MemoEdit1.Text = FileText

        Dim connectionString As String = "Data Source=KLCTRCK;Initial Catalog=LKSDB;User ID=semsem;Password=xaaxpass"
        Dim sql As String = MemoEdit1.Text
        Dim connection As New SqlConnection(connectionString)
        Dim dataadapter As New SqlDataAdapter(sql, connection)
        Dim ds As New DataSet()
        connection.Open()
        dataadapter.Fill(ds, "Firma")
        connection.Close()

        GridControl1.DataSource = ds
        GridControl1.DataMember = "Firma"

        GridView1.OptionsView.ColumnAutoWidth = False 'Gridviewei otomatik genişlik ayarı
        GridView1.OptionsView.BestFitMaxRowCount = -1
        GridView1.BestFitColumns()


    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'xls olarak kaydet
        SaveFileDialog1.Filter = "XLS Files (*.xls*)|*.xls"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
        Then
            GridControl1.ExportToXls(SaveFileDialog1.FileName)
        End If
    End Sub
End Class

VB Facebook bot beta

Public Class Form1
    Private x, y, z As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fileReader As System.IO.StreamReader
        fileReader =
        My.Computer.FileSystem.OpenTextFileReader("info.txt")
        Dim stringReader1, stringReader2, stringReader3 As String

        stringReader1 = fileReader.ReadLine()
        stringReader2 = fileReader.ReadLine()
        stringReader3 = fileReader.ReadLine()
        WebBrowser1.Navigate(stringReader1)
        TextBox1.Text = stringReader2
        TextBox2.Text = stringReader3

        Me.Enabled = False
        WebBrowser1.Visible = False
        Timer2.Enabled = True

    End Sub

    Private Sub navigateGrup()

        WebBrowser1.Refresh()

        Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        ListBox1.Items.Clear()
        For Each Element As HtmlElement In Page
            If Element.GetAttribute("href").Contains("/groups") Then
                If Element.GetAttribute("href").Contains("/groups/create") Then GoTo asd
                If Element.GetAttribute("href").Contains("/groups/?") Then GoTo asd
                ListBox1.Items.Add(Element.GetAttribute("href").ToString())
asd:
            End If
        Next

        Timer1.Interval = 3000
        Timer1.Enabled = True
        Timer1.Start()

    End Sub
    Private Sub navigateLogout()
        WebBrowser1.Refresh()

        Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        ListBox1.Items.Clear()
        For Each Element As HtmlElement In Page
            If Element.GetAttribute("href").Contains("/logout") Then
                WebBrowser1.Navigate(Element.GetAttribute("href").ToString())
            End If
        Next

    End Sub

    Private Sub navigateBegen()

        WebBrowser1.Refresh()

        Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        ListBox2.Items.Clear()
        For Each Element As HtmlElement In Page
            If Element.GetAttribute("href").Contains("/like.php?") Then

                ListBox2.Items.Add(Element.GetAttribute("href").ToString())

            End If
        Next

        Timer3.Interval = 3000
        Timer3.Enabled = True
        Timer3.Start()

    End Sub

    Private Sub navigateMsjYaz()

        WebBrowser1.Refresh()

        Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        ListBox3.Items.Clear()
        For Each Element As HtmlElement In Page
            If Element.GetAttribute("href").Contains("compose/?ids=") Then

                ListBox3.Items.Add(Element.GetAttribute("href").ToString())

            End If
        Next
        Timer4.Interval = 3000
        Timer4.Enabled = True
        Timer4.Start()

 

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim durum As HtmlElement = WebBrowser1.Document.GetElementById("xc_message")
        durum.SetAttribute("value", "deneme duvar yazısı")
    End Sub

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


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        x = x + 1
        If x > ListBox1.Items.Count Then
            Timer1.Stop()
        Else
            ListBox1.SelectedIndex = x - 1
            WebBrowser1.Navigate(ListBox1.Items(x - 1).ToString)
        End If

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        navigateLogout()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        navigateLogout()
        Me.Enabled = True
        WebBrowser1.Visible = True
        Timer2.Enabled = False
    End Sub

    Private Sub MemoEdit1_EditValueChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        navigateBegen()
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged

    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick

        y = y + 1
        If y > ListBox2.Items.Count Then
            Timer3.Stop()
        Else
            ListBox2.SelectedIndex = y - 1
            WebBrowser1.Navigate(ListBox2.Items(y - 1).ToString)
        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        navigateMsjYaz()
    End Sub

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

        z = z + 1
        If z > ListBox3.Items.Count Then
            Timer4.Stop()
        Else
            ListBox3.SelectedIndex = z - 1
            WebBrowser1.Navigate(ListBox3.Items(z - 1).ToString)



        End If
    End Sub
End Class

visual basic read two lines from text file

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fileReader As System.IO.StreamReader
        fileReader =
        My.Computer.FileSystem.OpenTextFileReader("C:\Users\Digikey\Desktop\MyApplication6\testfile.txt")
        Dim stringReader1, stringReader2 As String



        stringReader1 = fileReader.ReadLine()
        stringReader2 = fileReader.ReadLine()
        MsgBox("The first line of the file is " & stringReader1)
        MsgBox("The second line of the file is " & stringReader2)
    End Sub
End Class

Küçük işletmeler için yedekleme stratejisi

Eğer işletme ms sql kullanıyorsa yedekleme için:  yedekscript.sql diye bir dosya yarat(sqlyedek.sql) ve içine
Kullanılan araçlar:
windows task manager
notepad
özeillkler:
mssql yedek alma
mail yollama
günlük yedek alma

--------------------------------------------------------------------------
MSSQL KOMUT SATIRINDA YEDEKLEMEK İÇİN
BACKUP DATABASE [VT_2008] TO  DISK = N'f:\zbasic\yedek\1\VT_2008.bak' WITH NOFORMAT, NOINIT,  NAME = N'VT_2008-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10
GO

kaydettikten sonra batch dosyası yarat ve içine

sqlcmd -S \SQLEXPRESS -i "f:\zbasic\yedek\sqlyedek.sql"

---------------------------------------------------------------------------------

KOMUT SATIRINDAN MAIL YOLLAMAK İÇİN ONCE SM.VBS dosyası yarat gmail

' VBScript to Send Email Notification

' Author: https://helloacm.com

' Usage: cscript.exe sendemail.vbs email subject text

' 23/Dec/2014

Sub SendEmail(ToAddress, Subject, Text)

    Dim iMsg 

    Dim iConf

    Dim Flds

 

    Set iMsg = CreateObject("CDO.Message")

    Set iConf = CreateObject("CDO.Configuration")

 

    iConf.Load -1

    Set Flds = iConf.Fields

    

    With Flds

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@gmail.com"

        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senderpass"

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'stmp server

        .Update

    End With

 

    With iMsg

        Set .Configuration = iConf

        .To = ToAddress

        .From = "sender@gmail.com"

        .Subject = Subject

        .TextBody = Text

.AddAttachment  "C:\yedek.txt" 

        .Send

       

    End With

 

    Set iMsg = Nothing

    Set iConf = Nothing

End Sub

 

If WScript.Arguments.Count <> 3 Then

    WScript.Echo "Usage: cscript.exe " & WScript.ScriptFullName & " email subject text"

Else 

    SendEmail WScript.Arguments(0), WScript.Arguments(1), WScript.Arguments(2)

End If

kaydettikten sonra batch dosyası yarat ve 

cscript f:\zbasic\yedek\sm.vbs receiver@gmail.com YDK YDK

-----------------------------------------------------------------------------------------

KOMUT SATIRINDAN WINRARLA SIKIŞTIRMA PARÇALI OLARAK

"c:\program files\winrar\rar.exe" a -r -v15000k "C:\Program Files\Internet Explorer\yedek" "C:\Program Files\Internet Explorer\yedek.exe"

PARÇASIZ OLARAK

"c:\program files\winrar\rar.exe" a -r "C:\Program Files\Internet Explorer\yedek" "C:\Program Files\Internet Explorer\yedek.exe"

android studio get shared preferences

Yazmak için

if(jsonResult == 1){
    Intent intent = new Intent(MainActivity.this, LoginActivity.class);    intent.putExtra("USERNAME", enteredUsername);    intent.putExtra("MESSAGE", "You have been successfully login");
    SharedPreferences userDetails = getApplicationContext().getSharedPreferences("kullanicibilgisi", MODE_PRIVATE);    SharedPreferences.Editor edit = userDetails.edit();    edit.clear();    edit.putString("kullaniciadi", username.getText().toString());    edit.putString("parola", password.getText().toString());    edit.commit();

okumak için

protected void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);    setContentView(R.layout.activity_main);
    SharedPreferences userDetails = getSharedPreferences("kullanicibilgisi", MODE_PRIVATE);    String test1 = userDetails.getString("kullaniciadi", "");    String test2 = userDetails.getString("parola", "");    Toast.makeText(getApplicationContext(), test1, Toast.LENGTH_LONG).show();    Toast.makeText(getApplicationContext(), test2, Toast.LENGTH_LONG).show();