Что нового

[Сеть, интернет] Помогите прикрутить код

pandemia

Новичок
Сообщения
12
Репутация
0
Пожалуйста помогите прикрутить код.
Вот этот:
Код:
$s_TextFromSite = InetRead('http://yourdomen.ru/' & $userID & '.ini')

К вот этому:
Код:
#include <WinAPIEx.au3>
#include <Misc.au3>
#Include <APIConstants.au3>
#include <IE.au3>
if _WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)) = "{4684FD4B-A748-3FF9-CF40-962B1D95033E}" =  False Then
   MsgBox(64,"Отлично", "Передай мне свой ID и я активирую тебя")
InputBox('WinAPI_UniqueHardwareID',"Your Unique Hardware ID:",_WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)),'',280,130)
Exit
EndIf

MsgBox(64,"Успех", "Программа запущена")
;~ далее идет код

Я так понимаю мне надо ее сюда прикрутить?
Код:
if _WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)) = "{4684FD4B-A748-3FF9-CF40-962B1D95033E}" =  False Then
 
Автор
P

pandemia

Новичок
Сообщения
12
Репутация
0
Сам разобрался кому может понадобится
Код:
#include <WinAPIEx.au3>
#include <Misc.au3>
#Include <APIConstants.au3>
#include <IE.au3>
if _WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)) = InetRead('http://MYDOMAIN.xyz/' & _WinAPI_UniqueHardwareID & '123.ini') = False Then
MsgBox(64,"Отлично", "Передай мне свой ID и я активирую тебя")

InputBox('WinAPI_UniqueHardwareID',"Your Unique Hardware ID:",_WinAPI_UniqueHardwareID(BitOR($UHID_MB, $UHID_BIOS, $UHID_CPU)),'',280,130)
Exit
EndIf


MsgBox(64,"Успех", "Программа запущена")
;~ далее идет код
 
Верх