Visual Basic – Postavljanje kompjutera u StandBy

  –  

U ovom prilogu ćemo predstaviti kako da uz pomoć Visual Basic-a napravite mali program koji će vaš kompjuter postavljati u StandBy režim. Program će raditi ukoliko vaša verzija operativnog sistema podržava ovaj mod, a sigurno ga podržava Windows 98. Pokrenite Visual Basic i u dijalog prozoru „New Project“ izaberite opciju „Standard EXE“, potom kliknite na „OK“. Sa padajućeg menija izaberite „View -> Code“ da bi videli prozor za unošenje programskog koda. U gornjem levom combo-box-u izaberite opciju (General) i sledeći programski kod prekopirajte u ovu sekciju: 



Private Declare Function GetDesktopWindow Lib „user32“ () As Long

Private Declare Function SendMessage Lib „user32“ _

Alias „SendMessageA“ (ByVal hWnd As Long, ByVal _

wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Const WM_SYSCOMMAND As Long = &H112&

Private Const SC_SCREENSAVE As Long = &HF140&

Sada ćemo kreirati novu proceduru vezanu za našu formu. Sa padajućeg menija izaberite „Tools -> Add Procedure“, u sledećem dijalogu u polje „Name“ unesite naziv procedure „StandBy“ i potvrdite opcije „Sub“ i „Public“. Na kraju pritisnite „OK“. U prozoru koda ćete dobiti deklaraciju nove procedure i u nju ubacite sledeći kod: 



Dim hWnd&

On Error Resume Next

hWnd& = GetDesktopWindow()

Call SendMessage(hWnd&, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

Sada ćemo na formu dodati jedno komandno dugme (CommandButton), te ćemo njegove osobine podesiti na:
  • Caption – „StandBy“
  • Height – 350
  • Width – 1000
  • Top – 0
  • Left – 0
Na ovaj način smo na formu dodali jedno dugme i to u gornji levi ugao forme, te ćemo dodati programski kod vezan za događaj „Click“, tj. klikom na dugme pozvaće se procedura „StandBy“. 



  Call StandBy

U sledećem delu ćemo izvršiti podešavanje forme:

  • BorderStyle – „None“
  • Height – 350
  • Width – 1000
  • Top – 0
  • Left – 0
Na ovaj način smo formu doveli da veličinu dugmeta i stil forme podesili da se ne vide standardni elementi prozora. Osobinama „Top“ i „Left“ podešavamo gde će se forma nalaziti na ekranu u odnosu na koordinatni početak, tj. gornji levi ugao (koordinate 0,0). Sada možete pokrenuti program pritiskom na taster „F5“. Pojaviće vam se na ekranu naše dugme, koje ako kliknete poziva proceduru za prelazak u „StandBy“ (kao na slici).

Pratite Krstaricu na www.krstarica.com