电脑出现工程1的一个对话框是怎么一回事？怎么解决？

应该是你，或者是别人用VB6写的一个程序在你电脑上运行了。但是写的这个程序中数据类型没有定义正确，就会出来这样问题。建议关闭！

我是从网上搜索的答案

可能是笔记本随机带的程序。

你看一下开机都有哪些启动项。应该是其中一个程序有问题。

像楼上说的“应该是你，或者是别人用VB6写的一个程序在你电脑上运行了。”

但不一定是中木马了。

自己解决

vb编写的程序,如果不是你弄得那你就很有可能中木马了,应该是比较老的木马了,用vb生成的功能的木马,一般在服务端出现工程1.exe 工程2.exe 在客户端生成的很少,因为你要捆绑到别的可执行程序上,如果捆绑错了,把可执行程序捆绑到木马上就会出现工程1.exe的窗口了

举例:用VB生成木马程序的效果

（目的就是有一个VB写的应用程序里生成另一个应用程序，这个应用程序的的标题由主程序设置，有了这个效果就可以做远程控制软件生成木马，设置连接的IP地址了）

首先打开VB新建个标准EXE程序输入如下代码

Const file_size = 20480 Private Sub Form_Load() Dim snum As Long Dim sinfo As String, sappend As Byte Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 Seek #1, file_size + 1 ''将读取指针定位到文件尾部 For snum = 1 To FileLen(App.Path & "\" & App.EXEName & ".exe") - file_size Get #1, , sappend ''读出超出模板大小的字节部分，即我们写进去的配置信息 sinfo = sinfo + Chr(sappend) Next snum Close #1 Me.Caption = sinfo End Sub 然后生成应用程序。在打开VB新建个标准EXE程序，画个命令按钮和对话框控件和一个文本框在把刚刚生成的应用程序添加到资源文件在输入如下代码

Private Sub Command1_Click() CommonDialog1.Filter = "应用程序|*.exe" CommonDialog1.FileName = Text1.Text CommonDialog1.ShowSave If CommonDialog1.FileName <> "" Then Const FILE_SIZE = 20480 '这是101号资源中的服务端文件1.exe的大小 Dim bInfo As Byte Dim bFile() As Byte Dim iInfoLen As Integer Dim i As Integer, lFile As Long, filesavename As String On Error Resume Next iInfoLen = Len(Text1.Text) 'text1中输入字符的长度 filesavename = CommonDialog1.FileName '打开文本中数据然后保存 If Text1.Text = "" Then MsgBox "请输入内容" Exit Sub End If

bFile = LoadResData(101, "CUSTOM") '读出101号资源 Open filesavename For Binary Access Write As #1 For lFile = 0 To FILE_SIZE - 1 '判断资源大小 Put #1, , bFile(lFile) '输出 Next lFile For i = 1 To iInfoLen '读出配置信息并追加 bInfo = Asc(Mid(Text1.Text, i, 1)) '转换成ASC格式 Put #1, , bInfo Next i Close #1 Else Exit Sub End If End Sub

这样就完成了所要的效果了！

（使用这种方法不能使用汉字！这里只是说下方法，其他的就自己摸索吧，不是很难）