|
[AHK] Получаем свой IP через Skype
|
|
| Sergo_bro2 |
Дата: Воскресенье, 26.01.2014, 14:07 | Сообщение # 1
|
Coder
Сообщений: 892
Статус: Offline
|
Сегодня дописал эту прогаммку, которая вычисляет IP адрес по логину Skype.
Скрин:
Скачать: Shared
Проверка на вирусы: VirusTotal
Исходник:
Код OnExit, GuiClose
Gui, Add, Text, x0 y0 w68 h13, Логин Skype:
Gui, Add, Edit, x1 y15 w203 h20 -Multi vLogin_Skype,
Gui, Add, Button, x0 y35 w205 h20 gSkype_IP, Узнать
Gui, Add, Edit, x1 y70 w203 h20 -Multi +ReadOnly vIP_Adress,
Gui, Add, Text, x1 y56 w46 h14, IP адрес:
Gui, Show, Center w205 h91, Skype -> IP
Return
Skype_IP:
com.Quit
Gui, Submit, NoHide
SplashTextOn, 110, 40, Вычисление, Подождите...
com := ComObjCreate("InternetExplorer.Application")
com.Visible := false
com.Navigate("http://openssource.biz/novaya-funkciya-na-sajte-uznaem-ip-po-loginu-skype.html")
While com.readyState != 4 || com.document.readyState != "complete" || com.busy
continue
com.document.querySelector("#skype").value := Login_Skype
com.document.querySelector("#know").click()
While com.readyState != 4 || com.document.readyState != "complete" || com.busy
continue
text := com.document.documentElement.innerText
RegExMatch(Text, "(.*\d+)", Reg)
StringReplace, replace_ip, Reg1, ?, , All
StringReplace, replace_ip1, replace_ip, %A_Space%, , All
GuiControl, , IP_Adress, %replace_ip1%
SplashTextOff
Return
GuiClose:
com.Quit
ExitApp
CS:GO RANK: SUPREME*Клац*
[b][+]Skype: sergeiplugatyr
Сообщение отредактировал Sergo_bro2 - Воскресенье, 26.01.2014, 15:14 |
|
|
|
|
| [CM]MrDwayne |
Дата: Воскресенье, 26.01.2014, 14:16 | Сообщение # 2
|
Боец
Сообщений: 99
Статус: Offline
|
Очень даже неплохо, можно исходник? Если не жалко c: Добавлено (26.01.2014, 14:16)
---------------------------------------------
P.s. Чего-то много всего...
Bkav HW32.CDB.61ad 20140125
CMC Trojan.Win32.VBKrypt!O 20140122
Jiangmin Trojan/Generic.bljjg 20140126
McAfee-GW-Edition Heuristic.BehavesLike.Win32.Suspicious-BAY.G 20140126
Norman Obfuscated.BR!genr 20140126
Rising PE:Spyware.KeyLogger!1.9F7B 20140126
Symantec Suspicious.Cloud.5
|
|
|
|
|
| maks55399 |
Дата: Воскресенье, 26.01.2014, 14:20 | Сообщение # 3
|
Новичок
Сообщений: 3
Статус: Offline
|
Чувак какие то ошибки выдает 
|
|
|
|
|
| Квас |
Дата: Воскресенье, 26.01.2014, 14:24 | Сообщение # 4
|
Знаток
Сообщений: 526
Статус: Offline
|
[CM]MrDwayne, при сжатии файла так бывает. И да, если там был вирус, то все антивирусники ругались бы. Убогие антивирусники всегда найдут вирус в .exe файле.
https://vk.com/id132756046
https://steamcommunity.com/id/steamkvas/
Помогаю с AutoHotKey, по всем вопросам в личку
vs: 07.08.2014
|
|
|
|
|
| Prodazaaaaa |
Дата: Воскресенье, 26.01.2014, 14:27 | Сообщение # 5
|
Лучший продавец
Сообщений: 51
Статус: Offline
|
Давно хотел себе такую програмку :З домой приду скачаю проверю по своему скайпу :З если все соидеться няшка тебе обеспечена.
С данного момент через Skype не работаю только через вк
|
|
|
|
|
| [UA]DOBERMAN |
Дата: Воскресенье, 26.01.2014, 14:30 | Сообщение # 6
|
Боец
Сообщений: 136
Статус: Offline
|
Avast не ругается. Проверил на своём скайпе, выбило правильный IP - работает. За старание конечно же НЯШКА.
Продаю несносимые скайпы - Писать в ЛС.
Мой профиль на СМ.Net - http://cheat-master.net/members/cm-doberman.3912/
|
|
|
|
|
| Mstyle |
Дата: Воскресенье, 26.01.2014, 14:32 | Сообщение # 7
|
Cheat-Master
Сообщений: 2698
Статус: Offline
|
Эм, бред какой-то.
|
|
|
|
|
| Prodazaaaaa |
Дата: Воскресенье, 26.01.2014, 14:37 | Сообщение # 8
|
Лучший продавец
Сообщений: 51
Статус: Offline
|
Скачал я , проверил , и у меня вопрос , что это ха хрень не работаюшая хоть а ? на 7-8 скайпах друзеи проверял и на своем и везде не работает , пишит неопределенный ип адрес по которому не чего узнать не льзя.
НЕ РАБОТАЕТ!
С данного момент через Skype не работаю только через вк
|
|
|
|
|
| [CM]MrDwayne |
Дата: Воскресенье, 26.01.2014, 14:38 | Сообщение # 9
|
Боец
Сообщений: 99
Статус: Offline
|
Ошибка какая-то :c
|
|
|
|
|
| Sergo_bro2 |
Дата: Воскресенье, 26.01.2014, 14:43 | Сообщение # 10
|
Coder
Сообщений: 892
Статус: Offline
|
Выложил исходник, изучайте.
CS:GO RANK: SUPREME*Клац*
[b][+]Skype: sergeiplugatyr
|
|
|
|
|
| Lemon-pro |
Дата: Воскресенье, 26.01.2014, 14:53 | Сообщение # 11
|
Любитель
Сообщений: 38
Статус: Offline
|
Прикольная штука что-бы школьников пугать скажеш им из какого они города они очканут сразу и заплачут 
Lemon4ik =)
|
|
|
|
|
| LoganHD |
Дата: Воскресенье, 26.01.2014, 15:32 | Сообщение # 12
|
Бог YouTube
Сообщений: 1008
Статус: Offline
|
www.anonware.net/resolver/skype.php#
Сайт Anonymus(а)
www.2ip.ru/whois/
Это понадобиться для того что бы узнать где человек проживает и т.д
Кому помог +Добавлено (26.01.2014, 15:32)
---------------------------------------------
Цитата Daniel96 (  ) Эм, бред какой-то.
Смотри выше дал нормальный сайт!
А не эта херь
=======================================================
  
=======================================================
|
|
|
|
|
| Sergo_bro2 |
Дата: Воскресенье, 26.01.2014, 15:33 | Сообщение # 13
|
Coder
Сообщений: 892
Статус: Offline
|
Цитата LoganHD ( ) www.anonware.net/resolver/skype.php#
Сайт Anonymus(а)
www.2ip.ru/whois/
Давненько писал подобную программу:
Код #NoEnv
temp = %A_Temp%
FileInstall, cog-icon-2-48x48.png, %A_Temp%\cog-icon-2-48x48.png, 1
Gui, Font, S11 CBlack Bold, Arial
Gui, Add, Text, x2 y0 w200 h20 , Информация по Ip адресу
Gui, Font, ,
Gui, Add, Button, x52 y20 w100 h30 gUznat, Узнать
Gui, Add, Text, x2 y50 w75 h14 , Ваш Ip Adress:
Gui, Add, Edit, x2 y64 w200 h20 ReadOnly vEdit1,
Gui, Add, Text, x3 y85 w69 h13 , Информация:
Gui, Add, Edit, x3 y99 w199 h75 ReadOnly vEdit,
Gui, Add, Picture, x173 y19 w30 h27 gClick, %A_Temp%\cog-icon-2-48x48.png
Gui, Show, x195 y130 h179 w207, Information
Return
Uznat:
URLDownloadToFile, http://www.ip-ping.ru/ipinfo/, %temp%\File.txt
FileRead, Var, *t %temp%\File.txt
Point1 = Расположение:</span>
Point2 = </div>
RegExMatch(Var, "\Q" Point1 "\E(.*?)\Q" Point2 "\E", Res)
GuiControl, , Edit, % Res1
Point1 = IP-адрес:</span>
Point2 = </div>
RegExMatch(Var, "\Q" Point1 "\E(.*?)\Q" Point2 "\E", Res)
GuiControl, , Edit1, % Res1
return
Click:
Gui, 2:Destroy
Gui, 2:Font, S11 CBlack Bold, Arial
Gui, 2:Add, Text, x27 y0 w120 h20 , Чужой Ip adress
Gui, 2:Font, ,
Gui, 2:Add, Text, x0 y19 w47 h15 , Ip adress:
Gui, 2:Add, Edit, x1 y33 w191 h20 vEdit2,
Gui, 2:Add, Button, x42 y53 w100 h30 gUznat1, Узнать
Gui, 2:Add, Edit, x0 y85 w192 h64 ReadOnly vEdit3,
Gui, 2:Show, x127 y87 h150 w193, Чужой
Return
Uznat1:
URLDownloadToFile, http://www.ip-ping.ru/ipinfo/?ipinfo=%Edit2%, %temp%\File.txt
FileRead, Var, *t %temp%\File.txt
Point1 = Расположение:</span>
Point2 = </div>
RegExMatch(Var, "\Q" Point1 "\E(.*?)\Q" Point2 "\E", Res)
GuiControl, , Edit3, % Res1
Return
GuiClose:
ExitApp
CS:GO RANK: SUPREME*Клац*
[b][+]Skype: sergeiplugatyr
|
|
|
|
|
| [CM]Kakawka_tawer |
Дата: Воскресенье, 26.01.2014, 15:41 | Сообщение # 14
|
Боец
Сообщений: 109
Статус: Offline
|
классно, то что нужно 
qq_all
|
|
|
|
|
| Jesse_Ice |
Дата: Воскресенье, 26.01.2014, 23:59 | Сообщение # 15
|
Бывалый
Сообщений: 348
Статус: Offline
|
Не работает 
|
|
|
|
|
