Aşağıdaki Kodu New Modülüne Yani(Pointerleri Değiştirdiğiniz Modül)'ün En altına Yapıştırın.
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
Daha Sonra;
Foruma bir Timer ekleyin ismi Timer1 intervali 200 olsun
Birtane text box ekleyin ismi Text1 olsun
Birtanede ListBox ekleyin ismi List1 olsun
Şimdi Aşağıdaki Kodları Projenize Yazın:
Private Sub Form_Load()
list1.additem ("GM ISMI1")'gmlerin adlarını buraya yazın
list1.additem ("GM ISMI2")'gmlerin adlarını buraya yazın
list1.additem ("GM ISMI3")'gmlerin adlarını buraya yazın
End sub
Private Sub Timer1_Timer()
On Error GoTo Jackal'burada ne yaptık ? hata warsa jackal a git
List1.ListIndex = List1.ListIndex + 1'listedeki yazılanları tek tek secip alt satıra geç
Text1.Text = List1.List(List1.ListIndex)'text1 i listede seçilene eşitle
Exit Sub'kodlamadan cık
jackal: List1.ListIndex = -1'hata yani liste bittiyse tekrar başa sar
end sub
Private Sub Text1_Change()
PM (Text1.Text)'text1 de yazılan yazıya pm at
End Sub
Ne Yapmış Olduk?
Gmlere 200 mili saniyede bir tek tek pm attırmış olduk.
Şimdilik Benden Bukadar...
Herkese İyi Forumlar...
NOT: Kullanıpta Teşekkür Etmeyene Hakkımı Helal Etmiyorum..
-Jackal
Konu: Paylaşım: GMlere PM Attırmak(GM SAVAR) 
