为什么我做的VB程序360和金山都报病毒是不是我下载的版本有问题？

为什么我做的VB程序360和金山都报病毒是不是我下载的版本有问题？
谁有不带病毒的VB版本？

什么类型的程序？

工程1.exe我生成了 EXE文件

作什么用的？你的代码里面肯定有敏感的东西

我估计是我安装的Visual Basic 6.0 软件 有问题是在网上下载的
我做的是电子版广告单 功能很简单就是一个看图软件。
代码我可以传上来大家看下
Private Sub Picture1_Click()

End Sub




Private Sub Combo1_Click()
If Combo1.Text = "Y-AA-01 普通透明气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\1.jpg")
Text1.Text = "产品名称:Y-AA-01 普通透明气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-02 普通红气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\2.jpg")
Text1.Text = "产品名称:Y-AA-02 普通红气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-03 普通黄气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\3.jpg")
Text1.Text = "产品名称:Y-AA-03 普通黄气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-04 普通蓝气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\4.jpg")
Text1.Text = "产品名称:Y-AA-04 普通蓝气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-05 普通绿气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\5.jpg")
Text1.Text = "产品名称:Y-AA-05 普通绿气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-06 普通雨花气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\6.jpg")
Text1.Text = "产品名称:Y-AA-06 普通雨花气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-07 普通四季气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\7.jpg")
Text1.Text = "产品名称:Y-AA-07 普通四季气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-08 普通吉祥气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\8.jpg")
Text1.Text = "产品名称:Y-AA-08 普通吉祥气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-09 普通五彩气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\9.jpg")
Text1.Text = "产品名称:Y-AA-09 普通五彩气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-10 普通小五彩气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\10.jpg")
Text1.Text = "产品名称:Y-AA-10 普通小五彩气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-11 普通祥云气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\11.jpg")
Text1.Text = "产品名称:Y-AA-11 普通祥云气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-12 普通橙气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\12.jpg")
Text1.Text = "产品名称:Y-AA-12 普通橙气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-13 普通蓝宝石气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\13.jpg")
Text1.Text = "产品名称:Y-AA-13 普通蓝宝石气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf Combo1.Text = "Y-AA-14 普通蓝祥云气泡方柱" Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\14.jpg")
Text1.Text = "产品名称:Y-AA-14 普通蓝祥云气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
End If
End Sub

Private Sub Form_Load()
hsc.SmallChange = 1
hsc.LargeChange = 1
Combo1.AddItem "Y-AA-01 普通透明气泡方柱"
Combo1.AddItem "Y-AA-02 普通红气泡方柱"
Combo1.AddItem "Y-AA-03 普通黄气泡方柱"
Combo1.AddItem "Y-AA-04 普通蓝气泡方柱"
Combo1.AddItem "Y-AA-05 普通绿气泡方柱"
Combo1.AddItem "Y-AA-06 普通雨花气泡方柱"
Combo1.AddItem "Y-AA-07 普通四季气泡方柱"
Combo1.AddItem "Y-AA-08 普通吉祥气泡方柱"
Combo1.AddItem "Y-AA-09 普通五彩气泡方柱"
Combo1.AddItem "Y-AA-10 普通小五彩气泡方柱"
Combo1.AddItem "Y-AA-11 普通祥云气泡方柱"
Combo1.AddItem "Y-AA-12 普通橙气泡方柱"
Combo1.AddItem "Y-AA-13 普通蓝宝石气泡方柱"
Combo1.AddItem "Y-AA-14 普通蓝祥云气泡方柱"
End Sub

Private Sub hsc_Change()
If hsc.Value = 2 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\1.jpg")
Text1.Text = "产品名称:Y-AA-01 普通透明气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 3 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\2.jpg")
Text1.Text = "产品名称:Y-AA-02 普通红气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 4 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\3.jpg")
Text1.Text = "产品名称:Y-AA-03 普通黄气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 5 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\4.jpg")
Text1.Text = "产品名称:Y-AA-04 普通蓝气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 6 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\5.jpg")
Text1.Text = "产品名称:Y-AA-05 普通绿气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 7 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\6.jpg")
Text1.Text = "产品名称:Y-AA-06 普通普通雨花气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 8 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\7.jpg")
Text1.Text = "产品名称:Y-AA-07 普通四季气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 9 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\8.jpg")
Text1.Text = "产品名称:Y-AA-08 普通吉祥气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 10 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\9.jpg")
Text1.Text = "产品名称:Y-AA-09 普通五彩气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 11 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\10.jpg")
Text1.Text = "产品名称:Y-AA-10 普通小五彩气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 12 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\11.jpg")
Text1.Text = "产品名称:Y-AA-11 普通祥云气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 13 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\12.jpg")
Text1.Text = "产品名称:Y-AA-12 普通橙气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 14 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\2.jpg")
Text1.Text = "产品名称:Y-AA-13 普通蓝宝石气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
ElseIf hsc.Value = 15 Then
pic1.Picture = LoadPicture(App.Path & "\图片\普通方柱\2.jpg")
Text1.Text = "产品名称:Y-AA-14 普通蓝祥云气泡方柱 规格:7.5CM*9.5CM*2M/2.5M/3M"
End If
End Sub

代码看似很普通，不会引起问题。
报毒的详细内容是什么？

GENERIC 木马病毒

我想问下谁有好点的Visual baisc 6.0

流氓是躲不过的

win32.troj.generic. 病毒
谁有干净的Visual basic 6.0
谢谢

我编译后生成的EXE
后就报病毒

你百度VB6+SP6

跟vb6没关系的，vb6只有微软一家生产，而现在停产了。

仔细检查你的程序，方法就是注释掉部分代码然后编译，直到检查出是哪几行代码导致的。

之前因为360报毒，检查了n久才发现是一个字母导致的，不过这跟360的弱智有关，竟然根据exe文件的本身信息进行检查，广告字符串就认为是病毒了。

广告->光靠