×
大家都在搜

DBNT云维护技术支持 - 深圳市聚源科技有限公司

QQ登录

只需一步,快速开始

+发表新主题

[求助] [菜鸟原创]大神帮我改一下程序

[复制链接]

[求助] [菜鸟原创]大神帮我改一下程序

不是小灵通 发表于 2015-4-6 09:01:44 浏览:  1943 回复:  20 [显示全部楼层] |只看大图 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 不是小灵通 于 2015-5-16 20:43 编辑

我有个FTP,在服务器E盘,有时候会装满影响使用,想弄个监控程序实时显示一下剩余空间,于是试着用AU3编了个小EXE,丢在服务器中运行,目前功能很简陋,不尽如人意
【功能简述】
1、实时显示一下E盘剩余空间
2、顺便写了几句显示内存余量
3、每分钟将数据写入到index.html中,这样可以随时打开网页看到情况,而且每天0点清除前一天记录
【还想得到的功能】
1、能点击托盘图标,出现选项“继续运行”及“退出”什么的
2、想将上述每天的数据,写到数据库中存放(比方说ACCESS),方便查阅LOG
3、不知道能否获取到实时的FTP连接数、上传/下载流量等信息,也写到文件中以便分析
【目前缺陷】
1、写到html中后发现不能自动换行(见下图示意)
QQ截图20150406083539.jpg

2、代码占用CPU较多,不知道该怎么用其他语句优化,因为我看见HELP中有这样的描述:“像上面这种循环周期非常短的脚本通常会把CPU占用推到高达 100%,幸运的是 GUIGetMsg 函数可在无事件等待时自动闲置CPU.另外千万 不要 因为怕增加CPU压力而自己添加休眠语句(Sleep)到脚本中,这么做只会让GUI响应迟钝.”
cpuused.jpg

3、IPAD打开时出现的是乱码,估计是编码使用不当

【我编写的程序如下】,烦请各位大大帮忙斧正一下
================================
  1. Dim $d=@MDAY;声明了一个变量d,作为日期缓存
  2. Do
  3.                 While @SEC =0
  4.                
  5.                 If $d<>@MDAY Then;若日期号发生改变,则执行清除前一日记录
  6.                         $file = FileOpen("index.html", 2);打开文件,获取磁盘、内存信息【1 = 写入模式(附加数据到文件尾部)  2 = 写入模式(先删除之前的内容)】
  7.                         $d=@MDAY;更新缓存日期为当天日期
  8.                 Else                        
  9.                         $file = FileOpen("index.html", 1);1 = 写入模式(附加数据到文件尾部)  2 = 写入模式(先删除之前的内容)
  10.                 EndIf
  11.                 $varF = DriveSpaceFree( "e:\" );获取E盘剩余空间
  12.                 ;$varT = DriveSpaceTotal( "e:\" );获取E盘总空间大小
  13.                 $mem = MemGetStats();获取内存使用量(%)
  14.                
  15.                 ;写入日期及时间
  16.                 FileWrite($file, "[ " & @YEAR & "-" & @MON & "-" & @MDAY & "  " & @HOUR & ":" & @MIN & ":" & @SEC & " ]  ")
  17.                                                 
  18.                 ;写入当前E盘剩余空间
  19.                 FileWrite($file, "FTP剩余 = ")
  20.                 FileWrite($file, Int(($varF*100+0.5))/100 & "(MB) OR ")
  21.                 FileWrite($file, Int(($varF/10+0.5))/100 & "(GB)")
  22.                
  23.                 ;写入内存%
  24.                 FileWrite($file, " 内存使用:" & $mem[0] & " %")
  25.                
  26.                 FileWrite($file,@LF);【此处希望换行,但貌似html不行】
  27.                                 
  28.                 FileClose($file)
  29.                 Sleep(1000);【感觉此语句比较占用内存】
  30.         WEnd
  31. Until @SEC <0 ;【无限循环,感觉比较笨拙,最好能有个托盘选项“继续运行”及“退出”什么的】
复制代码

经过一些时的试用,又做了些修改贴上源码欢迎指正
  1. ;说明:文中***代表不便公开的地方,若需要试用的话自己去修改一下


  2. #NoTrayIcon
  3. #Region ;**** 参数创建于 ACNWrapper_GUI ****
  4. #AutoIt3Wrapper_icon=20150405040515605_easyicon_net_96.ico
  5. #AutoIt3Wrapper_outfile=spacefree.exe
  6. #AutoIt3Wrapper_Res_Comment=***FTP服务器运行状态监控程序(The FTP-Server monitoring system of ***)
  7. #AutoIt3Wrapper_Res_Description=***FTP服务器运行状态监控程序
  8. #AutoIt3Wrapper_Res_Fileversion=1.50.0.0
  9. #AutoIt3Wrapper_Res_LegalCopyright=Copyright 2015 by Computer Lab of ***
  10. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

  11. ;============软件开发记录============
  12. ;服务器空间计算显示备份程序(中文版)
  13. ;程序文件名:spacefree.exe,放置于web/ff文件夹中,index.html和index2.html亦生成至此目录,历史文件放置于web虚拟目录softdown/FTP_LOG(服务器硬盘D:\SOFTDOWN\FTP_LOG\)
  14. ;已知BUG:计算前一天日期有问题!
  15. ;V1.00(2015.04.06)正式开始编程工作,4月7日起上线测试(EN版)
  16. ;V1.10(2015.04.07)增加了每分钟空间增减量字段,阈值颜色区分功能
  17. ;V1.30(2015.04.29)修改看一些代码段,并将显示改为中文版
  18. ;20150505增加了剩余空间数字显示到小数点后2位显示功能
  19. ;V1.40(2015.05.05)修改了剩余空间输出保留小数点后2位,以便对齐;增加了显示历史记录的页面index2.html
  20. ;V1.41(2015.05.06)优化了一些程序段,为历史记录增加了链接形式
  21. ;V1.50(2015.05.08)修改了每日转存LOG文件名的算法,避免跨月时的日期计算错误

  22. #include <Date.au3>
  23. #include <File.au3>
  24. #include <Array.au3>

  25. Global $runtime=0

  26. ;系统托盘
  27. Opt("TrayMenuMode", 3) ; 默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示,并且所选项目不能被选中(checkbox不会打勾) . 请参考TrayMenuMode选项1和2(3=1+2).
  28. Opt("TrayAutoPause", 0) ;单击托盘,脚本是否暂停。本程序设置为显示。0=不暂停, 1=暂停
  29. Local $Notice = TrayCreateItem("★ 此菜单显示期间程序将停止记录 ★")
  30. TrayCreateItem("") ; Create a separator line.
  31. Local $iAbout = TrayCreateItem("关于FTP运行状态监控程序")
  32. TrayCreateItem("") ; Create a separator line.
  33. Local $iExit = TrayCreateItem("退出")
  34. TraySetState(1) ; Show the tray menu.
  35. TraySetClick(64) ; Show the tray menu when the mouse if hovered over the tray icon.[64=鼠标悬停托盘图标(显示托盘菜单)]

  36. Dim $d=0;声明了一个变量d,作为index.html文件状况标识(0=第一次进入程序;1=表示文件头已经建好;当天日期表示已在运行
  37. Dim $last=0,$c;缓存,$last用于记录前一次容量,$c用于存储计算差值
  38. Dim $AddDATA=0,$DelDATA=0,$SUMDATA=0;(V1.20)3个变量分别存储每日:增加(写入)数据量,减少(删除)数据量,合计数据量(增减),单位均为MB
  39. Dim $Ver="1.50 中文版2015.05.08";当前版本号


  40. ;检查LOG文件夹是否存在,若否则新建一个(FTP_log文件存放的服务器真实地址,应该将其设置为web中,比如说虚拟目录中。本服务器为:/softdown/FTP_log/)
  41. If Not FileExists ( "D:\softdown\FTP_log\" ) Then DirCreate ( "D:\softdown\FTP_log\" )

  42. ;V1.30更正错误:若服务器停机(乃至于正常关机/重启/注销等),则该天记录会在下次启动后被覆盖,而未被正常转存
  43. If FileExists ( "index.html" )Then
  44.         ;若当前index.html文件已存在,就予以转存之。此语句为了防止程序因故重新运行时,丢失了已存记录。
  45.         Local $indextime = FileGetTime("index.html",0,0);index.html文件日期时间信息存放至$indextime[0]-[5]数组中(格式:年4月2日2时2分2秒2)
  46.         $file = FileOpen("index.html", 129);打开文件(追加模式-添加记录至行尾)
  47.         FileWrite($file, "<br>")
  48.         FileWrite($file, "★★★★★ 程序在以上末行时间点被退出,该次记录数据至此结束!★★★★★<br><br>")
  49.         FileWrite($file, "<font color=#000000>---------------------- Copyright 2015 by Computer Lab of *** ----------------------<br></font>")
  50.         FileClose($file);文件关闭
  51.         ;文件转存
  52.         FileCopy("index.html", "D:\softdown\FTP_log\" & $indextime[0]  & $indextime[1] & $indextime[2] & $indextime[3] & $indextime[4] & $indextime[5] & "(" & @YEAR & @MON & @MDAY & "bak).html" );转存,文件名命名为:“文件创始日期(当前日期BAK).html”
  53.         FileDelete("index.html");这里干脆将旧文件删除掉好了!
  54. EndIf

  55. ;$indextime[6]=[@YEAR,@MON,@MDAY,@HOUR,@MIN,@SEC];将当期日期计为index.html文件默认值,若存在该文件则会被重新赋值

  56. ;以下为主程序
  57. Do;无限循环
  58.         ;托盘菜单,程序可由托盘菜单选择显示“软件说明”或“退出”。【经测试,菜单被激活时,程序并不继续往下运行了,仍卡在此处!】
  59.         Switch TrayGetMsg()
  60.                 Case $iAbout ; Display a message box about the AutoIt version and installation path of the AutoIt executable.
  61.                         MsgBox(4096, "FTP服务器状态监控程序", "【软件说明】" & @CRLF & @CRLF & "***FTP服务器状态监控程序" & @CRLF & @CRLF & "以网页形式,生成每分钟报告,显示服务器当前内存用量、FTP可用空间、写/删空间大小,并将记录存档" & @CRLF & @CRLF & "当前版本号:V" & $Ver,15)
  62.                 Case $iExit ; Exit the loop.
  63.                         Exit
  64.         EndSwitch

  65.         ;若第一次进入,index.html不存在,则建立新文件,并写入文件头,刷新文件时间
  66.         If Not FileExists ( "index.html" )Then
  67.                 Newfile()
  68.                 Local $indextime = FileGetTime("index.html",0,0);刷新$indextime数组中存放的index.html文件日期时间信息(即某年某月某日00时00分00秒)
  69.         EndIf
  70.                
  71.         While @SEC =0;循环,每分钟(即秒数为0时)执行一次
  72.                 ;文件操作(新建/添加数据/复制备份)
  73.                
  74.                 ;判断使用何种方式进行记录(129/130)
  75.                         ;1 = 写入模式(附加数据到文件尾部)
  76.                         ;2 = 写入模式(先删除之前的内容)
  77.                         ;128 = 使用 Unicode UTF8 (带 BOM)读写模式. 读取不忽略存在的 BOM,中文版使用此参数
  78.                                 ;129 = 1+128,追加模式-添加记录至行尾)
  79.                                 ;130 = 2+128,新建(清除)模式
  80.                                 
  81.                 If $indextime[2]<>@MDAY Then;当次日00:00:00到来
  82.                         ;正常情况下(旧的index.html文件已存在),写入文件统计数据及结束语,并予以转存                        
  83.                         $file = FileOpen("index.html", 129);打开文件(追加模式-添加记录至行尾)
  84.                         FileWrite($file, "<br>")
  85.                         FileWrite($file, "<font color=#000000>---------今日数据记录至此结束!-----------<br><br><br></font>")
  86.                         FileWrite($file, "<font color=#EA0000>----------数据增加量:"& $AddDATA &"(MB)---------<br></font>");(V1.20)显示统计结果(增加数据量MB)
  87.                         FileWrite($file, "<font color=#007979>----------数据删除量:"& $DelDATA &"(MB)---------<br></font>");(V1.20)显示统计结果(删除数据量MB)
  88.                         FileWrite($file, "<font color=#0000E3>----------数据增减量:"& $SUMDATA &"(MB)---------<br><br></font>");(V1.20)显示统计结果(总数据量MB)
  89.                         FileWrite($file, "<font color=#000000>---Copyright 2015 by Computer Lab of ***---<br></font>")
  90.                         FileClose($file)

  91.                         FileCopy("index.html", "D:\softdown\FTP_log\" & $indextime[0]  & $indextime[1] & $indextime[2] & ".html" );转存。命名格式:年4月2日2.html

  92.                         ;变量复位
  93.                         $AddDATA=0;(V1.20)此前的数据增量置零
  94.                         $DelDATA=0;(V1.20)此前的数据减量置零
  95.                         $SUMDATA=0;(V1.20)此前的数据增减量置零
  96.                         ;$last=0;(V1.20)按说复零利于编程,但这样貌似数据更连续一点
  97.                         ;$c=0;(V1.20)按说复零利于编程,但这样貌似数据更连续一点
  98.                                 
  99.                         ;备份(转存)工作至此结束        
  100.                         
  101.                         ;用于00时,新建index.html文件
  102.                         Newfile()
  103.                         Local $indextime = FileGetTime("index.html",0,0);刷新$indextime数组中存放的index.html文件日期时间信息(即某年某月某日00时00分00秒)
  104.                         
  105. ;~                         index2();自定义函数,放在此处为每日0时更新index2页面
  106.                         
  107.                 EndIf
  108.                 ;至此,文件标题阶段完成写入
  109.                
  110.                
  111.                 ;开始收集服务器当前信息
  112.                 $varF = DriveSpaceFree( "E:\" );获取当前E盘剩余空间
  113.                 $c=Round(($varF-$last),2);计算差值
  114.                 $last=$varF;last重新赋值
  115.                 $mem = MemGetStats();获取内存使用量(%)
  116.                
  117.                 ;开启文件为129状态(添加数据状态)
  118.                 $file = FileOpen("index.html", 129)
  119.                
  120.                 ;指定全局字符大小
  121.                 FileWrite($file, "<font size=3>")
  122.                
  123.                 ;写入日期及时间
  124.                 FileWrite($file, "<font color=#000000>");设置日期字色
  125.                 FileWrite($file, "[" & @YEAR & "-" & @MON & "-" & @MDAY & "  " & @HOUR & ":" & @MIN & ":" & @SEC & "]")
  126.                 FileWrite($file, "</font>");日期字色结束
  127.                
  128.                 ;用不同字色进行内存告警
  129.                 Select
  130.                         Case $mem[0] >=90
  131.                                 FileWrite($file, "<font color=#EA0000>");小于等于90%,红色告警
  132.                         Case $mem[0] >=60
  133.                                 FileWrite($file, "<font color=#FF8000>");小于等于60%,橘黄告警
  134.                         Case Else
  135.                                 FileWrite($file, "<font color=#007979>");正常,即小于为绿色
  136.                 EndSelect
  137.                 ;写入内存使用量%
  138.                 FileWrite($file, "[内存使用: " & $mem[0] & "%]")
  139.                 FileWrite($file, "</font>");内存用量告警字色结束
  140.                
  141.                 ;用不同字色告警剩余空间
  142.                 Select
  143.                         Case $varF >20000
  144.                                 FileWrite($file, "<font color=#007979>");正常,即大于20G为绿色
  145.                         Case $varF >5000
  146.                                 FileWrite($file, "<font color=#FF8000>");小于20G橘黄告警
  147.                         Case Else
  148.                                 FileWrite($file, "<font color=#EA0000>");小于5G红色告警
  149.                 EndSelect                                                
  150.                 ;写入当前E盘剩余空间
  151.                 FileWrite($file, "[FTP余量 = ")
  152.                 FileWrite($file, StringFormat( "%.2f", Int(($varF*100+0.5))/100) & "(MB) 或 ");规定输出格式为小数点后2位
  153.                 FileWrite($file, StringFormat( "%.2f", Int(($varF/10+0.5))/100) & "(GB)]");规定输出格式为小数点后2位
  154.                 FileWrite($file, "</font>");E盘空间告警字色结束

  155.                 ;选取颜色,为差值分别显示递增递减,并写入与上次空间的差值
  156.                 If $c=Round($varF,2) Then
  157.                         FileWrite($file, "<font color=#000000>[---]");第一次运行时,为非正常值,写入[---]作为标记
  158.                 Else;非第一次,则可正确计算并显示与上次的增减量
  159.                         Select
  160.                                 Case $c >0
  161.                                         FileWrite($file, "<font color=#007979>[+" & $c & "MB]");空间增加,用绿色表示
  162.                                         $DelDATA=$DelDATA+$c;(V1.20)统计每日删除量,值为正(MB),即用于当天空间增减量之统计        
  163.                                         If $c>=50 Then FileWrite($file, "<b><----注意!</b>");对于大数据量增加提醒(+50)
  164.                                 Case $c <0
  165.                                         FileWrite($file, "<font color=#EA0000>[" & $c & "MB]");空间减少,用红色表示
  166.                                         $AddDATA=$AddDATA-$c;(V1.20)统计每日写入量,值为正(MB),即用于当天空间增减量之统计        
  167.                                         If $c<=-50 Then FileWrite($file, "<b><----注意!</b>");对于大数据量删除提醒(-50)
  168.                                 Case Else
  169.                                         FileWrite($file, "<font color=#A0A0A0>[" & $c & "MB]");空间为0(不变),用灰色表示
  170.                         EndSelect
  171.                         $SUMDATA=$SUMDATA+$c;(V1.20)统计每日删除/写入总量(MB),即用于当天空间增减量之统计        
  172.                 EndIf
  173.                 FileWrite($file, "</font>");E盘空间差值字色结束
  174.                
  175.                 FileWrite($file, "</font>");全局字符大小结束
  176.                 FileWrite($file, "<br>");换行
  177.                                                 
  178.                 FileClose($file);关闭index.html文件
  179.                 Local $indextime = FileGetTime("index.html",0,0);刷新$indextime数组中存放的index.html文件日期时间信息(最后一次写入)
  180.                
  181.                 index2();自定义函数,放在此处为每到整分钟更新一次index2页面
  182.                
  183.                 Sleep(1000);休息1秒
  184.         WEnd
  185. Until @SEC <0 ;


  186. ;生成index2.html,每天新生成一个,用于产生LOG文件链接页面,便于查询
  187. Func index2();带超级链接的html语句格式:<a href="/softdown/ftp_log/20150413.html"> 20150413.html</a>

  188.         $runtime=$runtime+1;监控系统软件已运行分钟计数器

  189.         $file2 = FileOpen("index2.html", 130);每次(天,正常情况下每日24:00:00)运行至此,全新生成一个index2.html

  190.         FileWrite($file2, "<font size=6>***FTP服务器历史运行记录查询<br></font>");LOG页面标题:***FTP服务器监测系统
  191.         FileWrite($file2, '<font size=2><br>监控系统程序本次运行' & $runtime & '分钟(第 ' & (1+Int($runtime/60/24) & ' 天)  <a href="/ff/index.html">点此返回今日记录页面</a><br></font>' )
  192.         
  193.         If FileExists ( "D:\softdown\FTP_log\" )Then;服务器硬盘绝对地址(注意:不是网站绝对地址,此处为本服务器正好二者一致。下行同)
  194.                 Local $LogList = _FileListToArray("D:\softdown\FTP_log\");数组存放,[0]:个数,[1-n]:第[1-n]个文件名
  195.                 FileWrite($file2, "<font size=3><br><br>")
  196.                 FileWrite($file2, "(一共存在 " & $LogList[0] & " 条历史记录)<br><br>")
  197.                 If $LogList[0]=0 Then
  198.                         FileWrite($file2, "历史记录文件夹中没有发现文件!<br>")
  199.                 Else
  200.                         For $i=1 To $LogList[0]
  201.                                 FileWrite($file2, '<a href="/softdown/ftp_log/' & $LogList[$i] & '">' & $LogList[$i] & "</a><br>");网站绝对地址(服务器实际地址为D:/softdown/ftp_log/)
  202.                         Next
  203.                 EndIf
  204.         Else
  205.                 DirCreate ( "D:\softdown\FTP_log\" );本服务器硬盘绝对地址,可能并非网站绝对地址,若非虚拟目录,则可能只存档而不能实现web显示!)
  206.                 FileWrite($file2, "没有发现历史运行记录文件夹,本次运行已予以建立!<br><br>")
  207.         EndIf

  208.         FileWrite($file2, "</font>");全局字符大小结束
  209.         FileWrite($file2, "<br>");换行
  210.         FileClose($file2)
  211. EndFunc

  212. ;新建index.html文件头,出来时文件为关闭状态
  213. Func Newfile()
  214.         $file0 = FileOpen("index.html", 130);打开文件(创建模式),获取磁盘、内存信息
  215. ;~         FileWrite($file0, '<META?HTTP-EQUIV="Refresh"?content="20">');网页每20秒自动刷新一次
  216.         ;写入文件标题等信息
  217.         FileWrite($file0, "<font size=5>***FTP服务器运行状态监控系统<br></font>");LOG页面标题:***FTP服务器监测系统
  218.         FileWrite($file0, "<font size=3>(Version" & $ver & ")<br><br>");版本号,语言
  219.         ;在index.html中写入查询LOG的链接,若可能,则写入历史记录index2.html链接,否则表示“无”
  220.         If FileExists("index2.html") Then
  221.                 FileWrite($file0, '<a href="/ff/index2.html">点此查看历史记录</a>');历史记录页面链接(网站绝对地址,可能在本地机测试时会出问题),代表网站根目录下的目录
  222.         Else
  223.                 FileWrite($file0, "暂无历史记录")
  224.         EndIf
  225.                
  226.         FileWrite($file0,"<br><br></font>");文头格式结束
  227.         FileClose($file0)
  228. EndFunc
复制代码

目前的版本几个WEB截图绿色框线:当日的页面
蓝色框线:目录页面
橘黄框线:历史记录页面(底部)
FTP作业系统运行监控333.jpg

如果我穿越了,我就先帮亲们灭了日本
回复

使用道具 举报

thinking thinking 发表于 2015-4-6 11:06:17 显示全部楼层
本帖最后由 thinking 于 2015-4-6 11:07 编辑

html换行在每一行的最后加上 <br> 即可。
例:
  1. FileWrite($file, Int(($varF/10+0.5))/100 & "(GB)")
复制代码
改为:
FileWrite($file, Int(($varF/10+0.5))/100 & "(GB)<br>")

点评

字体字色加上代码即可调成自己需要的了  详情 回复 发表于 2015-4-6 14:20
OKOK 其实加上HTML代码即可使得网页实现变化,脑筋僵化了多谢指点  详情 回复 发表于 2015-4-6 14:16
回复 支持 反对

使用道具 举报

thinking thinking 发表于 2015-4-6 11:06:51 显示全部楼层
  Sleep(1000);【感觉此语句比较占用内存】
这一句是对了的,位置也正确,如果没有,才比较占CPU。也不存在占内存的问题。
回复 支持 反对

使用道具 举报

thinking thinking 发表于 2015-4-6 11:08:31 显示全部楼层
http://bbs.wglm.net/thread-113174-1-1.html
这个随机音乐台有托盘功能,你抠出来就有你的托盘菜单了。

点评

慢慢去研究  详情 回复 发表于 2015-4-6 14:17
回复 支持 反对

使用道具 举报

thinking thinking 发表于 2015-4-6 11:10:17 显示全部楼层
最后ACCESS功能:
[Au3] au3对access数据库读写删示例  http://bbs.wglm.net/thread-140038-1-1.html
回复 支持 反对

使用道具 举报

doucu doucu 发表于 2015-4-6 11:16:21 显示全部楼层
楼上说了这么多,虽然都是对的,但人家楼主不是很会啊。你就不能一次写好全部源码,再将源码发给楼主啊。

现在的人啊,怎么帮人一点都不诚心。

点评

不急不急,和为贵,慢慢学慢慢摸  详情 回复 发表于 2015-4-6 14:18
回复 支持 反对

使用道具 举报

nivisde nivisde 发表于 2015-4-6 13:39:41 显示全部楼层
想想楼上回得很精辟
回复 支持 反对

使用道具 举报

9527 9527 发表于 2015-4-6 13:41:55 显示全部楼层
哈哈哈,就是现在的人帮人应该喂到嘴上才行的。
我觉得现在的人帮人不如以前的人了。

点评

感谢围观  详情 回复 发表于 2015-4-6 14:18
回复 支持 反对

使用道具 举报

不是小灵通
 楼主|
不是小灵通 发表于 2015-4-6 14:16:51 显示全部楼层
thinking 发表于 2015-4-6 11:06
html换行在每一行的最后加上  即可。
例:
改为:

OKOK
其实加上HTML代码即可使得网页实现变化,脑筋僵化了
  1. ;指定字符大小
  2.                 FileWrite($file, "<font size=3>")
  3.                
  4.                 ;用不同字色告警
  5.                 Select
  6.                         Case $varF >20000
  7.                                 FileWrite($file, "<font color=#000000>");正常,即大于20G为黑色
  8.                         Case $varF >5000
  9.                                 FileWrite($file, "<font color=#F75000>");小于20G橘黄告警
  10.                         Case Else
  11.                                 FileWrite($file, "<font color=#EA0000>");小于5G红色告警
  12.                 EndSelect
  13.                
  14.                 ;写入日期及时间
  15.                 FileWrite($file, "[ " & @YEAR & "-" & @MON & "-" & @MDAY & "  " & @HOUR & ":" & @MIN & ":" & @SEC & " ]  ")
  16.                                                
  17.                 ;写入当前E盘剩余空间
  18.                 FileWrite($file, "FTP剩余 = ")
  19.                 FileWrite($file, Int(($varF*100+0.5))/100 & "(MB) 或 ")
  20.                 FileWrite($file, Int(($varF/10+0.5))/100 & "(GB)")
  21.                
  22.                 ;写入内存使用量%
  23.                 FileWrite($file, " 内存使用:" & $mem[0] & " %<br>")
  24.                                
  25.                 ;字符格式化归位
  26.                 FileWrite($file, "</font></font>")
复制代码
多谢指点
如果我穿越了,我就先帮亲们灭了日本
回复 支持 反对

使用道具 举报

不是小灵通
 楼主|
不是小灵通 发表于 2015-4-6 14:17:30 显示全部楼层
thinking 发表于 2015-4-6 11:08
http://bbs.wglm.net/thread-113174-1-1.html
这个随机音乐台有托盘功能,你抠出来就有你的托盘菜单了。

慢慢去研究
回复 支持 反对

使用道具 举报

123下一页
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

DBNT云维护技术支持 - 深圳市聚源盛世传媒有限公司 ( 粤ICP备17103197号 )

-