[VB6] Source Code Connection test

Advanced; IP port scanner, Connection Test, Send Data to server/receive, Find your IP address, etc; Details: Below This program is made to test connections and scan ports. What does this mean? Testing connections can be very useful if your trying to find out if you or a friend as a firewall that might be blocking your connections. You can also connect to websites. If you can't connect to a friend, you could use the Port scanner to check and see if the port he is listening on is open or not. If it doesn't show up then he most likely has a firewall on, or something else is blocking the connection. You also can pick the Speed for your Port Scanner. And you may run both the Connection test and the Port Scanner on the same time. When you connect to a host you can also send it data(text), and you can also receive data. This helped me make my mIRC bot, by connecting to the servers with it and sending it different commands and looking at what I recieved from the mIRC servers. The program also finds your External(Internet) and Local IP(LAN) address. I am sure many of you can find some very usefull ways to putting this program to use. This code is made for Beginners, code is simple. Hope you like it, Enjoy :D



Sumber: vbopensource.blogspot.com

[VB6] Source Code Remote PC Tool

Digunakan Untuk Jaringan Administrasi, Sistem Pengendalian dan Hacking VIA setiap jenis jaringan ...
Alat Termasuk [
1 - Multi Koneksi Mnager Channle.
2 - Buku Alamat Bersih.
3 - MsgBox Remote / Teks Matrix & Normal Chat / Half Duplex Voise Chat / Board Putih / Minesweeper Game Mendeteksi.
4 - Fungsi Lengkap Remote File Browser & Manager (Download & Upload File).
5 - Multi-threaded Remote Download Manager.
6 - Lengkap Fungsi Remote Proses dan Aplikasi Mnager Jauh lebih kuat daripada The Normal Windows Task Mnager.
7 - Remote Registry Manager [regedit.exe] tersebut.
8 - Beberapa fungsi Interbet termasuk seperti mengambil sejarah sistem remoted.
9 - Controller Clipboard Remoted.
10 - Device manager Massa termasuk monitor Strong mengendalikan.
11 - Dari cource OS windows fungsi kontrol termasuk seperti shutdown, restart ... dll.
12 - Editor Server Wikipedia.
13 - Firewall diembed.
14 - Banyak Jaringan alat-alat seperti "X-Ping, X-Router, X-Whois, X-Port Scanner ,....).
15 - X-Editor masih dalam pembangunan.
16 - Bantuan & Dokumentasi juga tidak selesai. ]
[Catatan]
1 - Menangani-X dibangun pada protokol aplikasi-layer baru bernama BBP (Byte Berbasis Protokol).
2 - Transmisi Data tidak dienkripsi dan tidak dikompresi sampai sekarang.
3 - Juga saya sedang mencari sekarang untuk mendukung LAN Hacking




Sumber: vbopensource.blogspot.com

[VB6] Source Code Credit Card Validate and Generate Number

Program ini  Credit Card Validate and Generate Number berfungsi untuk menghasilkan nomor kartu kredit yang valid untuk Visa, Mastercard, American Express dan Discover, menggunakan rumus LUHN untuk verifikas.
Generator acak menggunakan 11 bank untuk Visa, 4 untuk american mengungkapkan, 1 untuk mastercard dan 1 untuk menemukan. (Lebih lanjut dapat menambahkan komentar check in Validate.frm). Program ini tidak ditulis untuk menipu tapi untuk tujuan pendidikan saja, untuk menunjukkan bagaimana rumus sederhana LUHN ini. PLEASE USE IT AS memang ditujukan - TUJUAN PENDIDIKAN. Setelah nomor acak telah dipilih itu kemudian verifikasi, dan akan terus mengevaluasi angka acak sampai telah memilih angka yang benar (Membawa sekitar 1 hingga 2 detik..) Opsi memvalidasi memungkinkan Anda untuk memasukkan nomor dan memverifikasi sebagai salah satu valid atau tidak valid.




Sumber: vbopensource.blogspot.com

[VB6] Source Code Karaoke Player

SourceCode Karaoke Player
Karaoke Player ini memiliki fungsi kontrol masing-masing dari 16 jalur yang independen. Ini mengubah instrumen di setiap Kemungkinan saluran untuk mengubah nada musik (transpose) Bekerja dengan Play It Daftar menggunakan DiretcX 7 



Sumber: vbopensource.blogspot.com

[VB6] Source Code Sistem Informasi Penjualan (MySQL)

Source Code Sistem Informasi Penjualan (Mysql)
Aplikasi ini belum jadi 100% , yah ini baru permulaan saja kok, tp mudah-mudahan berguna...he..he..hee.
untuk database pilihan jatuh pada MySQL dan untuk koneksinya sendiri saya menggunakan VB API.
MsgBox dalam bahasa indonesia sudah saya aplikasikan disini.





 Sumber: vbopensource.blogspot.com

[VB] Program Stok Barang Sederhana

Crowja-Coderz

Kopas source code nya yuuk...

[VB] Program Teknik Sederhana Zoom Dan Tile Gambar

Zoom ? Tile ? Makanan apa tuh ?, zoom adalah salah satu jenis makanan yang terbuat dari singkong
seperti gaplek, tape, peuyeum!. Doyan banget makanan kayak gitu, maklum anak desa! makan nasi saja
5 hari sekali. Ok, kalo menurut ilmu bahasa inggris ku yang terbelakang ini, zoom artinya pembesaran/memperbesar
jadi zoom gambar itu pembesaran gambar menurut skala tertentu. Seperti contoh, jika wallpaper kompi sobat
menggunakan gambar dengan resolusi kecil, dan menggunakan cara zoom untuk memenuhi desktop, gambar akan terlihat pecah
karena gambar dipaksa untuk memperlebar ukuran dirinya (stretch). Berbeda dengan cara tile, pada cara ini desktop akan
dipenuhi gambar yang dengan resolusi kecil tadi dengan jumlah sangat banyak. Jadi gambar tidak akan dipaksa
untuk mempelebar reolusinya. Untuk lebih jelasnya, lihat perbedaan wallpaper dibawah ini dengan cara zoom dan tile:

Zoom :

Gambar terlihat pecah



Tile :

Gambar tidak pecah, tetapi amat banyak



Cukup jelas bukan, lau bagaimana teknik pemrograman untuk memanipulasi gambar berresolusi kecil seperti zoom, dan tile kakak yang baik hati??
. Tenang adik-adikku yang buruk rupa, hehehe (just kidding). Tekniknya sederhana, intinya sobat bisa menggunakan method PaintPicture pada control
PictureBox {contoh: Picture1.PaintPicture(Picture As StdPicture, X1 As Single, Y1 As Single, [Widht1], [Height1], [X2], [Y2], [Width2], [Height2], [Opcode])}
untuk lebih jelasnya simak listening code vb di bawah ini:

1. Untuk Teknik tile sederhana:

Deklarasi:
1 Form
2 PictureBox
1 Slider (ada di komponen Microsoft Windows Common Controls)
1 CommandButton

Utak-atik, bolak-balik hingga tampak seperti ini:

Untuk gambar eksperimen di picSrc, sobat bisa menggunakan gambar di bawah ini:

Nah, jika sudah jadi masukkan source code ini:

Private Sub Command1_Click()

Dim X   As Single
Dim Y   As Single
Dim wi  As Single
Dim he  As Single

  wi = picSrc.ScaleWidth * sldZoom.Value / 100
  hi = picSrc.ScaleHeight * sldZoom.Value / 100

  picDest.Cls
  
  Do Until X > picDest.ScaleWidth
    Do Until Y > picDest.ScaleHeight
      With picSrc
        picDest.PaintPicture .Picture, X, Y, _
        wi, hi
        ' baris berikutnya
        Y = Y + hi
      End With
      DoEvents
    Loop
    'kolom berikutnya
    X = X + wi
    Y = 0
    DoEvents
  Loop
  
End Sub

2. Untuk teknik zoom sederhana

Deklarasi:
1 Form
2 PictureBox
1 Slider

Utak-atik sehingga menyerupai seperti ini:

Untuk gambar di Picture1 bisa menggunakan gambar di contoh teknik tile tadi, jika sudah kelar masukkan code
pendek di bawah ini:

Private Sub sldZoom_Change()
  Picture2.Cls
  Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth * sldZoom.Value / 100, _
  Picture1.ScaleHeight * sldZoom.Value / 100
End Sub

Sangat sederhana dan mudah bukan. Jika sobat malas membuatnya, saya sertakan source code nya untuk di unduh di bawah ini:

[VB] Form Load Dan Unload Secara Samar-Samar (Fade)

Ok sobat, kali ini saya iseng-iseng membuat sebuah program yang form nya ketika di close tampak samar-samar lalu secara perlahan menghilang (Fading)

Deklarasi:
1 Form

Source Code:

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 crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

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

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub MakeTaskbarTransparent(LhWnd As Long, ByVal bLevel As Byte)
On Error GoTo Salah
    Dim lOldStyle As Long
    
    If (LhWnd <> 0) Then
        lOldStyle = GetWindowLong(LhWnd, (-20))
        SetWindowLong LhWnd, (-20), lOldStyle Or &H80000
        SetLayeredWindowAttributes LhWnd, 0, bLevel, &H2&
    End If
Salah:
End Sub

Sub FadeForm(hWnd As Long, Optional FadeOut As Boolean = True)
Dim i As Integer
If FadeOut Then
   For i = 1 To 15
     DoEvents
     MakeTaskbarTransparent hWnd, i * 17
     Sleep 100
   Next i
Else
    For i = 1 To 15
      DoEvents
      MakeTaskbarTransparent hWnd, Int(255 / i)
      Sleep 100
    Next i
End If
End Sub

Private Sub Form_Load()
  Load Form1
  Form1.Show
  Form1.Refresh
  FadeForm Form1.hWnd, True
End Sub


Private Sub Form_Unload(Cancel As Integer)
  FadeForm Form1.hWnd, False
End Sub

' Adapted from AVIGEN VB Bego
' Thanx to VB Bego Team for this nice code
' 2010 Crowja-Coderz

[VB] Membuat VBS Editor Sederhana

VBS Editor ini memanfaatkan "Script Control", jadi contoh program ini
tidak serumit yang anda bayangkan. Justru sangat sederhana, dan sangat mudah
bagi anda untuk memahaminya. Download saja source code nya.

[VB] ADO Database Programming Metoda Scripting

Mungkin bagi teman-teman yang baru mempelajari database programming dengan ADO pada VB6
cenderung lebih sering menggunakan control Adodc pada toolbar
(). Tidak ada salahnya sih menggunakan
control tersebut, dalam hal ini anda melakukan koneksi ke database pada saat design-time. Lalu bagaimana caranya anda
melakukan koneksi ke database saat run-time (saat program berjalan). Dalam hal ini anda harus melakukan koneksi pada database
dengan metode "Scripting". Konsepnya sama, pertama anda harus membuat koneksi terlebih dahulu dengan cara
menentukan property ConnectionString, lalu menentukan RecordSource, dan sebagainya. Saya juga sempat kebingungan
bagaimana cara membuat koneksi ke database pada saat run-time, tetapi ternyata caranya cukup mudah, kali ini saya akan menjelaskan
dua cara membuat koneksi ke database dengan metode scripting.

Cara 1

1. Membuaka koneksi dengan ConnectionString
2. Membuat RecordSet bedasarkan perintah (SQL) dan koneksi yang tadi kita buat

Contoh:

Dim adoCon As ADODB.Connection
Dim adoRec As ADODB.Recordset

'Membuka koneksi
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet." & _
"OLEDB.4.0;Data Source= E:\Source Codes\VB6 Project\SPU\Unsur.mdb" _
& ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"

'Membuat recordset
Set adoRec = New ADODB.Recordset
adoRec.Open "SELECT * FROM [Nama Tabel] ORDER BY [Field]", adoCon, adOpenStatic, , adCmdText

Cara 2

1. Membuaka koneksi dengan ConnectionString
2. Membuat object perintah (ADODB.Command)
3. Mengisi property pada object perintah tadi
4. Membuat RecordSet dengan cara mengeksekusi object perintah tadi

Contoh:

Dim adoCon As ADODB.Connection
Dim adoRec As ADODB.Recordset
Dim adoCmd As ADODB.Command

'Membuka koneksi
Set adoCon = New ADODB.Connection
adoCon.Open "Provider=Microsoft.Jet." & _
"OLEDB.4.0;Data Source= E:\Source Codes\VB6 Project\SPU\Unsur.mdb" _
& ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"

'Membuat object perintah (ADODB.Command) & Mengisi property pada object perintah tadi
Set adoCmd = New ADODB.Command
Set adoCmd.ActiveConnection = adoCon
adoCmd.CommandType = adCmdText
adoCmd.CommandText = "SELECT * FROM [Nama Tabel] ORDER BY [Field]"

'Membuat RecordSet dengan cara mengeksekusi object perintah
Set adoRec = adoCmd.Execute

Mudah bukan?, menurut saya cara yang paling sederhana adalah cara ke 1. Karena tidak terlalu ribet.

Sistem Periodik Unsur Modern

Bagi teman-teman yang ingin mempelajari kimia, khususnya seputar unsur-unsur yang ada di bumi kita ini, kamu perlu sistem periodik unsur. Ok, daripada beli di toko, walaupun cuma 1000 perak, mending ndownload saja disini. Bermula dari keisengan saya mempelajari pemrograman database pada vb, dan juga untuk latihan menghafal unsur-unsur, saya buat deh program sederhana ini. Inilah cuplikan screenshot nya:







Jika merasa membutuhkannya, tinggal download aja. Juga ada source code nya looh.

Download Custom ActiveX Control Untuk VB Development

FTP
Img Transparent

LVButton
FlatButton

[VB] Membuat Fungsi Sleep Sendiri

Terkadang untuk suatu keperluan, kamu harus menghentikan sejenak alur code yang kamu buat dalam beberapa detik.
Dalam kasus ini, kamu bisa menggunakan fungsi API yang yaitu Sleep pada VB, apakah kamu tidak ingin membuatnya sendiri?

Hehehe, aneh ya! sudah disediakan fungsi Sleep, masih tidak puas. Oke, untuk iseng-iseng mari kita buat prosedur yang mirip dengan
fungsi Sleep, tetapi mari kita gunakan waktu dalam detik bukan dalam milidetik seperti fungsi Sleep, tidak terlalu rumit kok.

Delarasi:

1 Form
1 Command Button

Source Code:

Private Sub Command1_Click()

Dim waktu As Integer

'waktu tidur=3 detik
waktu = 3
Ngorok_ZZZ waktu
MsgBox "Bangun!!!, kau telah tidur selama " & waktu & " s"

End Sub

Private Sub Ngorok_ZZZ(ByVal time As Integer)

Dim t As Single

t = Timer

Do Until (Timer - t) >= time
 DoEvents
Loop

End Sub

'2010 crowja

[VB] Belajar Dasar Enkripsi Metode XOR

Xor, apakah itu?
Xor adalah salah satu operator logika yang terdapat di sebagian besar bahasa pemrograman. Merupakan singkatan dari Exclusive OR.
Xor memang jarang digunakan, namun dibalik semua itu ternyata operator xor mempunyai kegunaan lain, yaitu untuk
enkripsi!.

Berbeda dengan operator logika lainya seperti AND dan OR, Xor hanya akan bernilai True jika hanya salah satu operand nya bernilai True,
Untuk lebih jelasnya, simak contoh di bawah ini:

Opernad1 Xor Opernad2 = Hasil

True Xor True = False
False Xor False = False
True Xor False = True
False Xor True = True

Lihat, ternyata Xor hanya bernilai True jika salah satu operand nya bernilai True, jika kedua operadnya bernilai True atau kedua
operand nya bernilai False, Xor akan bernilai False.
Sebenarnya Xor merupakan operator gabungan antara AND dan OR, sebenarnya kita juga membuatnya, beginilah Rumus Xor:

a XOR b = (a AND (NOT b)) OR ((NOT a) AND b)

Ternyata begitulah rumus XOR sebenarnya sehingga Xor hanya akan bernilai True jika hanya salah satu operand nya bernilai True.
Sepertinya haya itu yang bisa saya jelaskan tentang operator Xor, selanjutnya kita akan membahas tentang kegunaan operator Xor untuk enkripsi.
Dalam enkripsi Xor, kita juga perlu menentukan Kunci dari enkripsi tersebut, beginilah caranya:

Sebelum_Enkripsi XOR Kunci = HasilEnkripsi

Mari kita bermain dengan kode biner. Perlu anda ketahui bahwa Kode biner 0 adalah bernilai False (Salah),
dan 1 adalah bernilai True (Benar).
Misalnya Sebelum_Enkripsi bernilai 1 dan kunci bernilai 1 maka:

1 Xor 1 = 0

Dalam kasus diatas hasil enkripsi bernilai 0 (False).
Namun jika kita menengkripsi suatu variable, bagaimana cara kita men dekripsinya?
Tenang, jangan panik karena disinilah kelebihan dari operator Xor!. Jika hasil enkripsi kita enkripsi kembali menggunakan kunci yang sama,
maka hasilnya ternyata merupakan hasil sebelum enkripsi, tidak percaya?

True Xor True = False

Diatas saya ibaratkan True pertama merupakan variable sebelum enkripsi, True kedua adalah kuncinya dan False merupakan hasil enkripsi.
Jadi untuk mendekripsinya, kita bisa melakukan enkripsi ulang terhadap hasil enkripsi menggunakan kunci yang sama

False Xor True = True

Lihat, hasil deskripsi adalah True! sama persis dengan variable sebelum enkripsi bukan?
Ok, mari kita terapkan konsep yang sudah kita ketahui tersebut kedalam code VB.

Deklarasi:

1 Form
3 Text Box
2 Command Button

Susun seperti dibawah ini:



Source code:

Private Sub Command1_Click()
Text2.Text = Basic_XOR_EncryptDecrypt(Text1.Text, Text3.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = Basic_XOR_EncryptDecrypt(Text2.Text, Text3.Text)
End Sub

Private Sub Form_Load()

Command1.Caption = "Enkripsi!"
Command2.Caption = "Dekripsi!"
Text1.Text = "text untuk enkripsi"
Text2.Text = "text untuk deskripsi"
Text3.Text = "Kunci"

End Sub

' Fungsi enkripsi-dekripsi
Private Function Basic_XOR_EncryptDecrypt(ByVal str As String, ByVal key As String)

Dim StrEnc As String

For i = 1 To Len(str)
StrEnc = StrEnc & Chr(Asc(Mid(str, i, 1)) Xor Asc(key))
Next

Basic_XOR_EncryptDecrypt = StrEnc

End Function

' 2010 crowja

Fungsi enkripsi-dekripsi diatas masih sangat sederhana, untuk memperumitnya agar tidak mudah di crack,
kita bisa melakukannya dengan berbagai cara, seperti menambahkan algoritma aritmatika, melakukan looping
dan sebagainya, seperti contoh fungsi Basic_XOR_EncryptDecrypt yang sedikit diperumit:

' Fungsi enkripsi-dekripsi
' 2010 crowja
Private Function Basic_XOR_EncryptDecrypt(ByVal str As String, ByVal key As String)

Dim StrEnc As String
Dim XoredKey As Long

' melakukan enkripsi pada kunci
For i = 1 To Len(key)
XoredKey = XoredKey Xor Asc(Mid(key, i, 1))
Next

' melakukan enkripsi pada str
For i = 1 To Len(str)
StrEnc = StrEnc & Chr(Asc(Mid(str, i, 1)) Xor XoredKey)
Next

Basic_XOR_EncryptDecrypt = StrEnc

End Function

Mudahkan, anda bisa melakukan berbagai kombinasi enkripsi lagi dengan berbagai cara seperti menambahkan
algoritma aritmatika dan lain-lain.

Semoga bermanfaat

[VB] Belajar Membuat Data Report Dengan Data Environment

Ketika anda membuat sebuah database, mungkin anda bertanya bagaimanakah mencetak suatu tabel dalam database anda di atas kertas?. Caranya cukup mudah,
yaitu menggunakan Data Report. Untuk membuat Data Report, anda harus membuat Data Environment terlebih dahulu kemudian baru membuat Data Report itu sendiri.
Kali ini saya akan mendemonstarsikan bagaimana membuat Data Report, sebagai file databasenya saya menggunakan file database bawaan Microsoft yaitu BIBLIO.mdb.

1. Buka proyek baru, pilih Standard EXE
2. Tambahkan Data Environmennt dengan cara klik Project --> Add Data Environment



3. Akan muncul window baru, klik kanan pada Connection1, pilih Properties



4. Kali ini kita akan memilih database engine. Pilih "Microsoft Jet 4.0 OLE DB Provider" lalu klik Next



5. Browser database filenya (BILIO.mdb), biasanya ada di C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB



6. Tes koneksinya dengan mengklik Test Connection, jika berhasil akan seperti ini



7. Klik OK dan keluar dari window Data Link Properties
8. Klik kanan pada Connection1, lali pilih Add Command



9. Command1 akan muncul, klik kanan pada ini lalu pilih Properties



10. Window Command1 Properties akan muncul, kita tentukan Source Od Data nya. Atur Database Object nya menjadi Table dan Object Name nya menjadi Titles. Jadi akan seperti ini:




11. Klik Apply lalu OK, maka Data Environment mu akan seperti ini



12. Sekarang kita akan membuat Data Report nya. Klik Project pilid Add Data Report



13. Klik tab Title pada window Data Environment, lalu drag tab Title ini ke Detail Section pada Data Report, hailnya akan seperti ini:



14. Akan muncul dua textbox data report, yaitu "Title" dan "Title [Command1]". Letakkan Title pada Page Header, atur posisinya hinga menjadi seperti ini:



15. Lakukan hal yang sama dengan tab ISBN pada window Data Environment, sehingga menjadi seperti ini:



16. Cukuplah, sekarang klik Pada DataReport1, atur Property DataSource menjadi DataEnvironment1 dan property DataMember menjadi Command1



17. Edit source code form1, lalu massukan code dibawah ini:

Private Sub Form_Load()
DataReport1.Show
End Sub

18. Selesai, mudah bukam? jalankan maka hasilnya akan seperti ini:



19. Jika masih bingung, saya juga menyertakan file source codenya. Silahkan di download:

[VB] Control DBGrid Yang "Powerfull" Dalam DAO Database Programming

DBGrid adalah salah satu control data aware pada pemrograman database jenis DAO. Control ini pada pemrograman database ADO biasa disebut DataGrid,
penggunaan DBGrid pun sangat mudah karena anda bisa mengoperasikannya tanpa harus menambahkan source code pada proyek dan control ini pun sangat bermanfaat.
Fungsinya adalah dapat menampilkan seluruh isi dari tabel pada database secara rapi. Kita lihat contoh berikut:

Deklarasi:
1 Form
1 Data
1 DBGrid

Susun seperti ini:




Lalu jalankan, jika tidak ada error, hasilnya akan seperti ini



Mudah bukan dalam penggunaan control ini, ok coy. Cukup sekian