帮我编个小程序 谢谢！ 各位老师帮忙啊 小弟谢谢啊

我爸不给我加条内存，我要气死了啊！帮我编个小程序 谢谢！ 各位老师帮忙啊 小弟谢谢啊

我想请大家编个 整人的程序
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
要求：开机后程序自启动 每10秒程序自动弹出一个对话框 为“老爸给我买内存吧！求你了”
注：他的电脑有瑞星 改注册表有可能不成功
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
老师编程时代码的批注一定要多啊，要不然我看不懂！

谢谢老师啊……

你可以用VBS脚本实现：在记事本中输入以下命令，然后另存为1.vbs
把1.vbs加入启动项即可：
DO
MsgBox"老爸给我买内存吧!求你了",16+0,"系统提示:"
wscript.sleep 1000*10
loop

DO.....Loop是一个循环语句：
2行的意思是调用Msgbox弹出一个标题为：系统提示：内容为：老爸给我买内存吧!求你了的对话框
3行是程序休息10秒。在从Loop返回到DO重新开始循环。

呵呵..有意思..你弄简单点.就用计划任务就行了.每10秒运行你的记事本

可以用一些优化软件,可以设置开机启动项的就最好,把"老爸给我买内存吧！求你了"加进笔记本里.然后就设置无限制启动,时间间隔10秒!!OK!!

我没用过瑞星..

加个timer循环写注册表.. 你试试行不行,, 这个可以过360... 呵呵

------------------------------

映像劫持 瑞星都检测不出来..? 嗬禾...

楼主是要过瑞星检测自启动. 如果能上机操作的话直接写注册表 自己点同意.以后瑞星不会无聊到每次都提醒吧?...

很有创意..

这个是写启动项的代码，可以放在form_load里面
Private Sub Form_Load()
Dim Reg
Set Reg = CreateObject("wscript.Shell")
Reg.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Memory", App.path & "\" & app.Exename & ".exe"
End Sub

这个是弹出对话框的代码