کار با کدهای ussd از طریق اکسس امکان پذیر هست.؟

[saeed28541]

با سلام
اساتید راهنمایی بفرمایند ممنون میشم
آیا میشه با کد های ussd از طریق یک مودم و سیم کارت با یک برنامه اکسس ارسال کد داشت و پیام ها رادریافت کرد.؟

[AbbasSediqi]

با سلام
اساتید راهنمایی بفرمایند ممنون میشم
آیا میشه با کد های ussd از طریق یک مودم و سیم کارت با یک برنامه اکسس ارسال کد داشت و پیام ها رادریافت کرد.؟



Sub USSD()
Set MSComm1=CreateObject("MSCOMMLib.MSComm")
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 5
MSComm1.CommPort = 4
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
MSComm1.Output="AT+CMGF=1" & vbcrlf
WScript.Sleep(1000)

TextCommand = "*124#"
strCommand = "AT+CUSD=1," & Chr(34) & TextCommand & Chr(34) & ",15"
MSComm1.Output=strCommand ' Send USSD Command
WScript.Sleep(10000)
strResponse=MSComm1.Input

If (InStr(strResponse, "OK") > 0) Then ' Response should be OK
MSComm1.Output=" " &vbcrlf <-----HERE
WScript.Sleep(10000) ' Wait for response
strResponse2=MSComm1.Input

If (InStr(strResponse2, "+CUSD:") > 0) Then ' If USSD response is received, display text between ""
strFields = Split(strResponse2, Chr(34))
modemReply = strFields(1)
Else
modemReply = "Error strResponse2"
End If
ELSE
modemReply = "Error strResponse"
End If

MSComm1.PortOpen = False
set MSComm1=nothing

End Sub

Call USSD()
msgbox modemReply

[saeed28541]

سلام
خیلی ممنون از راهنمایتون
اگر امکان داره یا توضیحی بفرمایید یا منبعی برای مطالعه به بنده معرفی بفرمایید

[AbbasSediqi]

https://www.experts-exchange.com/questions/23017550/AT-COMMAND-GSM-Modem-using-USSD-Vbscript.html

[saeed28541]

سلام مجدد
برای نمایش پیغامهای دریافتی باید چکار کنم.؟
یعنی کدوم پارامتر را به msgboxارتباط بدم