;Autor: luis ;http://www.purebasic.fr/english/viewtopic.php?p=397648#p397648 EnableExplicit Define hDll Define *SLIsGenuineLocal Macro DEFINE_GUID (IID_NAME, l1, w1, w2, b1, b2, b3, b4, b5, b6, b7, b8) DataSection IID_NAME: Data.l l1 Data.w w1, w2 Data.b b1, b2, b3, b4, b5, b6, b7, b8 EndDataSection EndMacro Enumeration #SL_GEN_STATE_IS_GENUINE #SL_GEN_STATE_INVALID_LICENSE #SL_GEN_STATE_TAMPERED #SL_GEN_STATE_LAST EndEnumeration Define state DEFINE_GUID (win_genuine, $55c92734, $d682, $4d71, $98, $3e, $d6, $ec, $3f, $16, $05, $9f) hDll = OpenLibrary(#PB_Any, "Slwga.dll") If hDll *SLIsGenuineLocal = GetFunction(hDll, "SLIsGenuineLocal") If *SLIsGenuineLocal If CallFunctionFast(*SLIsGenuineLocal, ?win_genuine, @state, 0) = #S_OK If state = #SL_GEN_STATE_IS_GENUINE Debug "Windows ist aktiviert." Else Debug "Windows wurde noch nicht aktiviert." EndIf EndIf EndIf CloseLibrary(hDll) EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0