Đễ nhận biết thành viên của đội Jeenbi zễ dàng hơn thì các bạn nên đăng kí njk Forum là JeenBi☺️Tên bạn thjk


[Share] Code Hack Audition VB6 Version 6111Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Thu Jun 13, 2013 9:25 pm
[Share] Code Hack Audition VB6 Version 6111 Bgavatar_06
[Share] Code Hack Audition VB6 Version 6111 Bgavatar_01 [Share] Code Hack Audition VB6 Version 6111 Bgavatar_02_news [Share] Code Hack Audition VB6 Version 6111 Bgavatar_03
[Share] Code Hack Audition VB6 Version 6111 Bgavatar_04_newJeenBi [Share] Code Hack Audition VB6 Version 6111 Bgavatar_06_news
[Share] Code Hack Audition VB6 Version 6111 Bgavatar_07 [Share] Code Hack Audition VB6 Version 6111 Bgavatar_08_news [Share] Code Hack Audition VB6 Version 6111 Bgavatar_09
[JeenBi☺Team] - JeenBi
JeenBi☺Nguyễn--Admin--
JeenBi☺Nguyễn--Admin--
Tổng số bài gửi : 199
Points : -2147483623
Thanked : 1
Chủng Tộc : BUTTERFLYYELLOW
Join date : 27/04/2013
Đến từ : PhongCach4Vn.Com

[Share] Code Hack Audition VB6 Version 6111 Vide

Bài gửiTiêu đề: [Share] Code Hack Audition VB6 Version 6111
Nguồn : Http://www.jeenbiteam.forumvi.com/t138-topic

Tiêu Đề : [Share] Code Hack Audition VB6 Version 6111

JeenBi☺Team - Kết Nối Cộng Đồng Tân Phú Online
--------------------------------------------------
Code:
Private Sub Check1_Click()
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Per Feck"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF472, &H907C
Put #1, &H4DF473, &H907F


Close #1
End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4DF472, &H7F7C
Put #1, &H4DF473, &H3F7F
Close #1
End If
End Sub


Private Sub Check11_Click()
If Check11.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Per BR"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF4B8, &H9000
Put #1, &H4DF4B9, &H9001
Put #1, &H4DF4B6, &H9002
Put #1, &H4DF4B7, &H9001


Close #1
End If
If Check11.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4DF4B8, &H100
Put #1, &H4DF4B9, &H201
Put #1, &H4DF4B6, &H102
Put #1, &H4DF4B7, &H2
Close #1
End If
End Sub

Private Sub Check7_Click()
If Check7.Value = Checked Then
FileCopy "nkons2khj.dll", "Hackdel.exe"
Shell App.Path & "\Hackdel.exe"
Check7.Enabled = False
End If
End Sub



Private Sub Check12_Click()
If Check12.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Bug Score BU"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4F11F7, &H4903

Close #1
End If
If Check12.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"

Put #1, &H4F11F7, &H3
Close #1
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Bug Diem Vip"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF517, &H4916
Put #1, &H4DF51B, &H493B
Put #1, &H4DF51F, &H4961
Put #1, &H4DF527, &H4996
Put #1, &H4DF52B, &H49A8
Put #1, &H4DF52F, &H49C8


Close #1
End If
If Check2.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4DF517, &H4416
Put #1, &H4DF51B, &H443B
Put #1, &H4DF51F, &H4461
Put #1, &H4DF527, &H4496
Put #1, &H4DF52B, &H44A8
Put #1, &H4DF52F, &H44C8
Close #1
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Dao Xink+Noi Bay"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4ADC63, &H732F
Put #1, &H4ADDCB, &H316E

Close #1
End If
If Check3.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4ADC63, &H652F
Put #1, &H4ADDCB, &H766E
Close #1
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Ðon"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &HA620
Put #1, &H1A7FDD, &H610

Close #1
End If
If Check4.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check5_Click()
If Check5.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Ðon"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &HFB20
Put #1, &H1A7FDD, &H3310

Close #1
End If
If Check5.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If


End Sub
Private Sub Check6_Click()
If Check6.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss Nho'm"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H6F20
Put #1, &H1A7FDD, &H1710

Close #1
End If
If Check6.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check7_Click()
If Check7.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss BU"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H7020
Put #1, &H1A7FDD, &H1610

Close #1
End If
If Check7.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check8_Click()
If Check8.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Hack Rs Boss BR"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H1A7FDC, &H1F20
Put #1, &H1A7FDD, &H2C10

Close #1
End If
If Check8.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H1A7FDC, &H1020
Put #1, &H1A7FDD, &H1B10
Close #1
End If
End Sub

Private Sub Check9_Click()
If Check9.Value = Checked Then
MsgBox " Ban Da Bat Hack Thanh Cong", , "Bug Gioi Tinh"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4F3BB6, &H4E00
Put #1, &H4F3BC0, &H6

Close #1
End If
If Check9.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "Design H-Modz"

Put #1, &H4FABB6, &H5A00
Put #1, &H4F3BC0, &H6B
Close #1
End If
End Sub

Private Sub Command1_Click()

  MsgBox " Ban Da Bat Hack Thanh Cong", , "Design Hoastyle"
  FileCopy App.Path & "\Modz.dll", App.Path & "\data\031.acv"
 
Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4FABB6, &H5A00
Put #1, &H4F3BC0, &H6B




Private Sub Check1_Click()
If Check1.Value = Checked Then
MsgBox " Ban Da Kick Hoat Hack Thanh Cong", , "Hack Cool ko Miss"

Open App.Path & "\Audition.exe" For Binary As #1
Put #1, &H4DF47e, &H4099
Put #1, &H4DF484, &H403f
put #1, &h4df485, &h4000
Put #1, &H4DF476, &H4000
Put #1, &H4DF487, &H4000
put #1, &h4df488, &h4000
Put #1, &H4DF479, &H4000
Put #1, &H4DF48b, &H4080


Close #1
End If
If Check1.Value = Unchecked Then
Open App.Path & "\Audition.exe" For Binary As #1
MsgBox " Ban Da Tat Hack Thanh Cong", , "H-Modz"


Close #1
End If


Copy đường link dưới đây gửi đến nick yahoo bạn bè!



[Share] Code Hack Audition VB6 Version 6111

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
Permissions in this forum:Bạn không có quyền trả lời bài viết
 » Thư Giãn - Game » Trao Đổi Kiến Thức Lập Trình Hack Game-