用VB写了一段从数据库中下载可执行文件的代码,360为什么总不放过它!?如何避免!?
用VB写了一段从数据库中下载可执行文件的代码,360为什么总不放过它!?如何避免!?Public Function OutPutImageNew() As Boolean
Dim rs As New ADODB.Recordset
On Error Resume Next
Set st = New ADODB.Stream
st.Type = adTypeBinary
st.Open
If Not Dir(App.Path & "\X系统.exe") = "" Then
Kill App.Path & "\X系统.exe"
End If
Set rs = OpenERPSQL("SELECT * FROM UPDATE_PRO WHERE ISMAIN=1")
DoEvents
OutPutImageNew = False
If rs.RecordCount > 0 Then
st.Write rs.Fields("EXE").value
DoEvents
st.SaveToFile (App.Path & "\X系统" + ".exe")
DoEvents
If st.State = adStateOpen Then
st.Close
End If
OutPutImageNew = True
End If
If rs.State = 1 Then
rs.Close
Set rs = Nothing
--------------------编程问答-------------------- 几个旁门左道的方法,try:
1 先保存为其他格式,保存后再改为exe后缀名。
2 数据库存放压缩文件,下载压缩文件后解压出exe
3 先让360挂掉,再安心释放exe --------------------编程问答-------------------- 先确定360干的是哪个代码。是kill exe还是write exe,如果是kill exe试试改名。不kill看看,如果是write 试试,先写成别的后缨名。然后改名 --------------------编程问答-------------------- 360杀毒是个傻比,连metaedit.exe这种微软出的工具软件也要杀。 --------------------编程问答--------------------
真實的心聲。。。 --------------------编程问答-------------------- 我的EXE都是经过微软数字签名的,搞不懂!上面的代码是在一个可执行文件中。 --------------------编程问答-------------------- 没用过360,可能从其角度看来,你的程序就是释放了一个exe文件出来,这被认为是个危险的行为。 --------------------编程问答-------------------- 360就是流氓的代名词 --------------------编程问答--------------------
特别恶心的360,用金山先把360kill了 --------------------编程问答-------------------- 还在用360....无语 --------------------编程问答-------------------- 如果是这样就先把*.exe压缩成*.rar,下载完了以后再解压!
解压问题如果不想手动,可以下载完了后执行bat。 --------------------编程问答-------------------- 先干掉360. --------------------编程问答-------------------- 执行bat有时候360也会挂你。最烦的就是做升级文件自解压那种,360有时候也会杀 --------------------编程问答-------------------- 求干掉360的代码。 --------------------编程问答-------------------- 加入360的信任列表 --------------------编程问答--------------------
先Kill了360进程,再运行...
补充:.NET技术 , VB.NET