membuat program clayen server

hmmmmm, aku dah dapat cra membuat program klayen server di vb.., dan langsung ku kopas di blog ini
dari pada di simpan di komputer yang rawan akan kehilangan data mending di simpan di blog 
ok kita mulai tutorial nya
 sSide 1. Buatlah sebuah form dalam Visual Basic (VB) untuk sisi server, selanjutnya masukkan beberapa komponen sehingga tampilan menjadi seperti gambar dibawah, adapun komponen yang dibutuhkan dapat dilihat pada tabel dibawah gambar. 

Selanjutnya ketikkan code dibawah ini kedalam komponen objek yang mengalami event/action pada tabel diatas, diantaranya objek Form, commandbutton dan Winsock. Private Sub cmdSend_Click() Dim s As String s = Text2.Text sckServer.SendData Text2.Text List1.AddItem Text2.Text Text2.Text = "" Text2.SetFocus End Sub Private Sub Form_Load() sckServer.Close sckServer.LocalPort = 6666 sckServer.Listen End Sub Private Sub sckServer_ConnectionRequest(ByVal requestID As Long) sckServer.Close sckServer.Accept (requestID) Text1.Text = sckServer.RemoteHostIP End Sub Private Sub sckServer_DataArrival(ByVal bytesTotal As Long) Dim thedata As String sckServer.GetData thedata List1.AddItem thedata End Sub 3. Simpan project yang anda buat pada folder tersendiri, beri nama prjServer untuk nama projectnya dan FrmServer untuk formnya. Client Side 1. Buatlah sebuah form dalam Visual Basic (VB) untuk sisi client, selanjutnya masukkan beberapa komponen sehingga tampilan menjadi seperti gambar dibawah, adapun komponen yang dibutuhkan dapat dilihat pada tabel dibawah gambar.

Selanjutnya ketikkan code dibawah ini kedalam komponen objek yang mengalami event/action pada tabel diatas, diantaranya objek Form, commandbutton dan Winsock. Private Sub cmdConnect_Click() sckClient.Close sckClient.RemoteHost = Text1.Text sckClient.RemotePort = Text2.Text sckClient.Connect End Sub Private Sub cmdSend_Click() sckClient.SendData Text3.Text List1.AddItem Text3.Text Text3.Text = "" Text3.SetFocus End Sub Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) Dim data As String sckClient.GetData data List1.AddItem data End Sub 3. Simpan project yang anda buat pada folder tersendiri, beri nama prjClient untuk nama projectnya dan FrmClient untuk formnya. 

Read more »

membuat Winamp di vb

untuk membuat aplikasi winamp atau pemutar suara di vb
buatlah seperti contoh yang saya buat

buka project baru dan atur seperti gambar berikut\

lalu masukan kode berikut

Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim cEvent As Single
cEvent = X / Screen.TwipsPerPixelX
Select Case cEvent
    Case MouseMove
        Debug.Print "MouseMove"
    Case LeftUp
        Debug.Print "Left Up"
    Case LeftDown
        Debug.Print "LeftDown"
    Case LeftDbClick
        Debug.Print "LeftDbClick"
    Case MiddleUp
        Debug.Print "MiddleUp"
    Case MiddleDown
        Debug.Print "MiddleDown"
    Case MiddleDbClick
        Debug.Print "MiddleDbClick"
    Case RightUp
        Debug.Print "RightUp": PopupMenu mnuform
    Case RightDown
        Debug.Print "RightDown"
    Case RightDbClick
        Debug.Print "RightDbClick"
End Select
End Sub

Private Sub mnuHide_Click()
    If Not Me.WindowState = 1 Then WindowState = 1: Me.Hide
End Sub

Private Sub mnuShow_Click()
    If Me.WindowState = 1 Then WindowState = 0: Me.Show
    TrayDelete  '[Deleting Tray]
End Sub


Private Sub Form_Unload(Cancel As Integer)
Dim X As Integer
    If MsgBox("Is it Satisfactory?", vbQuestion + vbYesNo, "Please tell Me") = vbYes Then
        X = MsgBox("(  Please 'RATE' this code  ).Click 'Ok' to copy the site address  to your clipboard", vbInformation + vbOKCancel, "ThankYou")
    Else
        X = MsgBox("( Please give feedback ) to improve this code.Click 'Ok' to copy the site address  to your clipboard", vbInformation + vbOKCancel, "Please Give FeedBack")
    End If
    If X = vbOK Then Clipboard.SetText ("Not set")
End Sub


Private Sub Command4_Click()
MMControl1.Command = "pause"
End Sub

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
CommonDialog1.Filter = "file mp3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
End Sub

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
'animation
End
End Sub

Private Sub Image3_DragDrop(Source As Control, X As Single, Y As Single)
TrayAdd hwnd, Me.Icon, "System Tray", MouseMove
    mnuHide_Click
End Sub

Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
CommonDialog1.FileName = File1.FileName
File1.FileName = MMControl1.FileName
MMControl1.Command = "open"
MMControl1.Command = "play"
File1.Refresh
End Sub

Private Sub Image5_DragDrop(Source As Control, X As Single, Y As Single)
MMControl1.FileName = File1.FileName
MMControl1.Command = "previous"
End Sub

Private Sub Image6_DragDrop(Source As Control, X As Single, Y As Single)
MMControl1.FileName = File1.FileName
MMControl1.Command = "next"
End Sub

atau mau lebih cepatnya download aja di link ini

Read more »

RTC (rpl transfer cyber)

kali ini saya punya program untuk mengirimkan file lewat jaringan pastinya menggunakan vb lah..,
ok langsung aja penjelasannya,,.
program ini punya 2 mcam bentuk
1. yg bertindak sbgai server atau penerima
2. yg bertindak sbgai client atau pengirim

1. RTC server

gambar di atas adalh freevew dr RTC server

2. RTC clien

dan yang ini gambar untuk RTC client


ok berminat untuk mencobanya klik link di bawah aja

Read more »

source code virus di vb

akhirnya dapat juga source code virus di vb
setelah sekian lama googling..., yang mau belajar
Silahkan download contoh program virus menggunakan visual basic,
Bro... saya tidak bertanggung jawab akibat kerusakan yang terjadi pada komputer anda, apabila anda mendownload contoh virus ini, ini hanya pembelajaran saja....


Source Virus Habibi
Virus Worm [Source code]
Virus Pluto [Source Code]
Contoh Virus
Tutorial Membuat Virus
Membuat Virus Macro
Virus Maker
Virus Win Vista [tutorial membuat virus pada windows vista]

Read more »

penggunaan fungsi loop vb

fungsi loop adalah perintah pengulangan suatu peristiwa yang akan di ulang berkali - kali 

skripnya liat ndiri'

Private Sub Command1_Click() 

  For i = 1 To 10 

      Picture1.Print i; 

  Next i 

End Sub 

'-----------------

Private Sub Command2_Click() 

  Do i = i + 1 

      Picture2.Print i; 

  Loop Until i = 10 

End Sub 

'-------------------

Private Sub Command3_Click() 

  While i < 10 

      i = i + 1 

      Picture3.Print i; 

Wend 

End Sub 

'---------------------

Private Sub Command4_Click() 

   Do While i < 10 

      i = i + 1 

      Picture4.Print i; 

    Loop 

End Sub 

'------------------------

Private Sub Command5_Click() 

   Do i = i + 1 

      Picture5.Print i; 

      If i = 10 Then Exit Do 

   Loop 

End Sub 

mau download program aslinya,,. klik aja link ini

Read more »

MEMBUAT ANIMASI FORM CLOSE

Dengan tutorial ini saya bisa berkata dengan jujur bahwa ini asli saya bikin sendiri.., memang yang kemarin - kemarin itu asli kopas dari blog lain ..., tapi yah mau gi mana lagi namanya juga baru belajar

ok brayyyy.., lanjut di tutorial ..,
pertama buat projeck baru di vb..,
kali ini kita akan membuat animasi form exit..,
model formnya sperti gambar berikut

msukkan masing - masing kodenya,,.

klik 2 kali common button nya dan masukkan kode berikut
animation
end

klik 2 kali formnya dan di jendela pembuatan kode ganti kegunaan form load jadi form unload
dan masukkan kode berikut

animation

dan yang terahir buat public sub baru seperti di bawah

public sub animation
dim i as long
dim g as long
i = scaleheight
g = scalewidth

while not i = 0
i.height = i.height -25
i = i -1
wend

while not g = 0
g.width = g.width -25
g = g-1
wend

end sub

dan coba jalankan apa yang akan terjadi,,.,

Read more »