Auto List , Auto Kick Mig33

Rabu, 16 November 2011
Autolist yang kemaren kayanya dah ga bisa ya,. Hmmmmmmmm
diteri [48] (paintwars-paintemoticon] has entered, sekarang kaya gitu kan ?? wkwkwk.. makin aneh aja mig33 sekarang ya. penting nya buat apaan tuh fitur ? ada yang tau gak ..
Oke lanjut sob … ne mau dikasih sampel apa toturialnya aja  ya ???  enak banget seh kalau sampel terus

Pada bagian Function mig33 tambahin ini :
Public Const LB_FINDSTRINGEXACT = &H1A2Public Const CB_FINDSTRING = &H14CPublic Const CB_FINDSTRINGEXACT = &H158Public Const SWP_NOSIZE = 1Public Const SWP_NOMOVE = 2Public Const HWND_TOPMOST = -1Public Const HWND_NOTOPMOST = -2Public Declare Function SendMessageByString Lib “user32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Catatan : seperti biasa di tulis aja ya jangan di copast :P
Dibagian Data Arrival pada bagian  “0202C4″ Bikin seperti Gambar :
Nah ini Sub ListCode nya :
Nah kalau Udah lanjut ke Autolist Neh :D Di bagian Data Arrival masukin Ini , Letakin dmn aja :D
Ini buat Enter :

If Right(Tisi, 12) = ” has entered” ThenIf Left(Tisi, InStr(1, Tisi, ” “) – 1) <> txtUname.text Then
If SendMessageByString(Listuser.hwnd, IIf(True, LB_FINDSTRINGEXACT, LB_FINDSTRING), -1, ByVal Left(Tisi, InStr(1, Tisi, ” “) – 1)) < 0 Then
Listuser.AddItem Left(Tisi, InStr(1, Tisi, ” “) – 1)
total.text = Listuser.ListCount
TextAuto.text = Left(Tisi, InStr(1, Tisi, ” “) – 1) ‘  ini menambahkan user yg enter ke TeksAuto buat di kickEnd IfEnd IfEnd If

Ini buat left :

If Right(Tisi, 9) = ” has left” Then
Dim Asu As String
Asu = Left(Tisi, InStr(1, Tisi, ” “) – 1)
Dim Jmt As Long
Jmt = SendMessageByString(Listuser.hwnd, IIf(True, LB_FINDSTRINGEXACT, LB_FINDSTRING), -1, ByVal Asu)
If Jmt >= 0 Then Listuser.RemoveItem Jmt
total.text = Listuser.ListCount

Ini buat Kicked :

If Right(Tisi, 16) = ” has been kicked” Then
Dim Asa As String
Asa = Left(Tisi, InStr(1, Tisi, ” “) – 1)
If Asa >= 0 Then Listuser.RemoveItem Asa
total.text = Listuser.ListCount
End If

Seperti Biasa NOT RECOMENDED klo di copat :P Ditulis Aja :P usaha dikit lah :D
Nah itu udah buat Autolist nya, sekarang lanjut ke Autokick , Autokick ny sangat sederhana neh silahkan kembangkan Sendiri ntar. :P
Bikin 1 Checkbox , kasih nama Check Auto
Bikin 1 teksbok kasih nama TextAuto
Trus klik 2x di bagian TexAauto nyaisi seperti ini :
Geusan.aaah :D wkwkwkwkwkwk


Terima kasih sudah membaca Auto List , Auto Kick Mig33 dan sempatkan untuk membaca yang lainnya broth..
TEMPLATE DESIGN BY
m-template - by: bagas96

0 komentar:

copy smiley kode

Posting Komentar

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