Выбор браузеров ComboBox
change = combobox_getItemIndex(CEComboBox1) if (change == 1) then browser = "opera.exe" end if (change == 2) then browser = "plugin-container.exe" end if (change == 3) then browser = "chrome.exe" end if (getProcessIDFromProcessName(browser)==nil) then control_setCaption(CELabel1,"Браузер Не Найден!") return end openProcess(browser)
Client = 'chrome.exe' openProcess(Client) if (getProcessIDFromProcessName(Client)==nil) then messageDialog('БРАУЗЕР НЕ ОТКРЫТ!',1, 2) return end messageDialog('Выбран браузер Chrome !',2, 2)
(CETrainer,'CEComboBox1') (CETraine название формы)(CEComboBox1 название ComboBox) Change=component_findComponentByName(CETrainer,'CEComboBox1') ViborBrowser=getProperty(Change,'ItemIndex') if ViborBrowser == '0' then browser = "plugin-container.exe" end if ViborBrowser == '1' then browser = "opera.exe" end if ViborBrowser == '2' then browser = "chrome.exe" end Process=openProcess(browser) if (Process==nil) then messageDialog('Браузер не найден!' ,1,2) return end end function onOpenProcess(processid) showMessage('Aktiv!')
shellExecute('Ваша ссылка')
if ( checkbox_getState(sender)== 1 ) then stringListAddresses = AOBScan("D9 1E D9","*X*W-C")--Поиск if (stringListAddresses==nil) then showMessage("Не Актвировано!") return end lenghtLines = stringlist_getCount(stringListAddresses) for i = 0, lenghtLines-1 do address = stringlist_getString(stringListAddresses, i) writeBytes(address, 0x90, 0x90, 0xD9)--Замена showMessage("Активировано!") return end else if lenghtLines ~= nil then for i = 0, lenghtLines-1 do address = stringlist_getString(stringListAddresses, i) writeBytes(address, 0xD9, 0x1E, 0xD9);--Выключение end end end
results=AOBScan("0F 10 12", "*W-C*X") --поиск if (results~=nil) then count=stringlist_getCount(results) if (count>0) then for i = 0, (count-1), 1 do acaddress =stringlist_getString(results,i) writeBytes(acaddress, 0x0F) -- поиск showMessage("Активно если нажата клавиша SHIFT") end else object_destroy(results) results=nil end end function checkEnd(timer) if (isKeyPressed(VK_SHIFT)) then writeBytes(acaddress ,0x90, 0x90, 0x90) -- замена else writeBytes(acaddress ,0x0F, 0x10, 0x12) -- Выключение end end tEnd=createTimer(nil) timer_setInterval(tEnd, 100) timer_onTimer(tEnd, checkEnd) timer_setEnabled(tEnd, true)
closeCE()
messageDialog('Браузер не найден!' ,1,2) --Тип Диалог showMessage("Не Активировано!") --Тип Обычное Сообщение
form_show (Сюда пишем название второй формы которую нужно открывать)
speedhack_setSpeed(0) --Там где число 0 это скорость
if not isActivated then isActivated = true t=createTimer(nil,false) timer_onTimer(t, OnTicTimer) timer_setInterval(t,100) timer_setEnabled(t, true) SetHotKey(IncSpeed, VK_F6) SetHotKey(DecSpeed, VK_F5) SetHotKey(ResetSpeed, VK_F7) SetHotKey(ResettenSpeed, VK_F9) showMessage('Speedhack активирован!\n\rF6 - Увеличить скорость на 0.1\n\rF5 - Уменьшить скорость на 0.1\n\rF7 - стандартная скорость 1.0\n\rF9 - Установить скорость 30.0') end
isActivated = false; speed = 1.0
Client = 'taskmgr.exe' --Название процесса приложения для влома чита if (getProcessIDFromProcessName(Client)==nil) then return end shellExecute('http://') shellExecute('http://') shellExecute('mspaint.exe') closeCE()
СКАЧАТЬ