Cara membuat Setup atau Menbuat Windows Installer Package dengan Visual Studio Installer

Berikut ini langkah-langkah untuk membuat Setup/File instalan aplikasi dengan menggunakan Visual Studio Installer yang ada pada VB.Net.

Buka VB.Net ( Saya menggunakan VB.Net 2010)

Kemudian klik New Project lalu pilih Other Project -> Setup and Deployment -> Visual Studio Installer -> Setup Project.

Membuat Fix File dengan Visual Basic

WM/VB.BG (terdeteksi oleh Antivir)

Trojan Backdoor Generic6.GMX (terdeteksi oleh AVG)

Backdoor.Delf (terdeteksi oleh Norton Anti Virus)

TR/Drop.Loops.A.1 (terdeteksi oleh Antivir)

w32/delf.cd worm (terdeteksi oleh Avira)

Inti dari perbaikan file ini ada 3 yaitu:

- Mendeteksi Ukuran File

- Memotong badan file yang berisi virus

- Menyimpan file yang telah jadi

seperti penjelasan di artikel sebelumnya, ukuran virus yang menempel di badan file sehat itu adalah 331299 byte, untuk itu kita akan melakukan pendeletan virus yang menyisip di file tersebut, caranya … buka visual basic, atau alat andalan utnuk membuat tools

MENDETEKSI UKURAN FIE

untuk dapat menjalankan fungsi pendeteksian file, cukup ketik fungsi BytesInBytes di bawah ini…

Function BytesInBytes(bIn() As Byte, bFind() As Byte, startPosn As Long) As Long

Dim I, iFinal, iLimit, xLimit, uIn, uFind As Long ’2GB limit

Dim X As Integer

uFind = UBound(bFind)

iLimit = UBound(bIn) – uFind + 1

xLimit = uFind – 1

uIn = UBound(bIn)

For I = startPosn To iLimit

For X = 0 To xLimit

If I + X <= uIn Then

If bIn(I + X) <> bFind(X + 1) Then Exit For

If X + 1 = uFind Then

iFinal = BytesInBytes(bIn, bFind, I + 1)

If iFinal > I Then I = iFinal

BytesInBytes = I

Exit Function

End If

End If

Next X

Next I

BytesInBytes = -1

End Function

MEMOTONG BAGIAN VIRUS YANG MENEMPEL DI FILE

Untuk dapat memotong virus tersebut, cukup ketikkan kode di bawah ini:

Private Sub CutPaste(OP As Boolean, PasteBytes() As Byte)

‘TRUE=Cut..FALSE=Paste

SL = 331299 ’662598 ’331299

If SFP >= 0 Or SL > 0 Then

Dim nBytes As Long

Dim I As Long

If OP = False Then ‘Paste

nBytes = UBound(PasteBytes)

ReDim Preserve WorkSpace(1 To FL + nBytes)

‘ Move the bytes DOWN in the Array–Dest,Src,Bytes to move

If FL – SFP > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(nBytes + SFP + 1)), ByVal VarPtr(WorkSpace(SFP + 1)), FL – SFP)

‘ Copy the selected data to the Array–Dest,Src,Bytes to move

Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), PasteBytes(1), nBytes)

FL = FL + nBytes

Else ‘Cut

If FL – SL > 0 Then

‘ Move the Data UP in the Array–Dest,Src,Bytes to move

If FL – (SL + SFP) > 0 Then Call CopyMemory(ByVal VarPtr(WorkSpace(SFP + 1)), ByVal VarPtr(WorkSpace(SL + SFP + 1)), FL – (SL + SFP))

FL = FL – SL

ReDim Preserve WorkSpace(1 To FL)

Else

ReDim WorkSpace(1 To 1)

FL = 1

End If

End If

If FF > FL Then FF = FL

If FF < 0 Then FF = 0

‘ShowFileInfo

End If

End Sub

guna skrip di atas tadi adalah untuk memotong bagian yang berukuran 331299 byte atau ukuran virus itu sendiri … lalu setelah dipotong, bagaimana cara menyimpannya?

MENYIMPAN FILE YANG TELAH DIBERSIHKAN

Cukup ketikkan kode di bawah ini:

Private Sub goSave()

On Error GoTo CLSerr

Dim Fnum As Integer

Dim Fname As String

Dim saveok As Boolean

If optxls.Value = True Then

‘MsgBox Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 3)

Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.xls”

‘MsgBox Right(Fname, 4), 0, “dsasd”

End If

If optdoc.Value = True Then

Fname = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) – 4) & “_fix” & “.doc”

‘MsgBox Right(Fname, 3), 0, “dsasd”

End If

If FSO.FileExists(Fname) Then FSO.DeleteFile (Fname)

Fnum = FreeFile

Open Fname For Binary Access Write As Fnum

Put Fnum, , WorkSpace()

Close Fnum

OpenFileName = Fname

FL = FSO.GetFile(OpenFileName).Size

Exit Sub

CLSerr:

If Err <> 32755 Then MsgBox (Error & vbCr & vbCr & “Error Number: ” & Str(Err)), vbCritical, “! ERROR !”

End Sub

File yang dibersihkan akan disimpan sesuai nama file dan extensinya, tapi nama file-nya ditambahi judul “_fix” gitu untuk membedakan file yang sakit dan yang sehat…

nah mudah bukan??? 

Semoga bermanfaat..!!!
Selamat mencoba,,,

Membuat web browser dengan VB 2008

 

Langkah-langkah :

• Buka Visual Basic dan “Start a new windows application”

 

• Meng-add tools/button pada “Form” :

- Masukkan Text Box ( no.6 )

- Masukkan Web Browser ( no.7 )

- 5 buah Button ( Button1 – Button5 )

 

• Pengaturan letak Button, Text Box dan Web Browser.

- ( anda dapat menyesuaikan letak button dan ukuran form sesuai keinginan anda sendiri )

 

• Memulai script  ( harap ikuti petunjuk seperti digambar ) 

- Dobel klik pada “Form” dan ketik :

WebBrowser1.Navigate("http://google.co.id/")

 

• Script untuk button “Go” ( Button1 )

- Dobel klik pada button “Go” lalu ketik :

WebBrowser1.Navigate(TextBox1.Text)

 

• Script Untuk button “Back”

- Dobel klik pada button “Back” lalu ketik :

WebBrowser1.GoBack()

 

• Script Untuk button “Forward”

- Dobel klik pada button “Forward” lalu ketik :

WebBrowser1.GoForward()

 

• Lakukan hal yang sama untuk button-button selanjutnya ( button “Refresh” dan “Home” )

- Button “Refresh” :

WebBrowser1.Refresh()

- Button “Home” :

WebBrowser1.GoHome()

 

 

• Sudah hampir selesai. Sekarang coba klik “Debug”

 

 

• Bila sudah, sekarang tinggal mem-Pubilsh browser anda.

- Klik “Build” – pilih “Publish Web Browser” – selanjutnya pilih “Next”

( lakukan seperti contoh gambar dibawah ini )

 

 

 

• Selesai… anda baru saja membuat Web Browser sendiri ! sekarang silahkan anda mencoba untuk browsing dengan browser buatan anda sendiri. J

( script diatas bisa anda rubah atau tambah… silahkan gunakan imajinasi anda. Happy Coding ! )

 

• Beberapa contoh modifikasi/personalized :

- Untuk merubah warna background

Pergi ke “Form1″  properties — “Appereance” — “BackColour” –> ganti warna sesuai keinginan.

- Agar “Form” dapat berubah sesuai dengan besar image

Ganti “AutoSize” menjadi “True” dan “AutoSizeMode” menjadi “GrowAndShrink”

• Oh ya… satu lagi, anda bisa jadikan project web browser supaya dapat dijalankan di computer tanpa vb dengan cara convert menjadi file .exe

Cara membuat file Setup.exe (dapat diinstall dikomputer tanpa VB) :
Kan ada tab build terus kamu klik -->Publish-->terserah kamu mao kamu taro mana datanya

Selamat Mencoba...!!!

Membuat Browser khusus Facebook Menggunakan Visual Basic 6

 Mungkin sudah ada yang tau cara buat Web Browser pada VB 6, tapi bagi yang belum tau nih gw kasih tutorial nya.karena saya ada tugas jadi saya posting lagi  :D

Yang perlu disiapkan yaitu Yang penting ada komputer sama Visual Basic 6.

1. Buat project baru, lalu ke “Project” pada menu.
2. Klik components, dan cari component “Microsoft Internet Controls,” checklist dan klik “Apply” lalu “Close.”
3. Klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
4. Buat “textbox” , ini akan menjadi URL bar anda.
5. Buat 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh. (Ubah captions sesuai urutan yaitu Cmdgo, Cmdback, CmdForward, dan CmdRefresh).

Ok sekarang kita masuk ke coding:
Tombol Back

 Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Tombol Forward

 Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Tombol Go

 Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Tombol Refresh

 Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub

Berikut adalah membuat suatu URL menjadi HomePage kita

 Private Sub Form_Load()
WebBrowser1.Navigate ("https://facebook.com")
End Sub

Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.

 Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub

Selesai., Selamat Mencoba.
Semoga bermanfaat..!!!

Membuat file .exe di Visual Basic 2008

 

Mulai dari Visual Basic 2008 keatas, terjadi perubahan cara mempublish projek. Orang yang terbiasa memakai Visual Basic 6 pasti akan kebingungan. Karena itu kali ini akan kami beritahu caranya.

1. Buka Projek Anda

2. Pilih Menu Build > Build [Nama Project Anda]

 

Nanti Di bagian Status (Di bawah) akan muncul tulisan Build Succeeded

 

3. Buka Folder tempat Anda menyimpan data projek Anda

Misal:
Folder > Project1 > Project 1 > bin > Release > [Nama Aplikasi Anda].exe

 

4. File itu adalah file .exe dari aplikasi Anda

5. Untuk dapat dipakai pada komputer lain Anda hanya perlu copy paste file .exe itu
Jangan lupa dibutuhkan .Net Framework 3.5

Selamat mencoba Semoga bermanfaat

Konversi data Ms Excel ke Ms Access

Sedikit Ilmu....bermula dari pertanyaan temend yang lagi bikin TA,nulis di group pengend tau cara konversi data dari Ms exel ke acces.. niat bantuin eh..malah dapet ilmu tambahan...
simak beruikut ini.....

Bahan yang dibutuhkan :

1. Ms Visual Basic

2. Ms Excel

3. Ms  Access

Langkah2 percobaan :

1. siapkan file excel yang akan di konversi

2. buat 1 file ms access kosong (tanpa tabel)

3. saat nya coding dengan VB :

Private Sub Form_Load()
Dim con As New ADODB.Connection
con.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\sample.mdb;Jet OLEDB:Engine Type=4″
Dim strSQL As String
strSQL = “SELECT * INTO Table1 FROM [Sheet1$] IN “”C:\MyExcel.xls”" “”Excel 8.0; HDR=Yes;”"”
con.Execute strSQL
con.Close
Set con = Nothing
End Sub

Penjelasannya dikit ajah yah…

• pada strsql kita menuliskan Table1, maka pada file sample.mdb akan dibuatkan sebuah table dengan nama tersebut
• pada strsql kita menuliskan Sheet1, maka data dari sheet1 pada excel yang akan d convert
• pada strsql , nilai HDR= Yes, maka nama column/ field pada Table1 adalah row pertama dari data pada Excel. jika nilai HDR=No, maka nama column/field adalah default dengan nama F1, F2, F3, dst untuk jumlah field yang ada.

Selamat Mencoba Semoga Bermanfaat............

Cara Membuat File Exe dan Setup di VB.Net dan VB 2010

Dalam postingan saya akan memberikan panduan untuk instalasi aplikasi atau program buatan sendiri yang dibuat menggunakan software Visual Studio ( Visual basic ) 2010. Instalasi ini dilakukan ketika kita telah selesai membuat sebuah aplikasi dan aplikasi itu siap untuk disebarkan/diinstal pada banyak komputer. Untuk instalasi ini ada 2 cara, cara pertama yaitu cara manual dan cara kedua adalah dengan membuat file setup.exe untuk menginstal aplikasi yang telah dibuat tadi.

Cara 1 :

Cara manual ini adalah cara paling mudah untuk menyebarkan aplikasi yang telah Anda buat pada beberapa komputer, caranya yaitu kita hanya perlu mengcopy file .exe dari aplikasi yang telah dibuat. Contohnya Anda telah membuat sebuah aplikasi dengan Visual Studio 2010 dengan nama project Simulasi TA. Ketika aplikasi ini sudah siap untuk digunakan pada beberapa komputer,  Anda hanya perlu mengcopy file sisfo Simulasi.exe yang berada dalam folder “similasi TA/bin/debug/similasi TA.exe”. Lalu copy-paste saja file similasi TA.exe tadi ke komputer – komputer yang akan menggunakan aplikasi ini. File similasi TA.exe yang tadi sudah di copykan hanya perlu di double click saja dan aplikasi tersebut langsung dapat digunakan sebagaimana mestinya.

Cara ke 2 :Dengan cara kedua ini Anda harus membuat file setup.exe untuk aplikasi yang sudah Anda buat, sehingga nantinya aplikasi yang sudah Anda buat akan terinstal dalam sistem komputer seperti ketika Anda menginstal software ke dalam komputer Anda. Bedanya dengan cara pertama yaitu, pada cara pertama aplikasi yang sudah jadi hanya diletakkan dalam komputer dengan cara copy-paste sehingga aplikasi tidak masuk dalam sistem komputer.Untuk membuat file setup.exe caranya adalah:
Buka project yang sudah Anda buat. 

Pilih menu Project – <nama project Anda> Properties 

Setelah jendela properties dari project Anda terbuka kemudian pilih menu publish dari jendela tersebut

 

Anda tentukan dimana lokasi file hasil publish disimpan pada “Publish Location” 

Pilih Publish Now dan tunggu hingga Visual Studio selesai mempublish project Anda menjadi file setup.exe.

Cara bukanya di  < nama project anda>/bin/debug/app.publish, seperti gambar berikut ini :

Setelah Anda mempunyai file setup dari aplikasi yang Anda buat, selanjutnya Anda install pada komputer yang Anda inginkan dengan mengklik file setup yang ada.

Selamat mencoba…..