INTRIK: 2017

Tuesday, 30 May 2017

Trik ganti alamat blog tanpa takut kehilangan pengunjung pada alamat lama

Blogger.com memberikan kebebasan kepada penggunanya untuk mengganti alamat blog sebanyak-banyaknya alias tanpa batas. Mengganti alamat punya resiko yang sangat besar yaitu kehilangan 100% pengunjung karena semua index di mesin pencarian masih mengarah pada alamat blog yang lama. Sangat sayang apabila blog tersebut sudah punya banyak pengunjung. Saya sendiri juga pernah alami ini. Blog yang sebelumnya punya pengunjung rata-rata 300-500 perhari, setalah ganti alamat menjadi 0 sampai berhari-hari. sampai saya menemukan trik ini. berikut triknya :

1. Ganti alamat blog yang ingin diganti dengan alamat baru yang anda inginkan.

Pastikan alamat baru anda belum digunakan orang lain hingga berhasil mengganti.

2. Buat blog baru dan beri alamat dengan alamat blog lama anda yang sudah anda ganti sebelumnya. Misal : blog lama anda alamatnya "blogku.blogspot.co.id" ingin anda ganti dengan alamat yang baru "intr1k.blogspot.com", maka di langkah 1.. ganti alamat "blogku.blogspot.co.id" menjadi "intr1k.blogspot.co.id", kemudian buat blog baru dan isi alamat blog dengan "blogku.blogspot.co.id"

3. Dan saat ada pengunjung menuju alamat lama anda maka yang muncul sebenarnya adalah blog baru anda dengan alamat lama (blogku.blogspot.co.id)., dan anda tinggal mengalihkan / redirect ke alamat baru blog anda (intr1k.blogspot.co.id). begini caranya..

- loggin blogger.com
- Pilih blog baru anda (blog baru dengan alamat blog lama : blogku.blogspot.co.id)
- Masuk Tema > Edit HTML
- Cari kode <head>.
Untuk mempermudah pencarian.. pada kolom kode tekan "CTRL+F" maka akan kolom pencarian kecil di pojok kanan atas

- Copy kode berikut :

(ganti "http://topmovies-gallery.blogspot.com/" dengan alamat baru blog anda)

- Paste kode tersebut di bawah kode <head>

- Simpan Tema

Silahkan coba buka alamat lama anda atau cari di mesin pencarian alamat lama anda.. maka otomatis akan terarah ke alamat baru anda dan blog lama anda akan terbuka.

Demikian semoga bermanfaat.

Saturday, 6 May 2017

VBnet Script - Membuka txt file dan menampilkannya di textbox

Berikut ini adalah script bagaimana membuka file text (.txt) dan menampilknnya pada text box

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e as Syste.EventArgs) Handles Button1.Click
Dim OP As OpenFileDialog = New OpenFileDialog
OP,ShowDialog()
If OP.FileName <> "" Then
TextBox1.Text = IO.File.ReadAllText(OP.FileName.ToString)
End If
End Sub

Demikian, semoga bermanfaat..

Open file dialog VB.net

Untuk menentukan lokasi file kita membutuhkan open file dialog. Berikut ini adalah contoh sederhana memanggil open file dialog dalam visual basic net 2010.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim OD As OpenFileDialog = New OpenFileDialog

        '//memfilter type file
        OD.Filter = "Images | *.jpg; *.jpeg; *.bmp; *.png"
        '//
        OD.ShowDialog()
        If OD.FileName <> "" Then
              Label2.Text = OD.FileName.ToString
        End If
End Sub

Friday, 5 May 2017

Posting status Facebook dengan gambar menggunakan web browser VB.net 2010

Di postingan sebelumnya sudah dibahas cara membuat robot auto post facebook berbasis web browser VB.net. Kali ini saya akan membahas bagaimana menyertakan gambar/foto pada postingan tersebut.
Saya anggap anda sudah login facebook. Jika anda sudah mempraktekkan membuat aplikasi robot FB pada postingan saya sebelumnya anda bisa login di aplikasi tersebut, jika belum anda bisa login terlebih dahulu melalui Internet explorer. Karena di sini saya akan memberikan gambaran garis besarnya saja untuk bisa anda tambahkan di project yang sudah anda buat sebelumnya.
Berikut codenya :

Public Class Form1
    Dim IDWb, IDTimer As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If WebBrowser1.DocumentText.Contains("view_photo") Then
            '// klik menu upload foto
            WebBrowser1.Document.GetElementById("view_photo").InvokeMember("click")
            '//

            '//memberikan sinyak aksi webbrowser
            IDWb = "Upload"
            '//
        End If

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If IDWb = "Terkirim" Then
            IDWb = ""
            MsgBox("Done")
            WebBrowser1.Navigate("http://m.facebook.com")

        End If

        If IDWb = "Kirim" Then
            If WebBrowser1.DocumentText.Contains("view_post") Then
                '//test status
                WebBrowser1.Document.GetElementById("xc_message").SetAttribute("value", TextBox2.Text)
                '//

                '//klik kirim
                WebBrowser1.Document.GetElementById("view_post").InvokeMember("click")
                '//
                IDWb = "Terkirim"
            End If
        End If

        If WebBrowser1.DocumentText.Contains("file1") Then
            If IDWb = "Upload" Then
                '//memberikan sinyal aksi timer
                IDTimer = "GetPicUrl"
                '//

                '//menghentikan aksi upload
                IDWb = ""
                '//
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '//membuka facebook
        WebBrowser1.Navigate("https://m.facebook.com")
        '//
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If IDTimer = "GetPicUrl" Then
            Static a As Integer
            a = a + 1
            If a = 3 Then
                If WebBrowser1.DocumentText.Contains("file1") Then
                    '//memaksa aplikasi ini untuk terfokus berada di paling atas
                    AppActivate(System.Diagnostics.Process.GetCurrentProcess.Id)
                    '//

                    '// membuka open dialog memilih lokasi foto yang akan diupload
                    WebBrowser1.Document.GetElementById("file1").InvokeMember("click")
                    '//
                Else
                    a = 0
                End If
            End If

            If a > 3 Then
                '//memasukkan lokasi url foto ke dalam open file dialog
                SendKeys.Send(TextBox1.Text)
                SendKeys.Send(Chr(13))
                '//
            End If
            If a > 8 Then
                '//klik pratinjau foto
                WebBrowser1.Document.GetElementById("add_photo_done").InvokeMember("click")
                '//
                IDWb = "Kirim"
                a = 0
                IDTimer = ""
            End If
        End If
    End Sub
End Class

INGAT !! anda harus login terlebih dahulu di Internet Explorer, jika tidak maka code di atas tidak akan berjalan.

Download VB.net Project

Wednesday, 5 April 2017

Auto post facebook berbasis web browser VB.Net 2010

Berikut ini adalah trik membuat robot auto post facebook sederhana berbasis web browser Visual Basic 2010
1. Buat new project
2. Sisipkan item berikut dan atur properties :
    - Label1 : text = "User name"
    - Label2 : text = "Password"
    - Label3 : text = "Delay"
    - Label4 : text = "Left time for next post"
    - Label5 : text = "Target"

    - Textbox1 : enabled = false > untuk user name
    - Textbox2 : enabled = false > untuk pasword
    - Textbox3 : Multiline = true > untuk postingan
- Textbox4 : text = 10 (bisa diubah) > untuk target postingan
    - Textbox5 : text = 120 (bisa diubah) > untuk delay antar postingan
    - Groupbox1 : enabled = false, text = "Post"

    - Picturebox1 : visible = false
    - Webbrowser1 : visible =false
    - Timer1 : Enabled = true
    Atur letak sesuai selera anda

Code :

Public Class Form1

    Dim IdWB1, UrlOut, IdTimeNow As String
    Dim IdPause, IdDelay As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        IdWB1 = "Ready"
        WebBrowser1.Navigate("https://m.facebook.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If IdWB1 = "Posted" Then
            IdWB1 = ""
            If TextBox4.Text < 1 Then
                If Button2.Text = "Stop" Then
                    Button2_Click(sender, e)
                    MsgBox("Task completed")
                End If
                Exit Sub
            End If
            IdTimeNow = TimeOfDay & " " & Today
            IdDelay = TextBox5.Text
            TextBox4.Text = TextBox4.Text - 1
            IdPause = 0
        End If
        If IdWB1 = "Logout" Then
            If Not WebBrowser1.DocumentText.Contains("logout.php") Then
                TextBox1.Enabled = True
                TextBox2.Enabled = True
                Button1.Enabled = True
                Button3.Enabled = False
                PictureBox1.Visible = False
                GroupBox1.Enabled = False
            End If
        End If
        If IdWB1 = "Ready" Then
            TextBox1.Enabled = True
            TextBox2.Enabled = True
            Button1.Enabled = True
        End If
        If IdWB1 = "LoginOK" Or WebBrowser1.DocumentText.Contains("logout.php") Then
            TextBox1.Enabled = False
            TextBox2.Enabled = False
            Button1.Enabled = False
            GroupBox1.Enabled = True
            Try
                PictureBox1.Visible = True
                PictureBox1.ImageLocation = "https://graph.facebook.com/" & WebBrowser1.Document.GetElementById("target").GetAttribute("value") & "/picture?type=small"
                Dim Pg As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
                For Each Elm As HtmlElement In Pg
                    If Elm.GetAttribute("href").Contains("logout.php") Then
                        Button3.Text = Elm.InnerText
                        Dim result As String() = Button3.Text.Split(New String() {"("}, StringSplitOptions.None)
                        For Each s As String In result
                            If s.Contains(")") Then
                                Me.Text = "AutoFB - " & Strings.Left(s, s.Length - 1)
                            End If
                        Next
                        Button3.Enabled = True
                        UrlOut = Elm.GetAttribute("href")
                        Exit For
                    End If
                Next
            Catch ex As Exception

            End Try

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then Exit Sub
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)
        WebBrowser1.Document.GetElementById("login").InvokeMember("click")
        IdWB1 = "LoginOK"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate(UrlOut)
        IdWB1 = "Logout"
    End Sub
    Sub Posting()
        WebBrowser1.Document.GetElementById("xc_message").SetAttribute("value", TextBox3.Text & vbCrLf & TextBox4.Text)
        IdWB1 = "Posted"
        WebBrowser1.Document.GetElementById("view_post").InvokeMember("click")
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Start" Then
            IdPause = 0
            Button2.Text = "Stop"
            IdDelay = TextBox5.Text
            IdTimeNow = TimeOfDay & " " & Today
            If TextBox5.Text = 0 Then
                Button2.Text = "Start"
                IdTimeNow = ""
            End If
            Posting()
        Else
            Button2.Text = "Start"
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Button2.Text = "Stop" Then
            If IdPause = 0 Then Label4.Text = "Left time for next post : " & TextBox5.Text - DateDiff("s", IdTimeNow, TimeOfDay & Today)
            If IdDelay - DateDiff("s", IdTimeNow, TimeOfDay & Today) = 0 Then
                IdDelay = 0
                IdPause = 1
                Posting()
            End If
        End If

    End Sub
End Class

*Sesuaikan atau tambahkan fungsi lain sesuai kebutuhan. SEMOGA BERMANFAAT !

Download VB Full Project

Tuesday, 4 April 2017

Tampilkan/sembunyikan file dalam disk

Apakah anda pernah mengalami tiba-tiba file dalam flash disk anda hilang tanpa sisa tanpa tau penyebabnya ? jangan khawatir.. kemungkinan besar file-file anda tersebut masih utuh hanya tersembunyi oleh virus oleh virus. berikut langkah mengatasinya :

- Menampilkan / menyembunyikan semua file

-Menampilkan / menyembunyikan satu file atau folder

Demikian.. semoga bermanfaat..