- 循环读取界面中的内容
AdlibRegister("Example",1000) ; 每1秒运行一次
Sleep(60000)
Func Example()
; 获取窗口文本
Local $sText = ControlGetText("[Class:SciTEWindow]","","[Class:Scintilla]")
ToolTip($sText)
EndFunc
- 读取网址,分析JSON
#include <JSON.au3>
Local $sData = InetRead("https://tj.scwy.net/list/crocoat")
Local $nBytesRead = @extended
;MsgBox(4096, "", "Bytes read: " & $nBytesRead & @CRLF & @CRLF & BinaryToString($sData))
Local $info = BinaryToString($sData)
Local $infoJson = _JSON_Parse($info)
ConsoleWrite($info & @CRLF )
ConsoleWrite(_JSON_Get($infoJson,"[1].SVer") & @CRLF)
- 对数据库的访问,数据提取操作
#include<array.au3>
$conn= ObjCreate("ADODB.Connection")
$RS= ObjCreate("ADODB.Recordset")
$conn.Open("driver={SQLServer};server=a\demo;uid=sa;pwd=bcd;database=Test")
$RS.ActiveConnection= $conn
$RS.open("SELECT* FROM GIS_CROP")
;以下代码可以获取数据库表的标题名
;$count = $RS.Fields.Count
;dim $array1[$count]
;For $i = 0 To ($count - 1)
; $array1[$i] = $RS.Fields($i).Name ;取得一行记录
;Next
dim$i = 0
ConsoleWrite($RS.fields.count)
dim$array[10][4]
While(Not$RS.eof And Not $RS.bof)
$array[$i][0]= $RS.Fields(0).value
$array[$i][1]= $RS.Fields(1).value
$array[$i][2]= $RS.Fields(3).value
$i+= 1
$RS.movenext
WEnd
$RS.close
_ArrayDisplay($array)
- 打印输出
ShellExecuteWait(“d:\123.pdf”,"","",“Print”) ;,@SW_MINIMIZE)
使用中发现,pdf需关联相关软件,实际是由该软件来发起打印。比如默认由浏览器打开pdf,就不能响应这里的print