PDA

View Full Version : VB Code For 3310



anilbajaj
27-06-2003, 05:53 PM
Hi There,

I want to writing a program for connect to 3310 in VB. My phone connect through logomanager but its not responding through my vb program.

Please help me in that.

Regards
Anil Bajaj

a_upadhyay
17-07-2003, 08:21 PM
hi

mandarkarve
24-01-2006, 07:25 PM
Hi There,

I want to writing a program for connect to 3310 in VB. My phone connect through logomanager but its not responding through my vb program.

Please help me in that.

Regards
Anil Bajaj

hi i am mandar
i did this code using vb just go thru it & let me know ur suggestions do rply

regards
mandar karve

anilbajaj
25-01-2006, 05:37 PM
Hi Mandar,
Thanks for replying. I got ur zip file but it does not contains the DLL. Plz send me the DLL too. And also let me know does it work with all versions of Nokia phones & other phones.

Regards
Anil Bajaj :smile:



hi i am mandar
i did this code using vb just go thru it & let me know ur suggestions do rply

regards
mandar karve

krepos
10-01-2007, 01:23 PM
Hello,

could you please post the DLL here? Thank you

matmana
12-07-2007, 11:54 PM
I don't test the code, but I've seen that it works with vb 6...
I have a question: I am a developer, and I use vb.net 2005 (framework 2.0); MSCOMM doesn't exist in this environment. Could anyone help me in order to develop a program to send sms with 3330 (or 3310) with vb.net 2005? Has someone some modules to write to serial port that works fine? I understand how to compose the packet to send, but I've some problem to send command on serial port...
I realize that object SerialPort should substitute MSCOMM, but I can't use correctly that object. This is my code:

porta.PortName = "COM1"
porta.ReadBufferSize = 300
porta.Open()
Dim buffer(1024) As Byte
Dim i As Integer = 0
buffer(i) = &H1E '1
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &HC
i += 1
buffer(i) = &HD1
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &H7
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &H1
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &H3
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &H1
i += 1
buffer(i) = &H60
i += 1
buffer(i) = &H0
i += 1
buffer(i) = &H72
i += 1
buffer(i) = &HD5
i += 1

porta.Write(buffer, 0, buffer.Length)
Dim rec(1024) As Byte
Dim index As Integer = 0
i = 1
While (True)

Try
Dim b As Byte = porta.ReadByte()
rec(index) = b
Catch ex As Exception

End Try
index += 1
End While

I'm sure that the port is correct because I can send my buffer, but the procedure crash on read. I also try readline, read, readchar method, but I obtained the same results.
In the buffer is stored a packet with a query to know some information about the mobile phone, I know that 3330 should response to request with a particular packet. This is only a test, but I can't see any type of response by the mobile phone...
Please help me... :cry:
Thank you in advance...