-
Notifications
You must be signed in to change notification settings - Fork 0
/
MainForm.pbf
138 lines (126 loc) · 4.47 KB
/
MainForm.pbf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;
Enumeration FormWindow
#Window_0
EndEnumeration
Enumeration FormGadget
#LOGIN_TEXT
#LOGIN_COMBO
#PASS_TEXT
#PASS_INPUT
#CAPTCHA_TEXT
#CAPTCHA_INPUT
#CAPTCHA_GADGET
#ENTER_BUTTON
#ACCOUNT_NUMBER_TEXT
#Text_6
#BALANCE_TEXT
#Text_8
#TRAFFIC_REST_TEXT
#Text_10
#TARIFF_PLAN_TEXT
#Text_12
#TRAFFIC_INET_TEXT
#Text_14
#TRAFFIC_TASIX_TEXT
#Text_16
#TRAFFIC_EXACT_TEXT
#Text_18
EndEnumeration
Enumeration FormMenu
#MenuItem_3
EndEnumeration
Enumeration FormFont
#Font_Window_0_0
EndEnumeration
LoadFont(#Font_Window_0_0,"Tahoma", 11)
Procedure OpenWindow_0(x = 0, y = 0, width = 580, height = 280)
OpenWindow(#Window_0, x, y, width, height, "Informer Stat", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_BorderLess | #PB_Window_ScreenCentered)
CreateStatusBar(0, WindowID(#Window_0))
AddStatusBarField(200)
AddStatusBarField(50)
CreateMenu(0, WindowID(#Window_0))
MenuTitle("MenuTitle")
OpenSubMenu("MenuItem2")
MenuItem(#MenuItem_3, "MenuItem3")
CloseSubMenu()
TextGadget(#LOGIN_TEXT, 25, 15, 110, 20, "Login:")
HideGadget(#LOGIN_TEXT, 1)
SetGadgetFont(#LOGIN_TEXT, FontID(#Font_Window_0_0))
ComboBoxGadget(#LOGIN_COMBO, 25, 35, 210, 25, #PB_ComboBox_Editable)
HideGadget(#LOGIN_COMBO, 1)
SetGadgetFont(#LOGIN_COMBO, FontID(#Font_Window_0_0))
TextGadget(#PASS_TEXT, 25, 70, 100, 20, "Password:")
HideGadget(#PASS_TEXT, 1)
SetGadgetFont(#PASS_TEXT, FontID(#Font_Window_0_0))
StringGadget(#PASS_INPUT, 25, 90, 210, 25, "")
HideGadget(#PASS_INPUT, 1)
SetGadgetFont(#PASS_INPUT, FontID(#Font_Window_0_0))
TextGadget(#CAPTCHA_TEXT, 25, 130, 95, 20, "Captcha:")
HideGadget(#CAPTCHA_TEXT, 1)
SetGadgetFont(#CAPTCHA_TEXT, FontID(#Font_Window_0_0))
StringGadget(#CAPTCHA_INPUT, 25, 150, 105, 25, "", #PB_String_Numeric)
HideGadget(#CAPTCHA_INPUT, 1)
SetGadgetFont(#CAPTCHA_INPUT, FontID(#Font_Window_0_0))
ImageGadget(#CAPTCHA_GADGET, 135, 150, 100, 25, 0)
HideGadget(#CAPTCHA_GADGET, 1)
GadgetToolTip(#CAPTCHA_GADGET, "Press for update captcha.")
ButtonGadget(#ENTER_BUTTON, 25, 195, 100, 25, "Enter", #PB_Button_Default)
HideGadget(#ENTER_BUTTON, 1)
SetGadgetFont(#ENTER_BUTTON, FontID(#Font_Window_0_0))
TextGadget(#ACCOUNT_NUMBER_TEXT, 35, 25, 120, 20, "Account number:")
SetGadgetFont(#ACCOUNT_NUMBER_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_6, 165, 25, 100, 20, "#")
SetGadgetFont(#Text_6, FontID(#Font_Window_0_0))
TextGadget(#BALANCE_TEXT, 280, 25, 120, 20, "Balance:")
SetGadgetFont(#BALANCE_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_8, 405, 25, 100, 20, "#")
SetGadgetFont(#Text_8, FontID(#Font_Window_0_0))
TextGadget(#TRAFFIC_REST_TEXT, 35, 50, 120, 20, "Traffic rest:")
SetGadgetFont(#TRAFFIC_REST_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_10, 165, 50, 100, 20, "#")
SetGadgetFont(#Text_10, FontID(#Font_Window_0_0))
TextGadget(#TARIFF_PLAN_TEXT, 280, 50, 120, 20, "Tariff plan:")
SetGadgetFont(#TARIFF_PLAN_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_12, 405, 50, 100, 20, "#")
SetGadgetFont(#Text_12, FontID(#Font_Window_0_0))
TextGadget(#TRAFFIC_INET_TEXT, 35, 85, 120, 20, "Traffic Inet:")
SetGadgetFont(#TRAFFIC_INET_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_14, 165, 85, 100, 20, "#")
SetGadgetFont(#Text_14, FontID(#Font_Window_0_0))
TextGadget(#TRAFFIC_TASIX_TEXT, 280, 85, 120, 20, "Traffic Tas-Ix:")
SetGadgetFont(#TRAFFIC_TASIX_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_16, 405, 85, 100, 20, "#")
SetGadgetFont(#Text_16, FontID(#Font_Window_0_0))
TextGadget(#TRAFFIC_EXACT_TEXT, 35, 110, 120, 20, "Traffic Exact:")
SetGadgetFont(#TRAFFIC_EXACT_TEXT, FontID(#Font_Window_0_0))
TextGadget(#Text_18, 165, 110, 100, 20, "#")
SetGadgetFont(#Text_18, FontID(#Font_Window_0_0))
EndProcedure
Procedure Window_0_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
Case #MenuItem_3
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
; IDE Options = PureBasic 5.31 (Windows - x86)
; CursorPosition = 127
; FirstLine = 40
; Folding = -
; EnableAsm
; EnableUnicode
; EnableThread
; EnableXP
; CPU = 1
; EnablePurifier