Mscomm Modem via Bluetooth Problem

[Sakibanda]

Hello, here is my first question at thescripts.com :) Experts please help me

I use the following code to dial the bluetooth phone modem connected to my Laptop via serial port. The code dials the phone number well but after the sleep, it disconnects("ATH") resulting in the system crashes with the blue screen of death showing the following error:
IRQL_NOT_LESS_THAN_OR_EQUAL

I think the problem with the drivers and memory conflicts. Please give me an idea.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
    Dim DialString As String, FromModem As String, dummy As String
    MSComm1.InputLen = 0
    MSComm1.CommPort = 9
    MSComm1.Settings = "115200,n,8,1"
    MSComm1.PortOpen = True
    MSComm1.InBufferCount = 0
    MSComm1.Output = "ATD 99863227654;" + vbCr
    Sleep 5000
    MSComm1.Output = "ATH" + vbCr
    MSComm1.PortOpen = False
End Sub
 

For more information:
I use a HP Pavilion Laptop which has an integrated bluetooth, the phone is LG Dynamite.

[Dököll]

Hello, here is my first question at thescripts.com :) Experts please help me

I use the following code to dial the bluetooth phone modem connected to my Laptop via serial port. The code dials the phone number well but after the sleep, it disconnects("ATH") resulting in the system crashes with the blue screen of death showing the following error:
IRQL_NOT_LESS_THAN_OR_EQUAL

I think the problem with the drivers and memory conflicts. Please give me an idea.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
    Dim DialString As String, FromModem As String, dummy As String
    MSComm1.InputLen = 0
    MSComm1.CommPort = 9
    MSComm1.Settings = "115200,n,8,1"
    MSComm1.PortOpen = True
    MSComm1.InBufferCount = 0
    MSComm1.Output = "ATD 99863227654;" + vbCr
    Sleep 5000
    MSComm1.Output = "ATH" + vbCr
    MSComm1.PortOpen = False
End Sub
 

For more information:
I use a HP Pavilion Laptop which has an integrated bluetooth, the phone is LG Dynamite.

Hello Sakibanda!

I found a number of links I thought might interest you:
http://www.google.com/search?sourcei...THAN_OR_EQUAL+

Please give them a whirl...