| | Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler |  |
|
+7nakata11 celalibo hellpich 3yl3mci asker158 paper59 SessizAdam 11 posters |
|
| Yazar | Mesaj |
|---|
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
 Rep Puanı : 47
|  Konu: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler ![Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Paz Haz. 14, 2009 6:06 am | |
| LÜTFEN ALINTI YAPMAYALIM  Merhaba Arkadaşlar bu dersimizde sizlere Attack hızı ayarlamayı anlatacağım. İlk Dersimizde Sizlere Koxp Yapmanın Mantığını Anlarayım. Normalde Koxp Yaparken Bütün İşler Modülde Bitiyor. Pointerlar Olmazsa Olmazlarıdır. En ÖnemLisi KO_ADR_CHR & KO_PTR_CHR dır. Yani bana göre.SaygılarımLa SessiZAdam - extra.yetkin-forum.com Olarak Sizlere Elimizden Geldiğince Dersler Vereceğiz... Dersimize Geçecek Olursak; Attack Hızımızı Ayarlayalım: - Kod:
-
On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim skillid As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = class & 530
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)
id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)
MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)
attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000D00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0D020600B7019BFF0000F0000F00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes Timer Kodu Budur. Burada Timerin Çözünürlüğünde İş bitmiş Olur. Onun Hızına Göre Attack Yapacaktır. ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 6:12 am | |
| Auto RPR Yapalım: - Kod:
-
Private Sub Check1_Click()
If Form1.List1.Text = "IronX(+4)" Then
itemID = "943F020B"
End If
End Sub Arkadaşlar bu şekilde bize lazım olan tek şey TBL Editor. Editor ile item ID sini bularak Uzaktan RPR Yapabiliriz. - Kod:
-
itemID = "943F020B" İtemID Kodunu TBL Editor İle Arayınız. ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 6:15 am | |
| Seri CS Ekleyelim: Check: - Kod:
-
Private Sub Check1_Click()
If Check1.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
- Kod:
-
On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String
Dim attackskill As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = Class & 552
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)
id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)
MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)
attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes ve 1 adet timer ekleyin Interval'i 350 yapın. SessizAdam. ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 6:18 am | |
| Zamanlı Town Atma: - Kod:
-
Timer1.Enabled = True
Dim pBytes(1 To 2) As Byte
pBytes(1) = &H48
pBytes(2) = &H0
SendPackets pBytes
Arkadaşlar bunun yanı sıra 1 adet timer ekleyelim: Ve Interval'i 360 yapın. ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 6:22 am | |
| Auto Wolf: - Kod:
-
If otowolf.Value = 1 Then
Wolf
wolfsaat.Enabled = True
Else
wolfsaat.Enabled = False
End If Modül'e: - Kod:
-
Public Sub Wolf()
Dim pBytes() As Byte
Dim pStr As String
Dim m_SkillID As String
Dim mXZY As String
Dim mX As Single, mY As Single, mZ As Single
On Error Resume Next
mX = ReadFloat(KO_ADR_CHR + KO_OFF_X)
mY = ReadFloat(KO_ADR_CHR + KO_OFF_Y)
mZ = ReadFloat(KO_ADR_CHR + KO_OFF_Z)
ChrClass = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
mXZY = Left$(AlignDWORD(CLng(Fix(mX))), 4) & Left$(AlignDWORD(CLng(Fix(mZ))), 4) & Left$(AlignDWORD(CLng(Fix(mY))), 4)
m_SkillID = AlignDWORD(CLng(ChrClass & "030"))
pStr = "3101" & m_SkillID & Form1.CharID.Caption & "FFFF" & mXZY & "0000000000001100"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" & m_SkillID & Form1.CharID.Caption & "FFFF" & mXZY & "000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 6:23 am | |
| DEVAMI ÇOK YAKINDA GELİYOR.  ________Kullanıcı İmzası_________ | |
|
| | |
paper59
Level 1
Mesaj Sayısı : 18
Nerden : Evden
Kayıt tarihi : 28/05/09
Rep Puanı : 0
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 7:44 am | |
| Start butonunu yapmayıda koyarmısın. | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:48 am | |
| - paper59 demiş ki:
- Start butonunu yapmayıda koyarmısın.
1 adet text box ekle İçine: "Knight Online Client" Yaz.1 Adet Command Ekle: - Kod:
-
LoadOffsets
If AttachKO = False Then
Unload Me
Exit Sub
End If[/b]
[b]KO_ADR_CHR = ReadLong(KO_PTR_CHR)
KO_ADR_DLG = ReadLong(KO_PTR_DLG)
List1.Enabled = True
Command2.Enabled = False
Text1Enabled = False
Timer1Enabled = True
PotionTimer = Now
Timer2.Enabled = True Timer1: - Kod:
-
If Combo1.Text = "" Then
Else
If UseAutoHeal = 1 Then
Dim CurrentHP As Long, maxhp As Long, HEALON2 As Single, HEALON As Long
CurrentHP = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
HEALON2 = HealPercent / 100
HEALON = Round(maxhp * HEALON2, 0)
If CurrentHP <= HEALON And CurrentHP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
skill Combo1.ItemData(Combo1.ListIndex)
End If
End If 'end if van UseAutoHeal = 1
End If
End If
If Combo2.Text = "" Then
Else
If UseAutoMana = 1 Then
Dim CurrentMP As Long, MaxMP As Long, ManaON2 As Single, ManaON As Long
CurrentMP = ReadLong(KO_ADR_CHR + KO_OFF_MP)
MaxMP = ReadLong(KO_ADR_CHR + KO_OFF_MAXMP)
ManaON2 = ManaPercent / 100
ManaON = Round(MaxMP * ManaON2, 0)
If CurrentMP <= ManaON And CurrentMP <> 0 Then
PotionDiff = DateDiff("s", PotionTimer, Now)
If PotionDiff >= 3 Then
skill Combo2.ItemData(Combo2.ListIndex)
End If
End If
End If
End If Timer2: - Kod:
-
DispatchMailSlot Modül: [Linkleri görebilmek için üye olun veya giriş yapın.]________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:51 am | |
| Seri Seri Auto Minor Check: - Kod:
-
If Check5.Value = 1 Then
Timer4.Enabled = True
Else
Timer4.Enabled = False
End If Timer: - Kod:
-
Dim hp
Dim maxhp
hp = ReadLong(KO_ADR_CHR + KO_OFF_HP)
maxhp = ReadLong(KO_ADR_CHR + KO_OFF_MAXHP)
If hp < maxhp Then
minor
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:52 am | |
| GM Görüşü: - Kod:
-
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:53 am | |
| Swift Hack Yapalım: - Kod:
-
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16320"
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, "16256"
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:55 am | |
| Hazzad Game: - Kod:
-
Dim pStr As String
Dim pBytes() As Byte
pStr = "5A" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes Town: - Kod:
-
Dim pBytes(1 To 2) As Byte
pBytes(1) = &H48
pBytes(2) = &H0
SendPackets pBytes Stat Sıfırlat: - Kod:
-
Dim pStr As String
Dim pBytes() As Byte
pStr = "3403" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
Skill Sıfırlat: - Kod:
-
Dim pStr As String
Dim pBytes() As Byte
pStr = "3404" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:55 am | |
| Wall Hack Yapalım (Duvar Hack) - Kod:
-
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_WH, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_WH, "1"
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 10:59 am | |
| List'e ID Okutmak: Arkadaşlar bize lazım olan tbl editor. Editor ile Bulduğunuz SC IDlerini List'e Okutmak İçin: Form1.List1.AddItem "Örnek Geveze.Forum7.Biz Scroll" Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d Yapmamız Gereken Form'a 1 Adet List Ekliyoruz. Ve Modül'e: - Kod:
-
Public Sub Skiller()
Form1.List1.AddItem "Örnek Geveze.Forum7.Biz Scroll"
Form1.List1.ItemData(Form1.List1.NewIndex) = 68451d
End Sub
Kolay Gelsin. ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:07 am | |
| Auto HP & MP Yapalım: Gerekenler: 2 Adet CheckBox - 2 Adet Text - 2 Adet ComboBox - 2 Adet Label (%) Koymak İçin. 1 . CheckBox Auto HP Olsun: - Kod:
-
If Check1Value = 1 Then
UseAutoHeal = 1
Else
UseAutoHeal = 0
End If 2. CheckBox AutoMP Olsun: - Kod:
-
If Check2.Value = 1 Then
UseAutoMana = 1
Else
UseAutoMana = 0
End If 1. HP Text İne: - Kod:
-
If IsNumeric(Text1.Text) Then
HealPercent = Text1.Text
End If 2. MP Text İne: - Kod:
-
If IsNumeric(Text2.Text) Then
ManaPercent = Text2.Text
End If Modüle İse: HP POT İÇİN: - Kod:
-
Form1.Combo1.AddItem "90"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490011
Form1.Combo1.AddItem "180"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490012
Form1.Combo1.AddItem "360"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490013
Form1.Combo1.AddItem "720"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490014
Form1.Combo1.AddItem "1440"
Form1.Combo1.ItemData(Form1.Combo1.NewIndex) = 490015 MP POTLAR İÇİN: - Kod:
-
Form1.Combo2.AddItem "120"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490016
Form1.Combo2.AddItem "240"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490017
Form1.Combo2.AddItem "480"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490018
Form1.Combo2.AddItem "960"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490019
Form1.Combo2.AddItem "1920"
Form1.Combo2.ItemData(Form1.Combo2.NewIndex) = 490020 Modül Başına: - Kod:
-
Public Sub Potlar() veya - Kod:
-
Public Sub skiller(9 Modül Sonuna: - Kod:
-
End Sub ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:11 am | |
| ZR Attack Yapalım: 1 Adet Timer: - Kod:
-
SendKeys ("Z")
SendKeys ("R")
Bunu Oyunda Vurması İçin Dinput İle Kurun. CheckBox 1 Adet: - Kod:
-
If Check1.Value = 1 Then
Check1.Enabled = Treu
ElSE
cHECK1.Enabled = False
End If
________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:12 am | |
| Arkadaşlar Çoğu Kodu Elimle Yazıyorum. Yanlışlık Olursa Afbuyrun... ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:13 am | |
| Irk Hack Yapalım: Karus İçin: - Kod:
-
WriteLong KO_ADR_CHR + nation, 1 Human İçin: - Kod:
-
WriteLong KO_ADR_CHR + nation, 2 ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:22 am | |
| Chat Flood Yapalım:2 Adet Text - 2 Adet CommandButton - 1 Adet ComboBox - 1 adet timerAnlatım: Text1 i küçük şekilde bir alana koyun ve içine 100 yazın. Text2 Yi Büyük Tutun. Flood Yapılacak Yazı. CommandButton'un 1.sini Test Et Yapın. 2. sini Başlat Yapın. ve ComboBox'u Ekleyin. CommandButton 1: (Başlat) - Kod:
-
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If CommandButton 2: (Test Et) - Kod:
-
Notice Text2.Text Timer1: - Kod:
-
Notice Text2.Text Modülü Yazmam Uzun Sürecek Sabır  ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:24 am | |
| Char SabitleyeLim: - Kod:
-
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 1
Else
WriteLong KO_ADR_CHR + KO_OFF_SWIFT, 16256
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:24 am | |
| Işınlanma Ekleyelim: - Kod:
-
Dim VVA As Single
VVA = ReadFloat(KO_ADR_CHR + KO_OFF_X)
WriteFloat KO_ADR_CHR + KO_OFF_X, VVA + 5
Dim VVA2 As Single
VVA2 = ReadFloat(KO_ADR_CHR + KO_OFF_Y)
WriteFloat KO_ADR_CHR + KO_OFF_Y, VVA2 + 5 ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:25 am | |
| Form Pozisyonunu Ayarlamak: - Kod:
-
SetWindowPos Form1.hwnd, _
lFlag, _
Form1.Left / Screen.TwipsPerPixelX, _
Form1.Top / Screen.TwipsPerPixelY, _
Form1.Width / Screen.TwipsPerPixelX, _
Form1.Height / Screen.TwipsPerPixelY, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:26 am | |
| Lupines Eyes Ekleyelim: - Kod:
-
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_LUP, "1103626240"
Else
WriteLong KO_ADR_CHR + KO_OFF_LUP, "0"
End If ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:27 am | |
| Form Load Ayarı: - Kod:
-
PotID
Form1.Left = 11050
FormAcik = "1"
Label1_Click ________Kullanıcı İmzası_________ | |
|
| | |
SessizAdam
Sponsor
Mesaj Sayısı : 571
Kayıt tarihi : 09/05/09
Rep Puanı : 47
| | Konu: Geri: Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler Paz Haz. 14, 2009 11:27 am | |
| Form Timer Ayarı: - Kod:
-
Dim a1, a2, Msg As String
If GetAsyncKeyState(VK_F11) Then
If FormAcik = "0" Then
FormOn
Exit Sub
End If
If FormAcik = "1" Then
FormOff
Exit Sub
End If
End If ________Kullanıcı İmzası_________ | |
|
| | |
| | Özel Anlatımlarımız [SessizAdam'dan] Koxp Yapmak İsteyenler | |
|
