| View previous topic :: View next topic |
| Author |
Message |
thedebutent
Newbie cheater
![]() Reputation: 0
Joined: 30 Dec 2015
Posts: 11
|
 Posted: Wed Apr 27, 2016 11:07 am Post subject: PROBLEM WITH LISTVIEW |
 |
|
Hello,
Here reading the position of the code:
| Code: | Private Sub search()
Dim tmpByte() As Byte = Encoding.Unicode.GetBytes("SVInventoryRemoveUnknownItems")
Dim adresse As String = "&H" & Hex(GetMemoryAddressOfString(tmpByte, p(0))).ToString
offset = "&H" & Hex(adresse + 1820)
Dim valeur As String = ReadInteger(p(0).Id, offset)
Dim lvi As New ListViewItem(offset)
lvi.SubItems.AddRange(New String() {valeur})
ListView1.Items.Add(lvi)
End Sub
I want to know how to read the value 30 (B8), 51 (A8) etc .. all 3 rd position with listview?
Thank you for your help |
| Description: |
|
| Filesize: |
25.56 KB |
| Viewed: |
5266 Time(s) |
|
| Description: |
|
| Filesize: |
92.16 KB |
| Viewed: |
5266 Time(s) |
|
|
|
| Back to top |
|
 |
Zanzer
I post too much
![]() Reputation: 126
Joined: 09 Jun 2013
Posts: 3278
|
| Posted: Wed Apr 27, 2016 4:51 pm Post subject: |
|
|
| Code: | For count As Integer = 1 To 10
offset = offset + 32
' Repeat Your Code
Next |
|
|
| Back to top |
|
|
thedebutent
Newbie cheater
![]() Reputation: 0
Joined: 30 Dec 2015
Posts: 11
|
| Posted: Thu Apr 28, 2016 7:11 am Post subject: |
|
|
hello,
| Code: | Private Sub search()
Dim tmpByte() As Byte = Encoding.Unicode.GetBytes("SVInventoryRemoveUnknow nItems")
Dim adresse As String = "&H" & Hex(GetMemoryAddressOfString(tmpByte, p(0))).ToString
offset = "&H" & Hex(adresse + 1820)
ListView1.Items.Clear()
valeur = ReadInteger(p(0).Id, offset)
valeur2 = ReadInteger(p(0).Id, offset + 16)
Dim lvi As New ListViewItem(offset)
lvi.SubItems.AddRange(New String() {valeur})
ListView1.Items.Add(lvi)
Dim lvi2 As New ListViewItem(offset)
lvi2.SubItems.AddRange(New String() {valeur2})
ListView1.Items.Add(lvi2)
End Sub
how to simplify all 16 position values with ListView1 to avoid add lvi, lvi2 ... etc?
Why I bind the Value2 is not displayed in "lvi.SubItems.AddRange(New String() {valeur,valeur2})"? |
|
|
| Back to top |
|
|
Zanzer
I post too much
![]() Reputation: 126
Joined: 09 Jun 2013
Posts: 3278
|
| Posted: Thu Apr 28, 2016 10:54 am Post subject: |
|
|
| Code: | Private Sub search()
Dim tmpByte() As Byte = Encoding.Unicode.GetBytes("SVInventoryRemoveUnknow nItems")
Dim adresse As String = "&H" & Hex(GetMemoryAddressOfString(tmpByte, p(0))).ToString
offset = "&H" & Hex(adresse + 1820)
ListView1.Items.Clear()
For count As Integer = 1 To 10
valeur = ReadInteger(p(0).Id, offset)
Dim lvi As New ListViewItem(offset)
lvi.SubItems.AddRange(New String() {valeur})
ListView1.Items.Add(lvi)
offset = offset + 16
Next
End Sub |
|
|
| Back to top |
|
|
thedebutent
Newbie cheater
![]() Reputation: 0
Joined: 30 Dec 2015
Posts: 11
|
| Posted: Sun May 01, 2016 9:59 am Post subject: |
|
|
I found my problem solution.
| Code: | For k = 0 To 100 Step 16
valeur = ReadInteger(p(0).Id, offset + k)
Dim lvi As New ListViewItem("&H" & Hex(offset + k))
lvi.SubItems.AddRange(New String() {valeur})
ListView1.Items.Add(lvi)
Next k |
Thank you for your help
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
