[ HP düşerse Town AT ]USKO kendi KOXPUNU kendin yap VB6

Bir adet uzun bir check ekleyin . Checkin ortasına text ekleyin hp limiti girelebilecek . Bunların üstüne bir label ekleyin ..



Check kodları :



If Check3.Value = 1 Then

Timer31.Enabled = True

Else

Timer31.Enabled = False

End If

End Sub



Bir adet timerde ekleyin..



Timer özellikleri : İnvertal 1000 , False



Kodları :



If Label1.Caption > Text2.Text Then

Dim pBytes() As Byte

Dim pStr As String

pStr = Trim$("4800")

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

End If

End Sub



Label sayısını ve text ( hp girilen yeri ) sizin şeyinize göre ayarlayın ..



Sonuç



Texte girilen sayıda ( o sayı hpniz olacak örn : 250 ) o sayıda town atacaktır..