求VB被360报可疑程序
我的程序很简单就是用了一个WebBrowser打开网站.生成EXE文件后打,
我再用浏览器打开工行网站或者其它的网站,都会报我这个程序为可疑程序..
这个问题如何解决.
代码如下:
Dim WithEvents M_Dom As MSHTML.HTMLDocumentOption ExplicitPrivate InitWidth As Long ' Form 的原始大小Private InitHeight As LongPrivate Yan As ObjectPrivate IeVerSion As StringPrivate Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Const PM_NOREMOVE = &H0Private Const PM_NOYIELD = &H2Private Const PM_REMOVE = &H1Private Type POINTAPI X As Long Y As LongEnd TypePrivate Type Msg hwnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPIEnd TypePrivate Const WM_RBUTTONDBLCLK = &H206Private Const WM_RBUTTONDOWN = &H204Private Const WM_RBUTTONUP = &H205Private Declare Function TranslateMessage Lib "user32" (lpMsg As Msg) As LongPrivate Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As LongPrivate Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As LongPrivate Declare Function WaitMessage Lib "user32" () As LongPrivate Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As LongPrivate bCancel As BooleanPrivate webHwnd As Long '窗体中webbrowser控件的句柄Private Sub Form_Load()'Set Yan = CreateObject("WScript.Shell")'IeVerSion = Yan.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")'IeVerSion = Left(IeVerSion, 1)'If IeVerSion = 6 Then' MsgBox "你的IE版本过低，请升级你的IE后再尝试运行本软件。"' WebBrowser1.Navigate ("http://download.microsoft.com/download/8/3/9/83941BA7-BDE8-4402-BEC4-51D670DF2BAB/IE8-WindowsXP-x86-CHT.exe")'ElseWebBrowser1.Navigate ("http://www.qq.com")'End IfMe.WindowState = 2InitWidth = ScaleWidthInitHeight = ScaleHeightDim Ctl As Control' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中On Error Resume Next '确保left, top, width, height, Tag属性没有全有的ControlFor Each Ctl In Me '也能正常执行 Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " " Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "Next CtlOn Error GoTo 0 Dim Ret As Long bCancel = False ShowEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim msgRes As VbMsgBoxResultmsgRes = MsgBox("是否退出?", vbQuestion + vbYesNo + vbDefaultButton2, "退出")If msgRes = vbNo Then Cancel = 1End SubPrivate Function M_Dom_oncontextmenu() As BooleanM_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete()Set M_Dom = WebBrowser1.Document '好了，右键菜单没有了'If button = 2 Then'Popmenu mymenu'End If'Me.PopupMenu mymenu '弹出自定义菜单End SubPrivate Sub Form_Unload(Cancel As Integer)bCancel = TrueEnd Sub'自动处理窗口大小Private Sub Form_Resize()Dim D(4) As DoubleDim i As LongDim TempPos As LongDim StartPos As LongDim Ctl As ControlDim TempVisible As BooleanDim ScaleX As DoubleDim ScaleY As DoubleScaleX = ScaleWidth / InitWidthScaleY = ScaleHeight / InitHeightOn Error Resume NextFor Each Ctl In Me TempVisible = Ctl.Visible Ctl.Visible = False StartPos = 1 ' 读取 Control 的原始位置、大小、字型大小 For i = 0 To 4 TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare) If TempPos > 0 Then D(i) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(i) = 0 End If ' 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY 'Ctl.Width = D(2) * ScaleX 'Ctl.Height = D(3) * ScaleY If ScaleX < ScaleY Then Ctl.FontSize = D(4) * ScaleX Else Ctl.FontSize = D(4) * ScaleY End If Next i Ctl.Visible = TempVisibleNext CtlOn Error GoTo 0End Sub