Bug VB6Résolu

Question

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

cs_DARKSIDIOUS · Accepted Answer

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...

econs · Answer

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" ?

econs · Answer

Encore que ... le fichier ACSC.exe n'affiche-t-il pas des alertes ?

Bug VB6

3 réponses

Votre réponse

Discussions similaires