找个VB高手帮忙看下代码,生成的程序被NOD32认为有威胁
功能说明:
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了
VB高手帮忙啊
1、添加标签,就添加。1.1然后在属性窗口修改名称 1.2然后在属性窗口修改标题 1.3然后在属性窗口修改可见性 1.4然后在属性窗口修改边框宽 2、选定这个按钮。2.1然后在属性窗口修改名称 2.2.1选中这个按钮,ctrl-c,ctrl-v,ctrl-v 2.2.2然后在属性窗口下拉选中MyCmd(0)修改标题 2.2.3然后...
一个vb程序 有点问题 高手帮忙看一下
Private Sub Command2_Click()Dim Low As Integer, Up As Integer, MyNum As Integer Dim Answer As Integer Low = 0 Up = N - 1 MyNum = Val(Text2.Text)Answer = Search(Low, Up, MyNum)If Answer = -1 Then Label3.Caption = "数组中无" & MyNum & "!"Else Label3.Caption ...
VB高手帮忙看看
上面是API函数在VB编译环境下的声明格式 Private 指明该函数的作用范围 在模块级别中使用 SendMessage 函数名 Lib后的"user32" 指出该函数所在的动态链接库名称 Alias 后的 "SendMessageA" 是该函数的别名 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) ...
VB高手 来帮忙!
一、在VB中声明API函数有两种方法:如果我们只在某个窗体中使用API函数,我们可以在窗体代码的General部分声明它:声明的语法是:Private Declare Function ...Private Declare Sub...这里必须采用Private声明,因为这个API函数只能被一个窗体内的程序所调用。如果我们的程序有多个窗体构成,而且我们需要在多个...
VB高手来看看,这段代码哪里错了?急
SendKeys "^V"SendKeys "{ENTER}"Timer2.Enabled = True End Sub 中少了Timer1.Enabled = False 这一句。我测试了一下,没问题的,是123456123456的输出的。这是我测试的代码,用TEXT7来接收。用按钮来激活timer1。Private Sub Command1_Click()Timer1.Enabled = True Text7.SetFocus End Sub ...
高手帮忙看看这个vb代码?为什么第二个和第三个按钮没有起作用?第一个...
问题出在ZDS里,修改成下面代码即可,原因是原来的代码中if m>z then 执行到的必要条件是x<=y ,若满意请及时采纳,谢谢 Private Function ZDS(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)Dim m As Integer If x > y Then m = x Else m = y End If If m > z ...
VB高手帮帮忙,看看下面的代码
sql = "select from 用户表 where 用户名='"& Trim(txtUserName.Text)& "'and 密码='"& Trim(txtPassword)& "'"格式错误!用户名='这个地方多了一个空格 "& Trim(txtUserName.Text)& "这个地方多了一个空格 '这个地方少空格and 正确格式如下:sql = "select from 用户表 where 用户名='"...
vb高手请进来下,帮个忙
Sub Private Sub Text1_Change()If Trim(Text1.TEXT) <> "" Then Command1.Enabled = True Else Command1.Enabled = False End If End Sub 你只需在表单上添加三个控件:TextBox和量个CommandButton.再将以上代码粘贴到你的程序中即可.还有,要修改一下判断"正确名字"的地方,和要显示的信息....
大神帮忙看下这段VB代码
printnum是自定义过程,定义在第7行,定义时有一个参数n,所以在调用时要加上参数i exit sub退出定义过程
请高手帮忙详解下这个VB代码(请按步解释越详细越好不胜感谢必厚报...
If answer = vbYes Then ’如果answer =vbYes 运行下列代码 =VbNo 程序退出 DataGrid1.AllowDelete = True rs_client.Delete ’删除 rs_client.Update ’更新 DataGrid1.Refresh ’刷新 MsgBox "成功删除!", vbOKOnly + vbExclamation, "" ’提示成功 DataGrid1.AllowDelete = False Else ...
仰蕊万仪: 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