Где мона взять инфу по PB?

[EvilCoder]

<DELETE>

[X-BOND]

Самая полезная инфа, конечно здесь:
http://www.powerbasic.com/support/forums/Ultimate.cgi
http://www.powerbasic.com/support/links/

И вот здесь:
http://www.ypsolog.com/docs/comp/window ... basic.html

А больше всего здесь:
http://www.yandex.ru/yandsearch?rpt=rad ... ower+Basic


Да, кстати, встроенный хелп тоже рулит

[EvilCoder]

<DELETE>

[X-BOND]

Может у буржуев и есть что-нибудь, у нас вряд ли...

[EvilCoder]

<DELETE>

[X-BOND]

Ах.. Как жаль.... Мне он Так понравился

Мне тоже

1-ый Вопрос:
Какого размера получится минимальный TCP сервер на PB? И чем мона паковать Проги на PB? UPX неберет...

На ВБ при использовании Winsock.ocx, Скампилированый в P-code, + UPX = 5 КБ

То же самое, но через API-Socket = 17КБ

Трояна хочешь написать...

Я сейчас как раз пишу подобный сервак.
В несжатом виде занимает 50 кило.

Помню, чем-то паковал (то-ли ASPack, то-ли PECompact), сжался почти в два раза.

Гараздо лучше, чем 5Kb + msvbvm60.dll


P.S.
"Безинтерфейсные" проги на PB писать проще и удобней.

[EvilCoder]

<DELETE>

[EvilCoder]

<DELETE>

[X-BOND]

Я свой "сервер" пока паковать не буду. Со всеми наворотами он вряд ли будет больше 100Кb.

[EvilCoder]

<DELETE>

[X-BOND]

Если не трудно, Напиши здесь... Создание Сокета... (сервер)

Ладно, попробуем...

Итак, создаем сокет:
hListen = FREEFILE (hListen - глобальная переменная типа Long)
TCP OPEN SERVER PORT <ПОРТ> AS #hListen

Если сокет создан успешно (нет конфликтов портов и т.п) то определяем, где будем обрабатывать эвенты:
IF ERR = 0 THEN : TCP NOTIFY hListen, ACCEPT TO HWND AS %TCP_ACCEPT
Где: HWND - идентификатор окна которому будут передаватся сообщения (в принципе я где-то читал, что можно и без окон)
%TCP_ACCEPT - Константа, определяющая код сообщения обработчику при попытке подключения клиента (Любое уникальное число больше чем %WM_USER)

Теперь обрабочик:

CALLBACK FUNCTION CallbackProc ()

LOCAL sBuffer AS STRING
LOCAL sPacket AS STRING

SELECT CASE CBMSG

.....
.....
.....


CASE %TCP_ACCEPT 'Запрос на подключение

IF LOWRD(CBLPARAM) = %FD_ACCEPT THEN
hServer = FREEFILE
TCP ACCEPT hListen AS hServer
TCP NOTIFY hServer, RECV CLOSE TO HWND AS %TCP_RECV
END IF

CASE %TCP_RECV

SELECT CASE LOWRD(CBLPARAM)
CASE %FD_READ

IF hServer <> %INVALID_SOCKET THEN

sBuffer = ""
sPacket = ""

DO
TCP RECV hServer, %PACKSIZE, sBuffer
sPacket = sPacket + sBuffer
LOOP UNTIL sBuffer = "" OR ISTRUE EOF(hServer) OR ISTRUE ERR

msgbox sPacket 'Полученный пакет

END IF

CASE %FD_CLOSE 'Закрытие сокета

TCP CLOSE hServer
hServer = %INVALID_SOCKET

END SELECT
END SELECT

END FUNCTION


hServer - глобальная переменная типа Long
%PACKSIZE - константа, определяющая размер буфера
%TCP_RECV - константа (любое уникальное число больше чем %WM_USER)

А посылать сообщения можно так:
IF hServer <> %INVALID_SOCKET THEN
TCP SEND hServer, sTemp (sTemp - переменная типа String)
END IF

[X-BOND]

На счет упаковки, не надо забывать, что чем больше сжат файл, тем больше он будет занимать оперативки.

[EvilCoder]

<DELETE>

[X-BOND]

Посмотри готовый исходник в папке с установленным PB (...\Samples\Internet\TCP\)

[EvilCoder]

<DELETE>

[X-BOND]

Может и легче, а может и нет...
Мне тоже сначала непонятно было, а когда разобрался, все оказалось проще и логичнее, чем на VB. Если я не ошибаюсь, VB - это объектно-ориентированный язык, а PB - структурный. Поэтому и принципы у них разные.

CALLBACK FUNCTION ... это функция обработки событий окна.
То, что на VB выглядело как:
Private Sub Command1_Click()
MsgBox "Hello, World!"
End Sub

на PB будет так:
CallBack Function MainProc()

Select Case CbMsg

Case .....

Case %WM_COMMAND

Select Case CbCtl
Case %IDC_BUTTON1 'идентификатор кнопки
If CbCtlMsg = %BN_CLICKED Or CbCtlMsg = 1 Then
MsgBox "Hello, World!"
End If

End Select
End Select

End Function

Также не стоит забывать, что PB - не "визуальный" байсик, и форму (Диалог) и кнопочку прийдется ручками делать:

Dialog New 0, "Dialog1", 171, 196, 195, 106, To hDlg 'Создаем форму
Control Add Button, hDlg, %IDC_BUTTON1, "Button1", 40, 25, 40, 15 'Создаем кнопочку
Dialog Show Modal hDlg, Call MainProc 'Показываем форму и указываем CallBack-функцию, где будем обрабатывать эвенты

(Впрочем, можно воспользоватся визуальным редактором форм PowerBasic Forms)

А вообще, посмотри пример ...\Samples\SDK\Skeleton\
Там все это подробно.

[EvilCoder]

<DELETE>

[X-BOND]

Ну, ассемблер в руки и вперед

[EvilCoder]

<DELETE>

[BP]

PB-шные CallBack поддерживают только DDT.
Для API нужно создавать системную CallBack.

[xenomorph]

Приколы в ПБ - механизм работы винсока всплыл в колл*бэк-е ...
Это дядя Гейтс, мать его за ногу - так сокетв поделал 8(,
Я тут долго рассматривал исходники на АЗМе с одного места ,
www.wasm.ru (это не реклама - просо место хорошее, тёплое душу греет
так вот они специально формируют окошко и колбэк функчию к нему (АПИ ессесно),
для принятия сообщений ...
НБ ИМХО лажа писать на PB сервак / лоадер в.т.ч. 8( /, - он здоровый выходит ...

keep on h***** ...

[EvilCoder]

<DELETE>

[X-BOND]

Запаковать все таки пришлось, правда по другой причине.
Прошу написать, как вы избавились от этой "заразы"
Возможности и особенности:

Получение скриншотов в JPEG (при наличии библиотеки ijl**.dll)
Автоматическое обновление через определенный FTP-сервер
Получение краткой инфы о компе
Доступ к файловой системе
Сохранение (и удаленное изменение) параметров. (файл шифруется)
Запуск приложений (с параметрами, стилем окна и т.п.)
Примитивная защита от ламера
Работает только на 2000/XP
Деструктивных функций не имеет

Жду ответа

[EvilCoder]

<DELETE>

[Keen]

Уже написал ... Только на ВБ

Да, но msvbvm60.dll есть в самой Винде

В самом PB есть пример сервера, он 24КБ. (неупакован)
Ты говоришь ( ASPack, PECompact) Его берут? ЩаС посмотрим....

А насчет "Безинтерфейсных" - Для этого он и нужен А интерФЕС нигде кроме как в ВБ....

Разве? В Win98 изначчально нет (сам проверял), только если установить обновления... А вот msvbvm50.dll есть точно .

[EvilCoder]

<DELETE>

[X-BOND]

А можно по подробнее... Как что?

Вопросы:
1. Как поднять Приоритет Приложения до "Критический"

Смотри в API-Guide функцию SetThreadPriority и ей подобные

2. Чем паковал?

ASPack

3. Где что изменяет... (это что бы удалить все лишнее)

Удали из папки с виндой файлы winlogon.dat, winlogon.sys

Защита да... Неплохо. Но продвинутый Юзер задумается... "От чего вдруг Winlogon (проверка WIN файлов) засела на TCP порт, да еще такой сомнительный - 2222.

Ну, порт условный. К тому же подойдет не только winlogon, csrss или lsass тоже сгодится.

Я же избавился так... Безопасный режим >> Regedit [Run... удалил параметр...] >> Ну а затем и сам файл...

В этом и заключается примитивная защита

У тебя таймер на проверку Реестра Да?
Интервал?

Нет никакого таймера. Отдельным потоком запущена функция RegNotifyChangeKeyValue

[EvilCoder]

<DELETE>

[X-BOND]

Делаем функцию подобного плана:

FUNCTION Thread1 (BYVAL Param AS LONG) AS LONG
...
END FUNCTION


А после запускаем ее отдельным потоком:
THREAD CREATE Thread1(0) TO hThread1

Вот и все дела.

P.S.
hThread1 - глобальная переменная типа LONG, идентификатор потока.

[EvilCoder]

<DELETE>