Path: csiph.com!aioe.org!.POSTED!not-for-mail
From: GbC <info@gbcdepot.com>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: Prog VB6 e antivirus
Date: Thu, 25 May 2017 10:04:54 +0200
Organization: Aioe.org NNTP Server
Lines: 56
Message-ID: <og637b$lu$1@gioia.aioe.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> <og4k4t$1b3$1@solani.org>
NNTP-Posting-Host: z9WxV/I7T0HNhE4/W/qEMQ.user.gioia.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-15; format=flowed
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.1.1
X-Notice: Filtered by postfilter v. 0.8.2
Content-Language: it
Xref: csiph.com it.comp.lang.visual-basic:19024

Il 24/05/2017 20:41, Greg ha scritto:
> 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

----------------------------------------------
Progetto1 (non ho creato un modulo ma inserito tutto in un form, 
inserito la option explicit e compilato; ho provato anche con l'UPX 
perché lo uso molto):

codice nativo + ottimizza PULITO <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<:
https://www.virustotal.com/it/file/315669d6fb0f013bcb7dad3e141e07acf2633b09b3b86a7490ac13224219e3f2/analysis/1495696765/
http://tinyurl.com/m6bzfqt

PCode 3 RILEV MA 0/0:
https://www.virustotal.com/it/file/d0e17df89b6650fe0cffcc69bb97bfb8dcda2cc4418a83fd4272630fa3b6e3fa/analysis/1495697010/
http://tinyurl.com/mrkjv9v

----------------------------------------------
Progetto2 (esattamente com dice Greg senza option explicit e con il 
codice in un modulo):

codice nativo + ottimizza 1 RILEV MA 0/0:
https://www.virustotal.com/it/file/828dc20a0554674afa239d50bc2c92d1d337e8086ffe47b0947ddce1d29a65a8/analysis/1495697411/
http://tinyurl.com/m9wc4xg

PCode 3 RILEV MA 0/0:
https://www.virustotal.com/it/file/fd8b78291f0b378173b45161ebbc3f59ae10aa55bfc997ef97d70bf0e530f714/analysis/1495697641/
http://tinyurl.com/k3c79xc

----------------------------------------------
I rilevamenti erano effettuati solo da AV poco blasonati, quindi da 
prendere con le molle... Solo che se un cliente ne ha uno non è divertente.


ciao cia'


-- 
GbC
www.gbc.uno