求VB被360报可疑程序
我的程序很简单就是用了一个WebBrowser打开网站.生成EXE文件后打,
我再用浏览器打开工行网站或者其它的网站,都会报我这个程序为可疑程序..
这个问题如何解决.
代码如下:
- VB code
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
[解决办法]
作为一个开发者，居然使用360，可以好好鄙视下你。
[解决办法]
楼上的没理解楼主意思，他是怕使用他程序的用户机器上装的360来造反！
[解决办法]
我做的好多程序都被360说有毒
[解决办法]
最简单的办法，在使用说明里把卸载360作为实用的条件就可以了，当然要你的软件够强悍
[解决办法]
给360发邮件吧，提交认证
opensoft@360.cn
把软件和拦截的截图发给他们
[解决办法]
360=250+110
做的是110的事，事实是个250
[解决办法]
是不是你的程序中用了敏感的字眼哦？呵呵，比如你的这个：
Private Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes
ZeroMemroy，以360的智商，很可能就把你封杀了
[解决办法]
[解决办法]
kill掉不容易。找到360的卸载程序，后台卸载掉，让别人看不出来。
[解决办法]