INTRIK: May 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