Visual Basic kod 3 tane offset ekleyince hata vermesi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
26 May 2022
Mesajlar
6
Tepki puanı
0
Ödüller
1
Yaş
29
4 HİZMET YILI
Merhaba çok basit bir kod yazdım fakat 3 offset ekleyince hata veriyor. Nasıl çözebilirim?
Kod:

Visual Basic:
Dim xx as string = "değer"
Try
WriteInteger("oyunadı", &Hpointer, &Hoffset, &Hoffset, &Hoffset, xx)
Catch ex As Exception
End Try

Yanlış bir şey mi var? Yardımcı olabilir misiniz?
 
Moderatörün son düzenlenenleri:
Onaylı Üye
Katılım
24 Şub 2021
Mesajlar
56
Çözümler
1
Tepki puanı
8
Ödüller
5
Yaş
25
5 HİZMET YILI
virtual basicle yazdıysan başka bi programdan yazıp masaüstü yerine değilde dosya açıp onun içinde kaydetip denermisin
 
Üye
Katılım
26 May 2022
Mesajlar
6
Tepki puanı
0
Ödüller
1
Yaş
29
4 HİZMET YILI
virtual basicle yazdıysan başka bi programdan yazıp masaüstü yerine değilde dosya açıp onun içinde kaydetip denermisin
Başka dil bilmiyorum.
WritePointerInteger dosyası falan diyorlar o bende yok bulamıyorum da. Nereden bulurum onu da bilmiyorum.
 
Üye
Katılım
12 Haz 2016
Mesajlar
14
Tepki puanı
8
Ödüller
5
9 HİZMET YILI
4. hata mesajı kendini açıklayıcı değil mi?
'Genel Geçersiz Kılınabilir Aşırı Yüklemeler İşlevi Ekle(Dize Olarak ÖğeAdı, Tamsayı Olarak Satın Al?, Tamsayı Olarak Satış Fiyatı?) Tamsayı Olarak Ekle' için çok fazla argüman var

Şu adreste 6 argüman geçiriyorsunuz:
WriteInteger("oyunadı", &Hpointer, &Hoffset, &Hoffset, &Hoffset, xx)

Belki istersin:
TA.Insert("oyunadı", &Hpointer, &Hoffset, xx)
 
Moderatörün son düzenlenenleri:
Üye
Katılım
12 Haz 2016
Mesajlar
14
Tepki puanı
8
Ödüller
5
9 HİZMET YILI
TA.Insert("oyunadı", &Hpointer, &Hoffset, xx)

Okudum ama pek bi halt anlamadım desem yeridir. Kod bu mu reis? Bunu mu deneyeyim?

" &Hoffset, &Hoffset, &Hoffset, " bunu tekrarlı bir şekilde yazmana gerek yok. Bir kere yazsan yeterli, argümanı tekrarlı yazdığın için hata veriyor. Her argümanı bir kere yazman yeterli olacaktır kod satırında.
 
Moderatörün son düzenlenenleri:
Üye
Katılım
26 May 2022
Mesajlar
6
Tepki puanı
0
Ödüller
1
Yaş
29
4 HİZMET YILI
Rica etsem 3 offsetli örnek kod yazar mısın? Cidden anlamadım özür diliyorum.
 
Üye
Katılım
12 Haz 2016
Mesajlar
14
Tepki puanı
8
Ödüller
5
9 HİZMET YILI
Rica etsem 3 offsetli örnek kod yazar mısın? Cidden anlamadım özür diliyorum.
" OFFSET (reference, rows, cols, [height], [width]) "
referans - Hücre referansı veya aralığı olarak sağlanan başlangıç noktası.
rows - Başlangıç referansının altında kaydırılacak satır sayısı.
cols - Başlangıç referansının sağına kaydırılacak sütun sayısı.
height - [isteğe bağlı] Döndürülen referansın satırlarındaki yükseklik.
width - [isteğe bağlı] Döndürülen başvurunun sütunlarındaki genişlik.
 
Üye
Katılım
26 May 2022
Mesajlar
6
Tepki puanı
0
Ödüller
1
Yaş
29
4 HİZMET YILI
Onları Google'dan da buldum. String sorunu da yaşıyordum onu örnekle anlatmışlar da rahat anladım. Bunu komple üst düzey yazılımcı gözüyle yazdıklarından dolayı anlamadım. Bundan mütevellit örnek kod istedim dostum.
 
Uzman Üye
Katılım
13 Ara 2018
Mesajlar
192
Çözümler
1
Tepki puanı
22
Ödüller
8
Yaş
31
7 HİZMET YILI
Kod:
Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(EXENAME).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryFloat(Handle, Pointer, Value)
            End If
        End If
    End Sub
   
   
   
   
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1)
        Or
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1, &HOffset2)
        Or
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1, &HOffset2,&HOffset3)
 
Üye
Katılım
26 May 2022
Mesajlar
6
Tepki puanı
0
Ödüller
1
Yaş
29
4 HİZMET YILI
Kod:
Public Sub WritePointerFloat(ByVal EXENAME As String, ByVal Pointer As Integer, ByVal Value As Single, ByVal ParamArray Offset As Integer())
        If Process.GetProcessesByName(EXENAME).Length <> 0 Then
            Dim Handle As Integer = Process.GetProcessesByName(EXENAME)(0).Handle
            If Handle <> 0 Then
                For Each I As Integer In Offset
                    ReadMemoryInteger(Handle, Pointer, Pointer)
                    Pointer += I
                Next
                WriteMemoryFloat(Handle, Pointer, Value)
            End If
        End If
    End Sub
  
  
  
  
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1)
        Or
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1, &HOffset2)
        Or
    WritePointerInteger("Oyunadi",&HPointer,xx,&HOffset1, &HOffset2,&HOffset3)
Bunu kopyala yapıştır yapayım da direkt butona yapsam sorun olur mu?
Post automatically merged:

Birde nereleri değiştireceğimi söyler misin :)
 
Son düzenleme:
Uzman Üye
Katılım
13 Ara 2018
Mesajlar
192
Çözümler
1
Tepki puanı
22
Ödüller
8
Yaş
31
7 HİZMET YILI
Bunu kopyala yapıştır yapayım da direkt butona yapsam sorun olur mu?
Post automatically merged:

Birde nereleri değiştireceğimi söyler misin :)
yani Basic Bilgin olmadigini anliorum suan

üsteki Fonksion öyle kalsin alta yazilani Butona ekleye bilirsin ama sana önerim Basicleri bari ögren
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst