Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2019
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.57 KB | None | 0 0
  1. $hWallet = GUICreate("Galaxia Wallet", 800, 470)
  2. GUISetBkColor(0x3b3b3b)
  3.  
  4. Const $Color_White = 0xfafafa, $Color_Grey = 0x424242, $Color_Cyan = 0x1abc9c
  5. Global $XiNetworkState = 0
  6.  
  7. GUICtrlCreateLabel("", 0, 0, 200, 150)
  8. GUICtrlSetBkColor(-1, $Color_Grey)
  9. GUICtrlCreateLabel("", 0, 150, 200, 650)
  10. GUICtrlSetBkColor(-1, $Color_Grey)
  11.  
  12. $hLabelGalaxia = GUICtrlCreateLabel("GALAXIA", 25, 0, 150, 60, 0x0201)
  13. GUICtrlSetBkColor(-1, $Color_Grey)
  14. GUICtrlSetColor(-1, $Color_Cyan)
  15. GUICtrlSetFont(-1, 24, 600)
  16.  
  17. $hLabelBalance = GUICtrlCreateLabel("Balance", 25, 60)
  18. GUICtrlSetBkColor(-1, $Color_Grey)
  19. GUICtrlSetColor(-1, $Color_Cyan)
  20.  
  21. $hLabelBalanceVal = GUICtrlCreateLabel("0.000000", 25, 80, 125)
  22. GUICtrlSetBkColor(-1, $Color_Grey)
  23. GUICtrlSetColor(-1, $Color_White)
  24. GUICtrlSetFont(-1, 18)
  25.  
  26. $hLabelBalanceLocked = GUICtrlCreateLabel("Locked balance", 25, 105)
  27. GUICtrlSetBkColor(-1, $Color_Grey)
  28. GUICtrlSetColor(-1, $Color_Cyan)
  29.  
  30. $hLabelBalanceLockedVal = GUICtrlCreateLabel("0.000000", 25, 120, 125)
  31. GUICtrlSetBkColor(-1, $Color_Grey)
  32. GUICtrlSetColor(-1, $Color_White)
  33. GUICtrlSetFont(-1, 14)
  34.  
  35. $hButtonSend = GUICtrlCreateLabel(" Send >", 0, 150, 200, 35, 0x0200)
  36. GUICtrlSetBkColor(-1, $Color_Grey)
  37. GUICtrlSetColor(-1, $Color_Cyan)
  38. GUICtrlSetFont(-1, 10, 600)
  39.  
  40. $hButtonReveive = GUICtrlCreateLabel(" Receive >", 0, 185, 200, 35, 0x0200)
  41. GUICtrlSetBkColor(-1, $Color_Grey)
  42. GUICtrlSetColor(-1, $Color_Cyan)
  43. GUICtrlSetFont(-1, 10, 600)
  44.  
  45. $hButtonHistory = GUICtrlCreateLabel(" Transactions >", 0, 220, 200, 35, 0x0200)
  46. GUICtrlSetBkColor(-1, $Color_Grey)
  47. GUICtrlSetColor(-1, $Color_Cyan)
  48. GUICtrlSetFont(-1, 10, 600)
  49.  
  50. $hButtonSettings = GUICtrlCreateLabel(" Settings >", 0, 255, 200, 35, 0x0200)
  51. GUICtrlSetBkColor(-1, $Color_Grey)
  52. GUICtrlSetColor(-1, $Color_Cyan)
  53. GUICtrlSetFont(-1, 10, 600)
  54.  
  55. GUICtrlCreateLabel("", 0, 150, 200, 3)
  56. GUICtrlSetBkColor(-1, 0x3b3b3b)
  57.  
  58. ;$Color_Cyan - cyan/green
  59. $hLabelNetworkIcon = GUICtrlCreateLabel("₪", 15, 420, 35, 35)
  60. GUICtrlSetBkColor(-1, $Color_Grey)
  61. GUICtrlSetColor(-1, 0xfc7c7c)
  62. GUICtrlSetFont(-1, 24, 600)
  63.  
  64. GUICtrlCreateLabel("Network status", 55, 425, 100, 35)
  65. GUICtrlSetBkColor(-1, $Color_Grey)
  66. GUICtrlSetColor(-1, 0xfafafa)
  67.  
  68. $hLabelNetworkStatus = GUICtrlCreateLabel("Disconnected", 55, 440, 145, 30)
  69. GUICtrlSetBkColor(-1, $Color_Grey)
  70. GUICtrlSetColor(-1, 0xfc7c7c)
  71. GUICtrlSetFont(-1, 10, 400)
  72.  
  73. GUICtrlCreateLabel("", 0, 410, 200, 3)
  74. GUICtrlSetBkColor(-1, 0x3b3b3b)
  75.  
  76. $hProgressBackground = GUICtrlCreateLabel("", 10, 460, 180, 5)
  77. GUICtrlSetBkColor(-1, 0x3b3b3b)
  78. GUICtrlSetState(-1, 32)
  79.  
  80. $hProgress = GUICtrlCreateLabel("", 10, 460, 0, 5)
  81. GUICtrlSetBkColor(-1, 0xf7ff91)
  82. GUICtrlSetState(-1, 32)
  83.  
  84. GUISetState()
  85.  
  86. $activeTab = 0
  87.  
  88. Sleep(1000)
  89. For $iPercent = 0 To 100
  90. XiNetworkSetState(1, $iPercent)
  91. Sleep(50)
  92. Next
  93. Sleep(1000)
  94. XiNetworkSetState(2)
  95.  
  96. While GUIGetMsg() <> -3
  97. $hCursor = GUIGetCursorInfo()
  98. If Not @error Then
  99. If $hCursor[4] <> $activeTab And $hCursor[4] >= $hButtonSend And $hCursor[4] <= $hButtonSettings Then
  100. GUICtrlSetBkColor($hCursor[4], $Color_Cyan)
  101. GUICtrlSetColor($hCursor[4], $Color_Grey)
  102. While 1
  103. If _IsPressed("01") Then
  104. GUICtrlSetBkColor($activeTab, $Color_Grey)
  105. GUICtrlSetColor($activeTab, $Color_Cyan)
  106. $activeTab = $hCursor[4]
  107. ContinueLoop 2
  108. EndIf
  109. $hCursor2 = GUIGetCursorInfo()
  110. If Not @error Then
  111. If $hCursor2[4] <> $hCursor[4] Then ExitLoop
  112. EndIf
  113. WEnd
  114. GUICtrlSetBkColor($hCursor[4], $Color_Grey)
  115. GUICtrlSetColor($hCursor[4], $Color_Cyan)
  116. EndIf
  117. EndIf
  118. WEnd
  119.  
  120. ;Changes netowrk status indicator
  121. ;$iState :
  122. ;0 - Disconnected
  123. ;1 - Synchronizing
  124. ;2 - Synced
  125. ;$iPercent:
  126. ;0-100 percent value of sync
  127. Func XiNetworkSetState($iState, $iPercent = 0)
  128. $XiNetworkState = $iState
  129. Switch $iState
  130. Case 0
  131. GUICtrlSetColor($hLabelNetworkIcon, 0xfc7c7c)
  132. GUICtrlSetColor($hLabelNetworkStatus, 0xfc7c7c)
  133. Case 1
  134. GUICtrlSetColor($hLabelNetworkIcon, 0xf7ff91)
  135. GUICtrlSetColor($hLabelNetworkStatus, 0xf7ff91)
  136. Case 2
  137. GUICtrlSetColor($hLabelNetworkIcon, $Color_Cyan)
  138. GUICtrlSetColor($hLabelNetworkStatus, $Color_Cyan)
  139. EndSwitch
  140. GUICtrlSetState($hProgressBackground, $XiNetworkState = 1 ? 16 : 32)
  141. GUICtrlSetState($hProgress, $XiNetworkState = 1 ? 16 : 32)
  142. If $XiNetworkState = 1 Then GUICtrlSetPos($hProgress, 10, 460, 180 * ((180/$iPercent*2) * 100), 5)
  143. EndFunc
  144.  
  145. Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
  146. Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
  147. If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
  148. Return 0
  149. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement