GM TARAMA YAPMAK

Gerekenler;
1 adet listbox
1 adet button
1 adet checkbox
1 adet textbox
1 adet timer
----------------------------
Yapılışı;
1 adet List box açın ve içine gmlerin nicklerini yazın
Ana Modülünüze bunu girin
Kod:
Function PM(ID As String)
Dim pStr As String
Dim pBytes() As Byte
HexString ID
pStr = "3501" & Mid(AlignDWORD(Len(ID)), 1, 2) & "00" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Function
1 Adet checkbox açın;
Kod:
Private Sub Check24_Click()
If Check24.Value = 1 Then
timer1.Enabled = True
Else
timer1.Enabled = False
End If
End Sub
Altına 1 adet Text box açın (Text box için kod gerekmicek)
Textboxın altınada button açın ve caption u Gm ismi ekle yazın
Kod olarak şunu girin;
Kod:
Form1.List5.AddItem Text13.Text
Timer açın bir adet ENABLED = FALSE İNTERVAL=50
Kod;
Kod:
Private Sub Timer1_Timer()
On Error GoTo jackal
List5.ListIndex = List5.ListIndex + 1
PM List5.Text
Exit Sub
jackal: List5.ListIndex = -1
End Sub
CHECK TİMER BUTON LİST NUMARALARINI KENDİNİZE GÖRE AYARLAYIN..

alıntıdır