Path: csiph.com!weretis.net!feeder4.news.weretis.net!feeder5.news.weretis.net!news.solani.org!.POSTED!not-for-mail
From: Greg <greg@alicie.com>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: Prog VB6 e antivirus
Date: Wed, 24 May 2017 20:41:30 +0200
Organization: solani.org
Lines: 30
Message-ID: <og4k4t$1b3$1@solani.org>
References: <ofpe5g$l4s$1@solani.org> <og0o8p$176o$1@gioia.aioe.org> <og1h22$18o$1@solani.org> <og3lub$9bp$1@gioia.aioe.org> <og46n2$ojt$1@solani.org> <og47o3$18t3$1@gioia.aioe.org> <og4bch$rfh$1@solani.org> <okdbictfbl2kf1032ukpud52ndgj3mviup@4ax.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-15"; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: solani.org 1495651293 1379 eJwNyMEBwCAIA8CVGiEg4wjC/iPYex7FYOVqNOVw+lbiLmodqdjw1SaB1iN30PJXBnd/CU+xfCeGETA= (24 May 2017 18:41:33 GMT)
X-Complaints-To: abuse@news.solani.org
NNTP-Posting-Date: Wed, 24 May 2017 18:41:33 +0000 (UTC)
Cancel-Lock: sha1:k8Js9AJcHS+Wr7mhs3yKo92NBhc=
X-User-ID: eJwNyMEBwCAIA8CVRCXAOATK/iPYe54eCMouFFdHJ2mb6E6U92SZj1h0Rq1FOVuSlHEP//jPfTzfEeU=
X-NNTP-Posting-Host: eJwFwQEBwCAMAzBLDNaWy+kH8y+BBIvBUhJMNLo8b7kLV1bVjxxbId2xJ3yoA/oLc82ODD81/BFY
X-Newsreader: MesNews/1.08.06.00-it
Xref: csiph.com it.comp.lang.visual-basic:19023

Il 24/05/2017 18:42:20 SB ha scritto:

> E provando a fare un eseguibile con solo quelle righe di codice nel Sub Main
> cosa succede?

Grande SB!
Ho fatto quello che dici e risulta indigesto ad altri 2 antivirus diversi da prima, Cyren e F-Prot vedono 
VbTrojanF1!Maximus


Ecco il codice da incollare in un modulo e compilare, poi testare l'eseguibile su virustotal.com:

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName 
As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Sub SavLog(Chiave As String, Valore As String)
  Dim x As Long
  Chiave = "- " & Chiave
  x = WritePrivateProfileString("Start", Chiave, Valore, App.Path & "\LogFile.txt")
End Sub

Sub Main()
   CurrH = Screen.Height / Screen.TwipsPerPixelY
    CurrW = Screen.Width / Screen.TwipsPerPixelX
    SavLog "Display", CurrW & "x" & CurrH
    fMain.Show
End Sub

-- 
Greg