ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)
А зачаем делать подобие универсального wp ppc ? пакетхак отличается имено своей отличимостью и простотой без лишних настроек и задумок
А зачаем делать подобие универсального wp ppc ? пакетхак отличается имено своей отличимостью и простотой без лишних настроек и задумок
ну простату постараюсь оставить, нагромаждать кучу всего повсюду как в ppc небуду), тока расширю сферу применения и увеличу стабильность, ну и в скриптах сделаю побольше встроенных функций...
ЗЫ ну это всё ещё хз когда сделаю)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
а можно щас как то поправить текущую версию пакет хака чтоб он длл нормально поддерживал???
это ведь не займет столько времени сколько займет разработка новой программы ??
Добавлено спустя 1 день 1 час 49 минут 10 секунд:
короче люди в версии l2phx319 dll заработали у меня !!! :))))
в пакет хаке пишу такую шнягу
Код:
var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
procedure Init;
begin
lib := loadLibrary('n2ewxor.dll');
Res := CallFunction(lib,'Str1',0,[0]);
ShowMessage('!'+VarToStr(Res)+'!');
FreeLibrary(lib);
end;
begin
end.
в делфи это
Код:
library n2ewxor;
uses
SysUtils,Classes;
function Str1: integer; stdcall;
begin
result := 212;
end;
exports
Str1;
begin
end.
и в результате из дллки приходит ответ - !212!
в общем все заработало респект xkor! :)
Добавлено спустя 1 минуту 16 секунд:
теперь могу продолжить свои разработки в ботостроительстве :))
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
да у меня такое частенько тоже бывает :) тестирую какую то прогу
правлю её потом забываю что поправил и в результате получается очень неожиданный результат :)) :crazy:
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
чет никак не могу передать string из dll в пакетхак
ShareMem подключил рассовал по всем директориям borlndmm.dll
потом забил на него подключил FastShareMem та же фигня...
пробывал менять string на shortstring, longstring, widestring толку ноль все равно пакет хак при чтении стринга даёт ошибку чтения памяти :(
вот что пишу:
Код:
library newBOT;
uses
ShareMem,
SysUtils,
Classes;
//FastShareMem in 'FastShareMem.pas';
{$R *.res}
function proc: String; stdcall;
begin
Result:='sdfg';
End;
exports proc;
begin
end.
мож можно как то указатель передать на стринг в пакет хак и потом там его прочесть ?
мои нубские попытки прочесть память по указателю в пакет хаке ни к чему не приводят
мож кто знает в чем дело???
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
символы тоже не передаются не массив не даже один простейший char :)
но я нашёл выход ! :))
написал такую функцию
delphi
Код:
function proc: integer; stdcall;
var
i: Byte;
begin
if (res=0) then res:=1;
alfav[1]:='q';
alfav[2]:='w';
alfav[3]:='e';
alfav[4]:='r';
alfav[5]:='t';
alfav[6]:='y';
alfav[7]:='u';
alfav[8]:='i';
alfav[9]:='o';
alfav[10]:='p';
alfav[11]:='a';
alfav[12]:='s';
alfav[13]:='d';
alfav[14]:='f';
alfav[15]:='g';
alfav[16]:='h';
alfav[17]:='j';
alfav[18]:='k';
alfav[19]:='l';
alfav[20]:='z';
alfav[21]:='x';
alfav[22]:='c';
alfav[23]:='v';
alfav[24]:='b';
alfav[25]:='n';
alfav[26]:='m';
alfav[27]:=' ';
alfav[28]:='0';
alfav[29]:='1';
alfav[30]:='2';
alfav[31]:='3';
alfav[32]:='4';
alfav[33]:='5';
alfav[34]:='6';
alfav[35]:='7';
alfav[36]:='8';
alfav[37]:='9';
alfav[38]:='A';
alfav[39]:='B';
alfav[40]:='C';
alfav[41]:='D';
alfav[42]:='E';
alfav[43]:='F';
alfav[44]:='й';
alfav[45]:='ц';
alfav[46]:='у';
alfav[47]:='к';
alfav[49]:='е';
alfav[50]:='н';
alfav[51]:='г';
alfav[52]:='ш';
alfav[53]:='щ';
alfav[54]:='з';
alfav[55]:='х';
alfav[56]:='ё';
alfav[57]:='ф';
alfav[58]:='ы';
alfav[59]:='в';
alfav[60]:='а';
alfav[61]:='п';
alfav[62]:='р';
alfav[63]:='о';
alfav[64]:='л';
alfav[65]:='д';
alfav[66]:='ж';
alfav[67]:='э';
alfav[68]:='я';
alfav[69]:='ч';
alfav[70]:='с';
alfav[71]:='м';
alfav[72]:='и';
alfav[73]:='т';
alfav[74]:='ь';
alfav[75]:='б';
alfav[76]:='ю';
alfav[77]:='.';
ST := 'bk sk jktu 3435 жил был олег.';
for i := 1 to Length(ST) do
begin
Ch[i] := ST[i];
end;
Result:=-1;
for i := 1 to Length(alfav) do
begin
if ((Ch[res]='') and (Ch[res+1]='')) then
begin
Result:=-9;
res:=1;
break;
end;
if (alfav[i]=Ch[res]) then
begin
Result:=i;
break;
end;
end;
res:=res+1;
End;
пакет хак
Код:
//обьявляю тут точно такой же массив alfav
for i := 1 to 255 do
begin
reshd:=CallFunction(lib,'proc',0,[0]);
if (reshd=-9) then break;
dfg:=dfg+alfav[reshd];
end;
frm := TForm.Create(nil);
frm.Caption := dfg;
короче строка разбивается на символы и по символам передаётся в виде integer а затем собирается в пакетхаке :)
скрипт пашет довольно таки быстро и все обходится без всяких там ShareMem, borlndmm.dll и FastShareMem
все равно они не пашут :)
__________________
На людей сердишся, когда чувсивуешь, что их поступки важны. Ничего подобного я больше не чувствую...
ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)
Лёх если пакетхак перестанет зависать :) я те 500р перечислю на кашелёк (уже так делал, если помниш, ну не 500 просто после покупки бота осталось), просто так, сырцов мне не надо, главное что б не зависал и имел панель окон допустим :) буквально придумал 5-10 секунд назад, типа сварачиваем клиент в трей, а в пакет хаке кнопочка появляется с вызовом из трея( с именем чара на окно вот тогда будет красиво, но главное стабильность красивости если нет желания лутьше не делать), а сырцов думаю для тех кто шарит уже хватит, мне они как 5-е колесо