Auto Heal Visual Basic 6 Kodları ...

Sa Arkadaşlar sizlere kendi basıma ugrasıp yaptıgım Oto heal kodlarını vericem ...

Not: Tarja.dll ye göre yazılmıstır...

Gerekenler...
1 adet check adı check21 olucak
2 adet timer interval ları 1 olsun Enabled = True olucak
1 adet textbox adı text19 olucak


Timerlerden 1. sine

Kod:

Text19.Text = GetInfo(MaxHP) - GetInfo(HP)

Timerlerden 2. sine

Kod:

If Check21.Value = 1 Then
OtoHeal
End If

Check21 e bişey yazmayın ...

Kod:

Function CharID() As String
    On Error Resume Next: Cinfo = CharInfo(): CharID = Mid(AlignDWORD(Cinfo.MEID), 1, 4)
End Function

Modül e Ekleyin ...

Kod:

Function OtoHeal()
If Form1.Text19.Text > 60 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "500"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "500"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'240 heal
If Form1.Text19.Text > 240 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "509"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "509"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'360 heal
If Form1.Text19.Text > 360 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "518"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "518"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'720 heal
If Form1.Text19.Text > 720 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "527"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "527"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
'960 heal
If Form1.Text19.Text > 960 Then
If Form1.Text19.Text < CharMaxHP Then
PacketSend "3101" + Strings.Mid(AlignDWORD(CharClass & "536"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
PacketSend "3103" + Strings.Mid(AlignDWORD(CharClass & "536"), 1, 6) + "00" + CharID + CharID + "00000000000000000000000000000F00"
Bekle (900)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Function

Kod:

Public Sub Bekle(seconds As Integer, Optional sn As Boolean = False)
On Error Resume Next
If sn = True Then
        dTimer = Second(Time)
          Do Until dTimer = Second(Time) - seconds
Sleep (1)
         DoEvents
          Loop
Else
            
            Dim dTimer2 As Double
          dTimer2 = Timer
          Do While Timer < dTimer2 + seconds / 1000
Sleep (1)
         DoEvents
          Loop
End If
End Sub

Kullanan kişilerden Tek İstedigim Bi Teşekkür


İnşallah İşinize yarar ... Suanda ben kullanıyorum ... Calısmaktadadır...