ROZEZSHA.TXT
www nie com pl 2
abc.com.pl 5
Quinnell A J Mahdi
Tybetańska Yoga
chip 4
119 12
09 (461)
Aldiss Brian W Siwobrody
rozdzial 14 (66)
[ Pobierz całość w formacie PDF ]
.Ciekawsze funkcje APICiekawsze funkcje APIPoni¿ej opisze kilka fajnych funkcji API.Z pewnoœci¹pomog¹ one nam napisaæ lepszy program.No to do dzia³a :Jak odtworzyæ plik WAV ???Bardzo ³atwo.W module piszemy :Public Const SND_ASYNC = &H1Public Declare Function sndPlaySound Lib "winmm.dll"Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As LongA w miejscu, gdzie chcemy odtworzyæ plik WAV piszemy :Dim r As Integerr = sndPlaySound(ByVal Sou + "plik.wav", SND_SYNC +SND_NODEFAULT + SND_ASYNC)Jak odczytaæ nazwê komputera???W module piszemy :Public Declare FunctionGetComputerName Lib "kernel32" Alias"GetComputerNameA" (ByVal lpBuffer As String, nSize AsLong) As LongA w miejscu gdzie chcemy odczytaæ nazwekompa piszemy :Dim compname As String * 255, cnameAs String' Nazwa komputera nie mo¿e byæ d³u¿szax = GetComputerName(compname, 255)' usuwamy spacje i koñcowy vbNullCharcname = Trim(compname)cname = Left(cname, Len(cname) - 1)If x <> 0 Then MsgBox "Witam na komputerze: " +cnameJak odczytaæ wersjê WINDOWS'a???W module piszemy :Public Declare Function GetVersionExLib "kernel32" Alias "GetVersionExA"(lpVersionInformation As OSVERSIONINFO) As LongPublic Type OSVERSIONINFOdwOSVersionInfoSize As LongdwMajorVersion As LongdwMinorVersion As LongdwBuildNumber As LongdwPlatformId As LongszCSDVersion As String * 128End TypeA w odpowiednim miejscu programu piszemy:Dim os As OSVERSIONINFOos.dwOSVersionInfoSize = Len(os) ' d³ugoœæ zmiennejx = GetVersionEx(os)MsgBox "Masz windows w wersji :" +Str(os.dwMajorVersion) + "." + Str(os.dwMinorVersion) +Str(dwBuildNumber)Jak uzyskaæ dŸwiêk BEEP ???W module piszemy :Public Declare Function Beep Lib"kernel32" Alias "Beep" (ByVal dwFreq AsLong, ByVal dwDuration As Long) As LongA w odpowiednim miejscu programu :Call Beep(0, 0)Jest jeszcze inny sposób, tj, bez ¿adnych deklaracji wdowolnym miejscu programu wpisujemy BEEPefekt ten sam, a du¿omniej pisaniaCzy w VB jest instrukcja podobna do DELAY z TurboPascala ???W module piszemy :Public Declare Sub Sleep Lib"kernel32" (ByVal dwMilliseconds As Long)W kodzie programu piszemy :Label1.Caption = "Demo funkcji Sleep -2 sekundy"Label1.RefreshSleep 2000 ' 2000 milisekund = 2 sekundyLabel1.Caption = "Juz koniec."Label1.Refresh 'odœwie¿ lablaJak z poziomu VB, wy³¹czyækomputer ???Jeœli masz obudowê ATX, to wy³¹czaj¹c WINDOWS,wy³¹cza siê komputer (sam) tak, wiêc mo¿esz napisaæ jakiœprogram, który robi np Backup dysku a jak skoñczy to zamykaWINDOWS (a windows wy³æza komputer).Dziêki temu mo¿esz w tymczasie byæ nieobecny przy kompie np.spaæ.A oto co musimynapisaæ w module :Public Declare FunctionExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByValdwReserved As Long) As LongA miejscu gdzie chcemy zamkn¹æ windows :x = ExitWindowsEx(EWX_REBOOT, 0)If x = 0 Then Beep: MsgBox "B³¹d podczas próby restartusystemu!"To by by³o na tyle.Przyk³ady zaczerpn¹³em (wwiêkszoœci) z pliku pomocy API, który mo¿na œci¹gn¹æ zestronytam jest du¿o wiêcej ciekawych funkcji API.Jelcyn [ Pobierz caÅ‚ość w formacie PDF ]
