Что нового
Автор:
Фильтры

Подскажите какую привязку выбрать?

B

Black_Night

Новичок
Сообщения
67
Репутация
1
Всем привет! Можете дать какойнибудь способ привязки только не через DriveGetSerial
Желательно с исходм :smile: и идентификатором ключей
 
P

Pavel

Новичок
Сообщения
125
Репутация
3
Re: Можете помочь с привязкой?

Смотрите функцию
Код: 
_WinAPI_UniqueHardwareID
 
V

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Re: Можете помочь с привязкой?

На форуме полным - полно этих примеров, выбирайте какой хотите - привязка
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Можете помочь с привязкой?

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.
Нажмите, чтобы раскрыть...


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"Можете помочь с привязкой?" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Глобальный модератор.
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Pavel, а по подробнее? я в автоИТ нубик, можно исход привязки и идентификатора ключей?
ПыСы: ничего нормального в поиске не нашол.. :'(
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Какую привязку посоветуете?

Доброго дня, я нуб в программирование (хотя несовсем)..
И хочу вас спросить какую привязку выбрать? только не через DriveGetSerial
И если можно, то скинет весь исход идентификатора ключей и самой привязки
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Re: Какую привязку посоветуете?

ну и зачем было создавать вторую тему с тем же содержанием?
уровень предупреждения не резиновый. такими темпами и сам не заметишь как дойдет до 50, а в этом ничего хорошего нет ;)
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
kaster, извиняюсь, просто мне нужен ответ ,а я его жду очень долго...
Можно как ниудь "апать" тему? прост проект запылился уже..
 
kaster

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Black_Night
не чаще раза в сутки.
 
Garrett

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Black_Night в использовании _WinAPI_UniqueHardwareID нет ничего сложного. Эта функция на вход принимает параметры, (они указаны в справке к WinAPIEx) а на выходе вы получаете уникальный ключ.
Код: 
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>
ConsoleWrite('Уникальный ключ: ' & _WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)) & @CR)
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Garrett, а что делать с этим? куда вставлять? Скайп есть? Если да, то L351511 добавь
 
Garrett

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Black_Night [?]
а что делать с этим? куда вставлять?
Нажмите, чтобы раскрыть...
Куда вставлять? ;D
Да куда хотите! Это уникальный ключ машины, на которой его создали. Если вы, к примеру, в своей программе организуете проверку этого ключа, то получите, то, что вы хотели.
Можете дать какойнибудь способ привязки только не через DriveGetSerial
Нажмите, чтобы раскрыть...
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Эм.. я ХЗ что и как я вставляю выдает ошибку, можете связаться по скайпу? L351511 прошу...
 
Автор
B

Black_Night

Новичок
Сообщения
67
Репутация
1
Очень плохо :(
Прост ошибку показать немогу.. ща выложу исход и подкорректируйте всё под новую привязку..
А через что можно свяхаться с вами?
Вот исход:
Код: 
#Region
#AutoIt3Wrapper_icon=123.ico
#AutoIt3Wrapper_run_after=ResHacker.exe -add %out%, %out%, 1.wav, SOUND, 201, 0
#endregion AutoIt3Wrapper

#RequireAdmin
#include-once
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <Inet.au3>
#include <GuiListView.au3>
#include <GUITooltip.au3>
#Include <File.au3>
#include <string.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#Include <GUIConstants.au3>
#include <Memory.au3>
#include <Array.au3>
#include <Sound.au3>
#Include "Update.au3"
#Include "HotKey_17b.au3"
#Include "IE.au3"
#include 'IniString.au3'
#include <WinAPIEx.au3>
#Include <APIConstants.au3>



 $iControl = _ValidateSerial()
If Not @error Then
    If $iControl Then
    Else
        Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 3)
$Width = 447
$Height = 168
$Form2 = GUICreate("Нет лицензии", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$Formtitle = GUICtrlCreateLabel("", 0, 3, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetCursor (-1, 9)
$Button1 = GUICtrlCreateButton("Выход", 320, 128, 107, 25)
$Edit1 = GUICtrlCreateEdit("", 16, 24, 409, 65, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
$Label1 = GUICtrlCreateLabel("Ваш ключ:", 16, 120, 56, 17)
$Edit2 = GUICtrlCreateEdit("", 80, 120, 105, 17, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), 0)
$s_Serial = DriveGetSerial(StringLeft(@ScriptDir, 2))
GUICtrlSetData(-1, $s_Serial)
$Edit3 = GUICtrlCreateEdit("", 240, 120, 121, 30, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "Skype автора: l351511")
$Group1 = GUICtrlCreateGroup("",  72, 104, 121, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $Button1
		Exit
			
                 Exit			
		Case $GUI_EVENT_CLOSE
			
		Exit
			Exit

	EndSwitch
WEnd
        
    EndIf
Else
    Switch @error
        Case -1
            MsgBox(16, 'Ошибка', 'Не удалось проверить серийный номер. Проверьте подключение к интернет.')
            Exit
        Case 1
            MsgBox(16, 'Ошибка', 'Произошла ошибка проверки.')
            Exit
    EndSwitch
EndIf



#Region ### START Koda GUI section ### Form=c:\users\Алексей\desktop\form1_1.kxf
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 3)
TraySetIcon("123.ico", 48)
TraySetToolTip("Updater")
$MenuItem1 = TrayCreateMenu("Функции программы")
GUICtrlSetCursor (-1, 7)
$MenuItem4 = TrayCreateItem("Инжектор", $MenuItem1)
GUICtrlSetCursor (-1, 7)
TrayItemSetOnEvent(-1, "inj")
$MenuItem3 = TrayCreateItem("Обход фроста", $MenuItem1)
TrayItemSetState(-1, $TRAY_DISABLE)
GUICtrlSetCursor (-1, 7)
$MenuItem2 = TrayCreateItem("Следующие обновления", $MenuItem1)
TrayItemSetState(-1, $TRAY_DISABLE)
GUICtrlSetCursor (-1, 7)
TrayCreateItem("Удаление настроек")
TrayItemSetOnEvent(-1, "AvtorTip")
TrayCreateItem("Выход")
TrayItemSetOnEvent(-1, "On_Exit")
TraySetState()
	$sFile = "";Где 111.txt - имя текстового файла
$IniFile = (@ScriptDir & '\settings.ini')

$Width = 517
$Height = 528
$Form1_1 = GUICreate("Updater", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$BASEKEY1 = IniRead("news.ini", "FormTitle", "Base", "")
$Close = GUICtrlCreateLabel("X", $Width - 15, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
$Formtitle = GUICtrlCreateLabel($BASEKEY1, 0, 3, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor (-1, 9)
GUISetBkColor(0x000000)
$Formtitlebackground = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 22)
GUICtrlSetBkColor(-1, 0xFFFF00)
GUISetBkColor(0xFFFFFF)
$Progress1 = GUICtrlCreateProgress(8, 320, 398, 17)
$Current_Version = "0.2"
_StartCheckForUpdate("http://obnjva.ru/updater/MyApp_Update.txt",$Current_Version,True)
$Button1 = GUICtrlCreateButton("Обновить", 336, 32, 131, 33, BitOR($BS_CENTER,$BS_VCENTER,$BS_FLAT))
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Патч ховера на люксе", 336, 160, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Group3 = GUICtrlCreateGroup("", 576, 96, 145, 137)
$Button3 = GUICtrlCreateButton("Автор", 696, 32, 67, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Замена скинов", 336, 96, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$sReadText = FileRead($sFile)
$Group2 = GUICtrlCreateGroup("", 328, 16, 145, 249)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Запустить инжектор х32", 336, 224, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button6 = GUICtrlCreateButton("Добавить в автозапуск", 416, 296, 163, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button7 = GUICtrlCreateButton("Убрать из автозапуска", 415, 321, 163, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Group1 = GUICtrlCreateGroup("Описание версии", 16, 16, 305, 449)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetCursor(-1, 0)
$Button8 = GUICtrlCreateButton("Обход Frost'а", 584, 112, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button9 = GUICtrlCreateButton("Удалить Bugtrap.dll", 584, 152, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button10 = GUICtrlCreateButton("Удалить FrostUpdater.dll", 584, 192, 131, 33)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetCursor (-1, 0)
$Button11 = GUICtrlCreateButton("Button11", 576, 72, 43, 25)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
            $oIE = ObjCreate("Shell.Explorer.2") ; если без билиотеки IE.au3
            $oIE = _IECreateEmbedded() ; если с библиотекой IE.au3
            GUICtrlCreateObj($oIE,16, 16, 305, 449, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL, $WS_BORDER)) ; в любом случае
            _IENavigate($oIE,"http://upd.updchsd3d.16mb.com") ; с библиотекой
            $oIE.Navigate("http://upd.updchsd3d.16mb.com") ; без
$Updater = GUICtrlCreateEdit("", 16, 16, 305, 449, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetLimit(-1, 7575)
GUICtrlSetData(-1, "Версия updater"&Chr(39)&"а: 0.2")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW, $Form1_1)
$TEMP1 = (@ScriptDir & "\Set.ini")
Dim $aAccelKeys[2][2] = [["{LEFT}", $Button2], ["{INSERT}", $Button11]]
GUISetAccelerators($aAccelKeys)
GUISetState()

#EndRegion ### END Koda GUI section ###

While 1	
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $Button10
	
		MsgBox(64, "Updater", "FrostUpdater.dll успешно выгружен")
		Case $Button9
	
		MsgBox(64, "Updater", "BugTrap.dll успешно выгружен")
	Case $BUTTON7
			$PATH = @ScriptFullPath
			RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $PATH)
			MsgBox(64, "Updater", "Удалено из автозапуска")
	Case $BUTTON6
			$PATH = @ScriptFullPath
			RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $PATH, "REG_SZ", $PATH)
			MsgBox(64, "Updater", "Добавлено в автозапуск")
		Case $Button11
		Run(@ScriptDir & '\Инжектор.exe')
	Case $BUTTON4
			;инжектор 32
		Case $Button1
	   ;обнова ВХ
	Case $Button3
		soundplay("c:\windows\media\tada.wav", 1)
TrayTip("Автор", "I Will kILl yoU",3)
	Case $Button5
$IniFile = (@ScriptDir & '\settings.ini')
$Path = IniRead($IniFile, "PointBlank", "Path", "NotFound")
if $Path=="NotFound" Or FileExists ($Path)==0 then
    $Path = FileSelectFolder("Выберете путь к папке PointBlank", "")
    if not @error then
        IniWrite($IniFile, "PointBlank", "Path", $Path)
    Else
        MsgBox(16, "Ошибка", "Не выбран путь.")
		Exit
    EndIf
endif
FileCopy(@ScriptDir & "\swat_male.i3chr",$Path & "\chara\swat_male", 1);
FileCopy(@ScriptDir & "\leopard.i3chr",$Path & "\chara\leopard", 1);
 MsgBox(64, "Информация", "Патч установлен")
	Case $Button2
		$IniFile = (@ScriptDir & '\settings.ini')
$Path = IniRead($IniFile, "PointBlank", "Path", "NotFound")
if $Path=="NotFound" Or FileExists ($Path)==0 then
    $Path = FileSelectFolder("Выберете путь к папке PointBlank", "")
    if not @error then
        IniWrite($IniFile, "PointBlank", "Path", $Path)
    Else
        MsgBox(16, "Ошибка", "Не выбран путь.")
		Exit
    EndIf
endif
FileCopy(@ScriptDir & "\swat_male.i3chr",$Path & "\chara\swat_male", 1);
FileCopy(@ScriptDir & "\leopard.i3chr",$Path & "\chara\leopard", 1);
 MsgBox(64, "Информация", "Патч установлен")
	Case $GUI_EVENT_CLOSE
		TrayTip("Updater", "Удаление лишних файлов", 5, 1)
		FileDelete("news.ini")
		FileDelete("leopard.i3chr")
		FileDelete("swat_male.i3chr")
		FileDelete("Инжектор.exe")
		$begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
		TrayTip("Updater", "Завершение работы программы", 5, 1)
        $begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
			Exit
	Case $Close
		TrayTip("Updater", "Удаление лишних файлов", 5, 1)
		FileDelete("news.ini")
		FileDelete("leopard.i3chr")
		FileDelete("swat_male.i3chr")
		FileDelete("Инжектор.exe")
		$begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
		TrayTip("Updater", "Завершение работы программы", 5, 1)
        $begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
		Exit

    EndSwitch
WEnd

Func AVTORTIP()
	FileDelete("settings.ini")
EndFunc

Func INJ()
	Run(@ScriptDir & '\Инжектор.exe')
EndFunc
Func ON_EXIT()
		TrayTip("Updater", "Удаление лишних файлов", 5, 1)
		FileDelete("news.ini")
		FileDelete("leopard.i3chr")
		FileDelete("swat_male.i3chr")
		FileDelete("Инжектор.exe")
		$begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
		TrayTip("Updater", "Завершение работы программы", 5, 1)
        $begin = TimerInit()
sleep(1000)
$dif = TimerDiff($begin)
			Exit
		EndFunc
		
		Func _ValidateSerial()
    Local $s_Serial, $a_Control, $s_TextFromSite

    $s_TextFromSite = InetRead('http://updchsd3d.16mb.com/updater/Setting.ini')
    If @error Then Return SetError(-1)
    $s_TextFromSite = BinaryToString($s_TextFromSite)
    $s_Serial = DriveGetSerial(StringLeft(@ScriptDir, 2))
    If @error Then Return SetError(1)
    $a_Control = _IniString_ReadSection($s_TextFromSite, 'Options')
    If @error Then Return SetError(1)
    For $i = 1 To $a_Control[0][0]
        If $a_Control[$i][1] == $s_Serial Then Return SetError(0, 0, 1)
    Next
    Return SetError(0, 0, 0)
EndFunc   ;==>_ValidateSerial
 
StarEdik

StarEdik

Новичок
Сообщения
365
Репутация
4
Garrett
Уважаемый, у меня ваш код выдает такую ошибку.(версия WinAPIEx_3.5)
C:\Program Files\AutoIt3\Include\WinAPIEx.au3(823,33) : ERROR: $__WINVER previously declared as a 'Const'
Global Const $__WINVER = __Ver()
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files\AutoIt3\Include\WinAPIEx.au3(31005,13) : ERROR: __Ver() already defined.
Func __Ver()
~~~~~~~~~~~~^
Нажмите, чтобы раскрыть...
 
Medic84

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
StarEdik
Ну вообще то есть версия 3.6.
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
M Подскажите алгоритм для генерации строки на основе другой строки. Общие вопросы по AutoIt 4
MonstrCraft **Подскажите пожалуйста как сделать, чтобы при значении оператора true скрипт выключался, а при false продолжал работать. Кому не трудно** Общие вопросы по AutoIt 0
D Подскажите - где найти такое GUI Общие вопросы по AutoIt 5
N Не подскажите что использовать для автоматизации браузера? Автоматизация IE и Web-интерфейса 8
M Подскажите как разобрать файл на массивы? Общие вопросы по AutoIt 10
Похожие темы
Подскажите алгоритм для генерации строки на основе другой строки.
**Подскажите пожалуйста как сделать, чтобы при значении оператора true скрипт выключался, а при false продолжал работать. Кому не трудно**
Подскажите - где найти такое GUI
Не подскажите что использовать для автоматизации браузера?
Подскажите как разобрать файл на массивы?
Верх