[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[特效代码] 批处理怎么检测笔记本电脑的屏幕亮点,暗点及彩点和漏光!

小弟想入手一台笔记本,据网上说,不包完美屏,需要这样一个批处理,如下:
1.使用批处理全屏显示黑色白色及各红色,绿色,蓝色等
2.全屏显示不要有任务栏和桌面图标,依次30秒轮回显示,变换颜色,屏幕上不要有文字,在此谢过!

32 位 xp 系统好办,vista 以上或 64 位系统不支持 cmd 全屏

TOP

回复 2# CrLf


    那xp该怎么写呢?win7能用vbs实现吗?

TOP

  1. @echo off
  2. echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
  3. set clr=123456789abcdef
  4. :start
  5. set /a "i=%random%%%16"
  6. call,color %%clr:~%i%,1%%0
  7. ping -n 2 127.1>nul
  8. goto :start
复制代码

TOP

我想,如果不用汇编和第三方,可能还有这两个办法:
1、开机进入带命令行的安全模式
2、批处理操作注册表,隐藏任务栏和桌面图标、更换纯色壁纸并刷新桌面

TOP

本帖最后由 CrLf 于 2014-12-11 18:32 编辑

再来一招,把下面的代码保存为 test.hta,单击切换背景色:
  1. <head>
  2. <HTA:APPLICATION
  3.   INNERBORDER="no"
  4.   CAPTION="no"
  5.   SYSMENU="no"
  6.   SCROLL="no"
  7.   WINDOWSTATE="maximize"
  8.   />
  9. <script>
  10. function changeBackground(){
  11. var list = ['','black','green','blue','yellow','red']
  12. for(var i=list.length;--i;){
  13. if(document.body.style.backgroundColor==list[i]){
  14. document.body.style.backgroundColor=list[i-1]
  15. return
  16. }
  17. }
  18. window.close()
  19. }
  20. </script>
  21. </head>
  22. <body onclick='changeBackground()' style='background-Color:red' />
复制代码
没想到 hta 居然支持全屏,哈哈
怎么样,是不是爽到了
1

评分人数

    • DAIC: 感谢分享技术 + 1

TOP

这个适用性广。简单粗暴。不用去操作注册表,也不用担心系统不支持16位子系统了。

TOP

返回列表