Tiny Sharp Red Pointer

Thursday, June 7, 2012

Cara Membuat Web Browser Sederhana menggunakan Visual Basic 6

Membuat aplikasi dengan menggunakan Visual Basic 6..ok, ini dia caranya..
Yang Dibutuhkan :1. Microsoft Visual basic 6, Download di sini (yang belum punya).
Step :
1. setelah di install, buka VB6nya, lalu akan muncul jendela New Project, lalu pilih Standard Exe..
2. Kita membutuhkan 6 Command button, 1 web browser, 1 text box, 1 progress bar..
3. Untuk menambahkan Command Button dan text box udah ada kok di sebelah kiri layar. nah gimana untuk nambahin web browser ama progress barnya..?

- nah untuk nambahin web browser, kita tekan tombol Ctrl + t, kemudian kita cari yang ada tulisan microsoft internet control, kemudian centang boxnya..
- nah sedangkan untuk nambahin progress barnya sama sepeti diatas, tekan Ctrl + t, kemudian cari yang ada tulisan Microsoft Windows Common Controls 6.0 (SP6), kemudian centang juga boxnya..
4. setelah semua sudah beres, tinggal kita menamakan masing masing command buttonnya.. perhatikan : - Untuk command 1, pada kotak properties pada kolom (Name) kita ubah CmdGo, dan pada kolom caption kita ubah GO!.
- Untuk command 2, pada kotak properties pada kolom (Name) kita ubah CmdBack, dan pada kolom caption kita ubah Back.
- Untuk command 3, pada kotak properties pada kolom (Name) kita ubah CmdRefresh, dan pada kolom caption kita ubah Refresh.
- Untuk command 4, pada kotak properties pada kolom (Name) kita ubah CmdHome, dan pada kolom caption kita ubah Home.
- Untuk command 5, pada kotak properties pada kolom (Name) kita ubah CmdForward, dan pada kolom caption kita ubah Forward.
- Untuk command 6, pada kotak properties pada kolom (Name) kita ubah CmdStop, dan pada kolom caption kita ubah Stop.
5. setelah diatas tadi dah beres, tinggal kita mengatur tata letaknya, saya saranin seperti buatan saya ini, tapi kalau mau kreativ sendiri itu yang lebih baik.. progress barnya ditaroh dibawah text box aja..


6. setelah penataan udah oke, sekarang hal vitalnya dari sebuah software, alias Coding...
OK, ini harus diperhatikan baik- baik...
a. Double click pada tombol back, maka akan keluar peng kodean..
hapus aja, lalu copy aja ini ke codingnya,..
Private Sub CmdBack_Click(Index As Integer)
WebBrowser1.GoBack
End Sub
b. Double Click pada tombol Refresh, lalu langkahnya seperti diatas,, kemudian masukin code ini.
Private Sub CmdRefresh_Click(Index As Integer)
WebBrowser1.Refresh
End Sub
c. Double Click pada tombol Forward, lalu langkahnya seperti diatas,, kemudian masukin code ini.
Private Sub CmdForward_Click(Index As Integer)
WebBrowser1.GoForward
End Sub
d. Double Click pada tombol stop, lalu langkahnya seperti diatas,, kemudian masukin code ini.
Private Sub CmdStop_Click(Index As Integer)
WebBrowser1.Stop
End Sub
e. Double Click pada tombol Go, lalu langkahnya seperti diatas,, kemudian masukin code ini.
Private Sub CmdGo_Click(Index As Integer)
WebBrowser1.Navigate (Text1.Text)
End Sub
f. Double Click pada tombol home, lalu langkahnya seperti diatas,, kemudian masukin code ini.
Private Sub CmdHome_Click(Index As Integer)
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
g. nah ini coding buat halaman awal yang kita buka saat membuka web browser kita, langsung copy aja ini di coding pagenya.
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.co.id")
End Sub
h. untuk coding progress barnya, copy aja ini.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub

i. dan ini coding untuk menampilkan judul halaman yang sedang dibuka pada tittle bar, dan untuk menamai browser kita.. copy code ini aja..

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
Form1.Caption = WebBrowser1.LocationName + " -Nama Browsermu"
End Sub

j. dan ini untuk menyesuaikan halaman browser sesuai dengan window ketika di maximize atau ketika di restore.
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = 9190
k. lalu double click pada form, pada properties box, kita cari yang ada tulisannya StartUp Position, kita ubah menjadi CenterScreen..
kemudian cari yang ada tulisannya windows state, kita ubah normal..
Ok selamat mencoba, kritik dan saran amat sangat saya perlukan..

Sumber : http://mahabima.blogspot.com/2012/05/cara-membuat-web-browser-sederhana.html

Hasil percobaan saya download

Sunday, June 3, 2012

Decompile/Compile apk android menggunakan apktool di linux

Instal dulu apktool di pc..
Cara installnya bisa lihat di sini.

Copy file framework-res.apk , twframework-res.apk , dan file apk yang akan di decompile di folder /home/user..

Buka terminal di linux ketik :
$ cd /home/user

instal framework-res.apk
$ apktool if framework-res.apk

maka akan ter instal di /home/user/apktool/1.apk

rename twframework-res.apk menjadi 2.apk dan copy ke folder /home/user/apktool

waktunya decompile..
contoh file yang akan di decompile mms.apk
$ apktool d mms.apk

maka akan ada folder baru /home/user/mms

tinggal mau di apain isinya..

setelah selesai kita compile
$ apktool b mms

tanpa .apk

ambil resources.arsc di folder mms/build/apk

extrak file mms.apk
masukan resources.arsc ke hasil extrak tadi dan replace file yg ada..
compres ektrakan tadi jadi mms.zip dan rename jadi mms.apk..