AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 02 21:31:51
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : WINSOCK + .ASP [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (cognicase)

lundi 12 avril 2004 à 22:10:26 | WINSOCK + .ASP

cognicase
J'essai de faire un prog. qui met a jour mon application. je sais, des milliers de source existe déjà. mais pas comme je veux faire... je m'explique.

Je veux que mon prog. utilise un winsock ..
Ce connect sur le net puis dire a une page asp que tel utilisateur a pris la dernière mise a jour. avec la date ..
Une fois inscrit dans la base de donnée, commencer le download de l'application pour permettre la mise a jour ..

Ce petit processus fonctionne a moitié c'est a dire que je peux downloader un programme.exe et l'exécuté sur mon poste c'est super débille mais je veux savoir quel utilisateur l'a mise a jour, combien de downloade de ma mise a jour. des choses comme ca ..

Mais je ne doit pas passé par autre port que le port 80 a cause des proxy qui me bloque et aussi parce que j'ai un logiciel d'installé et que je ne doit pas installer un autre OCX ou DLL ..
Puis-je utilisé juste le winsock pour faire ca ..

Pss. en passant je ne suis pas un programmeur débutant..
Je travaille depuis 2 ans sur ce projet et je voudrais l'amilioré un petit peu...
Alors si quelqu'un as une idée ... pour moi je serais interessé a en discuté ...

MERCI BEAUCOUP

André St-Onge
mardi 13 avril 2004 à 13:13:50 | Re : WINSOCK + .ASP

sephiro

Membre Club

J'utilise les sockets et l'asp, j'ai plusieurs sites distants avec serveur Web et base de données (SQL server, MSDE ou access) j'appelle mes pages ASP et elles me répondent en HTML ou XLM (suivant la tonne de données à me retourner).

'// Creation de l'URL avec parametres
Url = "http://" & Ip & "/consultation/Caisse2Sap.asp?fonction=LISTER_DATE&DateIN=" & DateTMP

'// Ip adresse Ip du serveur
' // /consultation/Caisse2Sap.asp fichier ASP
' // ?fonction=LISTER_DATE&DateIN=" & DateTMP Parametres

'// creation socket
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

' // Connexion
hFile = InternetOpenUrl(hOpen, Url, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)

'// Lecture de la réponse du serveur
Do While Ret <> 0
sBuffer = Space(1000)
InternetReadFile hFile, sBuffer, 1000, Ret
Loop

' ///////////// DECLARATION API WINSOCK

Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_FLAG_RELOAD = &H80000000
Public Const S_FALSE = &H1
Public Const S_OK = &H0

Public 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
Public Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Public Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public 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 Declare Function IsValidURL Lib "URLMON.DLL" (ByVal pbc As Long, ByVal szURL As String, ByVal dwReserved As Long) As Long

' /////////// ET A L'AUTRE BOUT TU AS LA PAGE ASP

<%@ Language=VBScript %>
<!--#include file="../tool/local.inc"-->
<HTML>

<%
dim ChaineDeConn
dim Conn
dim Recordset
dim CrLf
dim SQL
dim NbLigne
dim ChoixFX


ChoixFX=Request.QueryString("Fonction")

select case ChoixFX
case "LISTER_DATE"
Lister_date()
case "GET_DATA"
GET_DATA()
case "VALIDER"
Valider_ID
case "VALIDER_CAISSE"
Valider_Caisse
end select
end if

%>

</HTML>

<%

function Lister_date

DateIN=Request.QueryString("DateIN")

response.write "<DATA>"
response.write "</DATA>"
end function

%>

' ----------------------------------------------------------------
Je sais c'est un peu brute de fonderie, mais si tu connais les sockets et ASP tu devrais comprendre, dans tous les cas si tu as des questions: sephiro.fr@voila.fr

L'utilisation de VB en client et ASP en serveur est tres pratique.

Sephiro



Cette discussion est classé dans : asp, winsock, application, prog, jour

Répondre à ce message

Sujets en rapport avec ce message

besoin d'aide pour un prog TAPI !! [ par freddd ] Bonjour !!!Peut être allez vous pouvoir m'aider ? Je suis étudiant en informatique, et je dois réaliser une application sous VB permettant , avec l'ap besoin d'aide pour un prog TAPI !! [ par freddd ] Bonjour !!!Peut être allez vous pouvoir m'aider ? Je suis étudiant en informatique, et je dois réaliser une application sous VB 6 permettant , avec l' Loop et winsock incompatible? [ par boutnell ] Lu'! g fait un prog du stye:*********do call GOloop*********Mon probleme est que l'on passe au LOOP sans que l'appel de la fonction soisterminé.. fermeture d un prog [ par lolo ] J ouvre show case (requete sur as400) parcr = Shell("C:\Program Files\ShowCaseSTRATEGY\Desktop\vista.exe") 'recup idchannel = Application.DDEInitiate( Access + ASP + VB6 + SQL server ... [ par holos ] Voila, j'ai un énorme problème à résoudre.Je dispose d'une base SQL server sur mon intranet, je souhaiterai que certaine donnée de cette base soit acc Signet et ASP [ par vbfrogs ] Bonjour,J'ai un pb à vous soumettre :J'ai une page ASP dans laquelle je constitue des signets (en fait à chaque groupe d'enr.)Pour chaque signet, l'ut application qui se lance périodiquement [ par alex74 ] J'ai créer un prog en vb6, je voudrais maintenant que lorsque l'on installe ce prog sur une machine, il se lance par exemple toute les x heures. Je vo Question pratique [ par seb ] Bonjour à tous, Débutant en VB, je souhaiterais un petit avis.Présentation du problème.- J'ai développé une application qui peut être mise à jour Question pratique [ par seb ] Bonjour à tous, Débutant en VB, je souhaiterais un petit avis.Présentation du problème.- J'ai développé une application qui peut être mise à jour Problème pour charger un objet [ par Phil ] Bonjour,Voilà mon problème : Je suis à réaliser une application client-serveur. Dans cette application j'ai besoin de deux contrôle Winsock, dont un e


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,172 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.