PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Active X web
Active X web
Iniciado por info, jun., 22 2005 5:29 PM - Sem resposta
#1
Publicado em junho, 22 2005 - 5:29 PM
Bonjour j'essai de transcrire en Windev ce petit programme VBA qui permet de se connecter à l'intranet de notre entreprise :

Private Sub CommandButton1_Click()

Dim bPostData() As Byte

bPostData = StrConv( _
"module=Default&action=Login&identifiant=XXXXX&motdepasse=XXXXX&url=http%3A%2F%2F172.20.0.2%2F%3Fmodule%3DSAV%26action%3DRechercheProcedure", _
vbFromUnicode)

MsgBox (bPostData)

MultiPage1.Pages(0).WebBrowser1.Navigate2 "http://172.20.0.2/index.php", _
, , bPostData, "Content-Type: application/x-www-form-urlencoded" & vbCrLf _
& vbCrLf

End Sub


en reprenant le programme tel que et en l'adaptant aux fonctions Windev cela ne fonctionne pas : on me demande systèmatiquement lde me resigner à l'intranet
:

url est une chaîne UNICODE=AnsiVersUnicode("module=Default&action=Login&identifiant`737&motdepasse=GRDPV&url=http%3A%2F%2F172.20.0.2%2F%3Fmodule%3DSAV%26action%3DRechercheProcedure")


//url2 est une chaine=AnsiVersUnicode(url)

ActiveX_Web>>Navigate2("http://172.20.0.2/index.php","","",url1,"Content-Type: application/x-www-form-urlencoded" + RC + RC)

quelqun aurait une piste ???
→ Voltar para WINDEV 2024