Mohamed Sayed

I have already sent you an E-mail, and will be waiting for your kind reply after Monday .. Have a nice day ..

The application which will use your tool is a part of USB simulation hardware ( like FMS, MCP ..etc ) .. It will use offsets to interface these hardware with aircraft models like PMDG, PSS .. As you are the author of the tool I would like to discuss that with you .. so I will send you an E-mail on the address which you mentioned above ..

Oh. I see .. sorry for that. The reason is that I need to speak privately about some business regarding the FSUIPC ..

[MOVED TO SUPPORT FORUM!] Dear Mr. Pete, Please advise me your E-mail address, I need to contact you.

**SOLVED** Now, I got it successfully !! - Thanks to "Cyril Hruscak" Thank you Pete..

As nobody were here with VB6 experience to help me, I switched back to my trying on C++, so maybe you help me.. I used this code ... #include <windows.h> #include "gauges.h" /* This is the module's import table. */ \ GAUGESIMPORT ImportTable = \ { \ { 0x00000000, (PPANELS)NULL }, \ { 0x00000000, NULL } \ }; \ \ \ void FSAPI module_init(void) {} void FSAPI module_deinit(void) {} /* This is the module's export table. */ \ GAUGESLINKAGE Linkage = \ { \ 0x00000000, \ module_init, \ module_deinit, \ 0, \ 0, \ GAUGE_HEADER_VERSION_FS900, {0} }; // The standard window procedure used by the flight simulator WNDPROC oldWndProc; // Flight simulator main window handle HWND hFSimWindow; #define MENU_ENTRY "Airline" #define ID_MY_MENUITEM 40001 /** * Main window procedure that is called by the flight simulator to process * incoming window messages. */ LRESULT CALLBACK FSimWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) { switch (uMsg) { case WM_NCPAINT: { HMENU hMenu, hMyMenu; hMenu = GetMenu(hwnd); if (hMenu != NULL) { int i; // Look for our menu entry in the main menu. for (i = 0; i < GetMenuItemCount(hMenu); i++) { char buf[128]; GetMenuString(hMenu, i, buf, 128, MF_BYPOSITION); if (strcmp(buf, MENU_ENTRY) == 0) { // It is already here, we do not need to add it again break; } } if (i < GetMenuItemCount(hMenu)) { // It is already here, we do not need to add it again break; } /* Create new menu. NOTE: It seems that this will be * reached more times, so we cannot save the handle, because * in such case it could be destroyed and we will not have * any access to it in the simulator. */ hMyMenu = CreateMenu(); AppendMenu(hMyMenu, MF_STRING | MF_ENABLED, ID_MY_MENUITEM, "Launch Flight"); AppendMenu(hMyMenu, MF_STRING | MF_ENABLED, ID_MY_MENUITEM, "Fuel Price"); AppendMenu(hMyMenu, MF_STRING | MF_ENABLED, ID_MY_MENUITEM, "Airport Codes"); AppendMenu(hMyMenu, MF_STRING | MF_ENABLED, ID_MY_MENUITEM, "&About");; // add the created menu to the main menu AppendMenu(hMenu, MF_STRING | MF_POPUP, (UINT_PTR)hMyMenu, MENU_ENTRY); AppendMenu(hMyMenu, MF_STRING | MF_ENABLED, ID_MY_MENUITEM, "Zaki"); // add the created menu to the main menu AppendMenu(hMenu, MF_STRING | MF_POPUP, (UINT_PTR)hMyMenu, MENU_ENTRY); } } break; case WM_COMMAND: if (LOWORD(wParam) == ID_MY_MENUITEM) { // Add your code here MessageBox(hwnd, "It works!", "Mohamed", MB_OK | MB_ICONEXCLAMATION); return 0; } break; } // Call the original window procedure to handle all other messages return CallWindowProc(oldWndProc, hwnd, uMsg, wParam, lParam); } /** * Entry point of the DLL. */ BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpvReserved) { switch (fdwReason) { case DLL_PROCESS_ATTACH: hFSimWindow = FindWindow("FS98MAIN", NULL); oldWndProc = (WNDPROC)SetWindowLong(hFSimWindow, GWL_WNDPROC, (LONG)FSimWindowProc); break; } return TRUE; } But when I debug or try to build .dll file, I get this error : I'm sure that I have included gauges.h as a header which I have downloaded from the SDK, here you're a screenshot ..

Dear Pete .. Yes, I'm not that professional at programming, but I'm developing my skills already. we learn from trials and fails.. Well, after a long search and thinking, I guess I'm now about to get a final successful result.. The error I mentioned above didn't occur anymore; at the end right now, I have no errors. but still cannot have a final result .. If you Pete can revise my codes, or anybody else who is good at VB6 -- these are the codes I use.. ** First , this code to connect to FSUIPC Private Sub Command1_Click() Dim Version As Long Dim FS As String Dim dwResult As Long Call FSUIPC_Initialization If FSUIPC_Open(SIM_ANY, dwResult) Then Version = FSUIPC_FS_Version Select Case Version Case 0 FS = "Unknown" Case 1 FS = "FS98" Case 2 FS = "FS2000" Case 3 FS = "CFS1" Case 4 FS = "CFS2" Case 5 FS = "FLY 5" Case 6 FS = "FS2002" Case 7 FS = "FS2004" End Select LblFSUIPCcon = "Connected to " & FS Else LblFSUIPCcon = "Disconnected" End If End Sub ** By click on Command2 button, the procedure CreateFS_MenuEntry search for a free slot and writes the text and the "x0000FFFF" to the offset.. Private Sub Command2_Click() Call CreateFS_MenuEntry End Sub Public Sub CreateFS_MenuEntry() Dim MenuIdx As Variant Dim dwResult As Long Dim tmpLng As Long Dim tmpLng2 As Long Dim gavHotkeyAddr_Menu() As Byte If giMenuCnt = 0 Then Exit Sub gavHotkeyAddr_Menu(0) = GetFreeHotkeySpot(MenuIdx) gavHotkeyAddr_Menu(1) = MenuIdx gavHotkeyAddr_Menu(2) = "Checklist" & vbNullChar tmpLng = &HFFFF tmpLng2 = &H0 Write_UIPC CLng(gavHotkeyAddr_Menu(0)), 2, tmpLng Write_UIPC CLng(gavHotkeyAddr_Menu(0)) + 2, 2, tmpLng2 Write_UIPC &H2FE0, 1, CLng(gavHotkeyAddr_Menu(1)) WriteS_UIPC &H2FE0, CLng(gavHotkeyAddr_Menu(2)), False frmMain.TimerFSmenuHotkey.Enabled = True End Sub ** This codes to search for a free slot Public Function GetFreeHotkeySpot(Optional Idx As Variant) As Long Dim n As Integer Dim gvRetVal As Byte For n = 0 To 55 gvRetVal = FSUIPC_Read(CLng(&H3210) + (4 * n), 1, VarPtr(Idx), 1) If gvRetVal = 0 Then GetFreeHotkeySpot = &H3210 + (4 * n) If Not IsMissing(Idx) Then Idx = n Exit Function End If Next n End Function ** FSUIPC Writing Public Function Write_UIPC(lOffset As Long, lLen As Long, lValue As Long) As Boolean Dim dwResult As Long If FSUIPC_Write(lOffset, lLen, VarPtr(lValue), dwResult) Then If FSUIPC_Process(dwResult) Then Write_UIPC = True End If End If End Function Public Function WriteS_UIPC(lOffset As Long, lLen As Long, lValue As Long) As Boolean Dim dwResult As Long If FSUIPC_WriteS(lOffset, lLen, VarPtr(lValue), dwResult) Then If FSUIPC_Process(dwResult) Then Write_UIPC = True End If End If End Function ** The timer is set to interval of 500, It's job to detect if the menu pressed to launch the form of "frmKneeBoard" .. Private Sub TimerFSmenuHotkey_Timer() Dim dwResult As Long Dim iBingo As Integer Dim tmpStr As String Dim tmpSng As Single Dim pos As Integer If FSUIPC_Read(CLng(gavHotkeyAddr_Menu(0)) + 3, 1, VarPtr(iBingo), dwResult) Then If FSUIPC_Process(dwResult) And iBingo = 1 Then frmKneeboard.Show Write_UIPC CLng(gavHotkeyAddr_Menu(0)) + 3, 1, 0 End If End If DoEvents End Sub

The error is Run-time '13' Type mismatch .. That's how I tried to do the task : 1- I connect to FSUIPC. 2- I get a free slot by the "GetFreeHotkeySpot" function mentioned above & put it into a string.. it always be "0" ! 3- I write "0x0000FFFF" to the slot simply. 4- I write "0My_Menu" to offset 0x2FE0 to give a name to the element. ** But at all, No thing happens and I cannot figure where is the problem !.. Where I can find the SDK examples ( I don't want to be hasty & ask you the codes of C++ as I have to search by myself till the last effort I can do ) .. Last question please, how FS2004 reads dll files in modules folder which reserves a name on menu .. any programmatic idea can help .

Mr.Pete Thank you so much for your reply.. You are right, dwOffset = CLng(&H3210) + (4 * n) should be inside the loop, I corrected the code .. Thanks for your sharp notice. I tried FSUIPC_Write, but I have error when using this procedure .. maybe I have alerted a wrong data type for the size of the offest .. I will check out "Paul Henty's DLL" .. But further if I couldn't use VB6 for the task, I have a little experience with C++ .. Could you please provide me with the code idea ? - your help is highly appreciated .. Thanks Sir..

Dear all.. I'm trying to add a caption in FS2004 menu to run externally .exe file using VB6 .. I have read FSUIPC or Programmers.pdf, and I just could get the free hot key slot by the below code : Public Function GetFreeHotkeySpot(Optional Idx As Variant) As Long Dim n As Integer Dim gvRetVal As Byte Dim dwOffset As Long dwOffset = CLng(&H3210) + (4 * n) For n = 1 To 55 gvRetVal = FSUIPC_Read(dwOffset, 1, VarPtr(Text1.Text), 1) If gvRetVal = 0 Then GetFreeHotkeySpot = &H3210 + (4 * n) If Not IsMissing(Idx) Then Idx = n Exit Function End If Next n End Function I couldn't write 0x0000FFFF to the slot .. How can I reserve a location for my program into FS2004 menu .. I need help please to understand the idea ..

Paul .. Sorry I didn't know exactly where to post my question .. I ll read the document, maybe I find what I want .. Thanks for your reply :)

Dear All .. Does anybody know a way/code in VB6 ( Visual Basic 6 ) to make a dll file which adds an option by a specific name to FS2004 menu bar ?? I searched google for VB6 procedures and any codes but haven't got anything ..

Dear Mr. Pete, We are developing a software which will take advantage of your great utility FSUIPC, We would like to contact you via telephone or E-mail to inquiry and coordinate .. Thank you in advance, Mohamed Sayed