Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2019
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.70 KB | None | 0 0
  1. $hWallet = GUICreate("Galaxia Wallet", 800, 470)
  2.  
  3. Const $Color_White = 0xfafafa, $Color_Grey = 0x424242, $Color_Cyan = 0x1abc9c
  4.  
  5. GUICtrlCreateLabel("", 0, 0, 200, 150)
  6. GUICtrlSetBkColor(-1, 0x1b1b1b)
  7. GUICtrlCreateLabel("", 0, 150, 200, 650)
  8. GUICtrlSetBkColor(-1, $Color_Grey)
  9.  
  10. $hLabelGalaxia = GUICtrlCreateLabel("GALAXIA", 25, 0, 150, 60, 0x0201)
  11. GUICtrlSetBkColor(-1, 0x1b1b1b)
  12. GUICtrlSetColor(-1, $Color_Cyan)
  13. GUICtrlSetFont(-1, 24, 600)
  14.  
  15. $hLabelBalance = GUICtrlCreateLabel("Balance", 25, 60)
  16. GUICtrlSetBkColor(-1, 0x1b1b1b)
  17. GUICtrlSetColor(-1, 0x008b6e)
  18.  
  19. $hLabelBalanceVal = GUICtrlCreateLabel("0.000000", 25, 80, 125)
  20. GUICtrlSetBkColor(-1, 0x1b1b1b)
  21. GUICtrlSetColor(-1, $Color_White)
  22. GUICtrlSetFont(-1, 18)
  23.  
  24. $hLabelBalanceLocked = GUICtrlCreateLabel("Locked balance", 25, 105)
  25. GUICtrlSetBkColor(-1, 0x1b1b1b)
  26. GUICtrlSetColor(-1, 0x008b6e)
  27.  
  28. $hLabelBalanceLockedVal = GUICtrlCreateLabel("0.000000", 25, 120, 125)
  29. GUICtrlSetBkColor(-1, 0x1b1b1b)
  30. GUICtrlSetColor(-1, $Color_White)
  31. GUICtrlSetFont(-1, 14)
  32.  
  33. $hButtonSend = GUICtrlCreateLabel(" Send >", 0, 150, 200, 35, 0x0200)
  34. GUICtrlSetBkColor(-1, $Color_Grey)
  35. GUICtrlSetColor(-1, $Color_Cyan)
  36. GUICtrlSetFont(-1, 10, 600)
  37.  
  38. $hButtonReveive = GUICtrlCreateLabel(" Receive >", 0, 185, 200, 35, 0x0200)
  39. GUICtrlSetBkColor(-1, $Color_Grey)
  40. GUICtrlSetColor(-1, $Color_Cyan)
  41. GUICtrlSetFont(-1, 10, 600)
  42.  
  43. $hButtonHistory = GUICtrlCreateLabel(" History >", 0, 220, 200, 35, 0x0200)
  44. GUICtrlSetBkColor(-1, $Color_Grey)
  45. GUICtrlSetColor(-1, $Color_Cyan)
  46. GUICtrlSetFont(-1, 10, 600)
  47.  
  48. $hButtonSettings = GUICtrlCreateLabel(" Settings >", 0, 255, 200, 35, 0x0200)
  49. GUICtrlSetBkColor(-1, $Color_Grey)
  50. GUICtrlSetColor(-1, $Color_Cyan)
  51. GUICtrlSetFont(-1, 10, 600)
  52.  
  53. GUISetState()
  54.  
  55. $activeTab = 0
  56. While GUIGetMsg() <> -3
  57. $hCursor = GUIGetCursorInfo()
  58. If Not @error Then
  59. If $hCursor[4] <> $activeTab And $hCursor[4] >= $hButtonSend And $hCursor[4] <= $hButtonSettings Then
  60. GUICtrlSetBkColor($hCursor[4], $Color_Cyan)
  61. GUICtrlSetColor($hCursor[4], $Color_Grey)
  62. While 1
  63. If _IsPressed("01") Then
  64. GUICtrlSetBkColor($activeTab, $Color_Grey)
  65. GUICtrlSetColor($activeTab, $Color_Cyan)
  66. $activeTab = $hCursor[4]
  67. ContinueLoop 2
  68. EndIf
  69. $hCursor2 = GUIGetCursorInfo()
  70. If Not @error Then
  71. If $hCursor2[4] <> $hCursor[4] Then ExitLoop
  72. EndIf
  73. WEnd
  74. GUICtrlSetBkColor($hCursor[4], $Color_Grey)
  75. GUICtrlSetColor($hCursor[4], $Color_Cyan)
  76. EndIf
  77. EndIf
  78. WEnd
  79.  
  80. Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
  81. Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
  82. If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
  83. Return 0
  84. EndFunc
  85.  
  86. Exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement