Help me!!

[SoulCollector]

Hey guys! I dont know whats problem but my friend give me some source codes for turn on and turn off monitor:

turn off:
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, (LPARAM) 2);

turn on:
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, (LPARAM) -1);

So it show me like 6 errors .. so can someone help me ?? and i need another 1 so someone know for to change a administrator password on computer ?

[Atheist]

So, are we going to have a guessing game at what these 6 errors are, or are you going to tell us?

[Shaggy Hiker]

A code that changes an administrator password? Please, tell us more.

[formlesstree4]

A code that changes an administrator password? Please, tell us more.

Pfft. Every NetAdmin knows the command to do that via CMD.

As for your errors, I could name several:
1. You gave us none.
2. What does your code do?
3. What are the errors actually?
4. What's the purpose? (Optional)

[SoulCollector]

Im talknig about code to turn on and turn off MONITOR

[Atheist]

yes, you made that clear in the first post. You also told us that you get around 6 errors. Tell us more about them.

[SoulCollector]

This is my errors and im newbie here and with coding so i need help:

[formlesstree4]

Im talknig about code to turn on and turn off MONITOR

No need to get mean, we're just asking about this:

So it show me like 6 errors .. so can someone help me ?? and i need another 1 so someone know for to change a administrator password on computer ?

As for your errors, I haven't a clue. Those don't appear to be VB.net codenames that I'm aware of.

[stateofidleness]

looks like you're using API calls and forgot to import something.
can you post your code?

side-note: if i ever had a program try to turn off my monitor (aside from maybe a screen-saver..) i would be thoroughly pissed

Const HWND_BROADCAST As Integer = &HFFFF
Const SC_MONITORPOWER As Integer = &HF170
Const WM_SYSCOMMAND As Short = &H112S
 
Sub Main()
    Dim instr As String = Command()
    Select Case 
      Command().ToLower
      'Make sure it matches - and look at the commandline switch 
      Case "off"
            TurnOff()
      Case "on"
            TurnOn()
      Case "test"
            TurnOff()
            'turn off monitor 
            System.Threading.Thread.Sleep(10000)
            'wait 10 seconds
            TurnOn()
            'turn on monitor 
      Case Else
            MsgBox("Usage, [on]/[off]/[test] ", _
                   MsgBoxStyle.Information, _
                   "Need Command Switch")
    End Select
End Sub
 
_ Private Function SendMessage( ByVal Handle As Int32, _ 
          ByVal wMsg As Int32, ByVal wParam As Int32, _ 
          ByVal lParam As Int32) As Int32
 
End Function
 
Sub StandBy()
    SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1)
End Sub
 
Sub TurnOff() 
    SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2)
End Sub
 
Sub TurnOn()
    SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1)
End Sub

[stateofidleness]

found this as well:

MonitorSet False
 
to turn the monitor off or
 
MonitorSet True
 
to turn the monitor on
 
 
Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const SC_MONITORPOWER = &HF170&
Const WM_SYSCOMMAND = &H112
 
Declare Auto Function SendMessage Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) As Integer
 
Function MonitorSet(Optional ByVal bOn As Boolean = True) As Integer
MonitorSet = SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, IIf(bOn, MONITOR_ON, MONITOR_OFF))
End Function

[SoulCollector]

is that code for turning off a monitor and turning on ?? if that is then thanks !! hhh i gonna make prank for my friend but thnx for code i m newbie and gonna learn more about vb !

[Hack]

is that code for turning off a monitor and turning on ?? if that is then thanks !! hhh i gonna make prank for my friend but thnx for code i m newbie and gonna learn more about vb !

We do not support pranks.

This thread is closed.