purebasic.info

PureBasic forum
Текущее время: Ср ноя 21, 2018 9:56 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Командор
СообщениеДобавлено: Пн дек 24, 2007 3:13 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Решил сделать программу, что-то вроде телнета...

Интерфейс понятный...


Код:
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
Enumeration
  #Main
  #Frame3D_2
  #Frame3D_3
  #List
  #Server
  #Port
  #Connect
  #Disconnect
  #Frame3D_4
  #Log
  #Text_1
  #Text_2
  #Frame3D_5
  #Comads
  #Send
  #Help
EndEnumeration
 
InitNetwork()
 
buffer=AllocateMemory(10000)
 
OpenWindow(#Main, 254, 97, 600, 460, "Командор",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
 
CreateGadgetList(WindowID(#Main))
Frame3DGadget(#Frame3D_2, 10, 10, 350, 380, "Ответ Сервера")
Frame3DGadget(#Frame3D_3, 370, 10, 220, 380, "Данные сервера")
ListViewGadget(#List, 20, 30, 330, 350)
StringGadget(#Server, 460, 30, 120, 20, "")
StringGadget(#Port, 460, 60, 120, 20, "",#PB_String_Numeric)
ButtonGadget(#Connect, 380, 90, 200, 20, "Соединиться")
ButtonGadget(#Disconnect, 380, 120, 200, 20, "Разъединиться ")
Frame3DGadget(#Frame3D_4, 380, 150, 200, 240, "Лог Сервера")
ListViewGadget(#Log, 390, 170, 180, 210)
TextGadget(#Text_1, 390, 35, 60, 20, "Имя или IP", #PB_Text_Center)
TextGadget(#Text_2, 390, 65, 60, 20, "Порт", #PB_Text_Center)
Frame3DGadget(#Frame3D_5, 10, 400, 580, 50, "Команды для сервера")
StringGadget(#Comads, 20, 420, 330, 20, "")
ButtonGadget(#Send, 360, 420, 80, 20, "Отправить")
TextGadget(#Help, 455, 415, 120, 30, "Внутренние команды                  [ HELP]")
 
Procedure chek_server()
If open_port=0
AddGadgetItem(#log,log-1,"Сервер отключён")
server=0
EndIf
EndProcedure
 
Repeat
event=WaitWindowEvent(100)
 
If event=#PB_Event_Gadget
Select EventGadget()
 
Case #Connect
open_port=OpenNetworkConnection(GetGadgetText(#server),Val(GetGadgetText(#port)))
If open_port
AddGadgetItem(#log,log-1,"Сервер "+GetGadgetText(#server)+" на связи")
server=1
Else
AddGadgetItem(#log,log-1,"Сервер "+GetGadgetText(#server)+" не доступен")
EndIf
 
Case #Disconnect
If open_port
CloseNetworkConnection(open_port)
AddGadgetItem(#log,log-1,"Сервер "+GetGadgetText(#server)+" отключён")
Else
AddGadgetItem(#log,log-1,"Сначало надо соединиться")
EndIf
 
Case #send
com$=GetGadgetText(#comads)
If open_port
PokeS(buffer,GetGadgetText(#comads))
res=SendNetworkData(open_port,buffer,MemoryStringLength(buffer)+1)
If res=-1
AddGadgetItem(#list,list-1,"Системное сообщение: Невозможно отправить")
Else
AddGadgetItem(#list,list-1,"Системное сообщение: отправленно "+Str(res)+" байт")
SetGadgetText(#comads,"")
EndIf
buffer*0
buffer=AllocateMemory(10000)
Else
If FindString(com$,"[help]",1)
AddGadgetItem(#list,list-1,"Для почтовиков")
AddGadgetItem(#list,list-1,"user имя вашего аккуанта         Пример user dog")
AddGadgetItem(#list,list-1,"pass ваш пароль                         Пример pass lodka789")
AddGadgetItem(#log,log-1,"Сначало надо соединиться")
SetGadgetText(#comads,"")
EndIf
EndIf
 
Case #list
If EventType()=#PB_EventType_LeftDoubleClick
MessageRequester("Текст",GetGadgetText(#list))
EndIf
 
Case #log
If EventType()=#PB_EventType_LeftDoubleClick
MessageRequester("Текст",GetGadgetText(#log))
EndIf
 
EndSelect
EndIf
 
If open_port
SEvent = NetworkClientEvent(open_port)
If SEvent
ClientID = EventServer()  
Select SEvent
 
Case 2
ReceiveNetworkData(open_port,buffer,1000)
AddGadgetItem(#list,list-1,PeekS(buffer))
buffer*0
buffer=AllocateMemory(10000)
 
EndSelect
EndIf
EndIf
 
If server=1
If open_port=0
AddGadgetItem(#log,log-1,"Потеря соединения")
sever=0
EndIf
EndIf
 
If event=#PB_Event_CloseWindow
q=1
EndIf
 
Until q=1
End


_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт дек 25, 2007 5:04 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пн ноя 27, 2006 2:43 pm
Сообщений: 933
Откуда: Санкт-Петербург
Благодарил (а): 1 раз.
Поблагодарили: 12 раз.
Пункты репутации: 15
Интерфейс то что надо
есть все что требуется и ничего лишнего :idea:


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт дек 25, 2007 5:34 pm 
Не в сети
GameC@Soft
Аватар пользователя

Зарегистрирован: Сб сен 22, 2007 12:45 pm
Сообщений: 1084
Откуда: Я из лесу вышел, и сразу зашел, в босоножках дырявых и взлядом ночным.
Благодарил (а): 1 раз.
Поблагодарили: 2 раз.
Пункты репутации: 0
Спасибо, вот думаю команды внедрить...
Чтоб файлы можно было принимать от сервера, в общем такой странный клиент всех серверов.... :)

_________________
"Самый большой глюк в PureBasic - это твоя голова...." (с) Артем
Мой сайт: http://feelzone.org.ua/


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB