victor49689
Новичок
- Сообщения
- 2
- Репутация
- 0
Помогите зделать привязку к мат.плате и привязку(ой) к сайту(БАЗА ДАНЫХ). Я просто пытаюсь сосдать Updater, но у меня ни как не получается привязать его к системе. Скажыте, как можно найти значения мат.платы?
Вот мой Updater
ОЧЕНЬ БУДУ БЛАГОДАРЕН ТЕМ КТО ПОМОЖЕТ
Вот мой Updater
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
$IE= _IECreateEmbedded ()
Opt("TrayOnEventMode", 1) ; Use event trapping for tray menu
Opt("TrayMenuMode", 3) ; Default tray menu items will not be shown.
TraySetIcon("shell32.dll", 48)
TraySetToolTip("Updater MuL-TIC")
TrayCreateItem("Автор")
TrayItemSetOnEvent(-1, "AvtorTip")
TrayCreateItem("Выход")
TrayItemSetOnEvent(-1, "On_Exit")
TraySetState()
#Region ### START Koda GUI section ### Form=c:\users\user\desktop\form1.kxf
$Form1_1 = GUICreate("Updater by Artemuidak", 591, 292, 188, 187)
$Button1 = GUICtrlCreateButton("Спамер", 436, 24, 145, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Скачать Вх", 436, 72, 145, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Инжэктор x64 x32", 436, 160, 145, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Автор", 436, 200, 145, 33, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Инструкция", 436, 240, 145, 33, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Zorgee.ru", 466, 131, 250, 17)
$Group1 = GUICtrlCreateGroup(" Новости обновления ", 8, 16, 415, 217)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$browser = GUICtrlCreateObj ($IE, 16, 32, 400, 196)
$Group2 = GUICtrlCreateGroup("", 8, 240, 415, 33)
$Group3 = GUICtrlCreateGroup("", 436, 116, 145, 39)
$Label1 = GUICtrlCreateLabel("Следите за обновлениями...Zorgee.ru", 76, 251, 250, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($IE, "http://head-shot.my1.ru/Updater/1.txt")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
InetGet("","Имя")
MsgBox (64, "Инфо","Инфо")
Case $Button2
InetGet("http://head-shot.my1.ru/Updater/Game.dll","Game.dll")
MsgBox (64, "Скачано","Скачано")
Case $Button3
InetGet("","Имя")
MsgBox (64, "Инфо","Инфо")
Case $Button4
MsgBox (64 , "Автор" , "Автора!Пишем!" )
Case $Button5
MsgBox (32 , "Updater" , "Пишем инструкцию!" )
EndSwitch
WEnd
Func AvtorTip()
MsgBox(64, "Автор", "Сного пишем тут автора!")
EndFunc
Func On_Exit()
Exit
EndFunc