none
VBS弹出信息的字数限制 RRS feed

  • 问题

  • 使用以下脚本自动弹出信息提示,但字数过多的时候运行就提示 "unterminated string constant"

     

    我需要显示50个中文字信息,需要转行,谢谢。

     

    Set objShell = CreateObject("Wscript.Shell")

    objShell.Popup  "test msg", , "test caption"

    2008年10月12日 12:46

答案

  • chr(10) & chr(13)也是换行

    Set objShell = CreateObject("Wscript.Shell")

    Dim str
    str = "1.当员工离开自己所使用的计算机时,必须立即锁定屏幕或退出系统;所 " & vbCrLf
    str = str & "使用的计算机应设置成10分钟自动启用有口令的屏幕保护。     " & vbCrLf    
    str = str & "2.员工所使用的系统口令,必须是字母、数字和符号组合,且不少于6位。" & vbCrLf
    str = str & "必须具复杂性以免被猜测(不得是自己的电话号码、生日、姓名 的拼音、" & vbCrLf
    str = str & "英文名等),必须不超过三个月更改一次口令。                     " & vbCrLf
    str = str & "3.员工必须确保自己所使用的计算机上安装了公司统一的防病毒软件,同" & vbCrLf
    str = str & "时留意病毒特征码是否处于最新状态。若未安装防病毒软件或病毒特征码" & vbCrLf
    str = str & "未更新,应立即通知IT部门的计算机维护人员。" & vbCrLf

    objShell.Popup  str, , "注意事项"


    是你赋值有问题
    2008年10月13日 3:20
    版主

全部回复

  •  

    换行

    objShell.Popup  "test " & vbCrLf & " msg", , "test caption"

    2008年10月12日 14:06
    版主
  •  孟宪会 写:

     

    换行

    objShell.Popup  "test " & vbCrLf & " msg", , "test caption"

     

    运行了一下提示"未终止的字符串常量",能否给个实例,谢谢。

    2008年10月13日 2:20
  • 将下面的内容存为a.vbs

    Set objShell = CreateObject("Wscript.Shell")
    objShell.Popup  "test " & vbCrLf & "msg", , "test caption"
    objShell.Popup  "test " & chr(10) & chr(13) & "msg", , "test caption"

    然后双击执行。

    2008年10月13日 2:28
    版主
  • 也可以将下面的内容存成a.htm,在ie里执行

    < script  language="vbscript">
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Popup  "test " & vbCrLf & "msg", , "test caption"
    objShell.Popup  "test " & chr(10) & chr(13) & "msg", , "test caption"
    </script>

    注意:去掉
    script 前面多余的空格,否则,显示有问题
    2008年10月13日 2:31
    版主
  •  孟宪会 写:
    将下面的内容存为a.vbs

    Set objShell = CreateObject("Wscript.Shell")
    objShell.Popup  "test " & vbCrLf & "msg", , "test caption"
    objShell.Popup  "test " & chr(10) & chr(13) & "msg", , "test caption"

    然后双击执行。

     

    不太明白你的第二条语句意思 objShell.Popup  "test " & chr(10) & chr(13) & "msg", , "test caption"

     

    所要显示的信息如下:

    1.当员工离开自己所使用的计算机时,必须立即锁定屏幕或退出系统;所
    使用的计算机应设置成10分钟自动启用有口令的屏幕保护。           
    2.员工所使用的系统口令,必须是字母、数字和符号组合,且不少于6位。
    必须具复杂性以免被猜测(不得是自己的电话号码、生日、姓名 的拼音、
    英文名等),必须不超过三个月更改一次口令。                     
    3.员工必须确保自己所使用的计算机上安装了公司统一的防病毒软件,同
    时留意病毒特征码是否处于最新状态。若未安装防病毒软件或病毒特征码
    未更新,应立即通知IT部门的计算机维护人员。

     

    能否帮忙写出来一下,谢谢。

     

     

     

     

                  

     

    2008年10月13日 3:16
  • chr(10) & chr(13)也是换行

    Set objShell = CreateObject("Wscript.Shell")

    Dim str
    str = "1.当员工离开自己所使用的计算机时,必须立即锁定屏幕或退出系统;所 " & vbCrLf
    str = str & "使用的计算机应设置成10分钟自动启用有口令的屏幕保护。     " & vbCrLf    
    str = str & "2.员工所使用的系统口令,必须是字母、数字和符号组合,且不少于6位。" & vbCrLf
    str = str & "必须具复杂性以免被猜测(不得是自己的电话号码、生日、姓名 的拼音、" & vbCrLf
    str = str & "英文名等),必须不超过三个月更改一次口令。                     " & vbCrLf
    str = str & "3.员工必须确保自己所使用的计算机上安装了公司统一的防病毒软件,同" & vbCrLf
    str = str & "时留意病毒特征码是否处于最新状态。若未安装防病毒软件或病毒特征码" & vbCrLf
    str = str & "未更新,应立即通知IT部门的计算机维护人员。" & vbCrLf

    objShell.Popup  str, , "注意事项"


    是你赋值有问题
    2008年10月13日 3:20
    版主
  •  孟宪会 写:
    chr(10) & chr(13)也是换行

    Set objShell = CreateObject("Wscript.Shell")

    Dim str
    str = "1.当员工离开自己所使用的计算机时,必须立即锁定屏幕或退出系统;所 " & vbCrLf
    str = str & "使用的计算机应设置成10分钟自动启用有口令的屏幕保护。     " & vbCrLf    
    str = str & "2.员工所使用的系统口令,必须是字母、数字和符号组合,且不少于6位。" & vbCrLf
    str = str & "必须具复杂性以免被猜测(不得是自己的电话号码、生日、姓名 的拼音、" & vbCrLf
    str = str & "英文名等),必须不超过三个月更改一次口令。                     " & vbCrLf
    str = str & "3.员工必须确保自己所使用的计算机上安装了公司统一的防病毒软件,同" & vbCrLf
    str = str & "时留意病毒特征码是否处于最新状态。若未安装防病毒软件或病毒特征码" & vbCrLf
    str = str & "未更新,应立即通知IT部门的计算机维护人员。" & vbCrLf

    objShell.Popup  str, , "注意事项"


    是你赋值有问题

     

     

    谢谢,后来又尝试用以下方法:

     

    Set objShell = CreateObject("Wscript.Shell")
    objShell.Popup  "1.当员工离开自己所使用的计算机时,必须立即锁定屏幕或退出系统;所 " & vbCrLf & "使用的计算机应设置成10分钟自动启用有口令的屏幕保护。", , "文件服务器策略"
    objShell.Popup  "2.员工所使用的系统口令,必须是字母、数字和符号组合,且不少于6位。 " & vbCrLf & "必须具复杂性以免被猜测(不得是自己的电话号码、生日、姓名 的拼音、英文名等),必须不超过三个月更改一次口令。  ", ,"文件服务器策略"

     

     

    运行正常。            

    2008年10月13日 3:27