"Пробывал через winexec? Если нет то попробуй, должно сработать" Я не сильно шарю, в гугле придется искать неизвестно сколько, если не лень, можешь перевести на старый метод winexec?
Если это это) begin WinExec('H:\La2offline Interlude v1.9\la2offline.vo.uz\123\startgameserver.bat', SW_SHOW); end; То не канает(((
блииаааа... дело не в том как запускаешь, а в том что в батнике. по скрину видно что он пытается найти пути, а так как активная папка по всей видимости на откуда ты запускаешь скрипт, вот тебе и ошибка. Кидаю сюда содержимое батника. P.S. JRE стоит-то?
Изначально этот батник другая прога включает без проблем... но я хочу дополнить! Та программа создана с помощью этого))) "AutoPlay Media Studio 7.0"))) Так что содержимое батника роли не играет))) в принципе! Батник подает запросы в ява ядро
Как всегда люди не обращают внимание на пути файла с пробелами ((( и по этому не юзают ковычки. winexec('"d:\папка с пробелом\file.bat"', SW_SHOW); Опостроф + ковычка + путь + ковычка + опостроф
begin winexec('"H:\La2offline Interlude v1.9\la2offline.vo.uz\123\startGameServer.bat"', SW_SHOW); end; Также ошибка!!! ((( что я показывал выше со скрином
мдооо... start /b /abovenormal ../jre/bin/java -Xmx512m -cp bsf.jar;bsh-2.0b4.jar;commons-logging-1.1.jar;mmocore.jar;javolution.jar;c3p0-0.9.1.2.jar;mysql-connector-java-5.0.7-bin.jar;l2jserver.jar;jython.jar net.sf.l2j.gameserver.GameServer как ты думаешь, где он ищет ../jre/bin/java? перед этим cd "директория" тем самым установив активную директорию.
Народ, а вот я опять по поводу парсинга =)) Вот строчка допустим как из неё удалить все тэги.. и вывести в label Функция POS отдыхает... А вот что дальше ? ))) Заранее благодарен!
хм. тупанул. нужно было сразу на скрин глянуть. В проге всё нормально это глюк в батнике В начале батника попробуй прописать команду CD "H:\La2offline Interlude v1.9\la2offline.vo.uz\123\"
2 iGlass самый быстры способ, но небудет пахать на кривой реализации или на очень сложной системе где есть хитрые JS но и то можно сделать проверку на это а так алгоритм такой примерно: Code: var x,y:integer; s1,s2:string; tagflag:boolean; begin s1 := '<b>big</b> <a href="http://site.com/">link</a>'; s2 := ''; y := length(s1); tagflag := false; for x:=1 to y do begin if s1[x] = '<' then begin tagflag := true end else if s1[x] = '>' then begin tagflag := false end else if tagflag = false then s2:=s2+s1[x]; end; showmessage(s2); end; в этоге в s2 бадет код без тегов. приметивный очень алгоритм.
как можно подавить реакцию компа на ВСЕ!!! клавиши клавиатуры? так как BlockInput непомогает отрубается после вызова деспетчера задач, да и еще не блочит мультимедийные клавиши что ни есть гуд.
// отрубаем мышь и клаву procedure LockPC; var OldValue: LongBool; begin SystemParametersInfo(97, Word(Bool), @OldValue, 0); WinExec(PChar('rundll32 mouse,disable'), SW_SHOW); WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW); end; // блокируем пк procedure TForm1.Button1Click(Sender: TObject); begin LockWorkStation; end; { Loading LockWorkStation dynamically} function LockWS: Boolean; // by Thomas Stutz, SDC type TLockWorkStation = function: Boolean; var hUser32: HMODULE; LockWorkStation: TLockWorkStation; begin // Here we import the function from USER32.DLL hUser32 := GetModuleHandle('USER32.DLL'); if hUser32 <> 0 then begin @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation'); if @LockWorkStation <> nil then begin LockWorkStation; Result := True; end; end; end; взято отсюда
вопрос такой. есть список акков вк. как правильно пройти аторизацию на сайте и узнать валид акк или нет? пользую idHTTP. пишу так [.code] var sl : TStringList; begin sl:=TStringList.Create; sl.Add('email='+email); sl.Add('pass='+pass); IdHTTP1.Post('http://login.vk.com/?act=login',sl); sl.Free; end; [/.code] но че то хреново оно заходит, не вижу этот id в онлайне(( Помогите плз
HTML: PHP: <form method="post" name="login" id="login" action="http://login.vk.com/" onsubmit="if (vklogin) { return true} else { quick_login();return false;}"> <input type="hidden" name="act" id="act" value="login"> <input type="hidden" name="success_url" id="success_url" value=""> <input type="hidden" name="fail_url" id="fail_url" value=""> <input type="hidden" name="try_to_login" id="try_to_login" value="1"> <input type="hidden" name="to" id="to" value=""/> <input type="hidden" name="vk" id="vk" value=""> <table align="center" cellpadding=0 cellspacing=7 border=0 width="40%"> <tr> <td width="100px"> <span class="grey">Email:</span> </td> <td> <input class="inputText" type="text" name="email" value="" id="email" size="25" /> <td> </tr> <tr> <td> <span class="grey">Пароль:</span> </td> <td> <input class="inputText" type="password" name="pass" value="" id="pass" size="25" /> </td> </tr> <tr> <td> </td> <td> <input style="margin-top:1px; vertical-align: middle;" type="checkbox" name="expire" id="expire" value="1" /><small>Чужой компьютер</small> </td> </tr> <tr> <td> </td> <td> <div style="height:20px; margin:5px 0px"> <ul class='nNav'><li style="margin-left:0px"> <b class="nc"><b class="nc1"><b></b></b><b class="nc2"><b></b></b></b> <span class="ncc"><a href="javascript: quick_login()">Вход</a></span> <b class="nc"><b class="nc2"><b></b></b><b class="nc1"><b></b></b></b> </li> <li> <b class="nc"><b class="nc1"><b></b></b><b class="nc2"><b></b></b></b> <span class="ncc"><a href="/reg0">Регистрация</a></span> <b class="nc"><b class="nc2"><b></b></b><b class="nc1"><b></b></b></b> </li></ul> </div> </td> </tr> <tr> <td> </td> <td class="forgotPass"> <a href="login.php?op=forgot">Забыли пароль?</a> </td> </tr> </table> <input type="submit" value='.' style="color:#fff;border:0;padding:0;margin:0;background:#fff;height:6px;width:6px"/> </form> Видишь инпаты? (input) Вот их и пихай (name и value ихнии) в пост запрос а не токо email и password (так просто не пройдет!) Не разобрал что я сказал? Ок, бери сниффер http пакетов, снифай что отправляется на сервер при логине/входе Точно не могу проверить но вот примерно что должно быть в коде Code: ... sl.Add('act=login'); sl.Add('success_url='); sl.Add('fail_url='); sl.Add('try_to_login=1'); sl.Add('to='); sl.Add('vk='); sl.Add('expire=1'); sl.Add('email='+email); sl.Add('pass='+pass); ... Кстати на сайте может включатся каптча если что...
тупой вопрос, особенно для меня, но не могу найти исходник, в котором эту проблему пару лет назад решил и не помню как. Вообщем надо строку преобразовать в юникод. Желательно не ипаццо с типами переменных, а так чтобы это в string хранилось, просто вместо кириллических символов стояло 2 с соответствующими кодами. Есть у кого функция готовая?
юзай StringToWideChar - чтобы все символы были в расширенном виде. Или если тебе нужне не юников, а UTF8 что скорее всего. То AnsiToUtf8
2 Dosia нужно просто заблокировать клаву а не выходить из сеанса пользователя вот это не работает=) Code: procedure LockPC; var OldValue: LongBool; begin SystemParametersInfo(97, Word(Bool), @OldValue, 0); WinExec(PChar('rundll32 mouse,disable'), SW_SHOW); WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW); end;
эти команды тока под Win 9x Под другие винды юзай апишку BlockInput на XP точно пашет. Code: procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL'; procedure TForm1.Button1Click(Sender: TObject); begin BlockInput(True); - заблокировать клаву и мыш sleep(5000); BlockInput(false); - разблокировать end;
