[ Süper Okcu Yapmak ]USKO kendi KOXPUNU kendin yap VB6

Private Sub Check15_Click()

If Check15.Value = 1 Then

Timer17.Enabled = True

Else

Timer17.Enabled = False

End If

End Sub



1 adet check ekleyin ve kodları yapıştırın ..



Timer ekleyin bir adet .



Özellikleri :



İnvertal = 500

Enabled = False



Kodları :



Private Sub Timer17_Timer()

Dim pStr As String, pBytes() As Byte

pStr = "080101" + MobID + "6e"

ConvHEX2ByteArray pStr, pBytes

SendPackets pBytes

End Sub