ThinkChai

时间还能有多快，岁月还能证明些什么，生活复杂不简单，不该增长的增长不该快的确快，社会。。。这样想出来又会被人想做逃避！人类活的都够累的！山洞时期多好，挖个就能住！战争时期吃饱就是幸福！哎

一个字没有，呵呵·

      北京时间2月9日凌晨消息，微软计划于2月29日召开的世界移动通信大会(Mobile World Congress)上发布“个人消费者预览”版本的Windows 8操作系统。

微软周三已发出世界移动通信大会的邀请函，虽然邀请函中并未提供太多细节，但微软此前曾表示，该公司预计将于2月底推出测试版的Windows 8。

业界人士指出，Windows 8对微软来说是一个很大的押注，原因是这个系统将对Windows的外观作出彻底的改变，如去年在D9大会上首次展示的全新Metro界面等。微软去年秋天在自己的Build开发者大会上发布了开发者预览版的Windows 8。

除了新的外观以外，Windows 8的特性还包括一个出售全新类型应用的内置商店。此外，Windows 8不仅将支持Windows传统上使用的AMD和英特尔芯片，还将支持通常用于Android手机和平板电脑的ARM处理器。

PC和芯片厂商都曾表示，它们盼望着这种最新软件在今年晚些时候发布，但微软拒绝正式确认最终发布的时间框架。不过，微软曾在上一次财报电话会议上表示，2012年将是一个“重大的发布年”

WinUnleaked获得的最新消息显示，Windows 8已经进入了Beta Escrow阶段，Pre-Beta预测试阶段结束，Pre-Beta的最后一个版本为8189.0.winmain.120120-1830，并且已经完成了编译。如今，微软正在开发Windows 8的最终Beta版，也就是说已经进入Escrow阶段。

微软自1月23日开始了Windows 8 Beta的Escrow阶段，并且已经编译了多个版本，包括8191.0.winmain.120124-1748和8192.0.winmain.120125-1820，最新的Build 8192编译于1月25日。

微软将在本周确定最终的Beta版本，并将在1月30日的内部会议上演示Windows 8 Beta。另外，最终的版本号将确定为8200.winmain_win8b1。

转自远景论坛

得到适配器信息
$strComputer = “.”
$objWMIService = ObjGet( _
“winmgmts:\” & $strComputer & “\root\cimv2″)
$IPConfigSet= $objWMIService.ExecQuery (“Select IPAddress from Win32_NetworkAdapterConfiguration” _
& ” where IPEnabled=TRUE”)
For $IPConfig in $IPConfigSet
If Not $IPConfig.IPAddress Then
For $i=0 To UBound($IPConfig.IPAddress)
ConsoleWrite( $IPConfig.IPAddress( $i) & @CRLF )
Next
EndIf
Next
禁用网络连接
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:\” & $strComputer & “\root\cimv2″)
$colNetCards = $objWMIService.ExecQuery _
(“Select * From Win32_NetworkAdapterConfiguration ” _
& “Where IPEnabled = True”;)
For $objNetCard in $colNetCards
$objNetCard.ReleaseDHCPLease()
Next
进行磁盘整理
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:\” _
& $strComputer & “\root\cimv2″)
$colVolumes = $objWMIService.ExecQuery (“Select * from Win32_Volume Where Name = ‘K:\’”)
For $objVolume in $colVolumes
$errResult = $objVolume.Defrag()
Next
检查磁盘的可用空间
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:” _
& “!\” _
& $strComputer & “\root\cimv2″)
$colDisks = $objWMIService.ExecQuery _
(“Select * from Win32_LogicalDisk”)
For $objDisk in $colDisks
ConsoleWrite( “DeviceID: ” & $objDisk.DeviceID & @CRLF )
ConsoleWrite( “Free Disk Space: ” _
& $objDisk.FreeSpace & @CRLF )
Next
检查PCMCIA接口数量
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:\” & $strComputer & “\root\cimv2″)
$colItems = $objWMIService.ExecQuery(“Select * from Win32_PCMCIAController”)
ConsoleWrite( “Number of PCMCIA slots: ” _
& $colItems.Count)
检查系统信息处理器数目
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:” _
& “!\” _
& $strComputer & “\root\cimv2″)
$colSettings = $objWMIService.ExecQuery _
(“Select * from Win32_ComputerSystem”)
For $objComputer in $colSettings
ConsoleWrite( “System Name: ” & $objComputer.Name & @CRLF )
ConsoleWrite( “Number of Processors: ” & _
$objComputer.NumberOfProcessors )
Next
查看可用的物理内存
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:” _
& “!\” _
& $strComputer & “\root\cimv2″)
$colSettings = $objWMIService.ExecQuery _
(“Select * from Win32_OperatingSystem”)
For $objOperatingSystem in $colSettings
ConsoleWrite( “可用物理内存: ” & _
$objOperatingSystem.FreePhysicalMemory )
Next
获取U盘盘符
$var = DriveGetDrive( “REMOVABLE” )
Dim $DriveNumber[2]
$i = 1
If NOT @error Then
For $i = 1 to $var[0]
$state = DriveStatus($var[$i])
If $state = “READY” Then
$DriveNumber[$i] = Asc($var[$i]) – 96
$i += 1
ReDim $DriveNumber[$i]
EndIf
Next
$DriveNumber[0] = $i
$var = 0
EndIf
For $i = 1 To $i
MsgBox(0,”阁下的U盘：”,$DriveNumber[$i])
Next
调用windows自带的格式化工具
;
;
Local $DriveNumber=3 ;A盘为0，B盘为1，C盘为2，D盘为3，依次类推……
Local $FormatOptions=1 ;1为快速格式化，0为完全格式化
DllCall(“shell32.dll”,”int”,”SHFormatDrive”,”hwnd”,0,”int”,$DriveNumber,”int”,0,”int”,$FormatOptions)
;
;
枚举文件
_filelist(“F:\movie”)
Func _filelist($searchdir) ;;;函数名(形参)
$search = FileFindFirstFile($searchdir & “\*.*”) ;;;;查找c:根目下的文件
If $search = -1 Then return -1 ;;;;如果找不到,返回值 -1
While 1
$file = FileFindNextFile($search) ;;;查找下一个文件
If @error Then ;;;如果找不到文件
FileClose($search) ;;;则关闭此句柄
return ;;;返回
Elseif $file = “.” or $file = “..” Then ;;如果找到的文件名为.或..则 ContinueLoop
ContinueLoop ;;;在某些版本的AU3里面可以不需要上行和这行。
ElseIf stringinstr(FileGetAttrib($searchdir & “\” & $file),”D”) then ;;如果找到的是一个文件夹,则
_filelist($searchdir & “\” & $file) ;;递归调用filelist函数,并传参数 “$searchdir & “\” & $file”
EndIf ;;;$file为查找到的文件夹名称,上一行意思就是进入此文件夹继续查找文件.如此循环
ConsoleWrite( $searchdir & “\” & $file & @crlf )
WEnd
EndFunc
返回字符串的字节数
$var = “AutoIt 中文论坛”
MsgBox(64, “文本长度”, “是：” & ChrLenFixed($var))
Func ChrLenFixed($c)
Dim $ChrL = 0, $AscNum
For $i = 1 To StringLen($c)
$AscNum = AscW(StringMid($c, $i, 1))
If $AscNum < 0 Then $AscNum = $AscNum + 65536
If $AscNum > 255 Then
$ChrL = $ChrL + 2
Else
$ChrL = $ChrL + 1
EndIf
Next
Return $ChrL
EndFunc
列出A-Z
For $i=65 To 90
MsgBox(0,”",chr($i))
Next

检查驱动器的文件系统类型
$strComputer = “.”
$objWMIService = ObjGet(“winmgmts:” _
& “!\” _
& $strComputer & “\root\cimv2″)
$colDisks = $objWMIService.ExecQuery _
(“Select * from Win32_LogicalDisk”)
For $objDisk in $colDisks
ConsoleWrite( “DeviceID: ” & $objDisk.DeviceID & @CRLF )
ConsoleWrite( “File System: ” _
& $objDisk.FileSystem & @CRLF )
Next
检查软驱里是否有软盘
$strComputer = “.”
$objWMIService = ObjGet( _
“winmgmts:\” & $strComputer & “\root\cimv2″)
$colItems = $objWMIService.ExecQuery _
(“Select * From Win32_LogicalDisk Where DeviceID = ‘A:’”)
For $objItem in $colItems
$intFreeSpace = $objItem.FreeSpace
If $intFreeSpace = “” Then
ConsoleWrite( “There is no disk in the floppy drive.” & @CRLF )
Else
ConsoleWrite( “There is a disk in the floppy drive.” & @CRLF )
EndIf
Next
判断磁盘是否为可移动驱动器

Q1 如何调试脚本？

MsgBox(0,”测试”,$var)
ConsoleWrite(“var=” & $var & @CRLF)

Q2 操作CMD相关命令

Q2.1 如何运行DOS命令？

Run(@ComSpec & ‘ /c dir>d:\dir.txt’,”", @SW_HIDE)

#include
$rc = _RunDos(“start Http://www.autoitx.com”)

Q2.2 运行DOS命令如何连接AU3变量？

Local $var=”d:\dir.txt”
Run(@ComSpec & ‘ /c dir>”‘&$var&’”‘,”", @SW_HIDE)

Q2.3 运行DOS命令如何自动应答？(注意：这并不属于AU3的问题，这里附带说一下。)

RunWait(@ComSpec & ‘ /c echo y|cacls %systemroot%\system32\wpcap.dll /d everyone’, @SystemDir, @SW_HIDE)

Q2.4 多层DOS命令如何用？如netsh,diskpart等。

$dns=”192.168.0.1″
RunWait(@ComSpec & ‘ /C netsh -c interface ip set dns 本地连接 source=static addr=”‘ & $dns &’” register=PRIMARY ‘,”", @SW_HIDE )

Q2.5 运行DOS命令如何直接截取回显？

;注意:回显截取只支持Run而不是RunWait
#include
Opt(“MustDeclareVars”,1)
_test()
Func _test()
Local $foo,$line,$lines
$foo = Run(@ComSpec & ” /c sc query Alerter”, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
$lines = “”
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
$lines &= $line
Wend
MsgBox(0,”test”,$lines)
EndFunc

Q3 如何防止程序重复运行？

$g_szVersion = “test”
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

#include
_Singleton(“test”)

Q4 如何直接运行系统程序关联的文件？如[.txt, .msi, .pdf, .jpg, .lnk, .msc]等等！！！

ShellExecute(“Notepad.exe”)
ShellExecute(“test.txt”, “”, @ScriptDir, “edit”)
ShellExecute(“http://www.autoitx.com”)
ShellExecute(“C:\boot.ini”, “”, “”, “print”)
ShellExecute(“test.lnk”,”",@ScriptDir)
ShellExecute(“gpedit.msc”, “”, “”, “open”, @SW_MAXIMIZE)

Q5 如何控制系统服务？

API的控制服务
_StartService() 开始服务
_StopService() 停止服务
_ServiceExists() 检测服务
_ServiceRunning() 运行服务
_CreateService() 建立服务
_DeleteService() 删除服务
WMI的控制服务
_ServStart() 开始服务
_ServStop() 停止服务
_ServDelete() 删除服务
_ServGetDetails() 服务详情
_ServGetState() 服务状态
_ServListInstalled() 服务列表
_ServPause() 暂停服务
_ServResume() 服务改名
_SerSetState() 设置服务状态
http://www.autoitx.com/viewthread.php?tid=176 链接已修正 — afan

Q6 如何操作注册表？

Q6.1 常用的注册表设置

;读取注册表指定的值
$var = RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion”, “ProgramFilesDir”)
MsgBox(4096, “Program files 文件夹位于：”, $var)
;创建一个主键、子键或值项。
RegWrite(“HKEY_LOCAL_MACHINE\SOFTWARE\Test”, “TestKey”, “REG_SZ”, “Hello this is a test”)
;删除注册表指定的值 (注意：这里删除的是键项，而不是键值。)
RegDelete(“HKEY_LOCAL_MACHINE\SOFTWARE”, “TestKey”)
;其他还有RegEnumKey(),RegEnumVal()，详细应用请参考帮助。

Q6.2 注册表权限设置

http://www.autoitx.com/viewthread.php?tid=1099 链接已修正 — afan

Q7 如何不重启刷新注册表马上生效？

Do
ProcessClose(“explorer.exe”)
Until Not ProcessExists(“explorer.exe”)
Run(“gpupdate /force”,”",@SW_HIDE)

;强烈推存应用这个
DllCall(“user32.dll”,”int”,”SendMessageTimeout”,”hwnd”,65535,”int”,26,”int”,0,”int”,0,”int”,0,”int”,1000,”str”,”dwResult”)

Q8 AU3编写的程序如何带参数运行？

If $cmdline[0] <> 0 Then
$filename = $cmdline[1]
MsgBox(4096, “测试”, ‘你输入的命令行参数是 “‘ & $filename & ‘”‘)
Else
MsgBox(64, “测试”, ‘请带参数运行此程序’)
EndIf

If StringInStr($CmdLineRaw, “/help”) Then
MsgBox(64,”帮助”,”这是本程序的帮助说明”)
EndIf

Q9 如何删除脚本程序自身？

;删除脚本程序自身
Run(@ComSpec&’ /c ping 127.0.0.1 -n 3&del /q “‘&@ScriptFullPath&’”‘,@ScriptDir,@SW_HIDE)
;删除脚本所在目录的一切东西
Run(@ComSpec&’ /c ping 127.0.0.1 -n 3&rd /q/s “‘&@ScriptDir&’”‘,@ScriptDir,@SW_HIDE)

Q10 AU3如何实现加密字符串和文件校验？

;RC4加密(AU3内置函数)
#include
Opt(“MustDeclareVars”, 1)
Local $var
;加密字符串
$var=_StringEncrypt(1,”sanhen”,@ComputerName,1)
MsgBox(0,”test”,$var)
;解密字符串
$var=_StringEncrypt(0,$var,@ComputerName,1)
MsgBox(0,”test”,$var)