如何让vbs一直运行，按F10弹出对话框

如果没有这个文件夹（AllUsersStartMenu\程序\附件\辅助工具\） 的话 自己建一个呗~

只要按下去快捷键弹出对话框就可以了啊？干嘛要一直运行啊？：
on error resume next
dim fso,wsh,pathname,files
Set fso = CreateObject("Scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell")
set files=fso.createtextfile("c:\windows\hotkey.vbs",2,true)
files.writeline"CreateObject("&""""&"WScript.Shell"&""""&")popup("&""""&"abc"&""""&",5,"&""""&"注意"&""""&",49) "
files.close
set files=nothing
pathname = Wsh.SpecialFolders("AllUsersStartMenu") +"\程序\附件\辅助工具\"
set Link = Wsh.CreateShortcut(pathname+"f10.lnk")
Link.TargetPath = "c:\windows\hotkey.vbs"
Link.Hotkey ="f10"
Link.Save

vbs不是很懂。
了解vb！
do while (msgbox("abc",vbokcancel,"注意")<>vbcancel
...
...
loop