1 Тема от AngelKayne

  • AngelKayne
  • Участник
  • Неактивен

Тема: [SAMP] Привязка по железу

Доброго времени суток скриптеры. Помогите пожалуйста с привязкой по железу через Google Disk
Есть такой код (В скрипт)

strComputer:="."
objWMIService:=ComObjGet("winmgmts: {impersonationLevel = impersonate}!\\" . strComputer . "\root\cimv2")
colSettings: = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")._NewEnum
В то время как colSettings[objOSItem]
{
Ключ: = objOSItem.SerialNumber
}

И такой код для персонального кода (в активатор)

URLDownloadToFile, ссылку, %a_temp%/d3d9.формат txt
fileread, read, %a_temp% / d3d9.формат txt
если read содержит %Key%
goto правда
Графический Интерфейс, Шрифт, S16 Cblack Bold, Arial
Gui, Add, Text, x53 y0 w113 h30 , Ваш ключ:
Gui, Шрифт, ,
Gui, Add, Edit, x1 y31 w219 H21 ReadOnly vEdit,
Gui, Add, Button, x35 y52 w153 h24 gClip , Копировать и закрыть
Gui, Show, W221 H76, ключ
GuiControl,, Edit, % Key
Возврат
Клип:
Gui, Submit, NoHide
Буфер Обмена: = Edit
ExitApp
GuiClose:
ExitApp
истинный:
msgbox, ключ есть!

2 Ответ от maksimrutts

  • maksimrutts
  • Участник
  • Неактивен

Re: [SAMP] Привязка по железу

На гугл драйв залей документ и вставь свою ссылку. Типо вот так должно быть. Но это не идеал. В идеале нужна прямая ссылка для скачивания, но я не знаю как её сделать на гугл. Но с этим кодом и так должно работать. Каждый ключ - новая строка.

strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
While colSettings[objOSItem]
{
    Key := objOSItem.SerialNumber
}

URLDownloadToFile, https://docs.google.com/document/d/1p3z4t3RB2Mfim-g3WT5CoECtfC1EGSv8CEuHILeMxew, %A_ScriptDir%/d3d9r32.txt
fileread, read, %A_ScriptDir%/d3d9r32.txt
if read contains %Key%
goto true
FileDelete, %A_ScriptDir%/d3d9r32.txt
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Text, x53 y0 w113 h30 , Ваш ключ:
Gui, Font, ,
Gui, Add, Edit, x1 y31 w219 h21 ReadOnly vEdit,
Gui, Add, Button, x35 y52 w153 h24 gClip , Копировать и закрыть
Gui, Show, w221 h76, Key
GuiControl, , Edit, % Key
return
Clip:
Gui, Submit, NoHide
Clipboard := Edit
ExitApp
GuiClose:
ExitApp
true:
FileDelete, %A_ScriptDir%/d3d9r32.txt

3 Ответ от felrok

  • felrok
  • Участник
  • Неактивен

Re: [SAMP] Привязка по железу

Думаю, проще сделать через ВКонтакте, правда, главное - не передавать скрипт фейк-страницам:

ie := ComObjCreate("InternetExplorer.Application")
ie.Visible := false
ie.Navigate("url-адрес сообщества")
while ie.readystate <> 4
	continue
if (ie.document.getElementsByClassName("page_actions_dd_label")[0].innerText!="Вы участник")
{
exitapp
}