SA:MP программы, Читы, Клео, Программирование

[SAMP] Server Connect

Владислав — Sun, 23 Mar 2014 09:09:24 GMT

Вот сам исходник этого скрипта его можно скачать в разделе скрипты:

[OTHER] Skype Tool

Владислав — Sun, 23 Mar 2014 09:07:59 GMT

Вот сам исходник для этой программы вы можете скачать саму программу в разделе AHK Программирование » Скрипты

Код

Gui, Add, Text, x4 y2 w270 h50 , Приветствую вас в программе  Skype Tool 0.8
Gui, Add, Button, x-6 y22 w260 h40 gRunNastroika , Настройки
Gui, Add, Button, x-6 y62 w260 h40 gRuninfo , Информация
Gui, Add, Button, x-10 y102 w260 h40 gRunZv , Связь с разработчиком
Gui, Add, Button, x-6 y142 w260 h40 gRunCx , Cheat-Programs.TK
Gui, Add, Text, x4 y182 w250 h30 , Функции
Gui, Add, Text, x4 y202 w240 h80 , 1.Мигающий статус ( его исходник можете посмотреть в другом AHK разделе ) 2.Боты ( Возможность задавать свое кол во ботов ) 3. Флудер ( можно выбирать сколько раз отправить сообщение пользователю ) p.s подойдет не только для скайпа ( ВК И т.д )
Gui, Add, Button, x-6 y282 w260 h60 gRunLog , Лог Обновлений
Gui, Add, Button, x-6 y342 w260 h40 gRunactiv , Активация функций
Gui, Show, x129 y89 h382 w250, Skype Tool
Return

RunNastroika:
Nast:
Gui, 2: Destroy
Gui, 2:Add, Text, x4 y2 w130 h30 , Настройки Skype Tool
Gui, 2:Add, Text, x4 y32 w250 h20 , Сколько ботов добавлять в конференцию
Gui, 2:Add, Edit, x4 y52 w240 h20 vg5,
Gui, 2:Add, Text, x4 y72 w240 h20 , Сколько раз флудить сообщениями
Gui, 2:Add, Edit, x4 y92 w240 h20 vg2,
Gui, 2:Add, Button, x4 y152 w240 h30 gSoxr, Сохранить настройки
Gui, 2:Add, Text, x4 y112 w230 h20 , Сообщения для флуда
Gui, 2:Add, Edit, x4 y132 w240 h20 vg1,
Gui, 2:Show, x237 y116 h183 w248, Skype Tool
Return

RunCx:
Run, http://Cheat-Programs.TK/
Return

RunZv:
MsgBox, Skype Greenpower.nick VK http://vk.com/kirill.fox1337
Return

RunLog:
MsgBox, Скоро... ( в след версии )
Return

Runinfo:
MsgBox, Автор программы Wiz3 a.k.a BH
Return

Runactiv:
MsgBox, Активация Флудера F3, Пауза F4 Активация Ботов F1, Пауза F2 Активация Статуса F5, Пауза F6
Return

Soxr:
Gui,submit,nohide
5 := g5
2 := g2
1 := g1
MsgBox, Настройки успешно сохранены!
return

F1::
5 := g5
Bot:
loop %5%
{
Sendinput,/add caponpidr%A_Index%{enter}
}
F2::pause
Return

F3::
1 := g1
2 := g2
Flooder:
Loop, %2%
SendInput, %1% {enter}
F4:: Pause
Return

F5::
Skypetool:
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28}{vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28 2}{vkd}
Sleep, 50
SendInput, {vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28 3}{vkd}
Sleep, 50
Goto, Skypetool
F6::Pause
return

GuiClose:
MsgBox, До свидания до новых встреч
ExitApp

[Общее] [AHK] Шифр Цезаря

Владислав — Sun, 09 Mar 2014 19:20:17 GMT

Текст шифруется

Код

Gui, Add, Edit, x1 y1 w309 h85 -Multi vEncrypt,
Gui, Add, Button, x0 y86 w102 h23 Default gCesar, Шифровать
Gui, Add, Edit, x1 y110 w309 h85 -Multi +ReadOnly vDecrypt,
Gui, Show, Center w311 h197, Шифр Цезаря
Return
Cesar:
Gui, Submit, NoHide
Text_Decrypt := Cesar(Encrypt)
GuiControl, , Encrypt, %Text_Decrypt%
Return
Cesar(Encrypt)
{
     StringCaseSense, on
     AutoTrim, off
     StringLen, length, Encrypt
     source = abcdefghijklmnopqrstuvwxyz
     source_CAPS = ABCDEFGHIJKLMNOPQRSTUVWXYZ
     StringSplit, source, source
     StringSplit, Encrypt, Encrypt
     StringSplit, source_CAPS, source_CAPS
     Loop, %length%
     {
     char_pos = %A_Index%
     Loop, 26
       {
       comp_char := source%A_Index%
       If Encrypt%char_pos% = %comp_char%
         {
         replace := A_Index + 3
           If replace > 26
             replace -= 26
           Encrypt%char_pos% := source%replace%
         break
         }
        comp_char := source_CAPS%A_Index%
       If Encrypt%char_pos% = %comp_char%
         {
         replace := A_Index + 3
           If replace > 26
             replace -= 26
           Encrypt%char_pos% := source_CAPS%replace%
         break
         }
       }
     }
Text_new =
Loop, %length%
{
new_char := Encrypt%A_Index%
Text_new = %Text_New%%new_char%
}
return Text_new
}
return
GuiClose:
ExitApp

[AHK] Исходник - Будильника

Владислав — Sun, 09 Mar 2014 19:17:54 GMT

Код

Menu,Tray,NoStandard
  Menu,Tray,DeleteAll
  Menu, tray, Add, AHK-Power.RU,zz
  Menu, tray, Add, Выйти., Exit
  Gui, Add, Text, x6 y11 w130 h90 vMyTime, Пододжите
  Gui, Font, S8 CRed, Verdana
  Gui, Add, GroupBox, x146 y1 w250 h100 , Будильник
  Gui, Font, S8 CBlack, Verdana
  Gui, Add, Edit, x156 y21 w40 h20 vPCh, ч.
  Gui, Add, Edit, x206 y21 w70 h20 vPMin, мин.
  Gui, Add, Edit, x286 y21 w60 h20 vPSek, сек.
  Gui, Add, Button, x166 y61 w100 h30  gPostt, Поставить
  ; Generated using SmartGUI Creator 4.0
  Gui, Show, x131 y91 h116 w409, Будильник 0.1
  SetTimer, c, 10
  rabota = 0
  Return

  zz:
  Run, www.ahk-power.ru
  return

  GuiClose:
  ExitApp

  Exit:
  ExitApp
  return

  Postt:
    If (rabota = 0)
       {
       rabota = 1
       }
  else
  rabota = 0
  return

  c:
  Gui, Submit, NoHide
    If (rabota = 1)
       {
           vremia =
           (
  Ваше время:
  %A_Hour%:%A_Min%:%A_Sec%
  Время звонка:
  %PCH%:%PMin%:%PSek%
           )
           GuiControl,,MyTime,%vremia%`n`n`nAHK-power.ru
           If (PCH=A_Hour) and (PMin=A_Min) and (PSek<=A_Sec)
              {
              MsgBox,БЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗ
              rabota = 0
              GuiControl,,ln,Поставить
              }
      }

  else
  vremia =
  (
  Ваше время:
  %A_Hour%:%A_Min%:%A_Sec%
  )
  GuiControl,,MyTime,%vremia%`n`n`nAHK-power.ru
  return

[SAMP] Флудер с динамическим кол-вом строк

Владислав — Sat, 09 Nov 2013 18:00:42 GMT

Код

y_pos   = 5 ; Отступ по Y-позиции
   strings = 14 ; Количество строк
   delay   = 1100 ; Задержка отсылки строки в чат

   Loop %strings%
   {
   Gui, Add, Text, x9 y%y_pos% w60 h20, %A_Index% строка:
   Gui, Add, Edit, x72 y%y_pos% w290 h20 vString%A_Index%
   y_pos+=20
   }
   Gui, Show
   return

   !1::
   Gui, Submit, NoHide
   Mark:
   Loop %strings%
   {
   temp_string := string%A_Index%
   SendInput, {F6}%temp_string%{Enter}
   sleep, %delay%
   }
   Goto, Mark
   !2::Pause

Кнопки активации и паузы/продолжения поставите сами, а по умолчанию такие клавиши:
Активация: Alt+1
Пауза/Продолжить: Alt+2

Автор: Ruskadance

[SAMP] Исходник флудера в репорт (Samp-RP)

Владислав — Sat, 09 Nov 2013 17:58:51 GMT

Код

#IfWinActive GTA:SA:MP
   InputBox, 111, Flooder, Текст флуда
   MsgBox, Alt+1 Начать,Alt+2 Стоп
   !1::
   Floder:
   SendMessage, 0x50,, 0x4190419,, A
   SendPlay, {F6}/mm{Enter}
   Sleep, 500
   Send, {down}{down}{down}{Enter}
   Sleep, 1000
   SendPlay, %111% {Enter}
   Sleep, 500
   Goto, Floder
   !2::Pause

[PAWN] Конвертирование текста RUS->PWN

Владислав — Sat, 09 Nov 2013 17:58:12 GMT

Код

InputBox, input, PawnGameTextConverter, Введите текст

  output := ConvertText(me)

  Msgbox, %output%

  ConvertText(Text)
  {
         static Result
         Cyr := "aАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэЭюЮяЯ"
         Lat := "aA—Ђў‹™‚љѓeEeE›„џ€њ…њ…kKћ‡ЇM®*oOЈЊpPcC¦ЏyYЃЃxX*‰¤ЌҐЋЎЉ©’ђ§Ё‘Є“«”¬•"

         Loop, parse, Text
         {
            found =
            if found := InStr(Lat, A_LoopField, 1)
               NewText .= SubStr(Cyr, found, 1)

            if !found
               if found := InStr(Cyr, A_LoopField, 1)
                  NewText .= SubStr(Lat, found, 1)

            if !found
               NewText .= A_LoopField
         }
         Return NewText
  }

[Общее] Узнаем статус Skype-контакта

Владислав — Sat, 09 Nov 2013 17:57:47 GMT

Код

InputBox, input, GetSkypeStatus, Введите логин скайпа
  If input=
  ExitApp
  Msgbox, % GetSkypeStatus(input)
  ExitApp

  GetSkypeStatus(login) {
  c_temp=%a_temp%\Skype_tmp
  FileCreateDir, %c_temp%
  URLDownloadToFile, http://mystatus.skype.com/%login%.num, %c_temp%\%login%.num
  FileRead, c_status, %c_temp%\%login%.num
  If c_status=1
  c_result=Не в сети
  If c_status=2
  c_result=В сети
  If c_status=3
  c_result=Нет на месте
  If c_status=5
  c_result=Не беспокоить
  FileRemoveDir, %c_temp%, 1
  return c_result
  }

Код

InputBox, input, GetSkypeStatus, Введите логин скайпа ; Вывод окна с полем ввода
  If input= ; Если ничего не было введено в поле, то...
  ExitApp ; Закрытие скрипта
  Msgbox, % GetSkypeStatus(input) ; Вызов функции GetSkypeStatus и вывод возвращенной строки
  ExitApp ; Закрытие скрипта

  GetSkypeStatus(login) {
  c_temp=%a_temp%\Skype_tmp ; Установка переменной c_temp (в дальнейшем "временная папка") новое значение
  FileCreateDir, %c_temp% ; Создание временной папки
  URLDownloadToFile, http://mystatus.skype.com/%login%.num,
%c_temp%\%login%.num ; Скачивание файла с номером статуса скайп-аккаунта
  во временную папку
  FileRead, c_status, %c_temp%\%login%.num ; Считывание скачанного файла в переменную c_status
  If c_status=1 ; Если содержимое файла равно 1
  c_result=Не в сети ; Установка переменной c_result новое значение
  If c_status=2 ; Если содержимое файла равно 2
  c_result=В сети ; Установка переменной c_result новое значение
  If c_status=3 ; Если содержимое файла равно 3
  c_result=Нет на месте ; Установка переменной c_result новое значение
  If c_status=5 ; Если содержимое файла равно 5
  c_result=Не беспокоить ; Установка переменной c_result новое значение
  FileRemoveDir, %c_temp%, 1 ; Удаление папки, указанной в переменной c_temp
  return c_result ; Возвращаем значение переменной c_result
  }

Недостаток скрипта - мы не узнаем статус Skype-контакта если у него не включена
функция "Показывать мой сетевой статус в Интернете"
Автор: Ruskadance

[SAMP] Исходник флудера

Владислав — Sat, 09 Nov 2013 17:56:52 GMT

Код

Gui, Add, Tab,, Время между смс|Текст для флуда
  Gui, Add, Text,, Введите кол-во времени между сооб-ми
  Gui, Add, Text,, Примемечание: время в секундах
  Gui, Add, Edit, vMyEdit r2 w250
  Gui, Tab, 2
  Gui, Add, Text,, Пример: Привет
  Gui, Add, Edit, vMyEdit2 r2 w250
  Gui, Tab
  Gui, Add, Button, default xm, OK
  Menu, HelpMenu, Add, &Активация, MenuHandler
  Menu, HelpMenu, Add, &Создатели, MenuHandler2
  Menu, MyMenuBar, Add, &Помощь(Жми!), :HelpMenu
  Gui, Menu, MyMenuBar
  Gui, Show, w290 h265
  return
  MenuHandler:
  MsgBox Alt + Numpad 1
  return
  MenuHandler2:
  MsgBox Rem Doggers aka Kirill57rus ( Skype - kirill_fuck4 )
  return

  ButtonOK:
  GuiClose:
  GuiEscape:
  ; Сохраняем содержимое каждого элемента управления в ассоциированной переменной этого элемента управления.
  Gui, Submit
  MsgBox Заходите в SA-MP и активируйте скрипт нажатием клавиш alt+Num1
  #IfWinActive, GTA:SA:MP
  !Numpad1::
  Loop 1000
  {
  SendInput, {F6}/sms %A_Index% %MyEdit2%{Enter}
  Sleep, %MyEdit%000
  }
  !Numpad2::Pause
  return
  ExitApp

[SAMP] Флудер в /sms для Samp-Rp

Владислав — Sat, 09 Nov 2013 17:56:31 GMT

Код

#IfWinActive GTA:SA:MP
  Inputbox, 111, Flooder, Введите текст сообщения.
   !1::
  Loop 800
  {
      SendPlay, {F6}/sms %A_Index% %111% {Enter}
      Sleep, 2000
  }
  Sleep, 500
  !2:: pause

Флудер в смс для +4 лвл

Код

#IfWinActive GTA:SA:MP
  Inputbox, 111, Flooder, Введите текст сообщения.
  !1::
  Loop 800
  {
      SendPlay, {F6}/sms %A_Index% %111% {Enter}
      Sleep, 30001
  }
  Sleep, 500
  !2:: pause

Флудер в смс для 1 лвл