safakturk Möderatör
National Point : 98 Leader Point : 5598 Mesaj Sayısı : 44 Kayıt tarihi : 07/09/09
| Konu: Oto Repair Yapımı. Ptsi Eyl. 07, 2009 10:15 pm | |
| Gerekenler
- 1 Adet CheckBox
- 1 Adet Timer
Yapılışı: Timerin Enabled "False" Interval "900" Yapın. Aşagıdaki Kodları Gereken Yerlere Ekleyin.
CheckBox Kodu
Kod:
If Check14.Value = 1 Then Timer10.Enabled = True Else Timer10.Enabled = False End If
Timer Kodu
Kod:
Dim RprString As String Dim pBytes() As Byte Dim itemID As String Dim SlotID As String Dim a As Long, b As Long, e As Long, f As Long, g As Long, h As Long, ı As Long, i As Long Dim c As Long a = ReadLong(&HB7CDD0) ReadProcessMem KO_HANDLE, a + &H338, b, 4, 0& ReadProcessMem KO_HANDLE, b, c, 4, 0& ReadProcessMem KO_HANDLE, a + &H348, e, 4, 0& ReadProcessMem KO_HANDLE, e, f, 4, 0& D = AlignDWORD(c + f) ReadProcessMem KO_HANDLE, a + &H334, g, 4, 0& ReadProcessMem KO_HANDLE, g, h, 4, 0& ReadProcessMem KO_HANDLE, a + &H344, ı, 4, 0& ReadProcessMem KO_HANDLE, ı, i, 4, 0& k = AlignDWORD(h + i) SendKeys (DIK_Z) RprString = "3B01" + "08" + MobID.Caption + D + "00000000000000000000" ConvHEX2ByteArray RprString, pBytes SendPackets pBytes
RprString = "3B01" + "06" + MobID.Caption + k + "00000000000000000000" ConvHEX2ByteArray RprString, pBytes SendPackets pBytes
Check14 ve Timer10 u Kendi Timer ve Checkinize Göre EDitleyin. | |
|