Anasayfa
Profiliniz 
Sosyal
Özel Mesaj
Direk Baslayalım
Module eklenicek kodlar
Yazıyı hex e cevirmek icin.
Butona Eklenecek Kodlar:
Tex1 e yazdığınız yazıyı commander gibi yeşil yazıyla gecicektir.
Module eklenicek kodlar
- Kod:
Public hexword As String
Yazıyı hex e cevirmek icin.
- Kod:
Private Function HexString(EvalString As String) As String
Dim intStrLen As Integer
Dim intLoop As Integer
Dim strHex As String
EvalString = Trim(EvalString)
intStrLen = Len(EvalString)
For intLoop = 1 To intStrLen
strHex = strHex & Hex(Asc(Mid(EvalString, intLoop, 1)))
Next
hexword = strHex
End Function
- Kod:
Notice paket yollama fonksyonu.
Function Notice(NoticeYazi As String)
Dim pStr As String
Dim pBytes() As Byte
HexString NoticeYazi
pStr = "10131300" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Function
Butona Eklenecek Kodlar:
- Kod:
Private Sub Command1_Click()
Notice Text1.Text
End Sub
Tex1 e yazdığınız yazıyı commander gibi yeşil yazıyla gecicektir.
» Black Dark Lite Edition 2010 V2 - Emre90, 2010'un En Şık Lite Sürümü
» izzet Yıldızhan - Sen Deli Misin fuLL 2009 | 320 Kbps
» Install ClockworkMod Recovery on the LG GT540 Optimus
» Root the LG GT540 Optimus
» LG P503 Optimus One Root + Recovery
» LG-970 CWM Ve Root Enjekte Etme!
» LG Optımus 3D Max Root Yapımı
» LG Optimus 4X HD'ye CWM Yükleme