Gigabyte dll functions

[Razor]

Easy Tune 4 Download
After compiling just drop the project in easy tune 4 directory and voila you have a temperature reading(or something else) program!


This function works 100% TESTED! :)

Delphi-Quellcode:

function tform1.GetCpuTemp: cardinal;
type
  LX_Get_CPUTempValue = function(pCpuTemp: Pointer): cardinal stdcall;
var
  hInstDll: THandle;
  Get_CPUTempValue: LX_Get_CPUTempValue;
  Pfad: AnsiString;
begin
  Result := 0;
  Pfad := ExtractFilePath(application.ExeName) + 'w83781d.dll';
  if FileExists(Pfad) then
  begin
    hInstDll := LoadLibrary(PChar(Pfad));
    if hInstDll <> 0 then
    try
      Get_CPUTempValue:= GetProcAddress(hInstDll, 'LX_Get_CPUTempValue');
      if Assigned(Get_CPUTempValue)  then
        Get_CPUTempValue(Addr(Result));
    finally
      FreeLibrary(hInstDll);
    end;
  end;
end;

But this dosent work!Please tell me whats wrong?Also if somebody can write about other functions how to call them?
Thanks!

Delphi-Quellcode:

function ismotherboard: boolean;
type
  LX_IsGigaMainBoard = function(pIsGigaMainBoard: Pointer): boolean stdcall;
var
  hInstDll: THandle;
  IsGigaMainBoard: LX_IsGigaMainBoard;
  Pfad: AnsiString;
begin

  Pfad := ExtractFilePath(application.ExeName) + 'w83781d.dll';
  if FileExists(Pfad) then
  begin
    hInstDll := LoadLibrary(PChar(Pfad));
    if hInstDll <> 0 then
    try
      IsGigaMainBoard:= GetProcAddress(hInstDll, 'LX_IsGigaMainBoard');
      if Assigned(IsGigaMainBoard)  then
        IsGigaMainBoard(Addr(Result));
    finally
      FreeLibrary(hInstDll);
    end;
  end;

W83781D.DLL exported functions

Delphi-Quellcode:

LX_Admin_PWD_Setting   
LX_COM1Control   
LX_COM2Control   
LX_FloppyControl   
LX_Get_CaseOpenStatus   
LX_Get_CPUFanCount   
LX_Get_CPUTempValue   
LX_Get_PowerFanValue   
LX_Get_SystemFanValue   
LX_Get_VoltageCPUValue   
LX_Get_VoltageP12Value   
LX_Get_VoltageP33Value   
LX_Get_VoltageP5Value   
LX_IsGigaMainBoard   
LX_IsMSIMainBoard   
LX_IsQDIMainBoard   
LX_ParallelControl   
LX_Password_Control_Request   
LX_User_PWD_Setting   
W_CaseO_Clear   
W_Get_Battery_Status   
W_Get_Beep_Status   
W_Get_CaseO_Status   
W_Get_Fan1_Status   
W_Get_Fan2_Status   
W_Get_Fan3_Status   
W_Get_FanCount   
W_Get_FanLoLimit   
W_Get_Status   
W_Get_Temp1_Status   
W_Get_Temp23_Status   
W_Get_Temp2_Status   
W_Get_Temp3_Status   
W_Get_TempLimitValue   
W_Get_TempValue   
W_Get_Version   
W_Get_VIDVcore   
W_Get_VIDVcore1   
W_Get_VIDVcore2   
W_Get_VIN0_Status   
W_Get_VIN1_Status   
W_Get_VIN2_Status   
W_Get_VIN3_Status   
W_Get_VIN4_Status   
W_Get_VIN5_Status   
W_Get_VIN6_Status   
W_Get_VIN7_Status   
W_Get_VINLimitValue   
W_Get_VINValue   
W_hua_inp   
W_hua_inpd   
W_hua_inpw   
W_hua_outp   
W_hua_outpd   
W_hua_outpw   
W_IsDualCPU   
W_IsGBT   
W_IsHWM   
W_IsITE   
W_IsW83781D   
W_Set_Beep_Status   
W_Set_FanLoLimitValue   
W_Set_TempLimitValue   
W_Set_VINLimitValue   
W_SMI_Test   
W_Temp_RtoT   
W_Temp_TtoR

[semo]

is it allowed to use the gigabyte dll?

and please specify "this doesnt work".
what do you mean with that?
what error appears?

[Razor]

No error comes up until you dont drop it in easy tune 4 directory.It shows false on gigabyte motherboard.But it must show true becouse the board is gigabyte... :)

[gsh]

try it so

Delphi-Quellcode:

function ismotherboard: boolean;
type
  LX_IsGigaMainBoard = function(pIsGigaMainBoard: Pointer): boolean stdcall;
var
  hInstDll: THandle;
  IsGigaMainBoard: LX_IsGigaMainBoard;
  Pfad: AnsiString;
begin

  Pfad := ExtractFilePath(application.ExeName) + 'w83781d.dll';
  if FileExists(Pfad) then
  begin
    hInstDll := LoadLibrary(PChar(Pfad));
    if hInstDll <> 0 then
    try
      IsGigaMainBoard:= GetProcAddress(hInstDll, 'LX_IsGigaMainBoard');
      if Assigned(IsGigaMainBoard)  then
      begin
        IsGigaMainBoard(Addr(Result));
      end
      else ShowMessage('Error');
    finally
      FreeLibrary(hInstDll);
    end;
  end;

maybe der is an error while loding the dll

and do you know that this type deklaration is correct?
LX_IsGigaMainBoard = function(pIsGigaMainBoard: Pointer): boolean stdcall;

[Razor]

Yes i think it is correct do we have someone here that has a Gigabyte board to test this? :)
I need this function as a sort of protect mechanism and it goes like this if you have a gigabyte motherboard then it will show cpu temperature.So if ismotherboard then cputemp... :P

[Der_Unwissende]

Zitat:

Zitat von gsh

and do you know that this type deklaration is correct?
LX_IsGigaMainBoard = function(pIsGigaMainBoard: Pointer): boolean stdcall;

Zitat:

Zitat von Razor

Yes i think it is correct do we have someone here that has a Gigabyte board to test this? :)

Hi,
well to me it seems to be much easier if you just explain where you've got the signature from. Is there some SDK/Specification published by Gigabyte?

And if so, I don't think that they will use the Pointer to an Delphi-Boolean as an argument of the function, neither they will use this Type for the return-parameter. Because of Portability the might have used something like an C-Bool (an Integervalue, if 0 = false, true otherwise). But why should this method return the result by an argument and as a result of the function?

Regards Der Unwissende

[Razor]

Well i got the info from Delphi Praxis :lol:

Link

[Der_Unwissende]

Zitat:

Zitat von Razor

Well i got the info from Delphi Praxis :lol:

Link

I see. So the signature of LX_Get_CPUTempValue is well known and testet, and hopefully other functions work similar, but this can't be assured by one known signature.
Well, I guess that you should change the boolean in the DLL-Function Call (as parameter and result) to LongBool. This is the more convenient way do return a True or False, because most languages supports a generic Integer Type (int in C, Integer in Delphi, ...), while boolean might be implemented in different ways.

[Muetze1]

Zitat:

Zitat von Der_Unwissende

well to me it seems to be much easier if you just explain where you've got the signature from. Is there some SDK/Specification published by Gigabyte?

And if so, I don't think that they will use the Pointer to an Delphi-Boolean as an argument of the function, neither they will use this Type for the return-parameter. Because of Portability the might have used something like an C-Bool (an Integervalue, if 0 = false, true otherwise). But why should this method return the result by an argument and as a result of the function?

As you can see, he just copy & paste from the working temperature code. He renamed the parameter and that's all. He has no knowledge about the things he does - but he also don't want to know. He only wants it running (and getting the code)...

[Razor]

Nobody knows and now you are deleting my posts?Oh thats nice!

[Der_Unwissende]

Zitat:

Zitat von Razor

Nobody knows and now you are deleting my posts?Oh thats nice!

This is just a forum, it has rules and some code of behaviour, including not to berate anybody. And only the fact of berating Muetze1 was r_kerbers reason to remove the post.
Well, the code of behaviour also includes, that every requester is supposed to post some detailed information about the problem to solve, the things tried out and so on. Well I think Muetze just wanted to say, that you should work on that points. So it is a little unconventional to deploy some code without the possibility to test the correctness of that code and even without any specification. As far as I can see, you just guessed how the function could work. But you should tell if so! At least this means a risk to all people testing your code on a Gigabyte-Board.

If you want to know, how the dll is working, you could dissassemble it and take a look at the enty-point of the corresponding function inside the dll. Of course this is not easy, but this is the best way to get the information. Of cource you could ask bitsetter, maybe by PN or post the question in a thread. But please keep it polite and post all information, including where you've got the code from and why you changed it the way you did. Of course it also good to know where your code has been testet (you've just said, that the code does not work the right way).

[Razor]

Ok i am really sorry to Meutze1 you and many others!Wont happen again! :?


As i said i do not know ASM i will just post the code,cant understand it.
I load this in to IDA (Dissassembler)


But i am sure somebody will understand it...




For LX_Get_CPUFanCount function

Delphi-Quellcode:

public LX_Get_CPUFanCount
LX_Get_CPUFanCount proc near

arg_0= dword ptr  4

mov     eax, [esp+arg_0]
push    eax
push    1
call    W_Get_FanCount
retn    4
LX_Get_CPUFanCount endp

For LX_IsGigaMainBoard function

Delphi-Quellcode:

; Exported entry  14. LX_IsGigaMainBoard



public LX_IsGigaMainBoard
LX_IsGigaMainBoard proc near
mov     eax, dword_1000D674
dec     eax
neg     eax
sbb     eax, eax
retn
LX_IsGigaMainBoard endp

For LX_IsQDIMainBoard function

Delphi-Quellcode:

; Exported entry  15. LX_IsMSIMainBoard
; Exported entry  16. LX_IsQDIMainBoard



public LX_IsQDIMainBoard
LX_IsQDIMainBoard proc near
or      eax, 0FFFFFFFFh ; LX_IsMSIMainBoard
retn
LX_IsQDIMainBoard endp

For LX_IsMSIMainBoard function

Delphi-Quellcode:

; Exported entry  15. LX_IsMSIMainBoard
; Exported entry  16. LX_IsQDIMainBoard



public LX_IsQDIMainBoard
LX_IsQDIMainBoard proc near
or      eax, 0FFFFFFFFh ; LX_IsMSIMainBoard
retn
LX_IsQDIMainBoard endp

For LX_Get_CPUFanCount function

Delphi-Quellcode:

; Exported entry   5. LX_Get_CPUFanCount



public LX_Get_CPUFanCount
LX_Get_CPUFanCount proc near

arg_0= dword ptr  4

mov     eax, [esp+arg_0]
push    eax
push    1
call    W_Get_FanCount
retn    4
LX_Get_CPUFanCount endp

For LX_Get_SystemFanValue function

Delphi-Quellcode:

; Exported entry   9. LX_Get_SystemFanValue



public LX_Get_SystemFanValue
LX_Get_SystemFanValue proc near

var_4= dword ptr -4
arg_0= dword ptr  4

push    ecx
cmp     dword_1000D680, 1
jnz     short loc_100038DA

For LX_Get_PowerFanValue function

Delphi-Quellcode:

; Exported entry   8. LX_Get_PowerFanValue



public LX_Get_PowerFanValue
LX_Get_PowerFanValue proc near

arg_0= dword ptr  4

cmp     dword_1000D680, 1
jnz     short loc_10003938

For LX_Get_VoltageP12Value function

Delphi-Quellcode:

; Exported entry  11. LX_Get_VoltageP12Value



public LX_Get_VoltageP12Value
LX_Get_VoltageP12Value proc near

arg_0= dword ptr  4

mov     eax, [esp+arg_0]
push    eax
push    4
call    W_Get_VINValue
retn    4
LX_Get_VoltageP12Value endp

For LX_Get_VoltageP5Value function

Delphi-Quellcode:

; Exported entry  13. LX_Get_VoltageP5Value



public LX_Get_VoltageP5Value
LX_Get_VoltageP5Value proc near

arg_0= dword ptr  4

mov     eax, [esp+arg_0]
push    eax
push    3
call    W_Get_VINValue
retn    4
LX_Get_VoltageP5Value endp

For LX_Get_VoltageP3Value function

Delphi-Quellcode:

; Exported entry  12. LX_Get_VoltageP33Value



public LX_Get_VoltageP33Value
LX_Get_VoltageP33Value proc near

arg_0= dword ptr  4

mov     eax, dword_1000D680
push    esi
cmp     eax, 1
jnz     short loc_100039A8

For LX_Get_CaseOpenStatus function

Delphi-Quellcode:

; Exported entry   7. LX_Get_CaseOpenStatus



public LX_Get_CaseOpenStatus
LX_Get_CaseOpenStatus proc near

arg_0= dword ptr  4

mov     eax, [esp+arg_0]
push    eax
push    10h
call    W_Get_Status
retn    4
LX_Get_CaseOpenStatus endp

For W_Get_FanLoLimit function

Delphi-Quellcode:

; Exported entry  28. W_Get_FanLoLimit



public W_Get_FanLoLimit
W_Get_FanLoLimit proc near

arg_0= dword ptr  4
arg_4= dword ptr  8

xor     eax, eax
mov     ax, word_1000D894
cmp     eax, 290h
jg      short loc_10002C0E

For W_Set_FanLoLimitValue function

Delphi-Quellcode:

; Exported entry  57. W_Set_FanLoLimitValue



public W_Set_FanLoLimitValue
W_Set_FanLoLimitValue proc near

arg_0= dword ptr  4
arg_4= dword ptr  8

xor     eax, eax
mov     ax, word_1000D894
cmp     eax, 130h
jg      short loc_10002E18

[Razor]

Sorry to double post but dosent the info help?If not then this was not worth posting..

[Phoenix]

Perhaps those information is in fact helpful and the other guys just did'nt had the time to look at it.

'Pushing' a thread like you do is only allowed after a minimum of 24 hours here, so I really urge you to stick to our forum rules here and only reply to an own post which is more than a whole day old.

We mods already got complaints about some of your posts (as well as the deactivated one was a users complaint) and we got complaints about your pushing, so please try to calm a bit down if there isn't an answer after three or four hours, get yourself a cup of really hot tea and have a book beside you. Just don't bring us in a haste, okay? :zwinker:

[Razor]

Opology has been stated to the mods,muetze1 and everybody else. Kein Problem :)

[bitsetter]

HardwareMonitor.zip

[Razor]

Thank you very much! :)

Can you provide more information about other functions thanks in advance!

LX_IsGigaMainBoard //Checks if its gigabyte board
LX_IsMSIMainBoard //Checks if its MSI board
LX_IsQDIMainBoard //Checks if its QDI board

These are voltages (12 V,3,3 V,5 V,-5 V,-12 V,VBAT,+5 VSB and vcore)

W_Get_VIN0_Status
W_Get_VIN1_Status
W_Get_VIN2_Status
W_Get_VIN3_Status
W_Get_VIN4_Status
W_Get_VIN5_Status
W_Get_VIN6_Status
W_Get_VIN7_Status


Voltage regulation
W_Get_VIDVcore
W_Get_VIDVcore1
W_Get_VIDVcore2

Voltage Alarm

W_Get_VINLimitValue
W_Get_VINValue

By this you can set Voltage Alarm limit
W_Set_VINLimitValue

Checks if its open case i guess its boolean or longbolean maybe even integer( 0,-1)

W_Get_CaseO_Status


Another interested functions i dont know what they do

W_IsDualCPU //Check mechanism for dual core/quad core cpus?
W_IsGBT //is gigabyte board?
W_IsHWM //Dont know for this one,i think it has to do with graphic cards,not 100% sure...
W_IsITE //ITE GigaRAID controler?
W_IsW83781D
W_SMI_Test
W_Get_FanLoLimit //Alarm maybe for fans?
W_Get_Status
W_hua_inp
W_hua_inpd
W_hua_inpw
W_hua_outp
W_hua_outpd
W_hua_outpw
W_Temp_RtoT
W_Temp_TtoR
W_CaseO_Clear //Case opened?

[Razor]

LX_IsGigaMainBoard //Checks if its gigabyte board


This functions 100%.Works like this if you have a Gigabyte board then it will show i:0(as boolean true) if you don't have a Gigabyte board then it will show i:-1(as boolean false).Simple,eh? :)

Delphi-Quellcode:

#include <windows.h>
#include <stdio.h>

typedef int (*isgigabytemobo)(void);

int main()
{
   HMODULE hGigabyteLib = NULL;
   isgigabytemobo LX_IsGigaMainBoard = NULL;

   hGigabyteLib = LoadLibrary(L"W83781D.DLL");

   if (hGigabyteLib != NULL)
   {
      printf("Library loaded: W83781D.DLL.\n");

      LX_IsGigaMainBoard = (isgigabytemobo)GetProcAddress(hGigabyteLib, "LX_IsGigaMainBoard");

      if (LX_IsGigaMainBoard != NULL)
      {
         printf("Found LX_IsGigaMainBoard.\n");

         printf("i: %i.\n", LX_IsGigaMainBoard());
      }
      else
         printf("Could not find LX_IsGigaMainBoard.\n");
      
      FreeLibrary(hGigabyteLib);
   }
   else
      printf("Couldn't load library W83781D.DLL.\n");

   system("pause");

   return 0;
}

[Razor]

No comments? :wall:

[Razor]

*push* :?

[Olli]

Maybe start up a disassembler and investigate on your own? How about IDA 4.3 Freeware?

[Razor]

Well i wouldnt know even where to start,all i found is this but what does this mean?Does it contain any parameters,well i doubt so.

Zitat:

public LX_IsQDIMainBoard
LX_IsQDIMainBoard proc near
or eax, 0FFFFFFFFh ; LX_IsMSIMainBoard
retn
LX_IsQDIMainBoard endp

Can someone translate this?To delphi..

Zitat:

#include <windows.h>
#include <stdio.h>

typedef int (*isgigabytemobo)(void);

int main()
{
HMODULE hGigabyteLib = NULL;
isgigabytemobo LX_IsGigaMainBoard = NULL;

hGigabyteLib = LoadLibrary(L"W83781D.DLL");

if (hGigabyteLib != NULL)
{
printf("Library loaded: W83781D.DLL.\n");

LX_IsGigaMainBoard = (isgigabytemobo)GetProcAddress(hGigabyteLib, "LX_IsGigaMainBoard");

if (LX_IsGigaMainBoard != NULL)
{
printf("Found LX_IsGigaMainBoard.\n");

printf("i: %i.\n", LX_IsGigaMainBoard());
}
else
printf("Could not find LX_IsGigaMainBoard.\n");

FreeLibrary(hGigabyteLib);
}
else
printf("Couldn't load library W83781D.DLL.\n");

system("pause");

return 0;
}

[Olli]

Zitat:

Zitat von Razor

Well i wouldnt know even where to start,all i found is this but what does this mean?Does it contain any parameters,well i doubt so.

Zitat:

public LX_IsQDIMainBoard
LX_IsQDIMainBoard proc near
or eax, 0FFFFFFFFh ; LX_IsMSIMainBoard
retn
LX_IsQDIMainBoard endp

No parameters. It just returns 0xFFFFFFFF, which is another way of saying -1 (32bit) or setting all bits in a LongBool to 1.

Zitat:

Zitat von Razor

Can someone translate this?To delphi..

The important part is

Code:

typedef int (*isgigabytemobo)(void);

which says that:

Delphi-Quellcode:

type TFNisgigabytemobo = function(): Integer; cdecl;

(where cdecl is not important, because no params are being passed)

[Razor]

Even though if a function doesnt have a parameter can it be called?I guess than it will only return 0 or -1 ,yes or no

[Olli]

Of course can a function without parameters be called.

Given the short disassembly excerpt, this function returns exactly ONE value: -1

But I presume that the actual meaning is BOOL (i.e. LongBool in Delphi) and that this is supposed to return -1 or 0, yes.

[Razor]

public LX_IsQDIMainBoard
LX_IsQDIMainBoard proc near
or eax, 0FFFFFFFFh ; LX_IsMSIMainBoard
retn
LX_IsQDIMainBoard endp


So this is accuall boolean function that returns -1 or 0 ,you can also sometime see the parameter in the name of the function.Is can only be boolean.

[Olli]

Zitat:

Zitat von Razor

So this is accuall boolean function that returns -1 or 0 ,you can also sometime see the parameter in the name of the function.Is can only be boolean.

The point is, that per definition a LongBool (Windows.BOOL) can have any value other than 0 and will be true in that case. This also means that it is not sufficient to check for 1 (as true) and 0 (as false) but rather you should check against 0 (i.e. FALSE) in all cases.

[Razor]

Can you help me with other functions :)

[Olli]

How much do you pay per hour? :mrgreen: :zwinker:

I can try, but my spare time is limited anyway, so I'd prefer you forward only those parts you really can't solve yourself. Please do it via the forum anyway, so other can benefit from the findings.

[Razor]

For me it returns -1 or false but i dont know for accual users that have gigabyte board.So you may test it

Delphi-Quellcode:

interface

uses
  Fastmm4,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
    const
  w83781ddll = 'w83781d.dll';
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function LX_IsGigaMainBoard : integer;external 'w83781d.dll';
var
  Form1: TForm1;
   hInstdll: THandle;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hInstdll := LoadLibrary(w83781ddll);
if LX_IsGigaMainBoard=-1 then
label1.caption:='you dont have a giga board!'
else  if   LX_IsGigaMainBoard=0 then
 label1.caption:='you do have a giga board!';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeLibrary(hInstdll);
end;

end.

[Olli]

Zitat:

Zitat von Razor

For me it returns -1 or false but i dont know for accual users that have gigabyte board.So you may test it

I don't have such a board anyway, but the function that you posted as disassembly before was pretty clear on that (if it was the complete body you posted).

[Razor]

So other functions can be called in the same way?

LX_IsMSIMainBoard
LX_IsQDIMainBoard

[Olli]

I'd have to see those. Perhaps you could send me the DLL in question and a (short!) list of functions you want deciphered (send it via PM in an archive).

[Razor]

Dll is already attached,you get the short list of functions now!

[Olli]

Delphi-Quellcode:

function LX_IsQDIMainBoard():LongBool; stdcall;  // check against FALSE, same as LX_IsMSIMainBoard
function LX_IsMSIMainBoard():LongBool; stdcall;  // check against FALSE, same as LX_IsQDIMainBoard
function LX_IsGigaMainBoard():LongBool; stdcall; // check against FALSE

Except for LX_IsGigaMainBoard those functions don't do anything.

[Razor]

W_Get_VIDVcore1 can you look what does this function contain(pointers,parameters?)