Visual Basic kod 3 tane offset ekleyince hata vermesi

[ozistik]

Merhaba çok basit bir kod yazdım fakat 3 offset ekleyince hata veriyor. Nasıl çözebilirim?
Kod:

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?

 

[hzberqay]

virtual basicle yazdıysan başka bi programdan yazıp masaüstü yerine değilde dosya açıp onun içinde kaydetip denermisin

 

[ozistik]

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.

 

[MetehanTR]

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)

 

[ozistik]

TA.Insert("oyunadı", &Hpointer, &Hoffset, xx)

TA.Insert("oyunadı", &Hpointer, &Hoffset, xx)

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

 

[MetehanTR]

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.

 

[ozistik]

Rica etsem 3 offsetli örnek kod yazar mısın? Cidden anlamadım özür diliyorum.

 

[MetehanTR]

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.

 

[ozistik]

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.

 

[hzberqay]

Başka dil bilmiyorum.
WritePointerInteger dosyası falan diyorlar o bende yok bulamıyorum da. Nereden bulurum onu da bilmiyorum.

yandex üzerinden hepsi çıkıyor onu ordan bulabilirsin bi bak derim

 

[katimur94]

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)

 

[ozistik]

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: 29 May 2022

Birde nereleri değiştireceğimi söyler misin

 

[katimur94]

Bunu kopyala yapıştır yapayım da direkt butona yapsam sorun olur mu?

Post automatically merged: 29 May 2022

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