[VB] [Access] Tel Sms par PC - Faisable ?

Tel Sms par PC - Faisable ? [VB] [Access] - VB/VBA/VBS - Programmation

Marsh Posté le 16-06-2005 à 16:18:23    

Bonjour,  
 
Je voudrais savoir si Access (à partir d'une nouvelle entrée dans la base) peut automatiquement rechercher un numéro de téléphone, le composer et délivrer un message pré-enregistré à l'interlocuteur. Ou / et un sms.  
Avec un modem classique ou bien en Voip.  
 
C'est pour max 4/5 appels en même temps au pire.  
1) Est-ce faisable ?  
2) Mais surtout de quelle manière faire cela ? Je me doute que ça nécessitera sans doute un développement particulier, mais pour rechercher un programmeur, j'ai besoin de savoir quoi lui demander  
 
J'ai trouvé le code ci-dessous sur Allapi lien : http://www.mentalis.org/apilist/Ra [...] rams.shtml  
 
Pensez-vous que ça réponde à ma question ?  
Ce serait cool de me répondre  
 
Merci  
 
PS1: j'ai vu dans les faq qu'access peut gérer un appel mais je ne sais pas s'il peut faire tout ça automatiquement  
PS2: si quelqu'un sait faire, qu'il me contacte
 
 

Code :
  1. 'This program let you dial to your dial-up connections using whether
  2. 'the stored user name and password or the ones you specifies
  3. '(It use RasDial for dialing)
  5. 'You need a form with a list,2 textbox and a command button
  7. Option Explicit
  8. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, ByVal pSrc As String, ByVal ByteLen As Long)
  9. Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)
  11. Const RAS95_MaxEntryName = 256
  12. Const RAS_MaxPhoneNumber = 128
  13. Const RAS_MaxCallbackNumber = RAS_MaxPhoneNumber
  15. Const UNLEN = 256
  16. Const PWLEN = 256
  17. Const DNLEN = 12
  18. Private Type RASDIALPARAMS
  19. dwSize As Long ' 1052
  20. szEntryName(RAS95_MaxEntryName) As Byte
  21. szPhoneNumber(RAS_MaxPhoneNumber) As Byte
  22. szCallbackNumber(RAS_MaxCallbackNumber) As Byte
  23. szUserName(UNLEN) As Byte
  24. szPassword(PWLEN) As Byte
  25. szDomain(DNLEN) As Byte
  26. End Type
  28. Private Type RASENTRYNAME95
  29. 'set dwsize to 264
  30. dwSize As Long
  31. szEntryName(RAS95_MaxEntryName) As Byte
  32. End Type
  34. Private Declare Function RasDial Lib "rasapi32.dll" Alias "RasDialA" (ByVal lprasdialextensions As Long, ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByVal dword As Long, lpvoid As Any, ByRef lphrasconn As Long) As Long
  35. Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long
  36. Private Declare Function RasGetEntryDialParams Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long
  38. Private Function Dial(ByVal Connection As String, ByVal UserName As String, ByVal Password As String) As Boolean
  39. Dim rp As RASDIALPARAMS, h As Long, resp As Long
  40. rp.dwSize = Len(rp) + 6
  41. ChangeBytes Connection, rp.szEntryName
  42. ChangeBytes "", rp.szPhoneNumber 'Phone number stored for the connection
  43. ChangeBytes "*", rp.szCallbackNumber 'Callback number stored for the connection
  44. ChangeBytes UserName, rp.szUserName
  45. ChangeBytes Password, rp.szPassword
  46. ChangeBytes "*", rp.szDomain 'Domain stored for the connection
  47. 'Dial
  48. resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h) 'AddressOf RasDialFunc
  49. Dial = (resp = 0)
  50. End Function
  52. Private Function ChangeToStringUni(Bytes() As Byte) As String
  53. 'Changes an byte array to a Visual Basic unicode string
  54. Dim temp As String
  55. temp = StrConv(Bytes, vbUnicode)
  56. ChangeToStringUni = Left(temp, InStr(temp, Chr(0)) - 1)
  57. End Function
  59. Private Function ChangeBytes(ByVal str As String, Bytes() As Byte) As Boolean
  60. 'Changes a Visual Basic unicode string to an byte array
  61. 'Returns True if it truncates str
  62. Dim lenBs As Long 'length of the byte array
  63. Dim lenStr As Long 'length of the string
  64. lenBs = UBound(Bytes) - LBound(Bytes)
  65. lenStr = LenB(StrConv(str, vbFromUnicode))
  66. If lenBs > lenStr Then
  67. CopyMemory Bytes(0), str, lenStr
  68. ZeroMemory Bytes(lenStr), lenBs - lenStr
  69. ElseIf lenBs = lenStr Then
  70. CopyMemory Bytes(0), str, lenStr
  71. Else
  72. CopyMemory Bytes(0), str, lenBs 'Queda truncado
  73. ChangeBytes = True
  74. End If
  75. End Function
  77. Private Sub Command1_Click()
  78. Dial List1.Text, Text1, Text2
  79. End Sub
  82. Private Sub List1_Click()
  83. Dim rdp As RASDIALPARAMS, t As Long
  84. rdp.dwSize = Len(rdp) + 6
  85. ChangeBytes List1.Text, rdp.szEntryName
  86. 'Get User name and password for the connection
  87. t = RasGetEntryDialParams(List1.Text, rdp, 0)
  88. If t = 0 Then
  89. Text1 = ChangeToStringUni(rdp.szUserName)
  90. Text2 = ChangeToStringUni(rdp.szPassword)
  91. End If
  92. End Sub
  94. Private Sub Form_Load()
  95. 'example created by Daniel Kaufmann (daniel@i.com.uy)
  96. 'load the connections
  97. Text2.PasswordChar = "*"
  98. Command1.Caption = "Dial"
  99. Dim s As Long, l As Long, ln As Long, a$
  100. ReDim r(255) As RASENTRYNAME95
  102. r(0).dwSize = 264
  103. s = 256 * r(0).dwSize
  104. l = RasEnumEntries(vbNullString, vbNullString, r(0), s, ln)
  105. For l = 0 To ln - 1
  106. a$ = StrConv(r(l).szEntryName(), vbUnicode)
  107. List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1)
  108. Next
  109. If List1.ListCount > 0 Then
  110. List1.ListIndex = 0
  111. List1_Click
  112. End If
  113. End Sub


Message édité par Domdomdom le 16-06-2005 à 16:32:54
Reply

Marsh Posté le 16-06-2005 à 16:18:23   

Reply

Marsh Posté le 16-06-2005 à 16:24:29    

a mon avis ca va etre chaud  
mais recherches toujours du cote des codes TAPI
et alors la bonne chance

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed