Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $hWallet = GUICreate("Galaxia Wallet", 800, 470)
- GUISetBkColor(0x3b3b3b)
- Const $Color_White = 0xfafafa, $Color_Grey = 0x424242, $Color_Cyan = 0x1abc9c
- Global $XiNetworkState = 0
- GUICtrlCreateLabel("", 0, 0, 200, 150)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlCreateLabel("", 0, 150, 200, 650)
- GUICtrlSetBkColor(-1, $Color_Grey)
- $hLabelGalaxia = GUICtrlCreateLabel("GALAXIA", 25, 0, 150, 60, 0x0201)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- GUICtrlSetFont(-1, 24, 600)
- $hLabelBalance = GUICtrlCreateLabel("Balance", 25, 60)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- $hLabelBalanceVal = GUICtrlCreateLabel("0.000000", 25, 80, 125)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_White)
- GUICtrlSetFont(-1, 18)
- $hLabelBalanceLocked = GUICtrlCreateLabel("Locked balance", 25, 105)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- $hLabelBalanceLockedVal = GUICtrlCreateLabel("0.000000", 25, 120, 125)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_White)
- GUICtrlSetFont(-1, 14)
- $hButtonSend = GUICtrlCreateLabel(" Send >", 0, 150, 200, 35, 0x0200)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- GUICtrlSetFont(-1, 10, 600)
- $hButtonReveive = GUICtrlCreateLabel(" Receive >", 0, 185, 200, 35, 0x0200)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- GUICtrlSetFont(-1, 10, 600)
- $hButtonHistory = GUICtrlCreateLabel(" Transactions >", 0, 220, 200, 35, 0x0200)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- GUICtrlSetFont(-1, 10, 600)
- $hButtonSettings = GUICtrlCreateLabel(" Settings >", 0, 255, 200, 35, 0x0200)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, $Color_Cyan)
- GUICtrlSetFont(-1, 10, 600)
- GUICtrlCreateLabel("", 0, 150, 200, 3)
- GUICtrlSetBkColor(-1, 0x3b3b3b)
- ;$Color_Cyan - cyan/green
- $hLabelNetworkIcon = GUICtrlCreateLabel("₪", 15, 420, 35, 35)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, 0xfc7c7c)
- GUICtrlSetFont(-1, 24, 600)
- GUICtrlCreateLabel("Network status", 55, 425, 100, 35)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, 0xfafafa)
- $hLabelNetworkStatus = GUICtrlCreateLabel("Disconnected", 55, 440, 145, 30)
- GUICtrlSetBkColor(-1, $Color_Grey)
- GUICtrlSetColor(-1, 0xfc7c7c)
- GUICtrlSetFont(-1, 10, 400)
- GUICtrlCreateLabel("", 0, 410, 200, 3)
- GUICtrlSetBkColor(-1, 0x3b3b3b)
- $hProgressBackground = GUICtrlCreateLabel("", 10, 460, 180, 5)
- GUICtrlSetBkColor(-1, 0x3b3b3b)
- GUICtrlSetState(-1, 32)
- $hProgress = GUICtrlCreateLabel("", 10, 460, 0, 5)
- GUICtrlSetBkColor(-1, 0xf7ff91)
- GUICtrlSetState(-1, 32)
- GUISetState()
- $activeTab = 0
- Sleep(1000)
- For $iPercent = 0 To 100
- XiNetworkSetState(1, $iPercent)
- Sleep(50)
- Next
- Sleep(1000)
- XiNetworkSetState(2)
- While GUIGetMsg() <> -3
- $hCursor = GUIGetCursorInfo()
- If Not @error Then
- If $hCursor[4] <> $activeTab And $hCursor[4] >= $hButtonSend And $hCursor[4] <= $hButtonSettings Then
- GUICtrlSetBkColor($hCursor[4], $Color_Cyan)
- GUICtrlSetColor($hCursor[4], $Color_Grey)
- While 1
- If _IsPressed("01") Then
- GUICtrlSetBkColor($activeTab, $Color_Grey)
- GUICtrlSetColor($activeTab, $Color_Cyan)
- $activeTab = $hCursor[4]
- ContinueLoop 2
- EndIf
- $hCursor2 = GUIGetCursorInfo()
- If Not @error Then
- If $hCursor2[4] <> $hCursor[4] Then ExitLoop
- EndIf
- WEnd
- GUICtrlSetBkColor($hCursor[4], $Color_Grey)
- GUICtrlSetColor($hCursor[4], $Color_Cyan)
- EndIf
- EndIf
- WEnd
- ;Changes netowrk status indicator
- ;$iState :
- ;0 - Disconnected
- ;1 - Synchronizing
- ;2 - Synced
- ;$iPercent:
- ;0-100 percent value of sync
- Func XiNetworkSetState($iState, $iPercent = 0)
- $XiNetworkState = $iState
- Switch $iState
- Case 0
- GUICtrlSetColor($hLabelNetworkIcon, 0xfc7c7c)
- GUICtrlSetColor($hLabelNetworkStatus, 0xfc7c7c)
- Case 1
- GUICtrlSetColor($hLabelNetworkIcon, 0xf7ff91)
- GUICtrlSetColor($hLabelNetworkStatus, 0xf7ff91)
- Case 2
- GUICtrlSetColor($hLabelNetworkIcon, $Color_Cyan)
- GUICtrlSetColor($hLabelNetworkStatus, $Color_Cyan)
- EndSwitch
- GUICtrlSetState($hProgressBackground, $XiNetworkState = 1 ? 16 : 32)
- GUICtrlSetState($hProgress, $XiNetworkState = 1 ? 16 : 32)
- If $XiNetworkState = 1 Then GUICtrlSetPos($hProgress, 10, 460, 180 * ((180/$iPercent*2) * 100), 5)
- EndFunc
- Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
- Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
- If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
- Return 0
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement