VB2012 Array of Bytes Scan with textbox as an Input

[eddecatoria]

<<First of all I would like to say thank you to the Admin for giving me permission to post>>

I'm here to share my project VB2012 regarding scanning Array of Bytes and ofcourse I really need your help to fix this project. I'm willing to share this codes for everyone when this project done.


1.) Here's the working code without using textbox as my Array of bytes input:

Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click

AOB.BytesToScan = {&H31, &H0, &H32, &H0, &H33, &H0, &H34, &H0, &H35, &H0, &H36 ,&H0, &H37, &H0, &H38, &H0, &H39, &H0, &H31, &H0, &H32, &H0, &H33, &H0, &H34, &H0, &H35, &H0, &H36 ,&H0, &H37, &H0, &H38, &H0, &H39, &H0}
Dim Address As IntPtr = AOB.AobScan(txtboxProcess.Text)
txtAdressResult.Text = (Address.ToString())

End Sub

I have no problem with the codes above when I inserted the Array of Bytes to be scanned in the codes.



2.) And here's the code w/c is not working. I tried to use textbox as my Array of bytes input to scan:

Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click

AOB.BytesToScan = {txtboxAOB.Text}
Dim Address As IntPtr = AOB.AobScan(txtboxProcess.Text)
txtAdressResult.Text = (Address.ToString())

End Sub

Note really working. I tried the codes bellow but still can't find the solution:
1st try: AOB.BytesToScan = {&HtxtboxAOB.Text} <--- Not working
2nd try: AOB.BytesToScan = {&H(txtboxAOB.Text)} <--- Not working
3rd try: AOB.BytesToScan = {Hex(txtboxAOB.Text)} <--- Not working

Here's the images:

[jmcilhinney]

If you want to set the BytesToScan property using a literal array then what you put between the braces has to actually be a comma-separated list of Byte values. The Text property of a TextBox is obviously not that, so you will need to convert it to a Byte array in some way. How you do that depends on what the Byte values are supposed to represent, which you haven't explained. Do you want the ASCII values of each character in the text? If not then what do you want? Please explain FULLY and CLEARLY.

[eddecatoria]

If you want to set the BytesToScan property using a literal array then what you put between the braces has to actually be a comma-separated list of Byte values. The Text property of a TextBox is obviously not that, so you will need to convert it to a Byte array in some way. How you do that depends on what the Byte values are supposed to represent, which you haven't explained. Do you want the ASCII values of each character in the text? If not then what do you want? Please explain FULLY and CLEARLY.

If you want to set the BytesToScan property using a literal array then what you put between the braces has to actually be a comma-separated list of Byte values. The Text property of a TextBox is obviously not that, so you will need to convert it to a Byte array in some way. How you do that depends on what the Byte values are supposed to represent, which you haven't explained. Do you want the ASCII values of each character in the text? If not then what do you want? Please explain FULLY and CLEARLY.

Hello Sir Good day. Thank you for your reply.

The array of byte in notepad value w/c I'm going to find is in "UNICODE" values. I have already use the Unicode converter but I really don't know how to auto insert the comma separately in the list of array of bytes. There's always "-" minus symbol in the array of bytes. I can remove the minus and replace a comma but in a textbox only I used to manipulate a string there such substring and replace command.

I hope someone will post a code here such using a textbox as an input of the array of bytes values and find the address.

[jmcilhinney]

You don't insert commas into an array of Bytes and there is no "-" symbol. Bytes are numbers in the range of 0 to 255. That's it, that's all.

If you want to convert a String to its equivalent Unicode Bytes then you call Encoding.Unicode.GetBytes and pass the String. That will return a Byte array. There's nothing else to do.

[eddecatoria]

You don't insert commas into an array of Bytes and there is no "-" symbol. Bytes are numbers in the range of 0 to 255. That's it, that's all.

If you want to convert a String to its equivalent Unicode Bytes then you call Encoding.Unicode.GetBytes and pass the String. That will return a Byte array. There's nothing else to do.

Dim hexString1 As String = txtboxAOB.Text
Dim array As Byte() = Encoding.UNICODE.GetBytes(hexString1)
AOB.BytesToScan = array

I tried the code above but still not working. I also tried this one or I changed it into AOB.BytesToScan = {array} but the "array" is error.

[jmcilhinney]

So are you saying, without actually saying, that the TextBox contains a series of hexadecimal digits where each pair represents a byte? If you provide a clear explanation then there will be no confusion.

[eddecatoria]

So are you saying, without actually saying, that the TextBox contains a series of hexadecimal digits where each pair represents a byte? If you provide a clear explanation then there will be no confusion.

Yes sir that's what I mean.

[jmcilhinney]

So then, what you need to do is break the Text of the TextBox up into substrings of two characters each and then convert each substring to a Byte. There are a number of ways you could do that. This is probably the most basic:

Dim byteList As New List(Of Byte)
Dim text = myTextBox.Text
 
For i = 0 To text.Length - 2 Step 2
    Dim substring = text.Substring(i, 2)
    Dim number = Convert.ToByte(substring, 16)
 
    byteList.Add(number)
Next
 
Dim bytes = byteList.ToArray()

This is probably the most succinct:

Dim bytes = Enumerable.Range(0, myTextBox.TextLength \ 2)
                      .Select(Function(i) Convert.ToByte(myTextBox.Text.Substring(i * 2, 2), 16))
                      .ToArray()

Both of those assume that the text is valid, i.e. has a multiple of 2 characters and contains all hexadecimal digits. You'd probably want to include code to validate that. I'd tend to check the length first and then maybe use Byte.TryParse instead of Convert.ToByte. Note that TryParse methods work a bit differently, so you'd have to change your code structure accordingly. I'll leave that part to you.

[eddecatoria]

So then, what you need to do is break the Text of the TextBox up into substrings of two characters each and then convert each substring to a Byte. There are a number of ways you could do that. This is probably the most basic:

Dim byteList As New List(Of Byte)
Dim text = myTextBox.Text
 
For i = 0 To text.Length - 2 Step 2
    Dim substring = text.Substring(i, 2)
    Dim number = Convert.ToByte(substring, 16)
 
    byteList.Add(number)
Next
 
Dim bytes = byteList.ToArray()

This is probably the most succinct:

Dim bytes = Enumerable.Range(0, myTextBox.TextLength \ 2)
                      .Select(Function(i) Convert.ToByte(myTextBox.Text.Substring(i * 2, 2), 16))
                      .ToArray()

Both of those assume that the text is valid, i.e. has a multiple of 2 characters and contains all hexadecimal digits. You'd probably want to include code to validate that. I'd tend to check the length first and then maybe use Byte.TryParse instead of Convert.ToByte. Note that TryParse methods work a bit differently, so you'd have to change your code structure accordingly. I'll leave that part to you.

Sir the code Dim "bytes" got error I really don't know why. Please see attached images. Thanks.

[eddecatoria]

I also tried to remove the "{}" in bytes but still din't work.

[si_the_geek]

Letting us know where the error happens is good... but you should also tell us what the error message is, because that tells us very important details of the problem.

[eddecatoria]

Letting us know where the error happens is good... but you should also tell us what the error message is, because that tells us very important details of the problem.

Sir Please see attached picture to view error of the code "bytes". Thanks



Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click
BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

Dim byteList As New List(Of Byte)
Dim text = txtboxAOB.Text

For i As Integer = 0 To text.Length - 2 Step 2
Dim substring = text.Substring(i, 2)
Dim number = Convert.ToByte(substring, 16)

byteList.Add(number)
Next

Dim bytes = byteList.ToArray()

AOB.BytesToScan = {bytes}
Dim Address As IntPtr = AOB.AobScan(txtboxProcess.Text)
txtAddressResult.Text = Address.ToString()

End Sub

[si_the_geek]

That line of code should be like this:

AOB.BytesToScan = bytes

The variable bytes is an array already, so doesn't need {} around it (those brackets are to make an array from the list of values, but bytes already contains the equivalent).

What happens then?

[eddecatoria]

That line of code should be like this:

AOB.BytesToScan = bytes

The variable bytes is an array already, so doesn't need {} around it (those brackets are to make an array from the list of values, but bytes already contains the equivalent).

What happens then?

still the same sir. Please see attached picture. Thanks