Blackberry MEP + IMEI reader

[josedavido]

Thanks Mr. Orbita.
I solved the problem in 2 different way's

1. Place a deviceHandle.Dispose() at the end of verification sentence

Dim devicePathName As String = find_device()
deviceHandle = CreateFile(devicePathName, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ, IntPtr.Zero, OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, 0)

If deviceHandle.IsInvalid Then
MsgBox("WRONG Connection, invalid answer")
Else
MsgBox("GOOD Connection, OK")
End If

deviceHandle.Dispose()

It releases the connection port for a new verification, so I allwais get Good answer.


2. Just verificate a string on devicepathname

If InStr(devicePathName, "{80375827-83b8-4a51-b39b-905fedd4f118}\MAIN") Then
MsgBox("ok, PHONE DETECTED")
Else
MsgBox("wrong answer, Ponoe NOT DETECTED")
End If

I connect 2 diferent devices, and get 2 different paths

\\?\usb#vid_0fca&pid_8004&mi_00#7&34ebb32b&0&0000# {80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- fr3ncis Path
\\?\usb#vid_0fca&pid_8004&mi_00#6&2762282f&0&0000# {80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- Blackberry 8520
\\?\usb#vid_0fca&pid_0001#5&23991be5&0&1#{80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- Blackberry 7290

Now, Connection problem solved...and start studying Send commands, cause still not have luck with Fr3ncis Function:

Public Function read_write_str(ByVal devicehandle, ByVal command, ByVal commandlenght) As String
Dim inputReportBuffer(100) As Byte
unManagedBuffer = Marshal.AllocHGlobal(inputReportBuffer.Length)
numberOfBytesRead = 0
numberOfBytesWritten = 0

success = WriteFile _
(devicehandle, _
command, _
commandlenght, _
numberOfBytesWritten, _
IntPtr.Zero)
Thread.Sleep(50)

success = ReadFile _
(devicehandle, _
unManagedBuffer, _
inputReportBuffer.Length, _
numberOfBytesRead, _
unManagedOverlapped)

Marshal.Copy _
(unManagedBuffer, inputReportBuffer, 0, numberOfBytesRead)

ReDim Preserve inputReportBuffer(numberOfBytesRead - 1)

Dim inputReportBuffer_element As Byte

Dim rest As String = ""
Dim n As Integer = 0


For Each inputReportBuffer_element In inputReportBuffer
If n > commandlenght - 1 Then
Select Case inputReportBuffer_element

Case Is < &H20
rest = rest & " "
Case Is = &H20
rest = rest & " "
Case Is > &H20

rest = rest & Chr(Val("&h" & inputReportBuffer_element.ToString("X2")))
End Select
End If
n += 1
Next

Return rest.Trim
End Function

I still don't know how to use it.
thanks for you help.

[seifhatem]

Originally Posted by josedavido

Thanks Mr. Orbita.
I solved the problem in 2 different way's

1. Place a deviceHandle.Dispose() at the end of verification sentence


It releases the connection port for a new verification, so I allwais get Good answer.


2. Just verificate a string on devicepathname




I connect 2 diferent devices, and get 2 different paths

\\?\usb#vid_0fca&pid_8004&mi_00#7&34ebb32b&0&0000# {80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- fr3ncis Path
\\?\usb#vid_0fca&pid_8004&mi_00#6&2762282f&0&0000# {80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- Blackberry 8520
\\?\usb#vid_0fca&pid_0001#5&23991be5&0&1#{80375827-83b8-4a51-b39b-905fedd4f118}\MAIN <-- Blackberry 7290

Now, Connection problem solved...and start studying Send commands, cause still not have luck with Fr3ncis Function:



I still don't know how to use it.
thanks for you help.

Thanks For your help
It's working
If you knew how to send commands please tell me
Thanks

[seifhatem]

what's the command to send to read MEP
here is the code to send the command

Dim devicePathName As String = find_device()
deviceHandle = CreateFile(devicePathName, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ, IntPtr.Zero, OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, 0)

If deviceHandle.IsInvalid Then
MsgBox("WRONG Connection, invalid answer")
Else
MsgBox("GOOD Connection, OK")
read_write_str()
End If

deviceHandle.Dispose()

Thanks in Advance

[orbita]

SetupDiGetDeviceRegistryProperty function will help you better instead of compare giud from path.

you can have more info about device with this function.

I'am not have experience with VB but when you send some to blackberry
some times need read port 2..3 times if not will not work corect.
HEX you must convert to string before fill in write buffer.
for example

SendHEX('00 00 10 00 01 FF 00 00 0D 80 5E 5E 05 00 00 00');
GetResponse;

where sendhex is some like this

Procedure TBlackberryThread.SendHEX(aCmd: String);
Var P: Pchar;
    L: Integer;
    ByteSent: integer;
    aStart: Cardinal;
Begin
  aStart := GetTickCount;
  If aCmd <> '' then begin
    while Pos(' ', aCmd) > 0 do Delete(aCmd,Pos(' ', aCmd),1);
    aCmd:=hextostr(aCmd);
    p:=@aCmd[1]; // pchar
    l:=length(aCmd);
    while l>0 do begin
      if (aStart + Ftimeout) < GetTickCount then raise  exception.Create('Timeout!');
      ByteSent:=SerialWrite(p^,l);
      inc(p,ByteSent);
      dec(l,ByteSent);
    end;
  end;
end;

And ...good luck

[seifhatem]

i realised that it get a connection error if the device has been connected before running the program so i must disconnect then reconnect for the program to detect.

[josedavido]

Just connection, NOT SEND COMMANDS

Commands must be sended on HEX, and recived on HEX, then we must to convert to DEC

Hex -->
Hex <--
Convert to DEC --> show in Text


We need help from Mr. Fr3ncis to use his function

[orbita]

Originally Posted by josedavido

Just connection, NOT SEND COMMANDS

Commands must be sended on HEX, and recived on HEX, then we must to convert to DEC

Hex -->
Hex <--
Convert to DEC --> show in Text

Why ? You love hex ?

[Lanz]

than you for this driver i cant fin it only here @ gsm thank you so much....

[darmiles]

how can i restart device? in button1

[josedavido]

Originally Posted by darmiles

how can i restart device? in button1

Man, tis is another project. I just use Javaloader to make all this functions work.
right now i am studying USB connection to update my old software.
But still don't know send and recive commands
if you want my software, can download it here: Multiupload.com - upload your files to multiple file hosting sites!


Br,
Josedavido

[darmiles]

Originally Posted by josedavido

Man, tis is another project. I just use Javaloader to make all this functions work.
right now i am studying USB connection to update my old software.
But still don't know send and recive commands
if you want my software, can download it here: Multiupload.com - upload your files to multiple file hosting sites!


Br,
Josedavido

can i have your delphi code ? can u send it to me in private?

[josedavido]

Originally Posted by darmiles

can i have your delphi code ? can u send it to me in private?

I made it on VB2010, i don't know to programm on delphi.

[karabey]

Anybody who can do a Blackberry App that read the IMEI and MEP ?


regards

[IAMJASONBOURNE]

Impossible. No such API to read the MEP.

[orbita]

Originally Posted by karabey

Anybody who can do a Blackberry App that read the IMEI and MEP ?


regards

already exist

called engeneering screen and it's part of blackberry firmware.