[Программа] прога

[maniakk]

ну вот я создавал тему http://zhyk.ru/forum/showthread.php?t=169050
сделал мою первую прогу (просто для проверки сделал для сбора сиг)
если эту тему читают програмисты, то можете сюда написать, как сделать, чтобы можно было загружать фейки типа id:auth, и чтобы прога проходилась по ним? если напишите, то тогда сам сделаю прогу, только для того, чтобы делать срочняки на фейках




вот исходник первой проги

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("проба(прибыль) by andreitrane(maniakk)", 230, 110, 267, 251)
$Button1 = GUICtrlCreateButton("прибыль", 72, 24, 73, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$id = InputBox('ID пользователя', 'Введите ID пользователя', 'айди', '',  360, 120)
$Auth = InputBox('Auth пользователя', 'Введите AuthKey пользователя', 'Auth', '',  360, 120)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Form1
		Case $Button1
			$URL = "http://109.234.156.250/prison/universal.php?office"
            $PostData = "method=office&key="& $Auth &"&getidea=5&user="& $id &"&sig=940e212c740281e8482bcc4102865d6d"
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText
	EndSwitch
WEnd

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


ой б_я.... я ваще оказывается нуб!!!))

[P8n4A4g1]

кинь id свой ВК добавлю)

[_kort_]

я программирую на delphi, сам перекодируешь
к примеру id:auth_key записан в edit
вводишь 2 переменных: id и key

id:=copy(edit.text,1,pos(':',edit.text)-1);
key:=copy(edit.text,pos(':',edit.text)+1,length(edit.text));
запрос

если же много id:auth_key и лежат они в listbox, то с помощью цикла:

for i:=0 to listbox.count-1 do
begin
id:=copy(listbox.items[i],1,pos(':',listbox.items[i])-1);
key:=copy(listbox.items[i],pos(':',listbox.items[i])+1,length(listbox.items[i]));
запрос
eng;

[maniakk]

P8n4A4g1, меня забанили до завтра, а так страница [Ссылки могут видеть только зарегистрированные пользователи. ] и лучше не кидай заявку в друзья, а напиши в личку что ты с жука, а то у меня в день по 300 заявок

_kort_, если честно, то я только сегодня утром впервые решил этим заняться, поэтому не знаю как перекодировать, примерно не знаешь?