Visual Basic – Postavljanje kompjutera u StandBy

 –  aลพurirano:  –  

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