Digetal

now it's about time to include this script into a bigger program say, for security testing purposes???

Great joke prog, I'll add it to my remolt client app

That's a good idea Klaatu! Even though it can be generated from the name a person can use a random number generator so that each time the pass is used the program then changes it based on the number of times its been used. Or something to that effect. Not haveing one admin password for the entire lab I think will increase the security. thanks I'll suggest that to the director

Thank you JdeB I'll have to get back to you on the first question this afternoon. In repsonse to you second question, I was using a listbox instead of a label in the beta stages of the program. Didn't change the GUICtrlSetDelete + Create to a GUICtrlSetData until later. Ohh, thanks for the solution to add quotations into a command. My $x = Chr(34) and then calling x, was my way to fix this problem. The exaple you show is much more efficient. My second post was deleted. It was really uncalled for and I hope I didn't offend anyone.

******moved posts from idea section ******* This program lets you pick a user on the xp machine , input their password, select a program , and then run the program as the selected user. I'm making this for a computer lab; for the admins. Even on computers with no command prmpt access and a strict gpo (a group policy) this works. Haven't added erro caching and the code is still sloppy. Please feel free to post changes, improvements, and other ideas. I would really like to here some ideas from all you great people. THNX Get rid of the create pic line before testing Sorry no caps (pics) for preview. $gui = GUICreate("Run As Selected User" ,290 ,310) GUISetBkColor(0x254B2B) GUICtrlCreatePic("logo.bmp", 0, 0, 280, 70) $lab1 = GUICtrlCreateLabel("Select User:",20,80,100,15) GUICtrlSetColor(-1, 0xffff00) $usrl = GUICtrlCreateList( "" , 20, 95, 100, 80) $lab2 = GUICtrlCreateLabel("Enter Password:",130,80,100,15) GUICtrlSetColor(-1, 0xffff00) $pas = GUICtrlCreateInput(" ", 130, 95, 140, 20) GUICtrlSetLimit(-1,19) $rub = GUICtrlCreateButton("Run",190,170, 45, 20) $fpr = GUICtrlCreateButton("Find App",20,170, 100, 20) $lab = GUICtrlCreateLabel("No Application Selected",20 ,240, 230, 20) GUICtrlSetColor(-1, 0xffff00) $users = RegEnumVAL("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\DocFolderPaths", 1) For $i = 1 to 10 $var = RegEnumVAL("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\DocFolderPaths", $i) If $var <> "" Then $users = $users & @LF & RegEnumVAL("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\DocFolderPaths", $i) GUICtrlSetData($usrl, $var) EndIf Next GUISetState () While 1 $msg = GUIGetMsg() Select Case $msg = $fpr $apploc = FileOpenDialog("", "My Computer", "Program (*.exe)", 1) GUICtrlDelete($lab) $lab = GUICtrlCreateLabel($apploc,20 ,240, 290, 40) GUICtrlSetColor(-1, 0xffff00) Case $msg = $rub $x = Chr(34) $use = GUICtrlRead($usrl) Run(@ComSpec & " /C runas /user:"& $x & "mymachine\" & $use & $x & " " & $apploc , "", @SW_SHOW) WinWaitActive("C:\WINDOWS\system32\cmd.exe") Send(GUICtrlRead($pas) & "{enter}") EndSelect WEnd

great work DaleHohm !!! keep it up, I'll definitely use your UDF library... learned a few things already thnx

yeah unstable enough to use. You guys could always just use something else. This has got to best compiler for scripts I've ever found, anyone got anything different.

Ok, I got to give this a rest. This is the best I could do so far ;#### new.cmd ---v rundll32.exe shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /file:"C:\WINDOWS\Resources\Themes\Dazzle.Theme" exit #### run("new.cmd", "", @SW_HIDE) Opt("WinTitleMatchMode", 4) WinWait("Display Properties" ) WinSetState("Display Properties", "", @SW_HIDE) WinActivate("Display Properties") Send("{enter}") Exit this works very quickly to change to a specified theme, but the "dispay properties" window does appear. if I could get autoit to recognize the dos comand with the equired "theme path" then i wouldn't need the batch file. If any one gets any other ideas please repond!

ohh I also found that the command bellow opens any specific theme. I'll test for a action such as SetTheme C:\WINDOWS\system32\rundll32.exe C:\WINDOWS\system32\shell32.dll,Control_RunDLL C:\WINDOWS\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"C:\WINDOWS\Resources\Themes\Luna.Theme"

ok, this is the script I made a while back. It automatically changes the xp theme to the next one on the list. But, I really needd a way to do this without the display page even appearing.......... ?possible? there has got to be a simple way around this! (OUT OF THE BOX METHOD) needed here Opt("WinTitleMatchMode", 4) Run(@ComSpec & " /C " & "desk.cpl", "", "") WinWait("Display Properties","") WinSetState("Display Properties","",@SW_HIDE) Send("{RIGHT}") Send("{enter}")

I found something in an autoit forum that might lead to the answer when used properly. http://www.autoitscript.com/forum/index.ph...948entry93948 or just read it below ----v *-------------------------------------------------------------------------------------------------------------------------* QUOTE(van_renier @ Jul 19 2005, 10:51 AM) I know how to change the active theme, but, normally, the change won't take affect until either the system is rebooted, the user logs off/on, or explorer.exe (the 'base') is ended/restarted. We are using Au3 to detect which server is consdiered the primary/active server, and change the desktop themes (color schemes) dynamically, so the admins know from glancing at a server's desktop if that system is or is not active. (i know there are numerous other ways to 'notify' the admins, but this is the way agreed on/approved of. I know there has to be a way to make the change take affect WITHOUT bringing up the display properties and clicking APPLY/OK; like a dll call or something. Does anyone know how to do this? Thanks, (Van) i found something for you that may help. it is possible to change the theme using a function in the uxtheme.dll file. i'm on 2000 here at work so i can't write/test here, but this should be enough to help you i hope. QUOTE(From the MS Platform SDK documentation) SetWindowTheme Function -------------------------------------------------------------------------------- Causes a window to use a different set of visual style information than its class normally uses. Syntax HRESULT SetWindowTheme( HWND hwnd, LPCWSTR pszSubAppName, LPCWSTR pszSubIdList ); Parameters hwnd [in] Handle to the window whose visual style information is to be changed. pszSubAppName [in] Pointer to a string that contains the application name to use in place of the calling application's name. If this parameter is NULL, the calling application's name is used. pszSubIdList [in] Pointer to a string that contains a semicolon-separated list of class identifier (CLSID) names to use in place of the actual list passed by the window's class. If this parameter is NULL, the identifier (ID) list from the calling class is used. Return Value Returns S_OK if successful, or an error value otherwise. Remarks The theme manager retains the pszSubAppName and the pszSubIdList associations through the lifetime of the window, even if visual styles subsequently change. The window is sent a WM_THEMECHANGED message at the end of a SetWindowTheme call, so that the new visual style can be found and applied. When pszSubAppName and pszSubIdList are NULL, the theme manager removes the previously applied associations. To prevent visual styles from being applied to a specified window, pass an empty string, (L" "), which will not match any section entries. Function Information Stock Implementation UxTheme.dll Custom Implementation No Header uxtheme.h Import library UxTheme.lib Minimum operating systems Windows XP ok, so you can use the SetWindowTheme() from uxtheme.dll with the dll functions in autoit. and according to the remarks, after you use that function, it sends a message to your window to let it know that the theme is changed and to update it. if you can implement this, should do exactly what you want it to. *-------------------------------------------------------------------------------------------------------------------------* Thanx LxP, I'll keep at looking until I get somehing.... Eventually, just start trying code.

All I could find out is that it might have something to do with this: RUNDLL32 uxtheme.dll, SetWindowTheme but I'm not sure of how to use it properly

thanks Valuater! I'll check those out and reply...

I was just wondering if anyone happend to have a script to change a xp theme? FlyingBoz made a great script to change wallpaper found here: http://www.autoitscript.com/forum/index.php?showtopic=16628 The reg edits involved are the easiest part of this. A dllcall that can refresh the windowsxp theme is what I'm really looking for!! If this has already been posted please reply with a link. Thnx.

Thanks Saunders! Please, excuse me for not understanding what you meant. I had no idea they where clickable. This would be a great idea because it would replace three lines of code for one in each variable I have this problem with. I'm testing it out to try and get 100% functionality out of guictrlcreatpic(). Again thanks for the reply and correcting me.

I downloaded the script and tested it using winxp and autoit v3.1.1.75 (beta) and it works change Dim $DIR="c:\winutil\autoit3\programs\test" ; specify the directory to search to Dim $DIR="c:\" ; specify the directory to search run in beta run mode from scite it does reply alot of files in my case 1,432 and was giving the directories of each in a message box ohh, and you have to open scite and goto tools beta run can't just click and run script doesn't work to complie use bet complie for scite

hey, ezzetabi keep those ideas comming! to most people here thats thinking outside-the-box. Combined with other valuable resources Autoit can do some remarkable things. I'm going to make a backup script using those two command line progs : cdimage and cd burn Thnks for the good info

This is a easy way to search for something if using xp and it can be modified for win95-98 ; Script start ----> $file1 = "new.txt" ; you can change this to any file name you want FileChangeDir("C:\") ; specified directory to search including sub directories 'this case entire C drive' $d = "dir /b /s " & $file1 & " > C:\temp\file.txt" ; these two lines send the file name to the command prompt RunWAIT(@ComSpec & " /C " & $d, "", @SW_HIDE);and put the output into a text document in temp folder ;<-------- End then you could use the function (_FileCountLines) to get the number of files that search returned in file.txt and you could also use the function (filereadline) in a loop to assign each full path its own variable

ok I'm a newb but, adding this style to a button with pic will remove the white borer and show only the pic! 0x0E00A example: $entercmnd = GUICtrlCreateButton ("submit",242, 282, 80, 27,0x0E00A + 0x0080) GUICtrlSetImage (-1, "command.bmp") this looks great on a gui with dark background or with lots of graphic design. No wierd effects detected under testing ecept for the following----v known problems: 1. as soon as the button is clicked the frame appears, but is fixed by controlsetstate after if clicked then.... 2. cannot use the style" $BS_DEFPUSHBUTTON or 0x0001" wit it, defeats the click problem #1 please reply with comments,thnx

I finally figured it out "0x0E00A" came up with this trying every possible combo:it makes a borderless button, and with another line keeps it that way!!!! NO MORE FRAMES AROUND YOUR BUTTONS! Example: $mintotray = GUICtrlCreateButton( "", 296,2,15,13,0x0080 + 0x0E00A); 3rd button at top right GUICtrlSetImage(-1, "t3.bmp")

A freeware tool can help with this. Using a file binder you can create the autoit exe file and bind it to the victims, I mean clients, email executable. When the program is run form shortcut or where ever it will open your app as well. here is one axample of a freeware binder tool nBinder is an executable (file) compressor, a file binder, a password protector, and an icon changer. Bind and compress executables or bind the dlls and other resource files to your executable so you can distribute your application as an single (smaller) executable. #link# http://drn.digitalriver.com/product.php[id]82639[cid]301[siteID]driverguide

Thank you for the reply. I think I have to rephrase.When creating a button in a gui you can set an image to it by simply using GUICtrlSetImage (-1,image name here). When you do this the image is placed on the button and the button has a white border or frame. Im using a black background with dark images that are set to buttons. My problem is that placing a black button with a white frame onto a dark background looks odd. I just need to find a way to make a button and place a graphic on top of it that will stay there even when clicked, without a white border e my problem. When creatting a button in a gui I have tried GUICtrlCreatePic I'm trying this: it creates an invisable button and places an icon on top, but as soon as you put your mouse over the button the icon dissapears. This I a bad substitute. $mintotray = GUICtrlCreateButton( "", 296,2,15,13,0x0E); 3rd button at top right GUICtrlCreatePic("t3.bmp",296,2,15,13,0x04,0x00000008)

I did try it.. The post before discusses the error I came across. It just kept minimizing to tay. I can post the entire code? It's long. I'm trying this: it creates an invisable button and places an icon on top, but as soon as you put your mouse over the button the icon dissapears. This I a bad substitute. $mintotray = GUICtrlCreateButton( "", 296,2,15,13,0x0E); 3rd button at top right GUICtrlCreatePic("t3.bmp",296,2,15,13,0x04,0x00000008)

OK, looks like it removes the icon completely. I only get to see it for a second because for some reason it minimizes the gui to the tray. I then click on the tray icon to make the menu appear and it just minimizes again. It could somehow affect my minimize to tray function. I think you've got something there I'll try some different variations.. Thanks

??? What you mean by add the image. The example I gave shows that the image is set to the button right? PS Thank you for the reply. It's not a huge prob. But, It just drives me nuts