TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Andrea on June 13, 2011, 04:46:23 PM

Title: How to use RunDLL32 with Lisp..
Post by: Andrea on June 13, 2011, 04:46:23 PM

Hi all,...

I didn't found lot of information about how to use "RunDLL32" in Lisp...
so,...

there is my contribution on this famous forum.
enjoy !!

Code: [Select]

(setq shell (vlax-create-object "WScript.Shell"))

;Lock workStation
(vlax-invoke shell "run" "rundll32.exe user32.dll,LockWorkStation")


;Mouse propreties
(vlax-invoke shell  "run" "rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")

;system propreties
(vlax-invoke shell  "run" "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2")


;New network connection drive
(vlax-invoke shell  "run" "rundll32.exe user.dll,wnetconnectdialog")
;XP=(vlax-invoke shell  "run" "RunDll32.exe shell32.dll,SHHelpShortcuts_RunDLL Connect")


;Graphic propreties
(vlax-invoke shell  "run" "RUNDLL32.EXE SHELL32.DLL,Control_RunDLL desk.cpl,,0")

;Printer options
(vlax-invoke shell  "run" "RUNDLL32 PRINTUI.DLL,PrintUIEntry /?")

;System info
(vlax-invoke shell  "run" "rundll32.exe shell32.dll,ShellAboutA Info-Box" )

;Time date panel
(vlax-invoke shell  "run" "RUNDLL32 SHELL32.DLL,Control_RunDLL TIMEDATE.CPL,@0,1")

;Funny thing..
(vlax-invoke shell  "run" "RUNDLL32.EXE USER32.DLL,SwapMouseButton")


And so many....

http://www.windowskb.com/Uwe/Forum.aspx/windowsxp/203426/USER32-DLL-API
 (http://www.windowskb.com/Uwe/Forum.aspx/windowsxp/203426/USER32-DLL-API)
http://www.powerbasic.com/support/forums/Forum6/HTML/005172.html
 (http://www.powerbasic.com/support/forums/Forum6/HTML/005172.html)

Title: Re: How to use RunDLL32 with Lisp..
Post by: highflyingbird on June 13, 2011, 07:51:53 PM

Maybe look like this:

Code: [Select]

(vlax-invoke shell 'run "rundll32.exe kernel32.dll Sleep 1000")
(vlax-invoke shell 'run "rundll32.exe user32.dll MessageBoxA 0 \"aaa\" \"bbb\" 0")
but it wouldn't work.

look at  here  (http://www.theswamp.org/index.php?topic=38102.0)

Title: Re: How to use RunDLL32 with Lisp..
Post by: Andrea on June 13, 2011, 11:21:06 PM

Quote from: HighflyingBird on June 13, 2011, 07:51:53 PM

Maybe look like this:

Code: [Select]

(vlax-invoke shell 'run "rundll32.exe kernel32.dll Sleep 1000")
(vlax-invoke shell 'run "rundll32.exe user32.dll MessageBoxA 0 \"aaa\" \"bbb\" 0")
but it wouldn't work.

look at  here  (http://www.theswamp.org/index.php?topic=38102.0)

Wow !...nice reference you have.  thanks for sharing. :)
i'll keep your link.