Jump to content
Sign in to follow this  
MyEarth

Help me to convert a C code

Recommended Posts

MyEarth

Hello,

There is a way o someone for convert this to autoit? It's only a few lines

std::wcout << "Ready"; 
        _iconParentHwnd = FindWindow(_T("Shell_TrayWnd"), NULL); 
        _iconHwnd = FindWindowEx(_iconParentHwnd, NULL, _T("Start"), NULL); 
        LRESULT _iconHdl = SendMessage(_iconHwnd, WM_CLOSE, NULL, NULL); 
        signed int _reVal = static_cast<int>(_iconHdl); 
        if (_reVal == 0)
        {
            std::wcout << "\n\succes"; 
        }
        else
            {
                std::wcout << "\n\nFailed Error: " << GetLastError() << ")";
                std::getwchar();
            }
        }
                     endif

I have see there in autoit:

_WinAPI_FindWindow

_SendMessage

But i don't have understand that _T(), NULL i think is = "" but we don't have a function called FindWindowEx

Thanks for help to archivie this ;)

Edited by MyEarth

Share this post


Link to post
Share on other sites
FireFox

Hi,

FindWindow is WinGetHandle in autoit.

WinGetHandle("[CLASS:Shell_TrayWnd]")

Br, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
martin

I think it would translate to something like this but whether the logic of the code is correct I can't say.

#include <WindowsConstants.au3>
#include <SendMessage.au3>

$iconParentHwnd = WinGetHandle("Shell_TrayWnd");
$iconHwnd = WinGetHandle($iconParentHwnd, "start"); must not have upper case 's' if you're looking for the 'start' button?
$iconHdl = _SendMessage($iconHwnd, $WM_CLOSE);

If ($iconHdl = 0) Then
    MsgBox(262144, "Result", "Success!")
Else
    MsgBox(262144, "Result", "Failed!")
EndIf
 
Edited by martin

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites
MyEarth

Well, the code give me "Success" but not the expected result. I want to hide the orb of Windows 7. i have try many method, always failed:

ControlCommand
ControlHide
 _WinAPI_ShowWindow

There are plenty of example in C#, but i'm not very good to convert it ( and before this post i have try it, lost hours for try to do the same ) like:

Link 1 ( check the comment of Simon B. 22-Aug-12 11:34 for hide only the orb )

Link 2

The taskbar in his "totally" is easy to hide with Autoit, the orb not. Thanks guys for the help, i'll really apprecciate it :D

Edited by MyEarth

Share this post


Link to post
Share on other sites
FireFox

and... I can see in a link you provided that the orb is still visible but the taskbar is hidden.

Actually, there is an orb on the taskbar and a hover orb, you can either hide this hover orb or hide the taskbar and its orb.

Br, FireFox.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
MyEarth

and... I can see in a link you provided that the orb is still visible but the taskbar is hidden.

Actually, there is an orb on the taskbar and a hover orb, you can either hide this hover orb or hide the taskbar and its orb.

Br, FireFox.

 

There are software can hide it:

Start Killer

and

Start Orb Mover ( P.S There are 2 exe's in Start Orb MoverAppFiles, HideIt and ShowIt and both work )

So:

If the question is: Is Possible to hide only the orb? The answer is Yes

If the question is: How? Then answer is: I don't know :D

Jocking apart, i'll continue the research but if you guys have an idea please post it

I'm guessing you don't even know if that c code works.

 

You have right, but in part. I have tested both codes and they hide completely the taskbar, but i think can be "edit" for hide only the orb, the problem is i don't know C-C# so i don't know how to start

 

Edited by MyEarth

Share this post


Link to post
Share on other sites
MyEarth

Another code but in VB6, untested because i can't find any trial of VB6, but from the word of the author "seems" work

'**************************************
' Name: Hide - Show the "Start" Button windows Vista and 7
' Description: Knowledge belongs to all.
' Wherever you look on the internet you can not find how to do hide
' the "Start Button" and "Shell tray" on windows Vista and 7 do not find a solution other than "startkiller"
' The following code solves the problem.
' By: Diomidis
'
'
' Inputs:None
'
' Returns:None
'
' Assumes:None
'
' Side Effects:None
' This code is copyrighted and has limited warranties
' Please see http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.74343/lngWId.1/qx/vb/scripts/ShowCode.htm
' for details.
'**************************************

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Public Function ShowTaskbar(ByVal IsLock As Boolean)
    If IsLock = False Then
        ShowWindow FindWindow("shell_traywnd", vbNullString), 1
        'only Vista-7
        ShowWindow FindWindowEx(FindWindow("Desktop", ""), 0, "Button", vbNullString), 1
    Else
        ShowWindow FindWindow("shell_traywnd", vbNullString), 0
        'only Vista-7
        ShowWindow FindWindowEx(FindWindow("Desktop", ""), 0, "Button", vbNullString), 0
    End If
End Function

If someone what to check it out i'll appreciate

Share this post


Link to post
Share on other sites
FireFox

#include <WinAPIEx.au3>
 
ShowTaskbar(True)
 
Func ShowTaskbar($fIsLock)
    If $fIsLock = False Then
        _WinAPI_ShowWindow(_WinAPI_FindWindow("shell_traywnd", ""), 1)
        ;only Vista-7
        _WinAPI_ShowWindow(_WinAPI_FindWindowEx(_WinAPI_FindWindow("Desktop", ""), 0, "Button", ""), 1)
    Else
        _WinAPI_ShowWindow(_WinAPI_FindWindow("shell_traywnd", ""), 0)
        ;only Vista-7
        _WinAPI_ShowWindow(_WinAPI_FindWindowEx(_WinAPI_FindWindow("Desktop", ""), 0, "Button", ""), 0)
    EndIf
EndFunc   ;==>ShowTaskbar
 
Func _WinAPI_FindWindowEx($hParent, $hChildAfter, $sClassName, $sWindowName)
    Local $aResult = DllCall("user32.dll", "hwnd", "FindWindowEx", "hwnd", $hParent, "hwnd", $hChildAfter, "wstr", $sClassName, "wstr", $sWindowName)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aResult[0]
EndFunc   ;==>_WinAPI_FindWindowEx

 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites
MyEarth

FireFox again thank. I have tested the code and work at "half" ( P.S. Change <WinAPIEx.au3> with <WinAPI.au3> )

This line correctly hide the taskbar:

_WinAPI_ShowWindow(_WinAPI_FindWindow("shell_traywnd", ""), 1)

But this, for hide the orb, not work. Very strange:

_WinAPI_ShowWindow(_WinAPI_FindWindowEx(_WinAPI_FindWindow("Desktop", ""), 0, "Button", ""), 1)

I have try also to convert the first script using _WinAPI_FindWindowEx:

#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <WinAPI.au3>

$_iconParentHwnd = _WinAPI_FindWindow("shell_traywnd", "")
$_iconHwnd = _WinAPI_FindWindowEx($_iconParentHwnd, "", "Start", "")
$iconHdl = _SendMessage($_iconHwnd, $WM_CLOSE) ; same for _WinAPI_ShowWindow

If ($iconHdl = 0) Then
    MsgBox(262144, "Result", "Success!")
Else
    MsgBox(262144, "Result", "Failed!")
EndIf

Func _WinAPI_FindWindowEx($hParent, $hChildAfter, $sClassName, $sWindowName)
    Local $aResult = DllCall("user32.dll", "hwnd", "FindWindowEx", "hwnd", $hParent, "hwnd", $hChildAfter, "wstr", $sClassName, "wstr", $sWindowName)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aResult[0]
EndFunc   ;==>_WinAPI_FindWindowEx

Result is "Success" but don't do nothing. What is the "secret"?

Other useful information:

The start "orb" in Windows Vista is actually a separate top-level window
rather than a child of the taskbar, as it needs to be shaped for its overhang
from a single-row task bar and Microsoft did not want to incur a penalty for
shaping the entire task bar.

I don't remember its details off the top of my head, but if you use Spy++
you should be able to locate it. It can be shown/hidden independently of the
rest of the task bar.

It's definitely doable -- one of our applications does it :-)

-----------------

I can't paste the code itself, but we do it like this:

1. Find the task bar itself.

2. Get the process ID of the Explorer process that owns the task bar.

3. Enumerate all top-level windows.

4. For each window, get its process ID.

5. If it is the same as Explorer's, get the window text.

6. If the window text is "Start", it's our button.

I don't know if this works on localized versions of Windows Vista.

Hopefully this is something you can adapt to your needs :-)

Enjoy,

-----------------

Instead of trying to close it, try just hiding and showing it. In our
application, it responds to ShowWindow with SW_HIDE.

The window cannot be identified by class name. You must first find the
process ID of the owner of the task bar itself (which you *can* find with a
simple FindWindow call), and then enumerate the windows and follow the
procedure I outlined to locate the other top-level windows owned by the same
process. One of those other windows is the start orb.

 

Link

Edited by MyEarth

Share this post


Link to post
Share on other sites
MyEarth

Damn i have do everything that post say ( our software work blablabla i can't post the code blablabla), why not work for me? :pirate:

#include <WinAPI.au3>
#include <Array.au3>
;~ #include <SendMessage.au3>
;~ #include <WindowsConstants.au3>

Local $Explorer_Handle, $Explorer_ID, $Start_Button, $Start_Handle

$Explorer = ProcessList("explorer.exe")
For $i = 1 To $Explorer[0][0]
    $Explorer_ID = $Explorer[$i][1]
Next

MsgBox(0, "ID", $Explorer_ID)
$Explorer_Handle = _GetHwndFromPID($Explorer_ID)
MsgBox(0, "HANDLE", $Explorer_Handle)

$Start_Button = WinList()

For $i = 1 To $Start_Button[0][0]
    If $Start_Button[$i][0] = "Start" And $Start_Button[$i][1] = $Explorer_Handle Then
        MsgBox(0, "Details", "Title=" & $Start_Button[$i][0] & @LF & "Handle=" & $Start_Button[$i][1])
        $Start_Handle = $Start_Button[$i][1]
    EndIf
Next

_WinAPI_ShowWindow($Start_Handle, @SW_HIDE)
;~ _SendMessage($Start_Handle, $WM_CLOSE)

Func _GetHwndFromPID($PID)
    $hWnd = 0
    $stPID = DllStructCreate("int")
    Do
        $winlist2 = WinList()
        For $i = 1 To $winlist2[0][0]
            If $winlist2[$i][0] <> "" Then
                DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $winlist2[$i][1], "ptr", DllStructGetPtr($stPID))
                If DllStructGetData($stPID, 1) = $PID Then
                    $hWnd = $winlist2[$i][1]
                    ExitLoop
                EndIf
            EndIf
        Next
        Sleep(100)
    Until $hWnd <> 0
    Return $hWnd
EndFunc   ;==>_GetHwndFromPID
Edited by MyEarth

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • gahhon
      By gahhon
      Hi,
      I have a program that is read data from the .txt file, since the .txt file is only readable, viewable and editable for the admin user.
      But how could I lock it with password, or some other technique that can helps to achieve this?
      Thanks for the advanced information.
    • gahhon
      By gahhon
      Hi,
      How can I the trigger the another button functions without waiting the previous function to finish execute?
      Any advise?
      I couldn't find any relevant topics via google.
      Thanks a lot.
    • SharpDressedMan
      By SharpDressedMan
      Hi all,
      I need to use ControlMove() on some controls of a hidden GUI window.
      This works properly on a GUI window created with default style, but does not work on a GUI window created with style $WS_OVERLAPPEDWINDOW
      func GUItest($bOverlapped) $m = GUICreate("test", 200, 100, -1, -1, $bOverlapped ? $WS_OVERLAPPEDWINDOW : -1) $g = GUICtrlCreateButton("test", 0, 0) ControlMove($m, "", $g, 30, 30) GUISetState() endfunc GuiTest(false) ; button 'test' properly moved to (30,30) GuiTest(true) ; button 'test' not moved and still sitting at (0,0) Any reason for this unexpected behavior ?
      Any workaround to fix this ?
      Thanks for any help
    • 2Toes
      By 2Toes
      Hi all..
      I'm having slight issue that has be a bit puzzled.
      I have an Input control.. After a certain function runs, it Disables that Input control, and sets it to ReadOnly.
      When running another certain function, it re-Enables that Input control, and sets the style back to Default.
      Which does work, however, when typing into the Input control after re-Enabling it, the text appears as a light gray color, rather than its original black color.
      I'm sure there's a simple solution here.. But what that is, appears to be beyond me.
      Here is a simplified example code:
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Form1", 245, 215, 192, 124) Global $disableBTN = GUICtrlCreateButton("Disable", 32, 64, 75, 25) Global $enableBTN = GUICtrlCreateButton("Enable", 128, 64, 75, 25) Global $Input1 = GUICtrlCreateInput("", 32, 120, 169, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $disableBTN disable() Case $enableBTN enable() EndSwitch WEnd Func disable() GUICtrlSetState($Input1, $GUI_DISABLE) GUICtrlSetStyle($Input1, $ES_READONLY) EndFunc Func enable() GUICtrlSetState($Input1, $GUI_ENABLE) GUICtrlSetStyle($Input1, $GUI_SS_DEFAULT_INPUT) EndFunc  
      Any help would be greatly appreciated
      Thank you in advance!
    • jantograaf
      By jantograaf
      Hi all,
      I'm trying to create a script that runs a JSON-query and then can retrieve some variables out of the returned, decoded object using JSON.au3. I have tried some other examples on this forum, but I'm stuck at one point. My query works perfectly and gets loaded into the variable $data. Then, decoding $data to $object seems to work as well. But then I can't get the date-field out of this JSON-structure with my script.
      The JSON-structure returned looks like this:
      { "content": [ { "id": "451ec583-8f27-4926-82a3-a2d85e57a110", "createdDate": "2018-08-08T08:40:57.449004Z", "updatedDate": "2018-08-08T08:40:57.449004Z", "lastOpenedDate": "2018-08-08T08:40:57.449004Z", "date": "2018-04-26T00:00:00", "description": "X-Ray Exam", "patient": { "id": "f857238a-c75d-4760-b8d1-8f50f8f9bbfa", "createdDate": "2018-08-08T08:40:37.623976Z", "updatedDate": "2018-08-08T08:40:37.623976Z", "lastOpenedDate": "2018-08-08T08:40:37.623976Z", "name": "Fuerstonia", "birthDate": "2014-06-08", "breed": "", "chip": "", "color": "", "damsire": "", "sire": "", "neutered": false, "orthancUuid": "", "sex": "U", "species": "Paard", "ueln": "De 431310762114", "pmsReference": "", "origin": "" }, "type": "study", "accessionNumber": "KME201806960467", "instanceUid": null, "orthancUuid": "", "sent": false, "seriesCount": 0, "modalityType": "RX", "typeAndModality": "study RX", "client": { "id": "be627195-8458-4927-8446-f1ef37b917a4", "createdDate": "2018-08-08T08:40:31.433968Z", "updatedDate": "2018-08-08T08:40:31.433968Z", "lastOpenedDate": "2018-08-08T09:26:49.512298Z", "via": "", "extraInfo": "", "pmsReference": "", "contact": { "id": "406cc555-c491-4c29-b6bb-8d903f0e35a9", "createdDate": "2018-08-08T08:40:31.428968Z", "updatedDate": "2018-08-08T08:40:31.428968Z", "lastName": "Client 1", "firstName": "", "company": "", "email": "", "language": "nl", "phone": "", "address": { "id": "6fc7703c-137a-4e0a-ba96-8c7f38f2044b", "city": "", "country": "", "line": "", "postalCode": "" } } } }, My script looks like this:
      #RequireAdmin #include <json.au3> #include <inet.au3> #include <File.au3> ;Create a handle to a logfile (will be created if it doesnt exist) Global $logfile = FileOpen("C:\VSOL\VSTK\Logs\MigrationFix\MigrationFix.log",9) FileWriteLine($logfile,"Start script") ;Create the URL with the JSON-query $URL = "http://localhost:8080/v0/studies/?seriesCount=1" ;Catch the query output into a variable $data = _INetGetSource($URL) ;Check if there is any data at all in this variable, if not, exit If Not $data Then MsgBox(1,"Error","No answer. Server is probably not running.") Exit EndIf ;For debugging purposes FileWriteLine($logfile,$data) ;Decode the JSON_string into a useable object $object = Json_Decode($data,1000) If @error Then FileWriteLine($logfile,"Error decoding JSON") Exit EndIf Local $i = 0 ;Start a loop to retrieve the study date of each study... While 1 $study_date = json_get($object,'[' & $i & '].date') If @error Then FileWriteLine($logfile,"Study-Date retrieval error") ExitLoop EndIf $i = $i + 1 WEnd ;Close the logfile FileWriteLine($logfile,"Stop script") FileClose($logfile) ;Open the logfile for quick reference ShellExecute("C:\VSOL\VSTK\Logs\MigrationFix\MigrationFix.log") If believe it has something to do with my json_get($object...)-command. Anyone who can point me in the right direction?
      Thanks in advance!
      Kind regards
×