schurik58 Posted February 20, 2021 Share Posted February 20, 2021 $PiD = "BFEBFBFF000906EA" Func GetProcessorId() $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL",0x10+0x20) If IsObj($colItems) Then For $objItem In $colItems Local $PROC_ID = $objItem.ProcessorId Next Return $PROC_ID Else Return 0 EndIf EndFunc $output = GetProcessorId() If $PiD = $output Then ConsoleWrite(" "&$output) Else ConsoleWrite(" ") EndIf help to make this script, the online test through the hosting processor ID Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted February 20, 2021 Moderators Share Posted February 20, 2021 (edited) Moved to the appropriate forum, as the Developer General Discussion forum very clearly states: Quote General development and scripting discussions. Do not create AutoIt-related topics here, use the AutoIt General Help and Support or AutoIt Technical Discussion forums. Moderation Team Edited February 20, 2021 by JLogan3o13 "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 $PiD = "BFEBFBFF000906EA" Func GetProcessorId() $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL",0x10+0x20) If IsObj($colItems) Then For $objItem In $colItems Local $PROC_ID = $objItem.ProcessorId Next Return $PROC_ID Else Return 0 EndIf EndFunc $output = GetProcessorId() If $PiD = $output Then ConsoleWrite(" "&$output) Else ConsoleWrite(" ") EndIf help to make this script, the online test through the hosting processor ID Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 $PiD = "BFEBFBFF000906EA" Func GetProcessorId() $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL",0x10+0x20) If IsObj($colItems) Then For $objItem In $colItems Local $PROC_ID = $objItem.ProcessorId Next Return $PROC_ID Else Return 0 EndIf EndFunc $output = GetProcessorId() If $PiD = $output Then ConsoleWrite(" "&$output) Else ConsoleWrite(" ") EndIf help to make this script, the online test through the hosting processor ID Link to comment Share on other sites More sharing options...
Somerset Posted February 20, 2021 Share Posted February 20, 2021 (edited) Duplicate thread reported, they have one other besides this one that is a duplicate also. Edited February 20, 2021 by Somerset Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted February 20, 2021 Moderators Share Posted February 20, 2021 schurik58, Welcome to the AutoIt forums, but a couple of points to note: 1. Please give your threads sensible titles - if you post here you obviously need help. 2. Please do not post the same question all over the place - just once is enough. All 3 threads are now merged. Thanks in advance for your cooperation. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 will you help me in this matter Link to comment Share on other sites More sharing options...
Confuzzled Posted February 20, 2021 Share Posted February 20, 2021 What are you trying to achieve? Where are you having problems? Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 50 minutes ago, Confuzzled said: Чего вы добиваетесь? Где у вас возникли проблемы? I need to do an id check in that script via the site Link to comment Share on other sites More sharing options...
Developers Jos Posted February 20, 2021 Developers Share Posted February 20, 2021 Please do not quote with a none English language and be more explicit in what it is you want to do here! so try again to explain, but this time with more details. Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
argumentum Posted February 20, 2021 Share Posted February 20, 2021 2 hours ago, schurik58 said: I need to do an id check in that script via the site is the "site" in a local network or on the web ? Follow the link to my code contribution ( and other things too ). FAQ - Please Read Before Posting. Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 I need to bind a program to a processor id via a website on the internet how to do this Link to comment Share on other sites More sharing options...
Nine Posted February 20, 2021 Share Posted February 20, 2021 Do you mean processor affinity for a given process ? “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 1 minute ago, Nine said: Do you mean processor affinity for a given process ? no I mean the program to the processor Link to comment Share on other sites More sharing options...
Nine Posted February 20, 2021 Share Posted February 20, 2021 I totally don't know what you mean. Unless you take the time to write something understandable, I am afraid it will be very hard to help you. So take a deep breath, and fully explain what you want to achieve. Give a detailed example of what you want to do. Show an image it need to. “They did not know it was impossible, so they did it” ― Mark Twain Spoiler Block all input without UAC Save/Retrieve Images to/from Text Monitor Management (VCP commands) Tool to search in text (au3) files Date Range Picker Virtual Desktop Manager Sudoku Game 2020 Overlapped Named Pipe IPC HotString 2.0 - Hot keys with string x64 Bitwise Operations Multi-keyboards HotKeySet Recursive Array Display Fast and simple WCD IPC Multiple Folders Selector Printer Manager GIF Animation (cached) Screen Scraping Multi-Threading Made Easy Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 I can explain in Russian no I work as a translator in your language Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 #include <IniString.au3> $iControl = _ValidateSerial() If Not @error Then If $iControl Then MsgBox(64, 'Идентификация', 'Идентификация прошла успешно') Else MsgBox(16, 'Идентификация', 'У вас нет доступа к программе') Exit EndIf Else Switch @error Case -1 MsgBox(16, 'Идентификация', 'Не удалось проверить серийный номер. Проверьте подключение к интернет.') Exit Case 1 MsgBox(16, 'Идентификация', 'Произошла ошибка проверки.') Exit EndSwitch EndIf Func _ValidateSerial() Local $s_Serial, $a_Control, $s_TextFromSite $s_TextFromSite = InetRead('http://pnz27reg.beget.tech/control.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, 'Computers') 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 as here only to the processor and not to the disk Link to comment Share on other sites More sharing options...
Developers Jos Posted February 20, 2021 Developers Share Posted February 20, 2021 Ok... This getting tedious: @schurik58, Please this time do what I asked and properly explain what it is you exactly want to do. So tell us exactly what program you want to automate, what exactly you want to do with it and why you want to do this! @everybody else, Please stay out for the moment until it is clear what this really is! SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
schurik58 Posted February 20, 2021 Author Share Posted February 20, 2021 я живу в россии долбаеб как тебе обьяснить что сука программу нужно привязать к железу через процессор Link to comment Share on other sites More sharing options...
Developers Jos Posted February 20, 2021 Developers Share Posted February 20, 2021 English please as I already requested! I live in the Netherlands, but still communicate in English, so I would say give it a proper try or else you are in the wrong forum. FrancescoDiMuro 1 SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts