[AHK] 바이두 클라우드 계속 다운로드
Tip/AHKmacro
2016. 2. 13. 17:03
안녕하세요.
저번 포스팅에서 언급한대로 오토핫키를 이용한 매크로를 만들었습니다.
아래는 저번 포스팅에서 언급한 내용입니다.
버전은 5.3.6이며 사용해본 결과 확실히 속도 제한은 없어진것 같은데 바이두 서버쪽에서 무료 회원이 속도가 높게 나오면 연결을 끊는듯한 느낌을 받았습니다.
1메가 이상 넘어가게 되면 서버쪽에서 얼마 안가서 속도가 0으로 수렴하게 만드는것 같습니다.
꼼수로는 그렇게 속도가 느려지면(다운 진행이 안 되면) 잠깐 멈췄다가 다시 진행을 하게 되면 속도가 다시 올라가더군요.
근데 그짓을 반복해야되는 노가다성 꼼수입니다.
(오토핫키로 다운로드 속도를 체크해서 자동으로 멈춤,진행 반복하게 할수도 있을듯 하네요.)
계속 지켜보다 속도가 0에 가깝게 떨어져 다운로드 진행이 안 될때마다 다운로드를 멈추고 다시 진행하는 노가다를 대신 해주는 스크립트입니다.
대충 설명하자면 컴퓨터의 다운로드 속도를 체크해서 0에 가까울정도로 속도가 나오지 않는다면 다운로드를 멈췄다가 다시 재게를 합니다.
주의할건 바이두 클라우드 속도를 체크하는게 아니라 인터넷 전체의 속도를 모니터링을 하기때문에 다른 다운로드 작업이 있다면 제대로 작동하지 않습니다.
토렌트나 기타 다른 다운로드 작업이 동시에 진행되고 있다면 현재 다운로드가 정상적으로 진행되는것으로 판단하기때문에 그렇습니다.
특정 프로그램의 인터넷 사용을 모니터링하기엔 제 내공이 딸리네요.
전송 목록을 펼쳐서 모두 멈춤 버튼이 보여야 스크립트가 정상 작동합니다.
다른 윈도우가 그 부분을 가리지 않게 하셔야 합니다.
빨간색 네모 친 부분이 다른 윈도우에 가리지 않고 보이는 상태여야 합니다.
녹색 전송 목록 버튼 위에 있는 숫자는 현재 모니터링 하고 있는 인터넷 다운로드 속도를 표시합니다.
인터넷 모니터링 스크립트 참조 주소
https://autohotkey.com/boards/viewtopic.php?t=4542
이렇게 그 부분이 다른 창에 가리지 않게 하고 다른 작업을 하셔도 됩니다.
클릭 움직임은 비활성 작업으로 진행되며 다른 작업에 방해를 하지 않습니다.
스크립트이므로 본인의 입맛에 맞게 수정하여 사용하시면 되겠습니다. (딜레이, 기준 속도 등등)
stopless.zip적당한 위치에 압축을 풀고 stopless.ahk 파일을 실행하시면 됩니다.
Pause 버튼으로 작동을 일시 정지할 수 있으며 종료시 트레이 아이콘에서 오른클릭하여 Exit를 선택 하시면 됩니다.
아래는 스크립트 내용입니다.
#NoEnv
#SingleInstance
CoordMode, ToolTip, Screen
CoordMode, Pixel, Screen
CoordMode, Mouse, Screen
Net := new XNET( True ) ; Auto select interface ( interface used by web browsers )
Gui +AlwaysOnTop +Owner -caption -Border
Gui, Font, S11, Tahoma
Gui, Color, 148EE7
Gui, Add, Text, xm h20 w90 Right ReadOnly -Tabstop vRXBPS
Gui, Show,, % Net.Alias
WinSet, TransColor,148EE7 255, % Net.Alias
SetTimer, Update, 200
return
checkNetSpeed:
Net.Update()
GuiControl,, TX, % Net.Tx
GuiControl,, TXBPS, % Net.TxBPS
GuiControl,, RX, % Net.Rx
GuiControl,, RXBPS, % Round(Net.RxBPS/131072/8,1) " MB/s"
;~ GuiControl,, RXBPS, % Net.RxBPS
WinGetPos, X, Y, W, H, %BaiduWin%
WinMove, % Net.Alias,,X+W-110,Y+35
return
Update:
global BaiduWin:="ahk_id " WinExist("ahk_class BaseGui")
gosub, checkNetSpeed
ImageSearch, reX, reY, X+W-125, Y+60, X+W, Y+120, *80 *transWhite %A_ScriptDir%\img\translist.bmp
if ( ErrorLevel = 0 && Round(Net.RxBPS/131072/8,1) > 0.3 )
{
pX:=reX+30-X
pY:=reY+10-Y
PostMessage, 0x200,, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONON
Sleep,100
PostMessage, 0x201, 0x0001, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONDOWN
Sleep,20
PostMessage, 0x202 , 0, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONUP
Sleep,200
PostMessage, 0x200,, ((5*65536)+5),, %BaiduWin% ;WM_LBUTTONON
}
Sleep,200
ImageSearch, reX, reY, X+W-200, Y+130, X+W, Y+200, *30 *trans0x00FF00 %A_ScriptDir%\img\button.bmp
if ( ErrorLevel = 0 )
{
if ( Round(Net.RxBPS/131072/8,1) < 0.3 )
{
WinGetPos, X, Y, W, H, %BaiduWin%
pX:=W-145
pY:=155
PostMessage, 0x200,, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONON
Sleep,100
PostMessage, 0x201, 0x0001, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONDOWN
Sleep,20
PostMessage, 0x202 , 0, ((pY*65536)+pX),, %BaiduWin% ;WM_LBUTTONUP
Sleep,200
PostMessage, 0x200,, ((5*65536)+5),, %BaiduWin% ;WM_LBUTTONON
gosub, checkNetSpeed
while ( Net.RxBPS < 2000 )
{
Sleep, 1000
gosub, checkNetSpeed
}
}
}
Return
Pause::Pause
GuiClose:
GuiEscape:
ExitApp
/* __ __ __ __ __ __ __ _ __
/ /_ / /_/ /_____ _ / // /____ _/ /_ / /________________(_)___ / /_ ____ _______
/ __ \/ __/ __/ __ \(_) // // __ '/ __ \/ //_/ ___/ ___/ __/ / __ \/ __// __ \/ __/ _ \
/ / / / /_/ /_/ /_/ / / // // /_/ / / / / ,< (__ ) /__/ / / / /_/ / /__/ /_/ / / / // /
/_/ /_/\__/\__/ .___(_) // / \__,_/_/ /_/_/|_/____/\___/_/ /_/ .___/\__(_)____/_/ \__ /
/_/ /_//_/ /_/ (___/
http://ahkscript.org/boards/viewtopic.php?&t=4542
XNET is a Class wrapper that simplifies access to MIB_IFROW2 structure.
XNET helps in monitoring network connection and data.
__________________________________________________________________________________________
STRUCTURE MIB_IFROW2 ( MSDN http://goo.gl/Fufv7m )
----------------------------------------------------------------------------------------
Offset Size Type Description Comment
----------------------------------------------------------------------------------------
0 8 INT64 InterfaceLuid
8 4 UINT InterfaceIndex
12 16 GUID InterfaceGuid
28 514 WSTR Alias
542 514 WSTR Description Friendly name
1056 4 UINT PhysicalAddressLength
1060 32 BYTE PhysicalAddress MAC address
1092 32 BYTE PermanentPhysicalAddress MAC address
1124 4 UINT Mtu
1128 4 UINT Type ( IFTYPE )
1132 4 UINT TunnelType
1136 4 UINT MediaType
1140 4 UINT PhysicalMediumType
1144 4 UINT AccessType
1148 4 UINT DirectionType
1152 4 UINT InterfaceAndOperStatusFlags
1156 4 UINT OperStatus
1160 4 UINT AdminStatus
1164 4 UINT MediaConnectState
1168 16 GUID NetworkGuid
1184 4 UINT ConnectionType
1188 4 ---- ---- Padding for x64 alignment
1192 8 UINT64 TransmitLinkSpeed
1200 8 UINT64 ReceiveLinkSpeed
1208 8 UINT64 InOctets Received Bytes
1216 8 UINT64 InUcastPkts
1224 8 UINT64 InNUcastPkts
1232 8 UINT64 InDiscards
1240 8 UINT64 InErrors
1248 8 UINT64 InUnknownProtos
1256 8 UINT64 InUcastOctets Received bytes
1264 8 UINT64 InMulticastOctets
1272 8 UINT64 InBroadcastOctets
1280 8 UINT64 OutOctets Sent Bytes
1288 8 UINT64 OutUcastPkts
1296 8 UINT64 OutNUcastPkts
1304 8 UINT64 OutDiscards
1312 8 UINT64 OutErrors
1320 8 UINT64 OutUcastOctets Sent Bytes
1328 8 UINT64 OutMulticastOctets
1336 8 UINT64 OutBroadcastOctets
1344 8 UINT64 OutQLen
----------------------------------------------------------------------------------------
1352 bytes in total + 16 extra bytes follow
----------------------------------------------------------------------------------------
1352 8 PTR Pointer to InUcastOctets
1360 8 PTR Pointer to OutUcastOctets
----------------------------------------------------------------------------------------
*/
Class XNET ; By SKAN, http://goo.gl/zNmlqm, CD:27/Aug/2014 | MD:12/Sep/2014
{
__New( AutoIF := True )
{
Local IfIndex := 0
this.hModule := DllCall( "LoadLibrary", "Str","Iphlpapi.dll", "Ptr" )
this.SetCapacity( "MIB_IF_ROW2", 1368 ), this.ZeroFill( 1368 )
this.SetDataOffsets(), this.GetTime( True )
DllCall( "iphlpapi\GetBestInterface", "Ptr",0, "PtrP",IfIndex )
If ( AutoIF and IfIndex )
NumPut( IfIndex, this.GetAddress( "MIB_IF_ROW2" ) + 8, "UInt" )
, this.Update( True )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
__Delete()
{
DllCall( "FreeLibrary", "Ptr",this.hModule )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
__Set( Member, Value )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" ), nIfCount := 0, Found := 0
If ( Member = "InterfaceLuid" )
{
this.ZeroFill( 12 )
this.NET_LUID( Value )
}
If ( Member = "InterfaceIndex" )
{
this.ZeroFill( 12 )
NumPut( Value, pData+8, "UInt" )
}
If ( Member = "InterfaceGuid" )
{
this.ZeroFill( 12 )
DllCall( "ole32\CLSIDFromString", "WStr",Value, "Ptr",pData+12 )
DllCall( "iphlpapi\ConvertInterfaceGuidToLuid", "Ptr",pData+12, "Ptr",pData )
}
If ( Member = "Alias" )
{
this.ZeroFill( 12 )
DllCall( "iphlpapi\ConvertInterfaceAliasToLuid", "WStr",Value, "Ptr",pData )
}
If ( Member = "Description" )
{
DllCall( "iphlpapi\GetNumberOfInterfaces", "PtrP",nIfCount )
Loop % ( nIfCount )
{
NumPut( A_Index, NumPut( 0, pData+0, "Int64" ), "UInt" )
DllCall( "iphlpapi\GetIfEntry2", "Ptr",pData )
If ( StrGet( pData+542, "UTF-16" ) = Value and ( Found := True ) )
Break
}
ErrorLevel := ( not Found ) ? this.ZeroFill( 12 ) : ""
}
If Member in InterfaceLuid,InterfaceIndex,InterfaceGuid,Alias,Description
Return this.Update( True ) ? Value : ""
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
__Get( Member )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" )
IfEqual, Member, InterfaceLuid, Return this.NET_LUID()
IfEqual, Member, InterfaceIndex, Return NumGet( pData+ 8, "UInt" )
IfEqual, Member, Alias, Return StrGet( pData+ 28, "UTF-16" )
IfEqual, Member, Description, Return StrGet( pData+542, "UTF-16" )
IfEqual, Member, InterfaceGuid, Return this.GUID( 12 )
IfEqual, Member, PhysicalAddress, Return this.MAC( 1060 )
IfEqual, Member, PermanentPhysicalAddress, Return this.MAC( 1092 )
IfEqual, Member, Mtu, Return NumGet( pData+1124, "UInt" )
IfEqual, Member, Type, Return NumGet( pData+1128, "UInt" )
IfEqual, Member, TunnelType, Return NumGet( pData+1132, "UInt" )
IfEqual, Member, MediaType, Return NumGet( pData+1136, "UInt" )
IfEqual, Member, PhysicalMediumType, Return NumGet( pData+1140, "UInt" )
IfEqual, Member, AccessType, Return NumGet( pData+1144, "UInt" )
IfEqual, Member, DirectionType, Return NumGet( pData+1148, "UInt" )
IfEqual, Member, InterfaceAndOperStatusFlags, Return NumGet( pData+1152, "UInt" )
IfEqual, Member, OperStatus, Return NumGet( pData+1156, "UInt" )
IfEqual, Member, AdminStatus, Return NumGet( pData+1160, "UInt" )
IfEqual, Member, MediaConnectState, Return NumGet( pData+1164, "UInt" )
IfEqual, Member, NetworkGuid, Return this.GUID( 1168 )
IfEqual, Member, ConnectionType, Return NumGet( pData+1184, "UInt" )
IfEqual, Member, TransmitLinkSpeed, Return NumGet( pData+1192, "Int64" )
IfEqual, Member, ReceiveLinkSpeed, Return NumGet( pData+1200, "Int64" )
IfEqual, Member, InOctets, Return NumGet( pData+1208, "Int64" )
IfEqual, Member, InUcastPkts, Return NumGet( pData+1216, "Int64" )
IfEqual, Member, InNUcastPkts, Return NumGet( pData+1224, "Int64" )
IfEqual, Member, InDiscards, Return NumGet( pData+1232, "Int64" )
IfEqual, Member, InErrors, Return NumGet( pData+1240, "Int64" )
IfEqual, Member, InUnknownProtos, Return NumGet( pData+1248, "Int64" )
IfEqual, Member, InUcastOctets, Return NumGet( pData+1256, "Int64" )
IfEqual, Member, InMulticastOctets, Return NumGet( pData+1264, "Int64" )
IfEqual, Member, InBroadcastOctets, Return NumGet( pData+1272, "Int64" )
IfEqual, Member, OutOctets, Return NumGet( pData+1280, "Int64" )
IfEqual, Member, OutUcastPkts, Return NumGet( pData+1288, "Int64" )
IfEqual, Member, OutNUcastPkts, Return NumGet( pData+1296, "Int64" )
IfEqual, Member, OutDiscards, Return NumGet( pData+1304, "Int64" )
IfEqual, Member, OutErrors, Return NumGet( pData+1312, "Int64" )
IfEqual, Member, OutUcastOctets, Return NumGet( pData+1320, "Int64" )
IfEqual, Member, OutMulticastOctets, Return NumGet( pData+1328, "Int64" )
IfEqual, Member, OutBroadcastOctets, Return NumGet( pData+1336, "Int64" )
IfEqual, Member, OutQLen, Return NumGet( pData+1344, "Int64" )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
InterfaceAndOperStatusFlags( SubMember := "" )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" )
, Flags := NumGet( pData+1152, "UInt" )
IfEqual, SubMember, HardwareInterface, Return ( Flags >> 0 & 1 )
IfEqual, SubMember, FilterInterface, Return ( Flags >> 1 & 1 )
IfEqual, SubMember, ConnectorPresent, Return ( Flags >> 2 & 1 )
IfEqual, SubMember, NotAuthenticated, Return ( Flags >> 3 & 1 )
IfEqual, SubMember, NotMediaConnected, Return ( Flags >> 4 & 1 )
IfEqual, SubMember, Paused, Return ( Flags >> 5 & 1 )
IfEqual, SubMember, LowPower, Return ( Flags >> 6 & 1 )
IfEqual, SubMember, EndPointInterface, Return ( Flags >> 7 & 1 )
Return -1
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Update( Reset := 0 )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" ), MS, OldTx, OldRx, Tx, Rx, MCS
MS := this.GetTime( Reset )
OldTx := NumGet( NumGet( pData+1360 ), "Int64" )
OldRx := NumGet( NumGet( pData+1352 ), "Int64" )
If ErrorLevel := DllCall( "iphlpapi\GetIfEntry2", "Ptr",pData )
Return 0, this.ZeroFill()
this.Tx := Tx := NumGet( NumGet( pData+1360 ), "Int64" )
this.Rx := Rx := NumGet( NumGet( pData+1352 ), "Int64" )
this.TxBPS := Round( ( ( Tx-OldTx ) / 1000 ) / ( MS/1000 ) * 1000 )
this.RxBPS := Round( ( ( Rx-OldRx ) / 1000 ) / ( MS/1000 ) * 1000 )
MCS := NumGet( pData+1164,"UInt" )
this.State := ( MCS=1 ? "Connected" : MCS=2 ? "Disconnected" : "Unknown" )
Return True
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
SetDataOffsets( In := 1256, Out := 1320 ) {
Local pData := this.GetAddress( "MIB_IF_ROW2" )
NumPut( pData + In, pData + 1352 ), NumPut( pData + Out, pData + 1360 )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ZeroFill( Bytes := 1352, FillChar := 0 ) {
Local pData := this.GetAddress( "MIB_IF_ROW2" )
DllCall( "RtlFillMemory", "Ptr",pData, "Ptr",Bytes, "UChar",FillChar )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
NET_LUID( sLUID := "" )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" ), AFI := "", L := 0
If ( not SLUID )
{
SetFormat, IntegerFast, % "H" ( AFI := A_FormatInteger )
sLUID := SubStr( 0x1000000 | ( NumGet( pData+0, "UInt" ) & 0xFFFFFF ), -5 ) "-"
. SubStr( 0x1000000 | ( NumGet( pData+3, "UInt" ) & 0xFFFFFF ), -5 ) "-"
. SubStr( 0x1000000 | NumGet( pData+6, "UShort" ), -3 )
SetFormat, IntegerFast, %AFI%
Return "{" sLUID "}"
}
StringSplit, L, sLUID, -, {}%A_Space%
NumPut( "0x" L1, pData+0, "UInt" )
NumPut( "0x" L2, pData+3, "UInt" )
NumPut( "0x" L3, pData+6, "UShort" )
Return NumGet( pData+0, "Int64" )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
MAC( Offset := 1092 )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" ), PhysAddr := ""
SetFormat, IntegerFast, % "H" ( AFI := A_FormatInteger )
Loop % NumGet( pData + 1056, "UInt" )
PhysAddr .= "-" SubStr( 0x100 | NumGet( pData+OffSet+A_Index-1, "UChar" ), -1 )
SetFormat, IntegerFast, %AFI%
Return SubStr( PhysAddr, 2 )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GUID( Offset := 12 )
{
Local pData := this.GetAddress( "MIB_IF_ROW2" )
VarSetCapacity( GUID,80,0 )
DllCall( "ole32\StringFromGUID2", "Ptr",pData + Offset, "Ptr",&GUID, "Int",39 )
Return StrGet( &GUID, "UTF-16" )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GetTime( Reset := 0 )
{
Local T1601 := 0, OldTime := 0
DllCall( "GetSystemTimeAsFileTime", "Int64P",T1601 ), T1601 //= 10000
OldTime := this.Time, this.Time := T1601
Return Reset ? ( this.Time := T1601 ) - T1601 : ( this.Time - OldTime )
}
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
} ; end of XNET
;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
'Tip/AHKmacro' 관련 글
more
