Bug VB6

Résolu
Signaler
Messages postés
12
Date d'inscription
jeudi 3 juin 2004
Statut
Membre
Dernière intervention
18 décembre 2007
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Salut,

voila j'ai un bug sur VB qui me casse la tete  j'avais des msgbox dans mon code, je les ai supprimés mais a l'execution ils apparaissent toujours!! j'ai bien verifier je les ai bien supprimer et enregistrer mon projet. J'ai redemarrer l'ordi, recréer un projet, supprimer l'ancien projet mais rien a faire!

voila mon code :

Private Sub Form_Load()
uptug.Show
'download  du  fichier  contenant  l'indice  de  la  version de  l'update
Label2.Caption = "Recherche de mise jours..."
temp = "version.txt"
Call down_tug("http://www.xxxxx.com/anticheatzizou/update.txt", "version.txt")
'ouverture  du  fichier  temporaire
Open temp For Input As #1
Input #1, textfile
Close #1
'verification  de  la  version de l'update  a  celle de  la  version  courante
If textfile > 1 Then
Label2.Caption = "Mise à jours trouvée, téléchargement..."
'download  du  fichier  contenant  l'update
temp2 = "ACSC.exe"
Call down_tug("http://www.xxxxx.com/anticheatzizou/ACS.exe", "ACSC.exe")
'execution  du  fichier
Label2.Caption = "Vous avez la dernière version!"
Shell temp2, vbNormalFocus
uptug.Hide
indentification.Show
Else
Label2.Caption = "Vous avez la dernière version!"
Kill temp
uptug.Hide
indentification.Show
End If
End Sub

Sub down_tug(URL As String, SaveAs As String)

    Dim hOpen                As Long
    Dim hOpenUrl            As Long
    Dim bDoLoop          As Boolean
    Dim bRet                As Boolean
    Dim sReadBuffer      As String * 2048
    Dim lNumberOfBytesRead  As Long
    Dim sBuffer          As String

    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)

    bDoLoop = True
    While bDoLoop
        sReadBuffer = vbNullString
        bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
        sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
        If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
   
    Open SaveAs For Binary Access Write As #1
    Put #1, , sBuffer
    Close #1
   
    If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
    If hOpen <> 0 Then InternetCloseHandle (hOpen)

End Sub

Le module :

Option 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 hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength 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 INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3

Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
quant tu dis "à l'execution", c'est à partir de vb (mode debug) ou à partir de l'exe (mode release) ?
Car si c'est à partir de l'exe, vérifie que tu l'as bien recompilé avant de l'éxécuter...
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Salut,

Si tu as mis là tout ton code, il n'y a aucune raison d'avoir des MsgBox ... Quels messages obtiens-tu ? Ce sont des messages système ou des messages du type "je suis passé ici" ?
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Encore que ... le fichier ACSC.exe n'affiche-t-il pas des alertes ?