Ewekers Versi Sange

Sample Project Ewekers v Sange For Duel Kicking :D
Feature :

  • Load 10 id 
  • Set Multiple max 1000
  • Dual Mode kick 
  • Auto ping IP adress
  • Auto Timer
  • Auto Target List
  • Auto Kick At Remaining
  • Auto Ceck Balance
  • Kick Self
  • Flat account
Untuk Download File sama Winrar Pass nya Seperti biasa sms / pvt ajja :P

Join Room , Leave Room, Send text mig33 ( vb6 )

Ok.. lanjutan dari sample Login mig33 yang kemaren ,klo belum tau yang kemaren cek di sini
Sekarang lanjut ke Join room, Leave room dan send text.. tapi sekarang aQ ga akan upload sample nya lagi . hahahaha...

Pertama buka project yang kemaren trus double click module “Function” atau apa lah namanya :D
kemudian tambahkan function di bawah ini :
__________________________________________________________________________________

__________________________________________________________________________________
Leave Room :
Public Function LeaveRoom(Room As String)
LeaveRoom = H2A(“0202C00017000000″ & DecToHex(Len(Room) + 6) & “0001000000″ & DecToHex(Len(Room)) & A2H(Room))
End Function
NBSebaik nya jangan di copas buat masukin coding ke project,akan lebih baik di tulis manual,supaya ga terjadi error :P
__________________________________________________________________________________
__________________________________________________________________________________
Join Room :

Public Function JoinRoom(Room As String)
JoinRoom = H2A(“0202BF000F000000″ & DecToHex(Len(Room) + 6) & “0001000000″ & DecToHex(Len(Room)) & A2H(Room))
End Function
__________________________________________________________________________________
__________________________________________________________________________________
Sent Text Room :

Public Function sendtextroom(user As String, kata As String, Room As String)
sendtextroom = H2A(“0201F4000B000000″ & DecToHex(Len(user) + 40 + Len(Room) + Len(kata)) & “0008000000″ & DecToHex(Len(kata)) & A2H(kata) & “00060000000200010004000000″ & DecToHex(Len(Room)) & A2H(Room) & “000300000001030002000000″ & DecToHex(Len(user)) & A2H(user) & “00010000000101″ )
End Function
__________________________________________________________________________________
__________________________________________________________________________________
coding ini juga yg digunakan klo mo bikin Flood  , tapi untungnya Aq bukan flooder . :P
klo udah balik lagi ke Form nya.. jangan lupa di save dulu
Kemudian Bikin 1 command button dan kasih nama = CmdEnter
kemudian bikin lagi 1 command Button dan kasih nama = CmdLeave
Kemudian bikin 1 textbox kasih nama = Room


klo udah double click CmdEnter tadi trus pastekan ini :
Warik.SendData (0), JoinRoom(Room)


double click CmdLeave tambahkan ini :
Warik.SendData (0), LeaveRoom(Room)
klo udah sekarang coba login trus tulis room nya di textbox “Room” yg tadi dibikin, bisa masuk room apa gga :P ,
Klo udah berhasil kita lanjut ke Send Text room nya..
Tambahkan lagi 1 command button kasih nama = CmdSend
Tambahkan 1 txtbok trus kasih nama = TxtSend


Double Click CmdSend tambahkan ini :
Warik.SendData (0), sendtextroom(txtUname, TxtSend, Room)

Gampang kan :D...
terang aja gampang .. orang cuma copas dowang  :D...
wkwkwkwkwkwkw... :D ...
Qlo udah coba Run project nya trus login coba masuk rum, trus coba send text
Goood Luck :P semoga berguna ….

Membuat Auto Timer Pada Saat Start Kick Mig33 ( vb6 )

Lagi dapat Koneksi buat Posting ,Alhamdulillah yah.. kali ini aQ akan post cara membuat auto timer pada saat start kick di mig33, sebenarnya banyak cara untuk bikin auto timer ini , Aq akan bahas salah satunya aja
( karena cara yang lain Aq gag tau  ),
Untuk lebih mudahnya kita pakai sampel yang pertama aja  biar kalian pindah sendiri ntar ke sampel Multy ..
Sekarang kita bikin control2 yang di perlukan ...
Pertama Tambahkan Timer kemudian kasih nama : timerz , kemudian setting properties timerz tersebut seperti ini :
Kedua ,Bikin 1 Label Baru kasih nama = TextTim
Ketiga ,Tambahkan CheckBok kasih nama = CheckTimer
Sekarang kita lanjut ke Source.:D
Tambahkan Koding dibawah ini pada data Arrival :
If CheckTimer.Value = Checked Then
If InStr(1, LCase(DatIn), “a vote to kick” ) Then
Timerz.Enabled = True
End If
End If
Itu Fungsinya buat Membaca kata A vote to kick pada saat start kick dimulai.

Klik 2 kali pada timerz tadi kemudian tambahkan :
TextTim.Caption = Val(TextTim.Caption) – 1

Kemudian Klik 2 kali pada label TextTim tadi, ubah TextTim_Click ( )  menjadi TextTim_Change ( ) , Tambahkan :
If TextTim = 0 Then
Timerz.Enabled = False
TextTim.Caption = 60
End If

Udah Aq Tes pada sampel pertama dan WORKED :P
Selamat Mencoba :D..

Sample Messenger dan AutoList Mig33

Sampel udah tested  udah bisa Auto list yang Entered sama yang Leave,
udah bisa baca Teks admin , merchant  tapi ga pke warna Id..:D
Sisanya bisa di kembangin sendiri :D 
OK langsung Aja Download Sampelnya

Buat pass rar nya seperti biasa sms ajja :P..

Sample Multy Login Mig33 ( Vb6 )


Sekarang aq akan bahas Bagaimana caranya login multy pada  mig33 ,
karena sebenar nya aQ juga masih belajar, terus lagi dapat Mood bagus dan lagi Baik hati maka okelah Aq kasih sample lagi  .
tapi saya harap jangan telan bulat2 neh sampel , akan lebih baik kalau di pahami,
Sample ini silahkan dikembangin Sendiri ,
Seperti "kata guru saya" gon_21 tinggal main Logika aja .. wkakakakakkk
Untuk menambahkan Indikator JumlahMulty yang di array / index ,
Silahkan tambahkan :
Label dan beri nama dengan = TotalMulty
Isi Caption Labelnya dengan angka ” 0 ” ( Nol )
Tambahkan Koding ini seperti foto di atas
TotalMulty.caption = Listview1.listItems.Count

Sedangkan Untuk menambahkan Indikator Jumlah multy yang Login
Tambahkan Label dan beri nama =TotalLogin
Isi caption Labelnya dengan angka ” 0 ” ( Nol )
Untuk menampilkan Jumlah Loginnya Tambahkan Ini Di bawah tulisan “Logged In” di data Arrival
TotalLogin.caption = TotalLogin.caption + 1

Ingat, Caption Labelnya Harus  di isi dengan angka ” 0 “
Selamat Mencoba dan semoga bermanfaat :P..
Download :

Buat pass rar : .. seperti biasa sms/pvt ajja :D 

List User Mig33 ( Repair )


Pada sampel yang kemaren ada sedikit yang kurang enak dipandang kayaknya
Yaitu Pada Saat ngelist kadang Bisa Double dan Ada Blank List . Berhubung lagi ga sibuk neh aq perbaikin.
Cari pada Bagian Data Arrival seperti Gambar :

Kalo Udah Trus Tambahin Koding Kaya gambar , Tulis Manual aja ya  :D :

Jadinya Seperti Ini ntar :
If a = “0202C400″ Then
ListCode
End If

Dan Ini Sub ListCode nya :
Private Sub ListCode()
Dim a As String
Dim B As String
Dim out As String
Dim user() As String
Dim c As Integer
Listuser.Clear
a = Mid(DatIn, 14, 2)
a = A2H(a)
B = Unhex(a)
out = Mid(DatIn, 16, B )
user() = Split(out, “;”)
For c = 0 To UBound(user()) – 1
Listuser.AddItem user(c)
total.text = Listuser.ListCount
Next c
End Sub

Good Luck  Mudah-mudahan Listnya Ga bakal Double Atau Kacau lagi. :D

New Mig33 Android version 3.0

Salam miger,
Ini artikel dari blog temen aQ Kang Bukyung
yang info nya selalu ter update hahahaha :D,
langsung saja ..weeeeeeerrrrr  ..:P..

Versi terbaru dari Mig33 Android.
Saat ini mig33 merilis lagi New Mig33 Androin v3.0 yang mengambil jargon Fast Fun Social Jadi melalui versi ini, ponsel Android bisa menikmati chat dengan lebih cepat dan lebih mudah dalam penggunaan fitur-fitur mig33-nya. Untuk perubahan di Android version 3.0 ini diantaranya:

Tampilan lebih ramping dengan akses lebih cepat dan mudah :D

Aplikasi photo baru dengan penambahan bingkai dan efek dimenunya :D,

Multy-tasking halaman percakapan dan chatroom :D,

Share Update :D
Lebih menghemat daya baterai :P
Download 
source : Kang Bukyung

I orange fress script kang bagas96 copyright 2011
diteri.mig33.us