Membuat hotspot server dengan mikrotik

Router Mikrotik memiliki banyak fitur, salah satu fitur yang cukup populer dan banyak digunakan adalah Hotspot. Kita sering menemukan sinyal internet wifi yang di password. Jadi jika ingin mengakses wifi tersebut harus tahu password-nya terlebih dahulu. Namun berbeda dengan Hotspot, kebanyakan wifi hotspot tidak di password dan semua user bisa connect dan akan diarahkan ke halaman login di Web Browser. Tiap user bisa login dengan username dan password yang berbeda-beda. Metode semacam inilah yang sering kita temukan di Kampus, wifi Cafe, Sekolah, Kantor, maupun area publik lainnya.
Sebenarnya hotspot tidak hanya bisa diaplikasikan untuk jaringan wireless saja, namun juga bisa untuk jaringan kabel. Kelebihan Hotspot adalah kita dapat mengkonfigurasi jaringan yang hanya bisa digunakan dengan username dan password tertentu. Kita juga dapat melakukan manajemen terhadap user-user tersebut. Misalnya, mengatur durasi total penggunaan hotspot per user, membatasi berapa besar data yang dapat di download tiap user, mengatur konten apa saja yang boleh diakses user, dll. 

Hotspot merupakan fitur gabungan dari berbagai service yang ada di Mikrotik, antara lain :

• DHCP server, digunakan untuk memberi layanan IP otomatis ke user

• Firewall NAT, untuk mentranslasi IP user ke IP yang bisa dikenali ke internet

• Firewall filter, untuk memblock user yang belum melakukan login

• Proxy, untuk memberikan tampilan halaman login

• dan sebagainya

Bagaimana langkahnya..?? Bisa dijabarkan sebagai berikut.

Disini saya tidk menggunaan pengaturan hotspot secara instan yang cuma clik clik langsung jadi, karna pernah mengalami yang saya rasa kurang sesuai dengan keinginan jadi setting hotspot servernya secara manual.

Masuk ke winbox pilih ip>hotspot

1. Yang akan ita setting mulai dari menu tab ke 4 lalu ke menu tab 1 biar lancar sesuai keinginan. kita pilih dulu menu tab ke 4 yaitu User Profiles, kita tambahkan profile baru lalu di setting seperti berikut atau (sesuaikan keinginan anda)

 

2. Pindah ke menu tab Users. Kita tambahkan nama user baru yang akan terhubung ke hotspot nantinya.

nb: disini saya mencoba membatasi profile test hanya 5Mbps

3. Pindah lagi ke menu tab kedua yaitu Server Profiles

Masih di Hotspot Server pilih di tab login kita atur yang untuk login by 

nb: Trial uptime disini penggunaan trial saya batasi cuma 5 menit

4. Yang terahir yaitu di menu tab pertama Server

Untuk pengaturan di hotspot sudah siap. Tinggal kita setting hotspot address yang sudah kita setting di menu tab Server Profile tadi yang address 192.168.1.1 dan nama dnsnya tristohotspot.net.id tadi kita tambahkan di dns static. Masuk ke menu ip>DNS>klik static lalu kita masukan sesuai ip dan nama yang kita buat di Server Profile tadi.

 
Selanjutnya kalau sudah merasa sudah siap kita akan mencoba mengkoneksikan laptop ke wifi hotspot yang sudah kita buat. Kemudian buka web browser dan akses website sembarang (pastikan Anda mengakses web yang menggunakan protokol http, maka Anda akan dialihkan ke halaman login hotspot seperti pada gambar berikut ini: 

Untuk mencobanya, silahkan coba login dengan username dan password yang telah di buat pada langkah sebelumnya. Jika berhasil login maka akan membuka halaman web yang diminta dan membuka popup halaman status Hotspot.

Semoga bermanfaat.

Read More

Cara blok semua situs kecuali situs tertentu di mikrotik

Berawal dari permintaan client untuk memblokir semu situs dan hanya situs tertentu yang di bolehkan, yang dibolehan hanya , bpjs, pajak, gmail,yahoo,dan beberapa situs tertentu yang di rekomendasikan. Akhirnya mulailah saya browsing dan googling. Setelah beberapa langkah dicoba sepertinya langkah berikut ini yang cukup efektif.

Simak langkah-langkahnya Cara blok semua situs kecuali situs tertentu di mikrotik berikut.
Pertama yang harus dlikakukan adalah membuat rule pada  IP > Firewall > Layer 7 Protocols. Buat baru dengan klik tanda + nama block-website (Atau Terserah anda) dan Regexp nya : 

1. ip>firewall>layer7 protocol
Regexp:

^.*$

Nb: script {^.*$} bertujuan untuk memblokir semua situs

2. masih di layer7protocol tambahkan 1 lagi untuk situs yang di izinkan klik  tanda + lagi nama open-website (atau terserah anda) dan regexp nya :

^.+(bpjs|pajak|google|gmail|yahoo|dan situs lainnya).*$

Nb: daftar diatas adalah situs yang di bolehkan untuk dibuka

Jika sudah klik ok

sekarang kita masuk ke filter rulenya untuk yang di perbolehkan di akses

ip>firewall filter>

atau dengan script berikut

/ip firewall filter add chain=forward src-address=192.168.1.7 protocol=tcp  layer7-protocol=bleh-website action=accept

Nb: ip address 192.168.1.7 sesuaikan dengan ip local komputer atau bisa keseluruhan dengan membuat ip 192.168.1.0/24.

Lalu tambahkan 1 lagi untuk yang kita blok semua website

 

/ip firewall filter add chain=forward src-address=192.168.1.7 protocol=tcp  layer7-protocol=blok-website action=drop

Untuk yang kedua hampir sama dengan yang pertama cuma bedanya di layer7 protocol dan actionnya kalau yang pertama accept yang kedua kita drop

Hasilnya seperti ini

 

Sudah selesai tnggal di coba untuk hasilnya.

Semoga bermanfaat.

Read More

Cara Memisahkan 2 ISP Pada Mikrotik

Cara Memisahkan 2 ISP pada Mikrotik – Kali ini kita akan mencoba memisahkan 2 ISP atau 2 jalur line internet untuk 2 LAN yang berbeda. Lab ini dibuat karena ada yang bertanya apakah bisa memisahkan 2 Koneksi yang ada dikantor nya untuk 2 LAN yang berbeda.Topologi nya kurang lebih seperti ini gambar dibawah ini

Konfigurasi dasar mikrotik saya anggap sudah bisa semua, langsung ke cara memisahkan trafik nya saja

Cara Memisahkan 2 ISP Pada Mikrotik

Seting terlebih dahulu IP address nya (sesuikan IP Address dengan jaringan milik anda)

Kita buat ip address dahulu untuk memisahkan antara 2 ISP

/ip addressadd address=192.168.20.44/24 interface=ether1-ISP1 network=192.168.20.0add address=192.168.30.44/24 interface=ether5-ISP2 network=192.168.30.0add address=10.0.3.1/24 interface=ether3-LAN1 network=10.0.3.0add address=10.0.4.1/24 interface=ether4-LAN2 network=10.0.4.0

Buat mangle

/ip firewall mangle

add action=mark-routing chain=prerouting new-routing-mark=ISP1 passthrough=no \

src-address=10.0.4.0/24

add action=mark-routing chain=prerouting new-routing-mark=ISP2 passthrough=no \

src-address=10.0.3.0/24

Buat NAT untuk masing masing ISP

/ip firewall nat

add action=masquerade chain=srcnat out-interface=ether1-ISP1

add action=masquerade chain=srcnat out-interface=ether5-ISP2

Buat route police

/ip route rule

add dst-address=10.0.4.0/24 table=main

add dst-address=10.0.3.0/24 table=main

add dst-address=192.168.20.0/24 table=main

add dst-address=192.168.30.0/24 table=main

add src-address=192.168.20.0/24 table=ISP1

add src-address=192.168.30.0/24 table=ISP2

add routing-mark=ISP1 table=ISP1

add routing-mark=ISP2 table=ISP2

Terakhir kita buat default gateway

/ip route

add distance=1 gateway=192.168.30.1 routing-mark=ISP2

add distance=1 gateway=192.168.20.1 routing-mark=ISP1

add distance=1 gateway=192.168.20.1

Nah Selesai deh tinggal kita uji apakah sudah benar sesuai yang kita harapkan, pengujian menggunakan trace route pada masing-masing LAN, jika sobat semua menggunakan windows bisa dengan cara dibawah ini kemudian tekan Enter.

Nah, sekarang coba trace route pada masing-masing LAN, Pada LAN 1 hasil nya seperti berikut


Pada LAN 2 hasil nya seperti berikut

Semoga bermanfaat.

Read More

Membuat Angka Terbilang Dengan VB6.0

Senang rasanya bisa berbagi lagi buat temen-temen karena udah lama gak posting, kali ini tentang cara Menampilkan Angka Terbilang dengan Visual Basic. Maksud angka terbilang disini adalah penulisan angka-angka dengan huruf misalnya Rp. 1.500 jadi (Seribu Lima Ratus Rupiah) tapi tips kali ini hanya untuk penulisan bilangan genap saja dan belum bisa digunakan untuk bilangan decimal atu bilangan berkoma, untuk menghemat waktu dan jangan capek ngetiknya (udah pasti neh) lanjut aja kita dengan cara pembuatan coding nya, nah bagi yang berkenan silakan ikuti langkah-langkah berikut


Persiapan yang dilakukan
Buat Project Baru Standart Exe
Tambahkan 1 buah TextBox dan 1 Label
Tambahkan 1 buah Module

’Ketik Coding dibawah ini pada module

Option Explicit

Public Const vbKeyDecPt = 46

Public Function ConvertirEnText(ValNum As Double) As String

Static Unites(0 To 9) As String

Static Dixaines(0 To 9) As String

Static LesDixaines(0 To 9) As String

Static Milliers(0 To 4) As String

Dim i As Integer

Dim nPosition As Integer

Dim ValNb As Integer

Dim LesZeros As Integer

Dim strResultat As String

Dim strTemp As String

Dim tmpBuff As String

Unites(0) = "nol"

Unites(1) = "satu"

Unites(2) = "dua"

Unites(3) = "tiga"

Unites(4) = "empat"

Unites(5) = "lima"

Unites(6) = "enam"

Unites(7) = "tujuh"

Unites(8) = "delapan"

Unites(9) = "sembilan"

Dixaines(0) = "sepuluh"

Dixaines(1) = "sebelas"

Dixaines(2) = "dua belas"

Dixaines(3) = "tiga belas"

Dixaines(4) = "empat belas"

Dixaines(5) = "lima belas"

Dixaines(6) = "enam belas"

Dixaines(7) = "tujuh belas"

Dixaines(8) = "delapan belas"

Dixaines(9) = "sembilan belas"

LesDixaines(0) = ""

LesDixaines(1) = "sepuluh"

LesDixaines(2) = "dua puluh"

LesDixaines(3) = "tiga puluh"

LesDixaines(4) = "empat puluh"

LesDixaines(5) = "lima puluh"

LesDixaines(6) = "enam puluh"

LesDixaines(7) = "tujuh puluh"

LesDixaines(8) = "delapan puluh"

LesDixaines(9) = "sembilan puluh"

Milliers(0) = ""

Milliers(1) = "ribu"

Milliers(2) = "juta"

Milliers(3) = "milyard"

Milliers(4) = "triliyun"

On Error GoTo NbVersTexteError

strTemp = CStr(Int(ValNum)) 'Untuk Konversi Angka yang di format ke default

For i = Len(strTemp) To 1 Step -1

ValNb = Val(Mid$(strTemp, i, 1))

nPosition = (Len(strTemp) - i) + 1

Select Case (nPosition Mod 3)

Case 1

LesZeros = False

If i = 1 Then

If ValNb > 1 Then

tmpBuff = Unites(ValNb) & " "

Else

tmpBuff = ""

End If

ElseIf Mid$(strTemp, i - 1, 1) = "1" Then

tmpBuff = Dixaines(ValNb) & " "

i = i - 1

ElseIf ValNb > 0 Then

tmpBuff = Unites(ValNb) & " "

Else

LesZeros = True

If i > 1 Then

If Mid$(strTemp, i - 1, 1) <> "0" Then

LesZeros = False

End If

End If

If i > 2 Then

If Mid$(strTemp, i - 2, 1) <> "0" Then

LesZeros = False

End If

End If

tmpBuff = ""

End If

If LesZeros = False And nPosition > 1 Then

tmpBuff = tmpBuff & Milliers(nPosition / 3) & " "

End If

strResultat = tmpBuff & strResultat

Case 2

If ValNb > 0 Then

strResultat = LesDixaines(ValNb) & " " & _

strResultat

End If

Case 0

If ValNb > 0 Then

If ValNb > 1 Then

strResultat = Unites(ValNb) & " ratus " & _

strResultat

Else

strResultat = "seratus " & strResultat

End If

End If

End Select

Next i

If Len(strResultat) > 0 Then

strResultat = UCase$(Left$(strResultat, 1)) & _

Mid$(strResultat, 2)

End If

EndNbVersTexte:

ConvertirEnText = strResultat & " rupiah"

Exit Function

NbVersTexteError:

strResultat = "Une Erreur !"

Resume EndNbVersTexte

End Function

Public Function AngkaTerbilang(Counter As Double) As String

On Error Resume Next

Dim A As Single

AngkaTerbilang = ConvertirEnText(Counter)

A = Len(ConvertirEnText(Counter))

If Mid(ConvertirEnText(Counter), 1, 4) = "Ribu" Then

AngkaTerbilang = "Se" + Mid(ConvertirEnText(Counter), 1, A)

End If

If Mid(ConvertirEnText(Counter), 1, 4) = "Juta" Then

AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)

End If

If Mid(ConvertirEnText(Counter), 1, 7) = "" Then

AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)

End If

If Mid(ConvertirEnText(Counter), 1, 7) = "Milyard" Then

AngkaTerbilang = "Satu " + Mid(ConvertirEnText(Counter), 1, A)

End If

End Function

’Ketik Coding dibawah ini pada Form

Option Explicit

Private Sub Text1_Change()

If Text1 <> "" Then

Text1.Text = Format(Text1, "#,##0")

Text1.SelStart = Len(Text1)

Label1.Caption = AngkaTerbilang(Text1)

Label1.Caption = StrConv(Label1, vbProperCase)

Else

Label1.Caption = ""

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then

Exit Sub

Else

KeyAscii = 0

End If

End Sub

Nah coba jalankan program atau tekan F5 dan isi beberapa angka pada Text1 akan secara otomatis angka terbilangnya akan ditampilkan pada Label1.

Mudah-mudahan ada mampaat nya bagi kita semua, dan jangan lupa beri komentar nya yah … sebelumnya saya ucapkan terima kasih ... wassalam

Read More

Membuat Auto Complete Pada Combobox VB6.0

Pada postingan kali ini saya akan membahas kembali mengenai Visual Basic yaitu Membuat Auto Complete pada Combo Box, maksud Auto Complete disini adalah Melengkapi Teks secara Otomatis pada saat sedang melakukan pengetikan ke data yang mendekati atau yang dinginkan, dengan catatan apabila data tersebut ada pada list data Combo Box tersebut.

Tip ini sangat berguna apabila menggunakan combobox yang di dalamnya terdiri atas ratusan bahkan ribuan data. User (pengguna/pemakai program) akan kesulitan jika harus memilih satu per satu menggunakan scroll combobox ke bawah hingga data yang diinginkan ketemu. Dengan adanya tip ini, user cukup hanya mengetikkan beberapa karakter awal, dan program akan otomatis melengkapinya, sehingga tidak perlu mengetik sampai akhir. Nah bagi yang berkenan untuk Tip ini silahkan ikuti langkah-lah berikut

• Buatlah Project Baru Standart Exe
• Tambahkan 1 buah ComboBox Style : Dropdown Combo
• Tambahkan 1 buah Module

'Ketik Coding berikut pada Module

Option Explicit

Const CB_FINDSTRING = &H14C

Public Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" (ByVal hwnd As Long, _

ByVal wMsg As Long, ByVal wParam As Long, _

lParam As Any) As Long

Public Enum EnumKarakter

Asli = 0

Ubah = 1

End Enum

Public Function AutoComplete( _

cbCombo As ComboBox, _

sKeyAscii As Integer, _

Optional bUpperCase As Boolean = True, _

Optional cCharacter As EnumKarakter = Asli) _

As Integer

Dim lngFind As Long, intPos As Integer

Dim intLength As Integer, tStr As String

With cbCombo

If sKeyAscii = 8 Then

If .SelStart = 0 Then Exit Function

.SelStart = .SelStart - 1

.SelLength = 32000

.SelText = ""

Else

intPos = .SelStart

tStr = .Text

If bUpperCase = True Then

.SelText = UCase(Chr(sKeyAscii))

Else

.SelText = (Chr(sKeyAscii))

End If

End If

lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, _

ByVal .Text)

If lngFind = -1 Then

Exit Function

Else

intPos = .SelStart

intLength = Len(.List(lngFind)) - Len(.Text)

If cCharacter = Ubah Then

.SelText = .SelText & Right(.List(lngFind), _

intLength)

Else

.Text = .List(lngFind)

End If

.SelStart = intPos

.SelLength = intLength

End If

End With

End Function

' Ketik Coding diberikut pada Form 

Option Explicit

Private Sub Combo1_KeyPress(KeyAscii As Integer)

KeyAscii = AutoComplete(Combo1, KeyAscii, False, Asli)

End Sub

Private Sub Form_Load()

Call AddData

End Sub

Private Sub AddData()

With Combo1

.Clear

.AddItem "Califormia"

.AddItem "Colorado"

.AddItem "Connecticut"

.AddItem "Delaware"

.AddItem "Florida"

.AddItem "Georgia"

.AddItem "Terserah"

End With

End Sub

Kemudian Run (jalankan) Program atau tekan F5, lalu pada combobox coba ketik huruf C , maka secara Otomatis teks pada combobox akan menjadi California. Semoga Tip ini ada mamfaat nya bagi kita semua, dan jangan lupa nitip komennya ya, terimakasih sebelumnya ... salam

Read More

MEMBUAT FORM TRANSPARAN PADA VB6.0

Tips kali ini adalah bagaimana Membuat Form Transparantdengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini
Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

• Buat Project Baru Standart Exe

Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)

End Sub

Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

Read More

HACK TASKBAR WINDOWS MENGGUNAKAN VB6.0

Masih seputar Tips - Trik Visual Basic tentunya, kali ini saya coba membahas tentang Hack Taskbar Windows yaitu bagaimana caranya Menghilangkan Taskbar, Menghilangkan Button Start serta cara Menghilangkan Waktu / Tanggal yang ada pada Sistray Area tapi sobat tidak perlu kwatir pasti ada pengembalian atau reset kedefault semula. Mungkin sobat masih ngambang tentang penjelasan saya diatas, dengan gambar dibawah ini mudah-mudahan sobat bisa paham maksud dari Tips - Trik ini.


Okelah kalau begitu saya akan lanjutkan tentang coding nya bagi yang tertarik silakan ikuti langkah - langkah berikut ...

• Tambahkan tiga buah CommandButton diproject, masing-masing dengan nama : cmdTaskbar, cmdStartButton dan cmdSystemClock
• Tambahkan satu buah Module

' Tempatkan Coding dibawah ini pada Module

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long

Public TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As Boolean

Public Const StartButtonID = &H130

Public Const SystemClockID = &H12F

Public Const SW_HIDE = 0

Public Const SW_SHOW = 5

Public Sub HideTaskBar()

Dim wClassName As String

Dim hwndTaskbar As Long

wClassName = "Shell_TrayWnd"

hwndTaskbar = FindWindow(wClassName, vbNullString)

If TaskBarStyle = False Then

Form1.cmdTaskbar.Caption = "Show Taskbar"

ShowWindow hwndTaskbar, SW_HIDE

TaskBarStyle = True

Else

Form1.cmdTaskbar.Caption = "Hide Taskbar"

ShowWindow hwndTaskbar, SW_SHOW

TaskBarStyle = False

End If

End Sub

Public Sub HideStartButton()

Dim wClassName As String

Dim hwndTaskbar As Long, hwndStartbutton As Long

wClassName = "Shell_TrayWnd"

hwndTaskbar = FindWindow(wClassName, vbNullString)

hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)

If StartButtonStyle = False Then

Form1.cmdStartButton.Caption = "Show Start Button"

ShowWindow hwndStartbutton, SW_HIDE

StartButtonStyle = True

Else

Form1.cmdStartButton.Caption = "Hide Start Button"

ShowWindow hwndStartbutton, SW_SHOW

StartButtonStyle = False

End If

End Sub

Public Sub HideSystemClock()

Dim wClassName As String

Dim hwndTaskbar As Long, hwndSystemClock As Long

wClassName = "Shell_TrayWnd"

hwndTaskbar = FindWindow(wClassName, vbNullString)

hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)

If SystemClockStyle = False Then

Form1.cmdSystemClock.Caption = "Show System Colock"

ShowWindow hwndSystemClock, SW_HIDE

SystemClockStyle = True

Else

Form1.cmdSystemClock.Caption = "Hide System Clock"

ShowWindow hwndSystemClock, 5

SystemClockStyle = False

End If

End Sub

Public Sub SetToDefault()

TaskBarStyle = True

StartButtonStyle = True

SystemClockStyle = True

HideTaskBar

HideStartButton

HideSystemClock

End Sub

' Tempatkan Coding dibawah ini pada Form Project

Private Sub cmdStartButton_Click()

HideStartButton

End Sub

Private Sub cmdSystemClock_Click()

HideSystemClock

End Sub

Private Sub cmdTaskbar_Click()

HideTaskBar

End Sub

Private Sub Form_Load()

cmdTaskbar.Caption = "Hide TaskBar"

cmdStartButton.Caption = "Hide Start Button"

cmdSystemClock.Caption = "Hide System Clock"

End Sub

Private Sub Form_Unload(Cancel As Integer)

SetToDefault

End Sub

Mudah - mudahan Tips ini ada mamfaat nya bagi kita semua dan VB Developer khususnya, semoga tidak digunakan untuk menjahili teman atau orang lain. Kalau ada kesempatan dan waktu kita akan ketemu dengan Tips - Trik berikutnya .. terima kasih.

Read More

Cara Membuat dan Menghapus Folder dengan VB6.0

Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.
Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini
Ketik Coding Berikut ini pada Module Project

Option Explicit
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function
'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
sPath = NewDirectory
If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If
iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub
'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub

Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini
'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")
'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")

Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.

Read More

Contoh Encrypt dan Decrypt Teks dengan Visual Basic 6.0

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual Basic

Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)
contoh :

EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨
DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba

Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini
Persiapan yang harus dilakukan
Buat Project Baru Standart Exe
3 Buah TextBox (Text1,Text2, Text3)
2 Buah CommandButton (Command1, Command2)
2 Buah Label
1 buat Moudule

Design form seperti Gambar dibawah ini
Contoh Design Project Form Engcrypt - Descrypt

Tempat Coding dibawah ini pada Module
Option Explicit

#Const CASE_SENSITIVE_PASSWORD = False
'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If
'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function
Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
#If Not CASE_SENSITIVE_PASSWORD Then
'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)
#End If

'Decrypt string

If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Ketik Coding dibawah ini pada Form Project

Option Explicit
Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub
Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub

Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ...

Semoga Bermanfaat

Read More