FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 584 из 671

584

Опции темы

Поиск в этой теме

Опции просмотра

29.03.2010, 09:23

TrueBit

Познающий

Регистрация: 21.11.2009

Сообщений: 77

Провел на форуме:
2482290

Репутация: 29

Начал работать с winapi на delphi и возник вопрос:
Как сделать так, что бы окно, созданное CreateWindowEx, было по центру экрана?

29.03.2010, 10:18

s0l_ir0n

Участник форума

Регистрация: 14.03.2009

Сообщений: 237

Провел на форуме:
813785

Репутация: 314

Цитата:

Сообщение от TrueBit

PHP код:


		
			
function CenterWindow(Wnd:HWND):boolean;

var

 R:TRect;

 X,Y,W,H:integer;

begin  

  GetWindowRect(Wnd, R);

  W:=GetSystemMetrics(SM_CXSCREEN);

  H:=GetSystemMetrics(SM_CYSCREEN);

  X := (W div 2) - ((R.Right - R.Left) div 2);

  Y := (H div 2) - ((R.Bottom - R.Top) div 2);

  result:=SetWindowPos(Wnd, 0, X, Y, 0, 0, SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE)

end;

29.03.2010, 21:34

TrueBit

Познающий

Регистрация: 21.11.2009

Сообщений: 77

Провел на форуме:
2482290

Репутация: 29

Цитата:

Сообщение от s0l_ir0n

PHP код:


		
			
function CenterWindow(Wnd:HWND):boolean;

var

 R:TRect;

 X,Y,W,H:integer;

begin  

  GetWindowRect(Wnd, R);

  W:=GetSystemMetrics(SM_CXSCREEN);

  H:=GetSystemMetrics(SM_CYSCREEN);

  X := (W div 2) - ((R.Right - R.Left) div 2);

  Y := (H div 2) - ((R.Bottom - R.Top) div 2);

  result:=SetWindowPos(Wnd, 0, X, Y, 0, 0, SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE)

end;

Спасибо!
А как считать содержимое edit1?

30.03.2010, 06:46

s0l_ir0n

Участник форума

Регистрация: 14.03.2009

Сообщений: 237

Провел на форуме:
813785

Репутация: 314

Цитата:

Сообщение от TrueBit

Спасибо!
А как считать содержимое edit1?

Код:

The GetWindowText function copies the text of the specified window's title bar (if it has one) into a buffer. If the specified window is a control, the text of the control is copied. 

int GetWindowText(

    HWND hWnd,	// handle of window or control with text
    LPTSTR lpString,	// address of buffer for text
    int nMaxCount 	// maximum number of characters to copy
   );	
 

Parameters

hWnd

Identifies the window or control containing the text. 

lpString

Points to the buffer that will receive the text. 

nMaxCount

Specifies the maximum number of characters to copy to the buffer. If the text exceeds this limit, it is truncated. 

 

Return Values

If the function succeeds, the return value is the length, in characters, of the copied string, not including the terminating null character. If the window has no title bar or text, if the title bar is empty, or if the window or control handle is invalid, the return value is zero. To get extended error information, call GetLastError. 
This function cannot retrieve the text of an edit control in another application.

Remarks

This function causes a WM_GETTEXT message to be sent to the specified window or control. 
This function cannot retrieve the text of an edit control in another application.

30.03.2010, 07:23

popnik

Познающий

Регистрация: 13.07.2009

Сообщений: 68

Провел на форуме:
1162593

Репутация: 128

подскажите плз вот есть прога у нее есть файл ини там было прописанно все кроме тго что я выдили красным цветом
usesocks=1
; таймаут сокса (в секундах)
sockstimeout=60
; кол-во потоков (кол-во одновременно обрабатывающихся акков)
maxthread=10
;msgperacc=0 все сообщения слать разом
;msgperacc=1 одно сообщение = один получатель
;msgperacc=х х сообщений на одного получателя
msgperacc=10
;contactsperacc=0 добавить все контакты
;contactsperacc=х добавить х контактов
contactsperacc=0
; socks grabbing
socksurl=http://awmproxy.com/socks_good_proxy.txt
sockstuptime=7
; "судья" для чекинга соксов. соксы не чекаются если если checkurl не задан
;checkurl=http://actualtech.ru/judges/azenv.php
;checkurl=http://citrix.unimatrix-one.com/proxysecurity/azenv.php
;checkurl=http://www.cooleasy.com/azenv.php
;checkurl=http://membres.lycos.fr/proxyworld/azenv.php
;http://members.lycos.nl/proxyworld31/azenv.php
;http://pinkcat.extra.hu/K9/azenv.php
;http://proxyjudge.hell-spy.de/
;http://proxytest.pr.funpic.de/
;http://proxywordl.hbg.fr/azenv.php
;http://proxywoorld.ovh.org/azenv.php
;http://proxyworld.ifrance.com/azenv.php
;http://robs.atwebpages.com/azenv.php
;http://sevy.eu.org/azenv.php
;http://www.belgarion.com/images/azenv.php
;http://www.cship.info/azenv.php
;http://www.pr0.net/deny2/azenv.php
;http://www.proxy-heaven.com/azenv.php
;http://www.proxyjudge.biz/az.php
;http://www.proxysecurity.com/azenv.php
Retries=2
mobile=1
captchaurl=http://captchabot.com/xmlrpc/axmlrpc.php
captchalogin=lol
captchapass=yes
Мне надо чтобы прга брала с данного линка прокси и обновляла его каждые 7 минут,она добавлять добавляет но не столбиком а просто в строчку и определяет все 500 прокси в строчке как один,что можно дописать чтоб она брала их и ставили строчкой??

29.03.2010, 13:43

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

var

  WSAData1: WSAData;

  my_sock: TSocket;

  dest_addr: sockaddr_in;

  buf: string;

  res: Array [0..1024] of Char;

  reslen: integer;

begin

WSAStartup($101,WSAData1);

my_sock := socket(AF_INET, SOCK_STREAM, 0);

dest_addr.sin_family := AF_INET;

dest_addr.sin_port:=htons(80);

dest_addr.sin_addr.S_addr := inet_addr('192.0.32.10');

connect(my_sock, dest_addr, SizeOf(dest_addr));

buf := 'GET / HTTP/1.1'+#10#13+'Host: example.com'+#10#13;

send(my_sock, buf, sizeof(buf), 0);



recv(my_sock, res, 128, 0); //здесь зависает

ShowMessage(res);

end;

Почему программа на строке

Код:

recv(my_sock, res, 128, 0);

зависает? Что я делаю неправильно в этом WinSock'e?

29.03.2010, 13:46

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

Провел на форуме:
4761503

Репутация: 229

Цитата:

Что я делаю неправильно в этом WinSock'e?

в твоем случае надо в отдельном потоке работать с winsock (CreateThread)

slesh, в точку

(или же можно проделать copymemory (в массив вида char))

Последний раз редактировалось wolmer; 29.03.2010 в 13:54..

29.03.2010, 13:52

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

buf := 'GET / HTTP/1.1'+#10#13+'Host: example.com'+#10#13;
send(my_sock, buf, sizeof(buf), 0);

заменяй на
buf := 'GET / HTTP/1.1'+#13#10+'Host: example.com'+#13#10#13#10;
send(my_sock, buf[1], length(buf), 0);

29.03.2010, 15:17

mailbrush

Познавший АНТИЧАТ

Регистрация: 24.06.2008

Сообщений: 1,996

Провел на форуме:
6075534

Репутация: 2731

Спасибо. Теперь в этом проблема:

Код:

r:=1;

while(r > 0) do
begin
r := recv(my_sock, res, 128, 0);
end;

Опять зацикливается...

wolmer, работать в отдельном потоке вовсе не обязательно...

#10

29.03.2010, 15:43

stepashka_

Познавший АНТИЧАТ

Регистрация: 09.11.2009

Сообщений: 1,077

Провел на форуме:
7879791

Репутация: 265

как сделать что бы после
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1;
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

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

Страница 584 из 671

584

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2569	10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Home

Help

Terms and Rules