Showing posts with label visualbasic. Show all posts
Showing posts with label visualbasic. Show all posts

Fitur Rootkit Hmei7 yang Terlupakan


Selamat pagi sobat IT, kali ini saya akan bahas mengenai tool yang cukup legend ini yaitu Rootkit hmei7. Ya siapa sih gak kenal dengan tool yang satu ini, kalo dulu pasti dah pernah nyobain fitur yang ada didalam tool ini yaitu Webdav ASP Shell Maker, ya gak ?. Ane nyobain fitur webdav itu ketagihan banget gan sampai sekarang pun masih ana gunain, soalnya enak banget nyari targetnya tinggal reverse ip dapet bejibun wkwkwk tinggal nongkrongin zone h aja . Tapi tau gak sih sebenernya ada fitur lain dalan Rootkit ini yang cukup berguna banget ?. Mungkin dari kalian udah ada yang tau , ane sebenernya pengen share ini dari dulu tapi kayaknya gak penting penting amat wkwkwk tapi kalo buat ane ini berguna banget dari dulu yap nama fiturnya yaitu "Line Editor". Jadi ini fitur berguna untuk mengolah baris string, antum bisa menyisipkan atau membuang string yang ada dalam baris, misalnya buat target webdav yang jumlahnya ribuan , antum bisa olah itu string dengan fitur ini. Okeh langsung saja hal yang pertama antum lakuin adalah buka tool Rootkit Hmei7 ini , cari aja kalo belom punya soalnya ane gak akan share linknya.

1. Buka menu Tool > line editor


Okeh dari sini ane mau jelasin beberapa fitur fitur pentingnya yang ada di line editor

a. Sort it.
Tombol ini berguna untuk menyortir string pada baris berdasarkan abjad.

b. Add in the beginning.
Fitur ini berguna untuk menyisipkan string diawal string pada baris. Jadi misalkan string "www.target.com" antum tambahin string http:// jadinya "http://www.target.com" .

c. Add in the ending.
Fitur ini berguna untuk menyisipkan string diakhir string pada baris. Contohnya string "www.target.com" antum tambahin string /hujan.html jadi "www.target.com/hujan.html".

d. Remove sub folder.
Fitur ini menghilangkan string yang ada setelah baris string "/" setelah domain , contohnya string "www.target.com/hujan.html" string /hujan.html akan dihilangkan maka akan jadi "www.target.com" saja.

e. Remove duplicat
Fitur ini menghilangkan string yang sama dari semua baris maka akan menyisakan satu string saja.

f. Replace string.
Fitur ini berguna untuk menggantikan value string dengan value string lain yang lain pada baris.

g. Remove sub domain.
Fitur ini berguna untuk menghilangkan subdomain yang ada pada domain didalam baris string. Contoh string subdomain "siakad.univ.gov" makan akan menjadi "univ.gov" saja.

nah itu sebagian besarnya saja selebihnya kalian coba coba aja ya .
Sekian yang bisa ana sampaikan mohon maaf bila ada kekurangan silahkan tinggalkan komentar untuk masukkan.


[Source] Video Converted With Visual Basic .Net


Assalamualaikum warrohmatullohi wabarakatu ..
Apa kabar soba IT ^_^ ..
ya kali ini saya akan share video converted dengan vb.net .
saya dapatkan sourcenya dari website code project dan saya share lagi untuk menjelaskan kegunaannya .
Tool ini berguna bagi agan agan yang mau mengconvert size , ekstensi video .
Silahkan kembangkan lagi source ini supaya lebih greget lagi dengan menambahkan berbagai fitur dan kegunaanya ^_^
yo langsung saja deh nih gan link donglodnya


ZH Poster Peluru Kertas






Assalamualaikum waroohmatullohi wabarokatu ,,
Hallo sobat IT , kali ini saya akan share tool bikinan saya lagi nih hehe :D
"ZH Poster Peluru Kertas "
lumayan greget lah untuk setingkat saya seorang newbie :D
programnya cukup sederhana genk , tapi lumayan sangat membatu dalam aktifitas posting zone h untuk list yang banyak dan tidak perlu cape2 copas copas tinggal load target dan ok :D hehe
banyak kekurangan maupun kelebihnannya

untuk kelebihan :
Sangat cepat dalam memposting (jika internet lancar)
efisien

untuk kekurangan :
tidak ada result hanya ada log  (jadi harus cek sendiri ke onhold / archives apakah tersubmit atau tidak)

tapi meski begitu tool ini sangan membantu sekali genk untuk saya :D
untuk penggunaannya kita liat yuk cuplikan video dibawah ini :



Download tool : http://ouo.io/Bo379U [Update V1]

Source Mini Webdav Upload VB6



Assalamualaikum warrohmatullohi wabarokatu
Halo sobat IT , kali ini saya akan berbagi source "Mini Webdav Upload" dengan visual basic 6
dapat source dari codeproject saya ubah2 lagi sedikit hehe :)
ya sesuai banyaknya pesanan source akhirnya saya share source ini juga, lumayan buat pembelajaran
Memang projectnya saya sederhana supaya dapat dikembangkan lagi oleh kalian lagi hehe :D
Penggunaanya gampang tinggal pilih file maka langsung mengupload sendiri filenya
Mau dibikin mass upload atau apapun terserah silahkan kembangkan lagi :D seperti halnya saya mencoba mengembangkannya menjadi mass exploiter webdav hanya saja saya memakai VB.NET tetapi tidak ada bedanya fungsinya masih sama

penampakan :




Langsung saja deh download dan share ke temen2 projectnya supaya bermanfaat :) see you
semoga bermanfaat :

http://ouo.io/6PI43 source minidav
http://ouo.io/Cjx3sn7 aplikasi minidav

Source CRUD VB 6.0 Database MySQL


Hallo soba IT sudah lama nih mimin gak update update,,
kali ini mimin ada request nih minta source CRUD visual basic pake database MySQL .
kalo ditempat lain sih biasanya error error ya kalo dimari dijamin deh kecil kemungkinannya error karena mimin gak suka copas dan asal mosting ,, mimin suka bikin dan coba sendiri.

Kalo mau source ini minimal udah taulah dikit2 apa itu MySql , apa itu database , APA ITU VISUAL BASIC,, pake aplikasi Xampp aja deh tuh udah kumplit nyediain fitur2nya sql , apache ,ftp .
Langsung aja deh yuk cekidot ,, download dulu bahannya.

http://ouo.io/20douO ODBC Konektor
http://ouo.io/0q2dyO Project VB CRUD nya

Hal pertama dilakukan adalah import Databasenya dulu ke MySql





Nah selanjutnya buka ODBC konektor yang udah kalian download tadi itu
klik add untuk menambahkan configurasi ODBC baru >>
pilih MYSQL ODBC 5.3 ANSI DRIVER , klik finish
lalu sesuaikan configurasinya seperti dibawah ini
tinggal test aja deh sampai bener2 konek ,,
kalo udah gituh tinggal coba aja projectnya jalan apa enggak ..

Kalo punya ane jalan nih gan :
Kalo ada error biasanya pada komponen vb nya hapus aja terus ganti yang baru
misalnya Command1 nya hapus terus bikin lagi yang baru terus sesuain Namenya sama yang tadi
ngerti ? :v
Lebih Giat Lagi Belajar ! :v haha
see you again letter ..




Tutorial Membuat MsgBox Pertanyaan Di VB 6.0 dan VB.NET


assalamuaikum warrohmstullahi wabarakatu ..
salam sobat IT semua kali ini saya share tentang
"Bagaimana cara Membuat MsgBox Pertanyaan Di VB 6.0 dan VB.NET"
yaitu menambahkan perintah pada result klik msgbox , kali ini saya akan menambahkan perintah "End" pada result ok vbmsgbox nya

Nah seperti gambar diatas ,, ketika kita mengklik Ok maka form akan menutup programnya karena saya sisipkan perintah untuk keluar di msgbox resultnya ,, kita mulai di VB 6.0 dulu yuk gan cekidot

1. Siapkan satu buah form dan satu buah command button
setelah itu masukan coding dibawah ini


Spoiler for script

VB Code:
Private Sub Command1_Click()
Dim keluars As VbMsgBoxResult
keluars = MsgBox("Yakin mau keluar ?", vbQuestion + vbOKCancel, "Keluar?")
If keluars = vbOK Then
End
End If
End Sub


   perhatikan gambar diatas  , kemudian coba run project nya
VB 6.0 Selesai ... selanjutnya kita coba di VB.Net

1. Langkah pertama sama kita siapkan satu buah form dan 1 buah button

Masukan coding diwabah ini kedalam project code nya


Spoiler for script

VB Code:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim keluar As MsgBoxResult
keluar = MsgBox("Yakin mau keluar ?", vbQuestion + vbOKCancel, "Keluar?")
If keluar = MsgBoxResult.Ok Then
Close()
End If

End Sub


perhatikan gambarnya coba ,,

Coba jalankan programnya :


Yapp sudah selsesai dua duanya ,, :) sekian tutorial dari saya :D sekian gan semoga bermanfaat :)

E Book Membuat Program CRUD Di Foxpro 6.0



Assalamualaikum warrohmatullohi wabarokatu sobat IT ,,
E book saya kali ini akan menjelaskan nih langkah langkah untuk membuat program CRUD dengan foxpro ,, sebelumnya udah tau gak gan apa itu CRUD ? CRUD yaitu Creat Read Update Delete ,,
Kenggulan membuat program CRUD difoxpro adalah kita tanpa susah2 menambahkan coding / syntax yang rumit rumit , bahkan tidak perlu menambahkan syntax juga bisa . langsung saja gan download aja E - Booknya biar bisa dipelajari offline :

Semoga bermanfaat ^_^

http://ouo.io/w0ziR
kalo dipassword passwordnya : peluru

Source CRUD Dengan Visual Basic .NET & MS.Access


Assalamualaikum warohmatullohi wabarokatu ,,
Kali ini saya akan share source kode CRUD visual basic .NET dan MS.Access
sebelumnya apakan kamu tau apa itu C.R.U.D ?
CRUD adalah singkatan dari CREAT READ UPDATE DELETE
yappp program CRUD adalah program untuk menulis membaca merubah dan menghapus sebuah data dalam database , dan database yang saya gunakan kali ini menggunakan MS.Access .. semua database pada dasarnya sama memiliki table , filed , dan primary key . Jika kamu sudah mengetahui tentang system data mempelajari CRUD pasti akan lebih mudah dilakukan .
Kenapa saya hanya share source nya saja ? kenapa tidak dengan tutorial membuatnya juga ?
Itu karena untuk tutorialnya membutuhkan kata kata yang harus sesuai dengan yang anda inginkan dan untuk membuat tutorialnya saya rasa akan panjang hingga membuat part part untuk tutorial.
Untuk itu saya hanya share sourcenya saja untuk anda pelajari sendiri
karena ini sangat sederhana dan hanya menggunakan dua field saja .
langsung saja deh nihh gan yang butuh source kodenya sedott ..



Program Menghitung Nilai Dengan FoxPro


Assalamualaikun warohmatullohi wabarakatu..
yo sobat IT kali ini saya akan share tutorial membuat program nilai dengan foxpro
tadi dikampus belajar ini jadi keingetan dahh ,, tapi sama yang dikampus beda ko dari syntaxnya juga , jadi mohon maaf ini tidak copas dari kampus .. hanya sama saja programnya.

FoxPro masih berkerabat dengan Visual Basic karena itu sytaxnya pun tak jauh berbeda ,,
kalo menurut saya sih lebih enakkan visual basic , tapi ini hanya sebatas pengenalan saja kepada agan agan yang belum tau ..
Yu langsung aja cekitdot.

pertama kita buka dulu aplikasi foxpro nya
kemudian new project > new form



nah perhatikan langkah langkah gambar diatas ,,
setelah tampil form ,, kemudian siapkan 7 BUAH TEXTBOX , 7 BUAH LABEL, 2 BUAH COMMAND BUTON
atur seperti tampilan dibawah ini :




Kemudian klik pada tombol proses / button 1 , masukan syntax dibawah ini :

rata = (val(thisform.Text2.value)+val(thisform.text3.value)+val(thisform.text4.value))/3
thisform.text5.value = int(rata)
if rata >= 60 then
hasil = "lulus"
else
hasil = "tidak lulus"
endif
thisform.text7.value = hasil
total = (val(thisform.Text2.value)+val(thisform.text3.value)+val(thisform.text4.value))
thisform.text6.value = int(total)

lihat gambar :




setelah itu klik double pada tombol Keluar / comman buton 2 ,, masukan syntax dibawah ini :

thisform.release()
Lihat gambar :

Kemudian jalankan ,, klik yang tanda seru pada toolbar , atau ke menu Form > Run Form :


Nahh cukup mudah bukan ,, syntax nya emang agak sedikit mirip VB sih ,,
semoga bermanfaat

Membuat Game Troll Dengan Visual Basic 6.0



Selamat malam semuanya ^_^
Jumpa lagi dengan saya,,
kali ini saya akan share mengenai tutorial VB 6.0 lagi nih ^_^ hehe
Cara membuat game troll dengan visual basic 6.0
ya game ini cukup sederhana ,, dan sangat coeg sekali pokoknya deh ^_^ wkwkwkwk

langsung saja deh yuk kita mulai nih ,,

pertama siapin 2 buah form
Form1
1 Label  , name = Label1
1 Command Button , name = Command1

Form2
1 Label  , name = Label1
1 Command Button , name = Command1


Spoiler form1 :


Nah ,, setelah itu atur propertis command1
top = 2880
Style = 1-Graphical

Spoiler :





Nah style = 1-Graphical berguna untuk mengubah style command1 menjadi grapik agar bisa ditambah kan gambar gan,,
propertis picture command1 , dan pilih gambar yang mau agan jadiin command1 nya
Spoiler :


Berikutnya kita buat menu editor ,, atau biasa disebut menubar itu loh , hehe
caranya pilih menu tool >> menu editor
aturlah menu editor seperti gambar dibawah ini gan
Spoiler :

nah jika sudah sampai sini tinggal masukin deh scriptnya ,,
klik double pada form1, masukin script berikut :




Private Sub cheat_Click()
MsgBox ("Tekan spasi pada keyboar"), vbInformation + vbOKOnly, "Cara Ngecheat"


End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.Top = 2880 Then
    Command1.Top = 0
    Command1.Left = 4800
ElseIf Command1.Left = 4800 Then
    Command1.Left = 0
ElseIf Command1.Left = 0 Then
    Command1.Top = 2880
    Command1.Left = 2280
End If
End Sub
Private Sub Command1_Click()
MsgBox ("Selamat !,anda coeg sekali"), vbInformation + vbOKOnly, "Sukses"
Form2.Show
Unload Me
End Sub

spoiler :



tinggal buat form kedua deh nih , terakhir ^_^ hehe
Aturlah seperti ini gan ^_^ satu buat label dan satu buah command buton
spoiler :

masukin scriptnya seperti ini ,, cara memasukan scriptnya lakukan seperti yang form satu tadi ^_^ hehe :


Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub



nah sudah ?
Yap tinggal coba deh test programnya ^_^ hehe
Akhirkata dari saya ,, saya ucapkan mohon maaf bila da kata yang kurang berkenan
Wassallamualaikun semoga bermanfaat

jika ingin download script dan hasil punya saya disini :

Download : http://ouo.io/EhNdW

Tutorial Membuat Aplikasi Perubah Text Ke Suara Dengan VB 6.0




Assalamualikum warrohmatullohi wabarokatu ^_^
Hallo sobat IT ,,
Kali ini saya akan share mengenai visual basic 6.0 , yakni :
Membuat Aplikasi Perubah Text Ke Suara Dengan Visual Basic 6.0

Nah kalian pernah dengar gak aplikasi talk it ? kalo belum tau silahkan cari deh diblog ini ada ko ^_^ Kita akan membuat aplikasi yang mirip seperti itu gan hehe
Namun program saya ini sangat sederhana ,, dana hanya tersedia dala logat English Monoton gan ^_^ wkwkwk
Tidak seperti sebelumnya saya hanya membagikan sourcenya , karena program ini sourcenya begitu sederhana tidak rumit , maka saya akan share tutorial membuatnya nih ^_^

Hal yang pertama , Siapkan
1 buah form
1 buah Command ,name = buttonCommand1
1 buah Textbox ,name = Text1

perhatikan gambar berikut :

Setelah itu klik double pada form ,, masukan script dibawah ini :


Option Explicit
Sub bicara(ByVal txt As String)
Dim s
Set s = CreateObject("sapi.spvoice")
s.Speak txt
End Sub

Private Sub Command1_Click()
DoEvents
If Trim(Text1) <> "" Then bicara Text1
End Sub
Spoiler :

Sudah ?
Yap tinggal jalankan deh programnya :-D haha mudah bukan ? :v hehe
Yap karena ini hanya mengonekan ke program bawaan microsoft aja gan ^_^
Penampakan punya saya :

Nah langsung coba deh ^_^ saya tidak akan share programnya ,, karena ini sangat muda :v hehe
Akhir kata dari saya mohon maaf bila ada kesalahan dalam penyampaian ^_^ Semoga bermanfaat.
Wasssalamualaikum warrohmatullohi wabarokatu .

Source Piano Dengan VB 6.0



Assallamualaikum warohmatullohi wabarokatu ^_^
Hallo sobat IT apa kabar ? ^_^
Kali ini saya akan membagikan
"Source Piano Dengan Visual Basic 6.0"
Nah bagaimanakah kerja aplikasi ini ?
aplikasi ini adalah virtual piano untuk PC ,, jadi kita dapat memainkan piano di komputer sobat IT ^_^
Gimana tuh ,, keren gak ? hehe
Aplikasi ini juga menggunakan fungsi keyboard jadi gak perlu susah susah ni diklik klik ,^_^
Fitur fitur efeknya juga banyak gan ,, ada fek bass , acoustik , clasik , dan lain lain
kita juga dapat merekam hasil kita ,, dapat diload pula tentunya dan nanti dimainkan lagi ^_^ hehe
Begini nih penampakannya gan :

Nah cukup menarik bukan ? ^_^
Langsung saja deh nih yang mau download silahkan dicomot gan ^_^


Download : http://adf.ly/uP2Ug

Source Game Flappy Bird VB 6.0


Assalamualaikum warrohmatullohi wabarokatu ^_^
Apa kabar sobat IT ? ^_^ semoga tetap sehat wal afia amiin
Kali ini saya akan share
"Source Game Flappy Bird Visual Basic 6.0"
Berhubung saya sangat suka visual basic 6.0 jadi saya lebih sering update ini nih ketimbang yang lain ^_^ hehe
Saya dapat source ini hasil pencarian kesana kemari gan , sampai akhirnya menemukan sebuah source yang verry verry amazing ^_^ hehe
Kemudian saya mod lagi agar lebih menarik karena program sebelumnya sangat sederhana dibanding yang saya share ini ^_^ hehe
Kenapa saya tidak share mengenai tutorialnya ? karena itu memakan waktu yang lama untuk bahasa yang digunakan juga kadang kadang susah dimengerti , untuk itu saya hanya share source source nya saja ,, selebihnya silahkan kalian ulik2 lagi deh ^_^ hehe

Begini penampakannya gan :


Tekan flap untuk loncat loncat - tekan pause untuk jeda .
Langsung saja deh nih yang kebelet ingin ngulik atau hanya ingin sekedar main saja silahkan kalian bisa  download sourcenya atau game nya saja ^_^
Kalau ada Bug harap melapor gan ,, karena ini hanya program percobaan jadi wajar saja bila ada bug ^_^ hehe
Cukup sekian dari saya terimakasih ^_^
Wasssallamualaikum .


Download Source : http://adf.ly/uP32m

Download Game : http://adf.ly/uP386

Source Program Wordpad Dengan VB 6.0



Assalamualakum warohmatullohi wabarrokatu
Hay sobat IT ^_^ Apa kabar ^_^
Kali ini saya akan share source program visula basic 6.0 nih ^_^ hehe
"Project WordPad Visual Basic 6.0"
Saya nemu project ini disalah satu forum VB gan ^_^ hehe sudah lama memang , tapi tidak ada salahnya saya share kembali , karena seiring berjalannya waktu link2 di internet bisa mati ,, mangkannya harus update terbaru lagi ^_^
Ya program ini cukup bagus gan ,, fitur2nya juga kumplit , persis seperti wordpad bawaan microsoft itu lohh ,, hehe
Untuk spoiler begini gan :

Nah cukup menarik bukan ??
Langsung saja deh yang penasaran , download filenya nih ^_^ hehe  . .
Cukup sekian hari ini ,, Wassallamualaikum ,, Terimakasih ^_^

Download Source : http://adf.ly/uENDr

Membuat Kill Process Manager VB NET






source code :
Imports System.Diagnostics.Process
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim proces As Process
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'on error goto fix
        'dim str as string=inputbox('enter process to kill","process killer","killer")
        For Each proces In GetProcesses()
            'if proces.processname=str.errortostring or process.processname="smss" then
            '   proces.kill()
            'end if
            Me.ListBox1.Items.Add(proces.ProcessName)
        Next
        'fix
        'end
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'msgbox(me.listbox1.selecteditem)
        For Each proces In GetProcesses()
            If proces.ProcessName = Me.ListBox1.SelectedItem Then
                proces.Kill()
            End If
        Next
        Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndex)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class