找个VB高手帮忙看下代码，生成的程序被NOD32认为有威胁

求VB或易语言的NOD32升级ID获取器源码~

功能说明：
1：一键获取正版Nod32升级帐号与升级密码。
2：一键复制帐号，密码。
NOD32 正版升级ID获取器v2.0更新v3.5更新内容：
1：由于ip.cn重大更新，已经无法获取帐号信息了，改为土豆吧博客本地更新获取！
2：增加检测更新功能，只要检测有更新证明官方有新版本，提示最新的话，就证明网上其他版本都不是我们官方发布的。
3：全文本操作，读取速度进一度提高！
4：在这里再次申明，网上的“NOD32 正版升级ID获取器 v3.0”为非土豆吧博客原创开发，是盗用了我们软件的名称，软件体积竟然有1M多？请大家慎重使用。
NOD32 正版升级ID获取器 v2.0更新内容：
1：更换获取代码，大幅度提高获取注册码速度。
2：解决AVG误报问题。
3：对程序取消加壳保护，提高兼容性。
4：这次由于更换了主要代码，不会出现部分网络环境较差的用户实用程序会假死的问题

这种做法属于逆向工程,俗称破解
任何语言最终都编译成机器语言,与之对应最接近的是汇编语言
就算反汇编也只得到汇编的代码
无法得到原来形式的源代码,最起码注释,常量标识符等都会丢失
图片展示的是程序刚启动时候的汇编代码

这种功能如果杀毒软件都不拦截了 那就不叫杀毒软件。

问题在

Set Go = CreateObject("wscript.shell")
Go.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

这里

换一个思路吧，在NOD32的设置里，把你的程序设为信任程序名单

改动注册表肯定会被报。没其他办法。

的确杀毒软件会拦截通过程序加入启动项的的操作。你可以把你的程序添加到NOD32的信任区域。
一种方法是在NOD32的设置里面，另一种是在NOD32提示有威胁时添加到信任区域。

其实加入开机启动有好多办法，比如，你可以在
C:\Documents and Settings\“你的用户名”\「开始」菜单\程序\启动
里面加入你的程序快捷方式就可以了，当然把你上面程序里修改注册表的项：
Go.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
删掉

有能耐的话写个卸载ZwSetValueKey的Hook的程序，不就OK了

---

镇赉县13342757952： 请各位VB高手帮我看一下这个程序好吗? - ？
仰蕊万仪： dim a,b '声明两个变量,名为a和bdim lanchr()'声明lanchr数组类型为Variant redim lanchr(10) '设置lanchr数组的上线为10lanchr(1)=＂从前有座山＂ '第一...

镇赉县13342757952： {VB} - 怎样查看以生成的exe文件的源代码 - ？
仰蕊万仪： 没有办法查看Vb生成的exe文件的源代码 虽说几乎任何高级语言编译的exe文件都可以通过反编译的方法获得源代码,但到目前为止,还没有一种反编译的方法可以获得百分百完整、准确的源代码.而学过编程的都知道,源程序中有时候哪怕错一个字符,运行结果都有可能完全出人预料.因此反编译获得的源代码,重新编译为exe文件后,要么就是无法运行,要么就是面目全非了.高手通过分析程序并修改,倒是有可能成功,但工作量可能比重新写一个还大.因此,反编译获得的源代码,拿来学习参考还行,实用性不大.要是从exe文件中很容易看见源代码,那么世界上的程序员都要饿肚子了.

镇赉县13342757952： 谁对vb有研究点,帮我看下这段程序. - ？
仰蕊万仪： Private Sub CmdMD_Click(Index As Integer) Select Case Index Case 0 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 1 If Adodc1.Rec...

镇赉县13342757952： 急求VB程序代码解释？
仰蕊万仪： 呵呵,你这程序我曾经有看过,名叫《弹力球》,不过那本书里没有写完整的代码. (黄先生/爱情 的答案不行,因为他忽略了些东西) 你的代码有错误,我另个你个完整的代码吧,并带有注释的,你把它复制去覆盖你这个程序的代码,复制进...

镇赉县13342757952： 一个VB程序全部源代码在哪看 - ？
仰蕊万仪： 不知道你说的这个VB程序是编译后的可执行文件还是源程序,如果是源程序,那么你用VB打开其工程文件就能看到了.如果是可执行文件,那对不起,你要看到代码那就很难了,要是随随便便就能看到软件的代码,那么所有程序员的饭碗就都是纸糊的了

镇赉县13342757952： 有关VB,生成可执行程序的问题,请高手帮助!! - ？
仰蕊万仪： 可以用ResHacker等软件修改.生成之前,在菜单“工程\工程属性”打开工程属性对话框,在“生成”选项卡“应用程序”下可以选择应用程序图标.前提是把你要作为应用程序图标的图标设置为某一个窗体的Icon属性图标.Timer1_Timer是计时器事件.Timer计时器的功能是:每隔一个Inteval指定的时间,就生成一个Timer事件.加我baidu hi,然后再细说.一点也不难的.

镇赉县13342757952： 求VB高手,帮小弟写个代码··· 编写程序,任给一个正整数范围,输出此范围内的所有素数· - ？
仰蕊万仪： Private Function Prime(ByVal n As Long) As Boolean If nFor i = 2 To Int(Sqr(n)) If n Mod i = 0 Then Prime = False: Exit Function Next Prime = True End Function Private Sub Command1_Click() n = InputBox(＂请输入一个整数＂) For i = 1 To n If Prime(i) = True Then Print i Next End Sub

镇赉县13342757952： VB程序有问题,请高手看一下代码哪里出错 - ？
仰蕊万仪： 重新定义一个m& 将picture1.print s=s*(-1)^(j-1) 改为picture1.

镇赉县13342757952： 我试了一个用VB编写的程序,但是运行不出来 但还是就找不出错来,请哪位高手帮一下忙啊 - ？
仰蕊万仪： 可能存在以下几个问题:1、commmand_click(index As Integer) 有可能打错了,应该是command1_click(index As Integer)2、程序中用到n,i等变量,都是局部变量,每次都会初始化为0,所以程序执行有问题.可以把Dim stdu(1 To 10) As stdutype, n%, i%, max!, maxi% 放到窗体变量区3、Dim stdu(1 To 10) As stdutype只定义了10个元素,但程序里判断了100,应该有错.

镇赉县13342757952： vb高手进!帮忙写出程序过程啊! - ？
仰蕊万仪： Private Sub Form_Click() a = 100000 s1 = a * 30 Print ＂陌生人给富人的钱是:＂ & s1 m = 0.01 For k = 1 To 2 s2 = s2 + m m = 2 * m Next k Print ＂富人给陌生人的钱是:＂ & s2 End Sub