(摘) AutoIT代码收集 2023-1-27

2022年12月22日 in AUTOIT 约300字，阅读约1 分钟。

声明：内容源自网络，版权归原作者所有。若有侵权请在网页聊天中联系我

循环读取界面中的内容

AdlibRegister("Example",1000) ; 每1秒运行一次
Sleep(60000)

Func Example()
   ; 获取窗口文本
    Local $sText = ControlGetText("[Class:SciTEWindow]","","[Class:Scintilla]")
    ToolTip($sText)
EndFunc

读取网址，分析JSON

先下载一个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

相关文章