Dim La_Variable As String
Variable = txtVar.Text
web1.Navigate "http://www.qcomercio.com/modules/ver.php?La_Variable =" & Variable
Dim La_Variable As String
Variable = txtVar.Text
web1.Navigate "http://www.qcomercio.com/modules/ver.php?La_Variable=" & Variable$metodo = "GetBalance";
//GetBalance (Consulta de Saldo)
$string = '<?xml version="1.0" ?>
<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>'.$metodo.'</MethodName>
</PosMethod>
</Request>';
$client = new nusoap_client($url, true);
$param = array( "StringWS" => $string );
$result = $client->call("RequestWS", $param);
if(!is_array($result)) $result=XML_unserialize($result);
$err = $client->getError();
echo "<pre>";
print_r($result);
echo "</pre>";print_r($result);<?phpini_set("display_errors",1);/* * Ejemplo de pruebas taecel Datos de acceso de pruebas */require_once('NuSoap.class.php');require_once('ParseXML.5.4.class.php');$url = 'http://taecel.com/ConexionCorporativa.php?wsdl'; $dist='1234567890';$user='Tae123456';$pass='Tae123456';//GetSKU (Productos Disponibles)/*$string = '<?xml version="1.0" ?>
<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>GetSKU</MethodName>
</PosMethod>
</Request>';
//ReservaTopUp (Reserva la venta)
$string='<?xml version="1.0" ?>
<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>ReservaTopUp</MethodName>
<Params>
<CountryCode>52</CountryCode>
<PhoneNumber>5555555555</PhoneNumber>
<CardID>1</CardID>
</Params>
</PosMethod>
</Request>';
//VenderTopUp (Realiza la Venta)
$string='<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>VenderTopUp</MethodName>
<Params>
<TransRef>1501427604</TransRef>
<Ticket>0</Ticket>
</Params>
</PosMethod>
</Request>';
//CkechStatus (Verificar Status de una Transacción)
$string='<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>CheckStatus</MethodName>
<Params>
<TransRef>1501427604</TransRef>
</Params>
</PosMethod>
</Request>';
//GetSumary (Devuelve las ventas del dia INDICADO yyyy-mm-dd)
$string='<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>GetSumary</MethodName>
<Params>
<Fecha>2015-01-13</Fecha>
<Ticket>0</Ticket>
</Params>
</PosMethod>
<Options>
<ReturnType>json</ReturnType>
</Options>
</Request>';
*/
$metodo = "GetBalance";
//GetBalance (Consulta de Saldo)
$string = '<?xml version="1.0" ?>
<Request>
<PosLogin>
<PosName>'.$dist.'</PosName>
<UserName>'.$user.'</UserName>
<UserPass>'.md5($pass).'</UserPass>
</PosLogin>
<PosMethod>
<MethodName>'.$metodo.'</MethodName>
</PosMethod>
</Request>';
$client = new nusoap_client($url, true);
$param = array( "StringWS" => $string );
$result = $client->call("RequestWS", $param);
if(!is_array($result)) $result=XML_unserialize($result);
$err = $client->getError();
echo "<pre>";
print_r($result);
echo "</pre>";
?>Dim La_Variable As String
Variable = txtVar.Text
web1.Navigate "http://www.qcomercio.com/modules/ver.php?La_Variable=" & VariableOption Explicit
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 InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
Public Const BUFFER_LEN = 256
Public Function LeeURL(sURL As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
If hInternet Then
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If
iResult = InternetCloseHandle(hInternet)
LeeURL = sData
End Function
'by Karcrack
Option Explicit
'WININET
Private Declare Function HttpQueryInfoW Lib "WININET" (ByVal hRequest As Long, ByVal dwInfoLevel As Long, ByRef lpBuffer As Any, ByRef lpdwBufferLength As Long, ByRef lpdwIndex As Long) As Long
Private Declare Function InternetCloseHandle Lib "WININET" (ByVal hInternet As Long) As Boolean
Private Declare Function InternetOpenW Lib "WININET" (ByVal lpszAgent As Long, ByVal dwAccessType As Long, ByVal lpszProxy As Long, ByVal lpszProxyBypass As Long, ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrlW Lib "WININET" (ByVal hInternet As Long, ByVal lpszUrl As Long, ByVal lpszHeaders As Long, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Long
Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Const HTTP_QUERY_STATUS_CODE As Long = 19
Private Const HTTP_QUERY_FLAG_NUMBER As Long = &H20000000
Private Const HTTP_STATUS_OK As Long = 200
Private Const HTTP_STATUS_REDIRECT As Long = 302
Private Const STRING_AGENT As String = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
Public Function CheckWetherExists(ByVal sURL As String) As Boolean
Dim hInet As Long
Dim hURL As Long
Dim lStatus As Long
hInet = InternetOpenW(StrPtr(STRING_AGENT), INTERNET_OPEN_TYPE_DIRECT, 0&, 0&, 0&)
If hInet = 0 Then GoTo Fail
hURL = InternetOpenUrlW(hInet, StrPtr(sURL), 0&, 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
If hURL = 0 Then GoTo Fail
If HttpQueryInfoW(hURL, HTTP_QUERY_FLAG_NUMBER Or HTTP_QUERY_STATUS_CODE, lStatus, &H4, ByVal 0&) Then
CheckWetherExists = (lStatus = HTTP_STATUS_OK) Or (lStatus = HTTP_STATUS_REDIRECT)
End If
Fail:
Call InternetCloseHandle(hInet)
Call InternetCloseHandle(hURL)
End Function
Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
'Const sURL = "http://localhost/ws/Resultado.txt"
Private Declare Function InternetOpen Lib "WININET" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "WININET" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "WININET" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "WININET" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Public Sub leer_respuesta(sURL As String)
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
'Create a buffer for the file we're going to download
sBuffer = Space(1000)
'Create an internet connection
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
'Open the url
hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
'Read the first 1000 bytes of the file
InternetReadFile hFile, sBuffer, 1000, Ret
'clean up
InternetCloseHandle hFile
InternetCloseHandle hOpen
'Show our file
MsgBox sBuffer
End Sub
Private Sub cmdCallWebService_Click()
Dim strUrl As String
Dim strReq As String
Dim objDom As Object
Dim objXmlHttp As Object
' La URL de tu servicio web
strUrl = "http://taecel.com/ConexionCorporativa.php?wsdl"
' Cuerpo del POST request
strReq = "<?xml version=" & """1.0""" & " ?>" & _
"<Request>" & _
"<PosLogin>" & _
"<PosName>1234567890</PosName>" & _
"<UserName>Tae123456</UserName>" & _
"<UserPass>c32d196fea8fcc528dfcb65456829b20</UserPass>" & _
"</PosLogin>" & _
"<PosMethod>" & _
"<MethodName>ReservaTopUp</MethodName>" & _
"<Params>" & _
"<CountryCode>52</CountryCode>" & _
"<PhoneNumber>5555555555</PhoneNumber>" & _
"<CardID>1</CardID>" & _
"</Params>" & _
"</PosMethod>" & _
"</Request>"
' Carcar el Request XML
Set objDom = CreateObject("MSXML2.DOMDocument")
objDom.async = False
objDom.loadXML strReq
' Realizar el request
Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")
With objXmlHttp
.Open "POST", strUrl, False
.setRequestHeader "Content-Type", "text/xml;charset=UTF-8" '<-- SOAP 1.1
'.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8" '<-- SOAP 1.2
.setRequestHeader "SOAPAction", "http://taecel.com/ConexionCorporativa.php/RequestWS"
.send objDom.XML
Debug.Print .responseText & vbCrLf
Set objXmlHttp = Nothing
Set objDom = Nothing
End With
End SubSaludos desde algún lugar de Lima-Perú
"<?xml version=" & """1.0""" & " ?>" & _<?xml version="1.0" ?> "<?xml version=" & ""1.0"" & " ?>" & _