Send URL Request To Send SMS Via NowSMS

[deco]

I use this Code To Send SMS Via NowSMS its work in VB6 but in VS2005
doesn't .

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
 
Public Const IF_NO_CACHE_WRITE = &H4000000
 
Dim hInternet As Long, hSession As Long, iResult As Long
Dim urlStr as String
 
urlStr = "http://127.0.0.1:8800/?PhoneNumber=%2B218925001234&&Text=Test&&Sender=5353"
 
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
 
If hSession Then 
 
hInternet = InternetOpenUrl(hSession, UrlStr, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
 
iResult = InternetCloseHandle(hInternet)
 
End If
 

[kenobewan]

Looks like you need a converter, 2003 has a built in vb6 converter but unsure about 2005. HTH.

[deco]

i don't think so because wininet.dll is a windows library handles internet ,itsn't a vb6 component