国服查价小插件V1.80 - 17173有料社区

#NoEnv
#NoTrayIcon
#SingleInstance Force
#include SJson.ahk
;#include GetWidthUnitCount.ahk 字符串表显示优化未完成
SetWorkingDir %A_ScriptDir%
CoordMode, ToolTip, Screen
CoordMode, mouse, Screen
global Version
global Ready := false
global CheckBoard := ""
;global League := "S9赛季"
Gui Add, Text, x16 y16 w40 h23 +0x200, 赛季
Gui Add, ComboBox,vLeague x64 y16 w100, S9赛季
GuiControl,Choose,League,1
Gui Add, Button,gStart x16 y48 w149 h39, OK
Gui Show, w175 h97, ToolTip
Return
^space::
GuiEscape:
GuiClose:
ExitApp
; End of the GUI section
#if Ready
#IfWinActive Path of Exile
~^C::
if Clipboard != CheckBoard
settimer,Main,100
Tooltip, Loading
return
#IfWinActive
#if
Main:
FindTradeInfo(Clipboard)
settimer,Main,off
return
~Space::
RemoveToolTip:
ToolTip
settimer,RemoveToolTip,off
return
Start()
{
if CheckLeague()
{
Ready := false
MsgBox,版本号错误
return
}
Ready := true
Clipboard := ""
Gui,hide
return
}
;版本检测，懒得写-----
CheckLeague()
{
return false
}
;获取name和type
GetNameAndType(Clip)
{
if InStr(Clip, "稀有度:") != 1
{
mItem := {ItemName:false,ItemType:false}
return mItem
}
ClipArray := StrSplit(Clip, "`n", "`r")
try:
if RegExMatch(ClipArray[3],"---")
mItem := {ItemName:false,ItemType:ClipArray[2]}
else
mItem := {ItemName:ClipArray[2],ItemType:ClipArray[3]}
return mItem
catch: ;return bugmsg懒得写------
return
}
;抓取Trade信息
FindTradeInfo(Clip)
{
GuiControlGet, League
mItem := GetNameAndType(clip)
MouseGetPos, Px,Py
if mItem.ItemType = false
{
msgbox, 复制错误
return
}
data := {"query":{"status":{"option":"any"} ,"stats":[{"type":"and","filters":[]}]},"filters":{"trade_filters":{"filters":{"indexed":{"option":"1day"}},"disabled":False}},"sort":{"price":"asc"}}
if mItem.ItemName != false
data.query.name := mItem.ItemName
data.query.type := mItem.ItemType
body := Json(data)
url = https://poe.game.qq.com/api/trade/search/%League%
CP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
CP.Open("POST", url)
CP.SetRequestHeader("Content-Type", "application/json")
CP.Send(body)
result := json(CP.responsetext)
itemid := result.id
itemlist := result.result
url := "https://poe.game.qq.com/api/trade/fetch/"
maxCount := 10
step := floor(itemlist.length()/maxCount) + 1
maxcount := maxCount -1
loop , %maxCount%
{
index := A_index * step
listtemp := itemlist[index]
url= %url%%listtemp%,
}
url := Rtrim(url, ",")
url = %url%?query=%itemid%
RT := ComObjCreate("WinHttp.WinHttpRequest.5.1")
RT.Open("GET",url)
RT.Send()
RTresult := json(RT.responsetext)
infolist := RTresult.result
tmpString := ""
MaxWidth := 0
tmpString = 装备名称：
if mItem.ItemName != false
{
ItemName := mItem.ItemName
tmpString= %tmpString%%ItemName%-
}
ItemType := mItem.ItemType
tmpString= %tmpString%%ItemType%`n
ItemUnit := result.total
tmpString = %tmpString%设备总数：%ItemUnit%`n
for info in infolist
{
idmsg := infolist[A_index].listing.account.lastCharacterName
pricemsg := process_dict(infolist[A_index].listing)
Ttip =ID: %idmsg%|| 价格: %pricemsg%
tmpString = %tmpString%`n%Ttip%
}
tooltip,%tmpString%,%px%,%py%
settimer, RemoveToolTip, 15000
return
}
Process_dict(s)
{
if s.price != "null"
{
single_price := s.price.amount
unit := s.price.currency
price_info = %single_price% %unit%
return price_info
}
return "无定价"
}

复制代码