Find Jobs
Hire Freelancers

CTRL+ALT+DEL in NT

$10-15 USD

Closed
Posted over 21 years ago

$10-15 USD

Paid on delivery
OK, I need a VB API coder to help me complete some code I was making. I need to simulate CTRL+ALT+DEL in Windows NT. Eg, bring up the logon dialog, or make it go away. Autologon is not an option because I'm making a remote administration tool. Don't think about C2 Compliance because I have seen it done... WinVNC can do it, and so can I! WinVNC uses C++ (it's open source if you need help) to send there CTRL+ALT+DEL. they use: PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, MAKELONG(MOD_ALT | MOD_CONTROL, VK_DELETE)); but obviously VB doesn't know anything about MAKELONG... I've made my own thingy but it isn't working... I need someone to fix up the following code: -------------------------------------------- Private Declare Function PostMessage Lib "user32" _ Alias "PostMessageA" (ByVal hWnd As Long, ByVal _ wMsg As Long, ByVal wParam As Long, ByVal _ lParam As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" _ (Destination As Any, Source As Any, _ ByVal Length As Long) Const HWND_BROADCAST = &HFFFF Const MOD_ALT = &H1 Const MOD_CONTROL = &H2 Const WM_HOTKEY = &H312 Const VK_DELETE = &H2E Private Sub Command1_Click() Dim a As Long Dim b As Long a = MAKELONG(MOD_CONTROL, MOD_ALT) b = MAKELONG(a, VK_DELETE) c = PostMessage(HWND_BROADCAST, WM_HOTKEY, 0, b) End Sub Public Function MAKELONG(wLow As Long, wHigh As Long) As Long MAKELONG = LoWord(wLow) Or (&H10000 * LoWord(wHigh)) End Function Public Function LoWord(dwValue As Long) As Integer CopyMemory LoWord, dwValue, 2 End Function -------------------------------------------- I need to see a sample of your program working before I can accept the bid, because too many ppl accepted previous jobs without realising the complications. Code must be done in VB 5 / 6. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. ## Platform Windows NT / 2000 / XP
Project ID: 2871112

About the project

5 proposals
Remote project
Active 21 yrs ago

Looking to make some money?

Benefits of bidding on Freelancer

Set your budget and timeframe
Get paid for your work
Outline your proposal
It's free to sign up and bid on jobs
5 freelancers are bidding on average $7 USD for this job
User Avatar
See private message.
$4.24 USD in 14 days
5.0 (27 reviews)
3.2
3.2
User Avatar
See private message.
$3.40 USD in 14 days
4.5 (5 reviews)
0.6
0.6
User Avatar
See private message.
$11.05 USD in 14 days
0.0 (0 reviews)
0.0
0.0
User Avatar
See private message.
$8.50 USD in 14 days
0.0 (0 reviews)
0.0
0.0
User Avatar
See private message.
$10.20 USD in 14 days
0.0 (0 reviews)
0.0
0.0

About the client

Flag of AUSTRALIA
Australia
5.0
65
Member since Aug 13, 2002

Client Verification

Thanks! We’ve emailed you a link to claim your free credit.
Something went wrong while sending your email. Please try again.
Registered Users Total Jobs Posted
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Loading preview
Permission granted for Geolocation.
Your login session has expired and you have been logged out. Please log in again.